src/Pure/pure_setup.ML
changeset 26957 e3f04fdd994d
parent 26608 ff838a61dad6
child 27341 97e2ccba3b64
equal deleted inserted replaced
26956:1309a6a0a29f 26957:e3f04fdd994d
    23   Theory.end_theory));
    23   Theory.end_theory));
    24 structure Pure = struct val thy = ML_Context.the_global_context () end;
    24 structure Pure = struct val thy = ML_Context.the_global_context () end;
    25 Context.set_thread_data NONE;
    25 Context.set_thread_data NONE;
    26 ThyInfo.register_theory Pure.thy;
    26 ThyInfo.register_theory Pure.thy;
    27 
    27 
    28 use_thy "CPure";
       
    29 structure CPure = struct val thy = theory "CPure" end;
       
    30 
       
    31 
    28 
    32 (* ML toplevel pretty printing *)
    29 (* ML toplevel pretty printing *)
    33 
    30 
    34 install_pp (make_pp ["Thm", "thm"] ProofDisplay.pprint_thm);
    31 install_pp (make_pp ["Thm", "thm"] ProofDisplay.pprint_thm);
    35 install_pp (make_pp ["Thm", "cterm"] ProofDisplay.pprint_cterm);
    32 install_pp (make_pp ["Thm", "cterm"] ProofDisplay.pprint_cterm);