new_type : string * int -> unit
- new_theory "ZF"; <<HOL message: Created theory "ZF">> > val it = () : unit - new_type ("set", 0); > val it = () : unit - new_constant ("mem", Type`:set->set->bool`); > val it = () : unit - new_axiom ("EXT", Term`(!z. mem z x = mem z y) ==> (x = y)`); > val it = |- (!z. mem z x = mem z y) ==> (x = y) : thm