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/Tools/Predicate_Compile/predicate_compile_specialisation.ML
changeset 58950 d07464875dd4
parent 56239 17df7145a871
child 59058 a78612c67ec0 
--- a/src/HOL/Tools/Predicate_Compile/predicate_compile_specialisation.ML	Sat Nov 08 17:39:01 2014 +0100
+++ b/src/HOL/Tools/Predicate_Compile/predicate_compile_specialisation.ML	Sat Nov 08 21:31:51 2014 +0100
@@ -83,7 +83,7 @@
     fun specialise_intro intro =
       (let
         val (prems, concl) = Logic.strip_horn (prop_of intro)
-        val env = Pattern.unify thy
+        val env = Pattern.unify (Context.Theory thy)
           (HOLogic.mk_Trueprop (list_comb (pred, pats)), concl) (Envir.empty 0)
         val prems = map (Envir.norm_term env) prems
         val args = map (Envir.norm_term env) result_pats
isabelle