strip_comb : term -> term * term list
strip_comb(list_mk_comb(t,[t1,...,tn]))
- strip_comb (Term `x /\ y`); > val it = (`$/\`, [`x`, `y`]) : term * term list - strip_comb T; > val it = (`T`, []) : term * term list