Mercurial Mercurial > hg > nominal2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
same as in function_common
authorChristian Urban <urbanc@in.tum.de>
Thu, 16 Feb 2012 07:14:28 +0000
changeset 3120 368fc38321fc
parent 3119 ed0196555690
child 3121 878de0084b62
same as in function_common
Nominal/nominal_function_common.ML file | annotate | diff | comparison | revisions 
--- 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