src/Pure/Isar/local_theory.ML
changeset 20252 bad805d0456b
parent 20243 8b64a1ea9b1b
child 20778 f39c733f2a7e
equal deleted inserted replaced
20251:6379135f21c2 20252:bad805d0456b
    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