(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