diff --git a/src/Lean/Elab/Tactic/Omega/Frontend.lean b/src/Lean/Elab/Tactic/Omega/Frontend.lean index 0d992d100fb3..9c407fda6186 100644 --- a/src/Lean/Elab/Tactic/Omega/Frontend.lean +++ b/src/Lean/Elab/Tactic/Omega/Frontend.lean @@ -228,6 +228,7 @@ partial def asLinearComboImpl (e : Expr) : OmegaM (LinearCombo × OmegaM Expr × | .app (.app (.app (.app (.const ``Prod.mk [u, v]) _) _) x) y => rewrite e (mkApp4 (.const ``Prod.snd_mk [u, v]) α x β y) | _ => mkAtomLinearCombo e + | (``Int.negSucc, #[n]) => rewrite e (mkApp (.const ``Int.negSucc_eq []) n) | _ => mkAtomLinearCombo e where /-- diff --git a/tests/lean/run/omega.lean b/tests/lean/run/omega.lean index 5dbd185978b3..36061c90d81c 100644 --- a/tests/lean/run/omega.lean +++ b/tests/lean/run/omega.lean @@ -466,6 +466,12 @@ example (z : Int) : z.toNat = 0 ↔ z ≤ 0 := by example (z : Int) (a : Fin z.toNat) (h : 0 ≤ z) : ↑↑a ≤ z := by omega +/-! ### Int.negSucc +Make sure we aren't stopped by stray `Int.negSucc` terms. +-/ + +example (x : Int) (h : Int.negSucc 0 < x ∧ x < 1) : x = 0 := by omega + /-! ### BitVec -/ open BitVec