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]