max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

refactor: use isAppOfArity (#3394)

Browse source
This commit is contained in:
Joachim Breitner 2024-02-19 10:24:11 +01:00 • committed by GitHub
parent 16757bb256
commit da24708ba5
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Lean/Meta/Tactic/Split.lean
View file

@ -119,7 +119,7 @@ private partial def generalizeMatchDiscrs (mvarId : MVarId) (matcherDeclName : N
let foundRef ← IO.mkRef false
let rec mkNewTarget (e : Expr) : MetaM Expr := do
let pre (e : Expr) : MetaM TransformStep := do
if !e.isAppOf matcherDeclName || e.getAppNumArgs != matcherInfo.arity then
if !e.isAppOfArity matcherDeclName matcherInfo.arity then
return .continue
let some matcherApp ← matchMatcherApp? e | return .continue
for matcherDiscr in matcherApp.discrs, discr in discrs do