Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
CLASET';
authorwenzelm
Mon, 03 Nov 1997 12:36:48 +0100
changeset 4097 ddd1c18121e0
parent 4096 8cdf672a83e8
child 4098 71e05eb27fb6
CLASET';
TFL/post.sml file | annotate | diff | comparison | revisions 
--- a/TFL/post.sml	Mon Nov 03 12:28:45 1997 +0100
+++ b/TFL/post.sml	Mon Nov 03 12:36:48 1997 +0100
@@ -72,8 +72,8 @@
    {WFtac      = REPEAT (ares_tac [wf_measure, wf_inv_image, wf_lex_prod, 
 				   wf_less_than, wf_trancl] 1),
     terminator = asm_simp_tac ss 1
-		 THEN TRY(best_tac
-			  (!claset addSDs [not0_implies_Suc] addss ss) 1),
+		 THEN TRY(CLASET' (fn cs => best_tac
+			  (cs addSDs [not0_implies_Suc] addss ss)) 1),
     simplifier = Rules.simpl_conv ss []};
isabelle