7ed716f904
This PR improves the error messages produced by invalid projections and field notation. It also adds a hint to the "function expected" error message noting the argument to which the term is being applied, which can be helpful for debugging spurious "function expected" messages actually caused by syntax errors. --------- Co-authored-by: Joachim Breitner <mail@joachim-breitner.de>
123 lines
2.7 KiB
Text
123 lines
2.7 KiB
Text
module
|
|
|
|
prelude
|
|
import Module.Basic
|
|
|
|
/-! Definitions should be exported without their bodies by default -/
|
|
|
|
/--
|
|
info: def f : Nat :=
|
|
<not imported>
|
|
-/
|
|
#guard_msgs in
|
|
#print f
|
|
|
|
/-! Theorems should be exported without their bodies -/
|
|
|
|
/--
|
|
info: theorem t : f = 1 :=
|
|
<not imported>
|
|
-/
|
|
#guard_msgs in
|
|
#print t
|
|
|
|
/--
|
|
info: theorem trfl : f = 1 :=
|
|
<not imported>
|
|
-/
|
|
#guard_msgs in
|
|
#print trfl
|
|
|
|
/-- error: dsimp made no progress -/
|
|
#guard_msgs in
|
|
example : P f := by dsimp only [t]; exact hP1
|
|
example : P f := by simp only [t]; exact hP1
|
|
|
|
/-- error: dsimp made no progress -/
|
|
#guard_msgs in
|
|
example : P f := by dsimp only [trfl]; exact hP1
|
|
/-- error: dsimp made no progress -/
|
|
#guard_msgs in
|
|
example : P f := by dsimp only [trfl']; exact hP1
|
|
|
|
example : P fexp := by dsimp only [fexp_trfl]; exact hP1
|
|
example : P fexp := by dsimp only [fexp_trfl']; exact hP1
|
|
example : t = t := by dsimp only [trfl]
|
|
|
|
/--
|
|
error: Invalid field `eq_def`: The environment does not contain `Nat.eq_def`
|
|
f
|
|
has type
|
|
Nat
|
|
-/
|
|
#guard_msgs in
|
|
#check f.eq_def
|
|
|
|
/--
|
|
error: Invalid field `eq_unfold`: The environment does not contain `Nat.eq_unfold`
|
|
f
|
|
has type
|
|
Nat
|
|
-/
|
|
#guard_msgs in
|
|
#check f.eq_unfold
|
|
|
|
/-- error: unknown constant 'f_struct.eq_1' -/
|
|
#guard_msgs in
|
|
#check f_struct.eq_1
|
|
|
|
/-- error: unknown constant 'f_struct.eq_def' -/
|
|
#guard_msgs in
|
|
#check f_struct.eq_def
|
|
|
|
/-- error: unknown constant 'f_struct.eq_unfold' -/
|
|
#guard_msgs in
|
|
#check f_struct.eq_unfold
|
|
|
|
/-- error: unknown constant 'f_wfrec.eq_1' -/
|
|
#guard_msgs in
|
|
#check f_wfrec.eq_1
|
|
|
|
/-- error: unknown constant 'f_wfrec.eq_def' -/
|
|
#guard_msgs in
|
|
#check f_wfrec.eq_def
|
|
|
|
/-- error: unknown constant 'f_wfrec.eq_unfold' -/
|
|
#guard_msgs in
|
|
#check f_wfrec.eq_unfold
|
|
|
|
/-- error: unknown constant 'f_wfrec.induct_unfolding' -/
|
|
#guard_msgs(pass trace, all) in
|
|
#check f_wfrec.induct_unfolding
|
|
|
|
/-- info: f_exp_wfrec.eq_1 (x✝ : Nat) : f_exp_wfrec 0 x✝ = x✝ -/
|
|
#guard_msgs in
|
|
#check f_exp_wfrec.eq_1
|
|
|
|
/--
|
|
info: f_exp_wfrec.eq_def (x✝ x✝¹ : Nat) :
|
|
f_exp_wfrec x✝ x✝¹ =
|
|
match x✝, x✝¹ with
|
|
| 0, acc => acc
|
|
| n.succ, acc => f_exp_wfrec n (acc + 1)
|
|
-/
|
|
#guard_msgs in
|
|
#check f_exp_wfrec.eq_def
|
|
|
|
/--
|
|
info: f_exp_wfrec.eq_unfold :
|
|
f_exp_wfrec = fun x x_1 =>
|
|
match x, x_1 with
|
|
| 0, acc => acc
|
|
| n.succ, acc => f_exp_wfrec n (acc + 1)
|
|
-/
|
|
#guard_msgs in
|
|
#check f_exp_wfrec.eq_unfold
|
|
|
|
/--
|
|
info: f_exp_wfrec.induct_unfolding (motive : Nat → Nat → Nat → Prop) (case1 : ∀ (acc : Nat), motive 0 acc acc)
|
|
(case2 : ∀ (n acc : Nat), motive n (acc + 1) (f_exp_wfrec n (acc + 1)) → motive n.succ acc (f_exp_wfrec n (acc + 1)))
|
|
(a✝ a✝¹ : Nat) : motive a✝ a✝¹ (f_exp_wfrec a✝ a✝¹)
|
|
-/
|
|
#guard_msgs(pass trace, all) in
|
|
#check f_exp_wfrec.induct_unfolding
|