author | lcp |
Fri, 28 Jul 1995 11:02:22 +0200 | |
changeset 1203 | a39bec971684 |
parent 1155 | 928a16e02f9f |
child 1401 | 0c439768f45c |
permissions | -rw-r--r-- |
992 | 1 |
(* Title: ZF/AC/Transrec2.thy |
2 |
ID: $Id$ |
|
1203 | 3 |
Author: Krzysztof Grabczewski |
992 | 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 |
||
1155 | 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)))" |
|
992 | 22 |
|
23 |
end |