src/Pure/display.ML
changeset 20226 6ea469c03314
parent 20211 c7f907f41f7c
child 20629 8f6cc81ba4a3
--- a/src/Pure/display.ML	Thu Jul 27 13:43:03 2006 +0200
+++ b/src/Pure/display.ML	Thu Jul 27 13:43:04 2006 +0200
@@ -33,7 +33,6 @@
   val raw_string_of_term: term -> string
   val pretty_flexpair: Pretty.pp -> term * term -> Pretty.T
   val pretty_thm_aux: Pretty.pp -> bool -> bool -> term list -> thm -> Pretty.T
-  val pretty_thm_no_quote: thm -> Pretty.T
   val pretty_thm: thm -> Pretty.T
   val pretty_thms: thm list -> Pretty.T
   val pretty_thm_sg: theory -> thm -> Pretty.T
@@ -100,12 +99,8 @@
       else [Pretty.brk 1, pretty_tags tags];
   in Pretty.block (prt_term prop :: (hsymbs @ tsymbs)) end;
 
-fun gen_pretty_thm quote th =
-  pretty_thm_aux (Sign.pp (Thm.theory_of_thm th)) quote false [] th;
-
-val pretty_thm = gen_pretty_thm true;
-val pretty_thm_no_quote = gen_pretty_thm false;
-
+fun pretty_thm th =
+  pretty_thm_aux (Sign.pp (Thm.theory_of_thm th)) true false [] th;
 
 val string_of_thm = Pretty.string_of o pretty_thm;