From 65ea26422ac828615bc574aba16d9d61c8f29bc3 Mon Sep 17 00:00:00 2001 From: Leonardo de Moura Date: Sat, 20 Feb 2021 12:59:41 -0800 Subject: [PATCH] fix: use `Term.withSynthesize` at `rewrite` --- src/Lean/Elab/Tactic/ElabTerm.lean | 2 +- src/Lean/Elab/Tactic/Rewrite.lean | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Lean/Elab/Tactic/ElabTerm.lean b/src/Lean/Elab/Tactic/ElabTerm.lean index e248cc89e8..30bacf1ef5 100644 --- a/src/Lean/Elab/Tactic/ElabTerm.lean +++ b/src/Lean/Elab/Tactic/ElabTerm.lean @@ -16,7 +16,7 @@ open Meta /- `elabTerm` for Tactics and basic tactics that use it. -/ def elabTerm (stx : Syntax) (expectedType? : Option Expr) (mayPostpone := false) : TacticM Expr := - withRef stx $ liftTermElabM $ Term.withoutErrToSorry do + withRef stx <| liftTermElabM <| Term.withoutErrToSorry do let e ← Term.elabTerm stx expectedType? Term.synthesizeSyntheticMVars mayPostpone instantiateMVars e diff --git a/src/Lean/Elab/Tactic/Rewrite.lean b/src/Lean/Elab/Tactic/Rewrite.lean index 8d0c2436eb..5b029f7db1 100644 --- a/src/Lean/Elab/Tactic/Rewrite.lean +++ b/src/Lean/Elab/Tactic/Rewrite.lean @@ -23,7 +23,7 @@ open Meta def rewriteTarget (stx : Syntax) (symm : Bool) (mode : TransparencyMode) : TacticM Unit := do let (g, gs) ← getMainGoal - withMVarContext g do + Term.withSynthesize <| withMVarContext g do let e ← elabTerm stx none true let target ← instantiateMVars (← getMVarDecl g).type let r ← rewrite g target e symm (mode := mode) @@ -32,7 +32,7 @@ def rewriteTarget (stx : Syntax) (symm : Bool) (mode : TransparencyMode) : Tacti def rewriteLocalDeclFVarId (stx : Syntax) (symm : Bool) (fvarId : FVarId) (mode : TransparencyMode) : TacticM Unit := do let (g, gs) ← getMainGoal - withMVarContext g do + Term.withSynthesize <| withMVarContext g do let e ← elabTerm stx none true let localDecl ← getLocalDecl fvarId let rwResult ← rewrite g localDecl.type e symm (mode := mode)