diff --git a/src/Lean/Meta/Tactic/Split.lean b/src/Lean/Meta/Tactic/Split.lean index 7e4b2efa67..034fb7eee6 100644 --- a/src/Lean/Meta/Tactic/Split.lean +++ b/src/Lean/Meta/Tactic/Split.lean @@ -32,7 +32,7 @@ where | none => for matchEq in (← Match.getEquationsFor app.matcherName).eqnNames do -- Try lemma - match (← Simp.tryLemma? e { proof := mkConst matchEq, name? := some matchEq } SplitIf.discharge?) with + match (← withReducible <| Simp.tryLemma? e { proof := mkConst matchEq, name? := some matchEq } SplitIf.discharge?) with | none => pure () | some r => return Simp.Step.done r return Simp.Step.visit { expr := e } @@ -47,7 +47,7 @@ where | some e' => return Simp.Step.done { expr := e' } | none => -- Try lemma - match (← Simp.tryLemma? e { proof := mkConst matchEqDeclName, name? := matchEqDeclName } SplitIf.discharge?) with + match (← withReducible <| Simp.tryLemma? e { proof := mkConst matchEqDeclName, name? := matchEqDeclName } SplitIf.discharge?) with | none => return Simp.Step.visit { expr := e } | some r => return Simp.Step.done r else