dest_thm : thm -> term list * term
- dest_thm (ASSUME (Term `p=T`)); > val it = ([`p = T`], `p = T`) : term list * term