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