lean4-htt/tests/lean/run/1870.lean
jrr6 34bd6e8bfd
feat: improve split error messages (#9424)
This PR improves the error messages produced by the `split` tactic,
including suggesting syntax fixes and related tactics with which it
might be confused.

Note that, to avoid clashing with the new error message styling
conventions used in these messages, this PR also updates the formatting
of the message produced by `throwTacticEx`.

Closes #6224
2025-07-18 22:36:10 +00:00

48 lines
1.2 KiB
Text
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

set_option pp.mvars false
/--
error: type mismatch
congrArg ?_ (congrArg ?_ ?_)
has type
?_ (?_ ?_) = ?_ (?_ ?_)
but is expected to have type
OfNat.ofNat 0 = OfNat.ofNat 1
-/
#guard_msgs in
theorem ex1 : (@OfNat.ofNat Nat 0 Zero.toOfNat0) = @OfNat.ofNat Nat 1 One.toOfNat1 := by
refine congrArg _ (congrArg _ ?_)
rfl
/--
error: Tactic `apply` failed: could not unify the conclusion of `@congrArg`
?_ ?_ = ?_ ?_
with the goal
OfNat.ofNat 0 = OfNat.ofNat 1
Note: The full type of `@congrArg` is
∀ {α : Sort _} {β : Sort _} {a₁ a₂ : α} (f : α → β), a₁ = a₂ → f a₁ = f a₂
⊢ OfNat.ofNat 0 = OfNat.ofNat 1
-/
#guard_msgs in
example : (@OfNat.ofNat Nat 0 Zero.toOfNat0) = @OfNat.ofNat Nat 1 One.toOfNat1 := by
apply congrArg
apply congrArg
apply rfl
/--
error: Tactic `apply` failed: could not unify the conclusion of `@congrArg`
?_ ?_ = ?_ ?_
with the goal
OfNat.ofNat 0 = OfNat.ofNat 1
Note: The full type of `@congrArg` is
∀ {α : Sort _} {β : Sort _} {a₁ a₂ : α} (f : α → β), a₁ = a₂ → f a₁ = f a₂
⊢ OfNat.ofNat 0 = OfNat.ofNat 1
-/
#guard_msgs in
theorem ex2 : (@OfNat.ofNat Nat 0 Zero.toOfNat0) = @OfNat.ofNat Nat 1 One.toOfNat1 := by
apply congrArg
apply congrArg
apply rfl