COND_REWRITE1_TAC : thm_tactic
A |- !x11 ... . P1 ==> ... !xm1 ... . Pm ==> (!x ... . Q = R)
#LESS_MOD;; Theorem LESS_MOD autoloading from theory `arithmetic` ... LESS_MOD = |- !n k. k < n ==> (k MOD n = k) |- !n k. k < n ==> (k MOD n = k)
#g"2 MOD 3 = 2";; "2 MOD 3 = 2" () : void
   #e(COND_REWRITE1_TAC LESS_MOD);;
   OK..
   2 subgoals
   "2 = 2"
       [ "2 < 3" ]
   "2 < 3"
   () : void