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