pretty_term: no revert_skolems here, but auto_fixes (token translations will do the rest);
authorwenzelm
Thu, 17 Apr 2008 22:22:19 +0200
changeset 26710 f79aa228c582
parent 26709 f963ea18a579
child 26711 3a478bfa1650
pretty_term: no revert_skolems here, but auto_fixes (token translations will do the rest);
doc-src/antiquote_setup.ML
src/Pure/Thy/thy_output.ML
--- a/doc-src/antiquote_setup.ML	Thu Apr 17 16:30:55 2008 +0200
+++ b/doc-src/antiquote_setup.ML	Thu Apr 17 22:22:19 2008 +0200
@@ -83,7 +83,7 @@
     #> space_implode "\\par\\smallskip%\n"
     #> enclose "\\isa{" "}");
 
-fun pretty_term ctxt = Syntax.pretty_term ctxt o ProofContext.revert_skolems ctxt;
+fun pretty_term ctxt t = Syntax.pretty_term (Variable.auto_fixes t ctxt) t;
 fun pretty_thm ctxt = pretty_term ctxt o Thm.full_prop_of;
 
 in
--- a/src/Pure/Thy/thy_output.ML	Thu Apr 17 16:30:55 2008 +0200
+++ b/src/Pure/Thy/thy_output.ML	Thu Apr 17 22:22:19 2008 +0200
@@ -429,10 +429,9 @@
 
 val pretty_text = Pretty.chunks o map Pretty.str o map tweak_line o Library.split_lines;
 
-fun pretty_term ctxt = Syntax.pretty_term ctxt o ProofContext.revert_skolems ctxt;
+fun pretty_term ctxt t = Syntax.pretty_term (Variable.auto_fixes t ctxt) t;
 
-fun pretty_term_abbrev ctxt =
-  ProofContext.pretty_term_abbrev ctxt o ProofContext.revert_skolems ctxt;
+fun pretty_term_abbrev ctxt t = ProofContext.pretty_term_abbrev (Variable.auto_fixes t ctxt) t;
 
 fun pretty_term_typ ctxt t =
   Syntax.pretty_term ctxt (TypeInfer.constrain (Term.fastype_of t) t);