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/monomorph.ML
changeset 59621 291934bac95e
parent 59058 a78612c67ec0
child 59642 929984c529d3 
--- a/src/HOL/Tools/monomorph.ML	Fri Mar 06 14:01:08 2015 +0100
+++ b/src/HOL/Tools/monomorph.ML	Fri Mar 06 15:58:56 2015 +0100
@@ -159,7 +159,7 @@
 
 fun instantiate thy subst =
   let
-    fun cert (ix, (S, T)) = apply2 (Thm.ctyp_of thy) (TVar (ix, S), T)
+    fun cert (ix, (S, T)) = apply2 (Thm.global_ctyp_of thy) (TVar (ix, S), T)
     fun cert' subst = Vartab.fold (cons o cert) subst []
   in Thm.instantiate (cert' subst, []) end
isabelle