CONJUNCTS_THEN2 : (thm_tactic -> thm_tactical)
CONJUNCTS_THEN2 f1 f2 (A |- l /\ r) = f1 (A |- l) THEN f2 (A |- r)
A1 ?- t1 A2 ?- t2 ========== f1 (A |- l) ========== f2 (A |- r) A2 ?- t2 A3 ?- t3
A1 ?- t1 ========== CONJUNCTS_THEN2 f1 f2 (A |- l /\ r) A3 ?- t3