chore: omega calls assumption first (#7230)
This commit is contained in:
parent
2ea675369f
commit
c97092bef8
1 changed files with 3 additions and 1 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue