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]