BODY_CONJUNCTS : (thm -> thm list)
A |- !x1...xn. t1 /\ (!y1...ym. t2 /\ t3) /\ ... -------------------------------------------------- BODY_CONJUNCTS [A |- t1, A |- t2, A |- t3, ...]
- local val tm = Parser.term_parser `!x:bool. A /\ (B \/ (C /\ D)) /\ ((!y:bool. E) /\ F)` in val x = ASSUME tm end; val x = . |- !x. A /\ (B \/ C /\ D) /\ (!y. E) /\ F : thm - BODY_CONJUNCTS x; val it = [. |- A, . |- B \/ C /\ D, . |- E, . |- F] : thm list