THEN_TCL : (thm_tactical * thm_tactical -> thm_tactical)
ttl1 ttac th1 = ttac th2
ttl2 ttac th2 = ttac th3
(ttl1 THEN_TCL ttl2) ttac th1 = ttac th3