CONJUNCTS : thm -> thm list
A |- t1 /\ t2 /\ ... /\ tn
----------------------------------- CONJUNCTS
A |- t1 A |- t2 ... A |- tn
# CONJUNCTS(ASSUME `(x /\ y) /\ z /\ w`);;
val it : thm list =
[(x /\ y) /\ z /\ w |- x; (x /\ y) /\ z /\ w |- y; (x /\ y) /\ z /\ w
|- z; (x /\ y) /\ z /\ w |- w]