dest_let : term -> term * term
- dest_let (Term `let x = P /\ Q in x \/ x`); > val it = (`\x. x \/ x`, `P /\ Q`) : term * term