src/HOL/ex/sledgehammer_tactics.ML
changeset 42361 23f352990944
parent 42106 ed1d40888b1b
child 42443 724e612ba248
     1.1 --- a/src/HOL/ex/sledgehammer_tactics.ML	Sat Apr 16 15:47:52 2011 +0200
     1.2 +++ b/src/HOL/ex/sledgehammer_tactics.ML	Sat Apr 16 16:15:37 2011 +0200
     1.3 @@ -55,7 +55,7 @@
     1.4  fun thms_of_name ctxt name =
     1.5    let
     1.6      val lex = Keyword.get_lexicons
     1.7 -    val get = maps (ProofContext.get_fact ctxt o fst)
     1.8 +    val get = maps (Proof_Context.get_fact ctxt o fst)
     1.9    in
    1.10      Source.of_string name
    1.11      |> Symbol.source
    1.12 @@ -77,7 +77,7 @@
    1.13  
    1.14  fun generic_sledgehammer_as_oracle_tac force_full_types ctxt i th =
    1.15    let
    1.16 -    val thy = ProofContext.theory_of ctxt
    1.17 +    val thy = Proof_Context.theory_of ctxt
    1.18      val timeout = Time.fromSeconds 30
    1.19      val xs = run_atp force_full_types timeout i i ctxt th atp
    1.20    in if is_some xs then Skip_Proof.cheat_tac thy th else Seq.empty end