equal
deleted
inserted
replaced
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); |