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.