src/ZF/AC/Hartog.thy

eta-expansion required for SML/NJ

(*  Title:      ZF/AC/Hartog.thy
    ID:         $Id$
    Author:     Krzysztof Grabczewski

Hartog's function.
*)

Hartog = Cardinal +

consts

  Hartog :: i => i

defs

  Hartog_def "Hartog(X) == LEAST i. ~i lepoll X"

end