author | lcp |
Tue, 25 Apr 1995 11:14:03 +0200 | |
changeset 1072 | 0140ff702b23 |
parent 992 | 4ef4f7ff2aeb |
child 1155 | 928a16e02f9f |
permissions | -rw-r--r-- |
992 | 1 |
(* Title: ZF/AC/Transrec2.thy |
2 |
ID: $Id$ |
|
3 |
Author: Krzysztof Gr`abczewski |
|
4 |
||
5 |
Transfinite recursion introduced to handle definitions based on the three |
|
6 |
cases of ordinals. |
|
7 |
*) |
|
8 |
||
9 |
Transrec2 = OrdQuant + Epsilon + |
|
10 |
||
11 |
consts |
|
12 |
||
13 |
transrec2 :: "[i, i, [i,i]=>i] =>i" |
|
14 |
||
15 |
defs |
|
16 |
||
17 |
transrec2_def "transrec2(alpha, a, b) == \ |
|
18 |
\ transrec(alpha, %i r. if(i=0, \ |
|
19 |
\ a, if(EX j. i=succ(j), \ |
|
20 |
\ b(THE j. i=succ(j), r`(THE j. i=succ(j))), \ |
|
21 |
\ UN j<i. r`j)))" |
|
22 |
||
23 |
end |