836d7b703a
This PR adds additional infrastructure for error message formatting. Specifically, it adds convenience formatters for hints and notes, including the ability to attach code actions to hint messages using a "Try This"-like widget, along with several convenience formatters for message data. --------- Co-authored-by: Joachim Breitner <mail@joachim-breitner.de>
50 lines
1.5 KiB
Text
50 lines
1.5 KiB
Text
structure Foo where num : Nat deriving DecidableEq
|
|
|
|
namespace Foo
|
|
|
|
instance : OfNat Foo n := ⟨⟨n⟩⟩
|
|
|
|
/-! # Example 1 -/
|
|
|
|
@[irreducible] def mul (a b : Foo) : Foo :=
|
|
let d := Nat.gcd a.num 1
|
|
⟨(a.num.div d) * (b.num.div d)⟩
|
|
|
|
-- should fail fast; exact heartbeat count at time of writing is 31
|
|
set_option maxHeartbeats 310
|
|
/--
|
|
error: tactic 'decide' failed for proposition
|
|
((mul 4 1).mul 1).mul 1 = 4
|
|
since its 'Decidable' instance
|
|
instDecidableEqFoo (((mul 4 1).mul 1).mul 1) 4
|
|
did not reduce to 'isTrue' or 'isFalse'.
|
|
|
|
After unfolding the instances 'decEqFoo✝', 'instDecidableEqFoo', 'instDecidableEqNat', and
|
|
'Nat.decEq', reduction got stuck at the 'Decidable' instance
|
|
match h : (((mul 4 1).mul 1).mul 1).num.beq 4 with
|
|
| true => isTrue ⋯
|
|
| false => isFalse ⋯
|
|
-/
|
|
#guard_msgs in
|
|
example : ((Foo.mul 4 1).mul 1).mul 1 = 4 := by decide
|
|
|
|
/-! # Example 2 -/
|
|
|
|
@[irreducible] def add (a b : Foo) : Foo := ⟨a.num * b.num⟩
|
|
|
|
-- should not succeed (and fail fast); exact heartbeat count at time of writing is 21
|
|
/--
|
|
error: tactic 'decide' failed for proposition
|
|
((add 4 1).add 1).add 1 = 4
|
|
since its 'Decidable' instance
|
|
instDecidableEqFoo (((add 4 1).add 1).add 1) 4
|
|
did not reduce to 'isTrue' or 'isFalse'.
|
|
|
|
After unfolding the instances 'decEqFoo✝', 'instDecidableEqFoo', 'instDecidableEqNat', and
|
|
'Nat.decEq', reduction got stuck at the 'Decidable' instance
|
|
match h : (((add 4 1).add 1).add 1).num.beq 4 with
|
|
| true => isTrue ⋯
|
|
| false => isFalse ⋯
|
|
-/
|
|
#guard_msgs in
|
|
example : ((Foo.add 4 1).add 1).add 1 = 4 := by decide
|