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