lean4-htt/tests/lean/run/check.lean
Markus Himmel 1db53b39c4
chore: improve application type mismatch error message (#8264)
This PR rewords the `application type mismatch` error message by more
specifically mentioning that the problem is with the final argument.
This is useful when the same argument is passed to the function multiple
times.

We decided against using a wording which specifically mentions the
"function expression", because users who are not used to currying might
not think of the `f a` in `f a b` as a function.
2025-05-08 15:34:40 +00:00

58 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.

import Lean
/-- info: And.intro {a b : Prop} (left : a) (right : b) : a ∧ b -/
#guard_msgs in
#check And.intro
/--
info: @Or.rec : ∀ {a b : Prop} {motive : a b → Prop},
(∀ (h : a), motive ⋯) → (∀ (h : b), motive ⋯) → ∀ (t : a b), motive t
-/
#guard_msgs in
#check @Or.rec
/-- info: Eq.{u_1} {α : Sort u_1} : αα → Prop -/
#guard_msgs in
#check Eq
/--
info: @Eq.rec : {α : Sort u_2} →
{a : α} → {motive : (a_1 : α) → a = a_1 → Sort u_1} → motive a ⋯ → {a_1 : α} → (t : a = a_1) → motive a_1 t
-/
#guard_msgs in
#check @Eq.rec
/-!
The `#check` command also typechecks the result to help users debug buggy elaborators.
-/
section
open Lean
def expr_1eq1 : Expr := mkApp3 (.const ``Eq [0]) (.const ``Nat []) (mkNatLit 1) (mkNatLit 1)
elab "elab_1eq1" : term => return expr_1eq1
/--
error: Application type mismatch: In the appplication
@Eq Nat
the final argument
Nat
has type
Type : Type 1
but is expected to have type
Prop : Type
-/
#guard_msgs in #check elab_1eq1
/--
error: Application type mismatch: In the appplication
@Eq Nat
the final argument
Nat
has type
Type : Type 1
but is expected to have type
Prop : Type
-/
#guard_msgs in #reduce elab_1eq1
end