26 toplevel_pp ["Thm", "cterm"] "ProofDisplay.pp_cterm"; |
26 toplevel_pp ["Thm", "cterm"] "ProofDisplay.pp_cterm"; |
27 toplevel_pp ["Thm", "ctyp"] "ProofDisplay.pp_ctyp"; |
27 toplevel_pp ["Thm", "ctyp"] "ProofDisplay.pp_ctyp"; |
28 toplevel_pp ["typ"] "ProofDisplay.pp_typ Pure.thy"; |
28 toplevel_pp ["typ"] "ProofDisplay.pp_typ Pure.thy"; |
29 toplevel_pp ["Context", "theory"] "Context.pretty_thy"; |
29 toplevel_pp ["Context", "theory"] "Context.pretty_thy"; |
30 toplevel_pp ["Context", "theory_ref"] "Context.pretty_thy o Theory.deref"; |
30 toplevel_pp ["Context", "theory_ref"] "Context.pretty_thy o Theory.deref"; |
31 toplevel_pp ["Context", "proof"] "ProofDisplay.pp_context"; |
31 toplevel_pp ["Context", "Proof", "context"] "ProofDisplay.pp_context"; |
32 toplevel_pp ["Syntax", "ast"] "Syntax.pretty_ast"; |
32 toplevel_pp ["Syntax", "ast"] "Syntax.pretty_ast"; |
33 toplevel_pp ["Path", "T"] "Pretty.str o quote o Path.implode"; |
33 toplevel_pp ["Path", "T"] "Pretty.str o quote o Path.implode"; |
34 toplevel_pp ["File", "ident"] "Pretty.str o quote o File.rep_ident"; |
34 toplevel_pp ["File", "ident"] "Pretty.str o quote o File.rep_ident"; |
35 |
35 |
36 if ml_system = "polyml-experimental" |
36 if ml_system = "polyml-experimental" |
40 else (); |
40 else (); |
41 |
41 |
42 |
42 |
43 (* ML toplevel use commands *) |
43 (* ML toplevel use commands *) |
44 |
44 |
45 fun use name = Toplevel.program (fn () => ThyInfo.use name); |
45 fun use name = Toplevel.program (fn () => ThyInfo.use name); |
46 fun use_thys name = Toplevel.program (fn () => ThyInfo.use_thys name); |
46 fun use_thys name = Toplevel.program (fn () => ThyInfo.use_thys name); |
47 fun use_thy name = Toplevel.program (fn () => ThyInfo.use_thy name); |
47 fun use_thy name = Toplevel.program (fn () => ThyInfo.use_thy name); |
48 fun time_use name = Toplevel.program (fn () => ThyInfo.time_use name); |
48 fun time_use name = Toplevel.program (fn () => ThyInfo.time_use name); |
49 fun time_use_thy name = Toplevel.program (fn () => ThyInfo.time_use_thy name); |
49 fun time_use_thy name = Toplevel.program (fn () => ThyInfo.time_use_thy name); |
50 |
50 |
51 |
51 |
52 (* misc *) |
52 (* misc *) |
53 |
53 |