Mercurial Mercurial > repos > isabelle / 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.
prefer Binding.name_of over Binding.print -- the latter leads to funny quotes and markup within the constructed term;
authorwenzelm
Mon, 26 Aug 2013 16:13:20 +0200
changeset 53207 9745b7d4cc79
parent 53206 5d2fe75c6306
child 53208 bec95e287d26
prefer Binding.name_of over Binding.print -- the latter leads to funny quotes and markup within the constructed term;
src/HOL/Tools/Lifting/lifting_def.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/Tools/Lifting/lifting_def.ML	Mon Aug 26 15:57:09 2013 +0200
+++ b/src/HOL/Tools/Lifting/lifting_def.ML	Mon Aug 26 16:13:20 2013 +0200
@@ -406,7 +406,7 @@
     val absrep_trm =  quot_thm_abs quot_thm
     val rty_forced = (domain_type o fastype_of) absrep_trm
     val forced_rhs = force_rty_type lthy rty_forced rhs
-    val lhs = Free (Binding.print (#1 var), qty)
+    val lhs = Free (Binding.name_of (#1 var), qty)
     val prop = Logic.mk_equals (lhs, absrep_trm $ forced_rhs)
     val (_, prop') = Local_Defs.cert_def lthy prop
     val (_, newrhs) = Local_Defs.abs_def prop'
isabelle