diff options
Diffstat (limited to 'spartan')
| -rw-r--r-- | spartan/lib/equality.ML | 2 | ||||
| -rw-r--r-- | spartan/lib/goals.ML | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/spartan/lib/equality.ML b/spartan/lib/equality.ML index 79b4086..023147b 100644 --- a/spartan/lib/equality.ML +++ b/spartan/lib/equality.ML @@ -84,7 +84,7 @@ fun equality_context_tac fact ctxt = THEN ALLGOALS (side_conds_tac ctxt) ) in - fn (ctxt, st) => Method.CONTEXT (record_inserts ctxt) (tac st) + fn (ctxt, st) => Context_Tactic.TACTIC_CONTEXT (record_inserts ctxt) (tac st) end end diff --git a/spartan/lib/goals.ML b/spartan/lib/goals.ML index ce23751..9f394f0 100644 --- a/spartan/lib/goals.ML +++ b/spartan/lib/goals.ML @@ -31,7 +31,7 @@ fun prep_statement prep_att prep_stmt raw_elems raw_stmt ctxt = let val (stmt, elems_ctxt) = prep_stmt raw_elems raw_stmt ctxt val prems = Assumption.local_prems_of elems_ctxt ctxt - val stmt_ctxt = fold (fold (Variable.auto_fixes o fst) o snd) + val stmt_ctxt = fold (fold (Proof_Context.augment o fst) o snd) stmt elems_ctxt in case raw_stmt of |