author | wneuper <Walther.Neuper@jku.at> |
Sun, 09 Oct 2022 09:01:29 +0200 | |
changeset 60566 | 04f8699d2c9d |
parent 52107 | f8845fc8f38d |
permissions | -rwxr-xr-x |
2 theory Test_SUM imports Isac begin
4 section {*trials with implicit function, probably required*}
5 ML {*
6 @{term "(%n :: nat. n) 2"};
7 @{term "(%n. n) 2"};
8 @{term "2"};
9 *}
10 ML {*
11 @{term "(%n. n+n)"};
12 @{term "(%n. n+n) a"};
13 @{term "a+a"};
14 *}
15 section {*sums*}
16 ML {*
17 val x = @{term "(SUM i = 0..< k. f i)"};
18 term2str x
19 *}
20 ML {*
21 *}
22 ML {*
23 *}
24 ML {*
25 *}
27 end