changeset 42361 | 23f352990944 |
parent 38457 | b8760b6e7c65 |
child 42456 | 13b4b6ba3593 |
--- a/src/Provers/quantifier1.ML Sat Apr 16 15:47:52 2011 +0200 +++ b/src/Provers/quantifier1.ML Sat Apr 16 16:15:37 2011 +0200 @@ -113,7 +113,7 @@ in exqu [] end; fun prove_conv tac thy tu = - let val ctxt = ProofContext.init_global thy; + let val ctxt = Proof_Context.init_global thy; val eq_tu = Logic.mk_equals tu; val ([fixed_goal], ctxt') = Variable.import_terms true [eq_tu] ctxt; val thm = Goal.prove ctxt' [] [] fixed_goal