Mercurial Mercurial > hg > nominal2 / 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.
Nominal/nominal_function_common.ML
changeset 3120 368fc38321fc
parent 2974 b95a2065aa10
child 3121 878de0084b62 
--- a/Nominal/nominal_function_common.ML	Thu Feb 09 15:18:10 2012 +0100
+++ b/Nominal/nominal_function_common.ML	Thu Feb 16 07:14:28 2012 +0000
@@ -74,7 +74,7 @@
 
 fun lift_morphism thy f =
   let
-    val term = Drule.term_rule thy f
+    val term = Thm.term_of (Drule.cterm_rule f (Thm.cterm_of thy t))
   in
     Morphism.thm_morphism f $> Morphism.term_morphism term
     $> Morphism.typ_morphism (Logic.type_map term)
nominal2