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/BNF/Tools/bnf_comp.ML
changeset 49586 d5e342ffe91e
parent 49585 5c4a12550491
child 49630 9f6ca87ab405 
--- a/src/HOL/BNF/Tools/bnf_comp.ML	Wed Sep 26 10:00:59 2012 +0200
+++ b/src/HOL/BNF/Tools/bnf_comp.ML	Wed Sep 26 10:00:59 2012 +0200
@@ -167,7 +167,7 @@
           |> sort (rev_order o int_ord o pairself fst)
           |> map snd) @ [map_id_of_bnf outer];
       in
-        (EVERY' (map (fn thm => subst_tac ctxt [thm]) thms) THEN' rtac refl) 1
+        (EVERY' (map (fn thm => subst_tac ctxt NONE [thm]) thms) THEN' rtac refl) 1
       end;
 
     fun map_comp_tac _ =
isabelle