equal
deleted
inserted
replaced
73 val params_of = #params o Data.get; |
73 val params_of = #params o Data.get; |
74 val hyps_of = #hyps o Data.get; |
74 val hyps_of = #hyps o Data.get; |
75 |
75 |
76 fun standard ctxt = |
76 fun standard ctxt = |
77 (case #locale (Data.get ctxt) of |
77 (case #locale (Data.get ctxt) of |
78 NONE => map Drule.standard |
78 NONE => map Drule.standard (* FIXME !? *) |
79 | SOME (_, loc_ctxt) => ProofContext.export_standard ctxt loc_ctxt); |
79 | SOME (_, loc_ctxt) => ProofContext.export_standard ctxt loc_ctxt); |
80 |
80 |
81 |
81 |
82 (* print consts *) |
82 (* print consts *) |
83 |
83 |