CONJ_LIST : (int -> thm -> thm list)
A |- t1 /\ (t2 /\ ( ... /\ tn)...) ------------------------------------ CONJ_LIST n (A |- t1 /\ ... /\ tn) A |- t1 A |- t2 ... A |- tn
A |- (x /\ y) /\ z /\ w
- CONJ_LIST 0 th; ! Uncaught exception: ! HOL_ERR - CONJ_LIST 1 th; > val it = [[A] |- (x /\ y) /\ z /\ w] : thm list - CONJ_LIST 2 th; > val it = [ [A] |- x /\ y, [A] |- z /\ w] : thm list - CONJ_LIST 3 th; > val it = [ [A] |- x /\ y, [A] |- z, [A] |- w] : thm list - CONJ_LIST 4 th; ! Uncaught exception: ! HOL_ERR