src/ZF/AC/recfunAC16.thy

tuned header;

(*  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