save_thm : string * thm -> thm
- val foo = save_thm("foo", REFL (Term `x:bool`));
> val foo = |- x = x : thm
- current_theorems();
> val it = [("foo", |- x = x)] : (string * thm) list
The results of new_axiom, and definition principle (such as new_definition, new_type_definition, and new_specification) are automatically stored in the current theory: one does not have to call save_thm on them.