src/ZF/AC/Hartog.thy

Added a few lemmas.
Renamed expand_const -> split_const.

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