gen_new_specification : string * thm -> thm
Evaluating:
gen_new_specification (name, [x1=t1,...,xn=tn] |- t)
|- t
This theorem is stored, with name name, as a definition in the current theory segment. It is also returned by the call to gen_new_specification.