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