chore: omega calls assumption first (#7230)

This commit is contained in:
Kim Morrison 2025-04-07 11:17:57 +10:00 committed by GitHub
parent 2ea675369f
commit c97092bef8
No known key found for this signature in database
GPG key ID: B5690EEEBB952194

View file

@ -693,7 +693,9 @@ def omegaDefault : TacticM Unit := omegaTactic {}
@[builtin_tactic Lean.Parser.Tactic.omega]
def evalOmega : Tactic
| `(tactic| omega $cfg:optConfig) => do
| `(tactic| omega%$tk $cfg:optConfig) => do
-- Call `assumption` first, to avoid constructing unnecessary proofs.
withReducibleAndInstances (evalAssumption tk) <|> do
let cfg ← elabOmegaConfig cfg
omegaTactic cfg
| _ => throwUnsupportedSyntax