d1ec806834
This PR improves the error messages produced by invalid pattern-match alternatives and improves parity in error placement between pattern-matching tactics and elaborators. Closes #7170
14 lines
502 B
Text
14 lines
502 B
Text
theorem bad : ∀ (m n : Nat), (if m = n then Ordering.eq else Ordering.gt) = Ordering.lt → False := by
|
|
intros m n
|
|
cases (Nat.decEq m n) with -- an error as expected: "Alternative `isFalse` has not bee provided"
|
|
| isTrue h =>
|
|
set_option trace.Meta.Tactic.simp true in
|
|
simp [h]
|
|
|
|
theorem bad' : ∀ (m n : Nat), (if m = n then Ordering.eq else Ordering.gt) = Ordering.lt → False := by
|
|
intros m n
|
|
cases (Nat.decEq m n) with
|
|
| isTrue h =>
|
|
simp [h]
|
|
| isFalse h =>
|
|
simp [h]
|