src/Pure/display.ML
changeset 60652 65911ba3da23
parent 59917 9830c944670f
child 60924 610794dff23c
equal deleted inserted replaced
60651:1049f3724ac0 60652:65911ba3da23
    19   include BASIC_DISPLAY
    19   include BASIC_DISPLAY
    20   val pretty_thm_raw: Proof.context -> {quote: bool, show_hyps: bool} -> thm -> Pretty.T
    20   val pretty_thm_raw: Proof.context -> {quote: bool, show_hyps: bool} -> thm -> Pretty.T
    21   val pretty_thm: Proof.context -> thm -> Pretty.T
    21   val pretty_thm: Proof.context -> thm -> Pretty.T
    22   val pretty_thm_item: Proof.context -> thm -> Pretty.T
    22   val pretty_thm_item: Proof.context -> thm -> Pretty.T
    23   val pretty_thm_global: theory -> thm -> Pretty.T
    23   val pretty_thm_global: theory -> thm -> Pretty.T
    24   val pretty_thm_without_context: thm -> Pretty.T
       
    25   val string_of_thm: Proof.context -> thm -> string
    24   val string_of_thm: Proof.context -> thm -> string
    26   val string_of_thm_global: theory -> thm -> string
    25   val string_of_thm_global: theory -> thm -> string
    27   val string_of_thm_without_context: thm -> string
       
    28   val pretty_full_theory: bool -> theory -> Pretty.T list
    26   val pretty_full_theory: bool -> theory -> Pretty.T list
    29 end;
    27 end;
    30 
    28 
    31 structure Display: DISPLAY =
    29 structure Display: DISPLAY =
    32 struct
    30 struct
    80 fun pretty_thm_item ctxt th = Pretty.item [pretty_thm ctxt th];
    78 fun pretty_thm_item ctxt th = Pretty.item [pretty_thm ctxt th];
    81 
    79 
    82 fun pretty_thm_global thy =
    80 fun pretty_thm_global thy =
    83   pretty_thm_raw (Syntax.init_pretty_global thy) {quote = false, show_hyps = false};
    81   pretty_thm_raw (Syntax.init_pretty_global thy) {quote = false, show_hyps = false};
    84 
    82 
    85 fun pretty_thm_without_context th = pretty_thm_global (Thm.theory_of_thm th) th;
       
    86 
       
    87 val string_of_thm = Pretty.string_of oo pretty_thm;
    83 val string_of_thm = Pretty.string_of oo pretty_thm;
    88 val string_of_thm_global = Pretty.string_of oo pretty_thm_global;
    84 val string_of_thm_global = Pretty.string_of oo pretty_thm_global;
    89 val string_of_thm_without_context = Pretty.string_of o pretty_thm_without_context;
       
    90 
    85 
    91 
    86 
    92 
    87 
    93 (** print theory **)
    88 (** print theory **)
    94 
    89