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