| author | wneuper <Walther.Neuper@jku.at> |
| Sun, 31 Dec 2023 09:42:27 +0100 | |
| changeset 60787 | 26037efefd61 |
| 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