author | wenzelm |
Tue, 07 Sep 1999 10:40:58 +0200 | |
changeset 7499 | 23e090051cb8 |
parent 2469 | b50b8c0eec01 |
child 11317 | 7f9e4c389318 |
permissions | -rw-r--r-- |
(* Title: ZF/AC/recfunAC16.thy ID: $Id$ Author: Krzysztof Grabczewski A recursive definition used in the proof of WO2 ==> AC16 *) recfunAC16 = Cardinal + Epsilon + constdefs recfunAC16 :: [i, i, i, i] => i "recfunAC16(f,fa,i,a) == transrec2(i, 0, %g r. if(EX y:r. fa`g <= y, r, r Un {f`(LEAST i. fa`g <= f`i & (ALL b<a. (fa`b <= f`i --> (ALL t:r. ~ fa`b <= t))))}))" end