e01cbf2b8f
This PR adds a `result? : Option TraceResult` field to `TraceData` and populates it in `withTraceNode` and `withTraceNodeBefore`, so that metaprograms walking trace trees can determine success/failure structurally instead of string-matching on emoji. `TraceResult` has three cases: `.success` (checkEmoji), `.failure` (crossEmoji), and `.error` (bombEmoji, exception thrown). An `ExceptToTraceResult` typeclass converts `Except` results to `TraceResult` directly, with instances for `Bool` and `Option`. `TraceResult.toEmoji` converts back to emoji for display. This replaces the previous `ExceptToEmoji` typeclass — `TraceResult` is now the primary representation rather than being derived from emoji strings. `withTraceNodeBefore` (used by `isDefEq`) uses `ExceptToTraceResult.toTraceResult` directly, correctly handling `Bool` (`.ok false` = failure) and `Option` (`.ok none` = failure), with `Except.error` mapping to `.error`. For `withTraceNode`, `result?` defaults to `none`. Callers can pass `mkResult?` to provide structured results; when set, the corresponding emoji is auto-prepended to the message. Motivated by mathlib's `#defeq_abuse` diagnostic tactic (https://github.com/leanprover-community/mathlib4/pull/35750) which currently string-matches on emoji to determine trace node outcomes. See https://leanprover.zulipchat.com/#narrow/channel/113488-general/topic/backward.2EisDefEq.2ErespectTransparency 🤖 Prepared with Claude Code --------- Co-authored-by: Claude Opus 4.6 <noreply@anthropic.com>
52 lines
1.5 KiB
Text
52 lines
1.5 KiB
Text
class Foo (s : String) : Type where
|
|
instance : Foo "one" where
|
|
instance [Foo "three"] : Foo "two" where
|
|
|
|
def f (s : String) [Foo s] := ()
|
|
|
|
/-- info: () -/
|
|
#guard_msgs in
|
|
#eval f "one"
|
|
|
|
/--
|
|
error: failed to synthesize instance of type class
|
|
Foo "two"
|
|
|
|
Hint: Type class instance resolution failures can be inspected with the `set_option trace.Meta.synthInstance true` command.
|
|
-/
|
|
#guard_msgs in
|
|
#eval f "two"
|
|
|
|
/--
|
|
error: failed to synthesize instance of type class
|
|
Foo "two"
|
|
---
|
|
trace: [Meta.synthInstance] ❌️ Foo "two"
|
|
[Meta.synthInstance] ✅️ new goal Foo "two"
|
|
[Meta.synthInstance.instances] #[@instFoo_1]
|
|
[Meta.synthInstance.apply] ✅️ apply @instFoo_1 to Foo "two"
|
|
[Meta.synthInstance.tryResolve] ✅️ Foo "two" ≟ Foo "two"
|
|
[Meta.synthInstance] ✅️ no instances for Foo "three"
|
|
[Meta.synthInstance.instances] #[]
|
|
[Meta.synthInstance] result <not-available>
|
|
[Meta.synthInstance] ❌️ Foo "two"
|
|
[Meta.synthInstance] result <not-available> (cached)
|
|
-/
|
|
#guard_msgs in
|
|
set_option trace.Meta.synthInstance true in
|
|
#eval f "two"
|
|
|
|
/--
|
|
error: failed to synthesize instance of type class
|
|
Foo "three"
|
|
---
|
|
trace: [Meta.synthInstance] ❌️ Foo "three"
|
|
[Meta.synthInstance] ✅️ no instances for Foo "three"
|
|
[Meta.synthInstance.instances] #[]
|
|
[Meta.synthInstance] result <not-available>
|
|
[Meta.synthInstance] ❌️ Foo "three"
|
|
[Meta.synthInstance] result <not-available> (cached)
|
|
-/
|
|
#guard_msgs in
|
|
set_option trace.Meta.synthInstance true in
|
|
#eval f "three"
|