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/SPARK/Tools/spark_vcs.ML
changeset 58956 a816aa3ff391
parent 58354 04ac60da613e
child 59058 a78612c67ec0 
--- a/src/HOL/SPARK/Tools/spark_vcs.ML	Sun Nov 09 11:05:20 2014 +0100
+++ b/src/HOL/SPARK/Tools/spark_vcs.ML	Sun Nov 09 14:08:00 2014 +0100
@@ -209,7 +209,7 @@
       (fn _ =>
          rtac @{thm subset_antisym} 1 THEN
          rtac @{thm subsetI} 1 THEN
-         Old_Datatype_Aux.exh_tac (K (#exhaust (BNF_LFP_Compat.the_info
+         Old_Datatype_Aux.exh_tac lthy (K (#exhaust (BNF_LFP_Compat.the_info
            (Proof_Context.theory_of lthy) [BNF_LFP_Compat.Keep_Nesting] tyname'))) 1 THEN
          ALLGOALS (asm_full_simp_tac lthy));
isabelle