src/HOL/Tools/Meson/meson.ML
changeset 42361 23f352990944
parent 42346 be52d9bed9f6
child 42455 6702c984bf5a
     1.1 --- a/src/HOL/Tools/Meson/meson.ML	Sat Apr 16 15:47:52 2011 +0200
     1.2 +++ b/src/HOL/Tools/Meson/meson.ML	Sat Apr 16 16:15:37 2011 +0200
     1.3 @@ -335,7 +335,7 @@
     1.4  in  
     1.5    fun freeze_spec th ctxt =
     1.6      let
     1.7 -      val cert = Thm.cterm_of (ProofContext.theory_of ctxt);
     1.8 +      val cert = Thm.cterm_of (Proof_Context.theory_of ctxt);
     1.9        val ([x], ctxt') = Variable.variant_fixes [name_of (HOLogic.dest_Trueprop (concl_of th))] ctxt;
    1.10        val spec' = Thm.instantiate ([], [(spec_var, cert (Free (x, spec_varT)))]) spec;
    1.11      in (th RS spec', ctxt') end
    1.12 @@ -600,7 +600,7 @@
    1.13    in aux o make_nnf ctxt end
    1.14  
    1.15  fun skolemize ctxt =
    1.16 -  let val thy = ProofContext.theory_of ctxt in
    1.17 +  let val thy = Proof_Context.theory_of ctxt in
    1.18      skolemize_with_choice_theorems ctxt (choice_theorems thy)
    1.19    end
    1.20