Faster proof of mult_less_cancel2
authorpaulson
Fri Dec 12 10:31:25 1997 +0100 (1997-12-12)
changeset 43891865cb8df116
parent 4388 c54f2e3423f2
child 4390 57e16404c2a9
Faster proof of mult_less_cancel2
src/HOL/Arith.ML
     1.1 --- a/src/HOL/Arith.ML	Thu Dec 11 13:15:06 1997 +0100
     1.2 +++ b/src/HOL/Arith.ML	Fri Dec 12 10:31:25 1997 +0100
     1.3 @@ -544,7 +544,7 @@
     1.4  goal Arith.thy "!!k. 0<k ==> (m*k < n*k) = (m<n)";
     1.5  by (safe_tac (claset() addSIs [mult_less_mono1]));
     1.6  by (cut_facts_tac [less_linear] 1);
     1.7 -by (blast_tac (claset() addDs [mult_less_mono1] addEs [less_asym]) 1);
     1.8 +by (blast_tac (claset() addIs [mult_less_mono1] addEs [less_asym]) 1);
     1.9  qed "mult_less_cancel2";
    1.10  
    1.11  goal Arith.thy "!!k. 0<k ==> (k*m < k*n) = (m<n)";