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 3121 878de0084b62
parent 3120 368fc38321fc
child 3226 780b7a2c50b6 
--- a/Nominal/nominal_function_common.ML	Thu Feb 16 07:14:28 2012 +0000
+++ b/Nominal/nominal_function_common.ML	Fri Feb 17 02:05:00 2012 +0000
@@ -74,7 +74,7 @@
 
 fun lift_morphism thy f =
   let
-    val term = Thm.term_of (Drule.cterm_rule f (Thm.cterm_of thy t))
+    fun term t = 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