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

chore: do not generate "redundant alternatives" message when there are missing cases

Browse source
This commit is contained in:
Leonardo de Moura 2022-08-03 08:21:09 -07:00
parent a9e7290e4b
commit b4ad6fc289
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/Lean/Elab/Match.lean
View file

@ -1012,6 +1012,7 @@ register_builtin_option match.ignoreUnusedAlts : Bool := {
def reportMatcherResultErrors (altLHSS : List AltLHS) (result : MatcherResult) : TermElabM Unit := do
unless result.counterExamples.isEmpty do
withHeadRefOnly <| logError m!"missing cases:\n{Meta.Match.counterExamplesToMessageData result.counterExamples}"
return ()
unless match.ignoreUnusedAlts.get (← getOptions) || result.unusedAltIdxs.isEmpty do
let mut i := 0
for alt in altLHSS do