# HG changeset patch
# User Christian Urban <urbanc@in.tum.de>
# Date 1329376468 0
# Node ID 368fc38321fce9c7c77425a63183a3dc75226254
# Parent  ed01965556901086a951b9789885ea8c6539f818
same as in function_common

diff -r ed0196555690 -r 368fc38321fc Nominal/nominal_function_common.ML
--- 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)