src/Pure/pure_setup.ML
changeset 33032 a707a1f37d29
parent 31646 ef30cd0e41e5
child 33389 bb3a5fa94a91
equal deleted inserted replaced
33031:b75c35574e04 33032:a707a1f37d29
    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