author | paulson |
Wed, 27 Mar 1996 18:46:42 +0100 | |
changeset 1619 | cb62d89b7adb |
parent 1478 | 2b8c2a7547ab |
permissions | -rw-r--r-- |
1478 | 1 |
(* Title: ZF/AC/Transrec2.thy |
992 | 2 |
ID: $Id$ |
1478 | 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 |
||
1401 | 13 |
transrec2 :: [i, i, [i,i]=>i] =>i |
992 | 14 |
|
15 |
defs |
|
16 |
||
1478 | 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 |