this makes the proof run (or run faster)
authorpaulson
Thu, 21 Dec 2000 18:53:32 +0100
changeset 10721 12b166418455
parent 10720 1ce5a189f672
child 10722 55c8367bab05
this makes the proof run (or run faster)
src/HOL/Real/Hyperreal/SEQ.ML
--- a/src/HOL/Real/Hyperreal/SEQ.ML	Thu Dec 21 18:08:10 2000 +0100
+++ b/src/HOL/Real/Hyperreal/SEQ.ML	Thu Dec 21 18:53:32 2000 +0100
@@ -1040,6 +1040,7 @@
 by (REPEAT(dtac (HNatInfinite_whn RSN (2,bspec)) 1));
 by (dres_inst_tac [("x","whn")] spec 1);
 by (REPEAT(dtac (bex_Infinitesimal_iff2 RS iffD2) 1));
+by Auto_tac;
 by (auto_tac (claset() addIs 
     [hypreal_of_real_le_add_Infininitesimal_cancel2], simpset()));
 qed "NSLIMSEQ_le";