# HG changeset patch
# User haftmann
# Date 1230569797 -3600
# Node ID 418ed64118474f0b3f4b097ba3e604733e58359a
# Parent  6d4cb27ed19c13ebbd68eb8695e935ed59f26637
pretty printer for bindings

diff -r 6d4cb27ed19c -r 418ed6411847 src/Pure/pure_setup.ML
--- a/src/Pure/pure_setup.ML	Mon Dec 29 14:08:08 2008 +0100
+++ b/src/Pure/pure_setup.ML	Mon Dec 29 17:56:37 2008 +0100
@@ -33,6 +33,7 @@
   map (fn (x, y) => Pretty.str (x ^ "=" ^ y)) o Position.properties_of));
 install_pp (make_pp ["Thm", "thm"] ProofDisplay.pprint_thm);
 install_pp (make_pp ["Thm", "cterm"] ProofDisplay.pprint_cterm);
+install_pp (make_pp ["Binding", "T"] (Pretty.pprint o Pretty.str o Binding.display));
 install_pp (make_pp ["Thm", "ctyp"] ProofDisplay.pprint_ctyp);
 install_pp (make_pp ["Context", "theory"] Context.pprint_thy);
 install_pp (make_pp ["Context", "theory_ref"] Context.pprint_thy_ref);