Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/IOA/NTP/Impl.ML
changeset 1894 c2c8279d40f0
parent 1465 5d7a7e439cec 
--- a/src/HOL/IOA/NTP/Impl.ML	Mon Jul 29 18:31:39 1996 +0200
+++ b/src/HOL/IOA/NTP/Impl.ML	Tue Jul 30 17:33:26 1996 +0200
@@ -182,14 +182,14 @@
   by (forward_tac [rewrite_rule [Impl.inv1_def]
                                 (inv1 RS invariantE) RS conjunct1] 1);
   by (tac2 1);
-  by (fast_tac (HOL_cs addDs [add_leD1,leD]) 1);
+  by (fast_tac (!claset addDs [add_leD1,leD]) 1);
 
   (* 3 *)
   by (forward_tac [rewrite_rule [Impl.inv1_def] (inv1 RS invariantE)] 1);
 
   by (tac2 1);
   by (fold_tac [rewrite_rule [Packet.hdr_def]Impl.hdr_sum_def]);
-  by (fast_tac (HOL_cs addDs [add_leD1,leD]) 1);
+  by (fast_tac (!claset addDs [add_leD1,leD]) 1);
 
   (* 2 *)
   by (tac2 1);
@@ -245,7 +245,7 @@
   (* 7 *)
   by (tac3 1);
   by (tac_ren 1);
-  by (fast_tac HOL_cs 1);
+  by (Fast_tac 1);
 
   (* 6 - 3 *)
isabelle