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