equal
deleted
inserted
replaced
12 |
12 |
13 transrec2 :: "[i, i, [i,i]=>i] =>i" |
13 transrec2 :: "[i, i, [i,i]=>i] =>i" |
14 |
14 |
15 defs |
15 defs |
16 |
16 |
17 transrec2_def "transrec2(alpha, a, b) == \ |
17 transrec2_def "transrec2(alpha, a, b) == |
18 \ transrec(alpha, %i r. if(i=0, \ |
18 transrec(alpha, %i r. if(i=0, |
19 \ a, if(EX j. i=succ(j), \ |
19 a, if(EX j. i=succ(j), |
20 \ b(THE j. i=succ(j), r`(THE j. i=succ(j))), \ |
20 b(THE j. i=succ(j), r`(THE j. i=succ(j))), |
21 \ UN j<i. r`j)))" |
21 UN j<i. r`j)))" |
22 |
22 |
23 end |
23 end |