Trace messages

Trace messages explain to the user what problem Lean solved and what steps it took. Think of trace messages like a figure in a paper.

They are shown in the editor as a collapsible tree, usually as [class.name] message ▸. Every trace node has a class name, a message, and an array of children. This module provides the API to produce trace messages, the key entry points are:

• registerTraceMessage `class.name registers a trace class
• ``withTraceNode class.name (fun result => return msg) do body produces a trace message containing the trace messages in `body` as children
• trace[class.name] msg produces a trace message without children

Users can enable trace options for a class using set_option trace.class.name true. This only enables trace messages for the class.name trace class as well as child classes that are explicitly marked as inherited (see registerTraceClass).

Internally, trace messages are stored as MessageData: .trace cls msg #[.trace .., .trace ..]

When writing trace messages, try to follow these guidelines:

1. Expansion progressively increases detail. Each level of expansion (of the trace node in the editor) should reveal more details. For example, the unexpanded node should show the top-level goal. Expanding it should show a list of steps. Expanding one of the steps then shows what happens during that step.
2. One trace message per step. The [trace.class] marker functions as a visual bullet point, making it easy to identify the different steps at a glance.
3. Outcome first. The top-level trace message should already show whether the action failed or succeeded, as opposed to a "success" trace message that comes pages later.
4. Be concise. Keep messages short. Avoid repetitive text. (This is also why the editor plugins abbreviate the common prefixes.)
5. Emoji are concisest. Several helper functions in this module help with a consistent emoji language.
6. Good defaults. Setting set_option trace.Meta.synthInstance true (etc.) should produce great trace messages out-of-the-box, without needing extra options to tweak it.

structure Lean.TraceElem : Type

• ref : Lean.Syntax
• msg : Lean.MessageData

instance Lean.instInhabitedTraceElem : Inhabited Lean.TraceElem

structure Lean.TraceState : Type

• traces : Lean.PersistentArray Lean.TraceElem

instance Lean.instInhabitedTraceState : Inhabited Lean.TraceState

opaque Lean.inheritedTraceOptions : IO.Ref (Lean.HashSet Lake.Name)

class Lean.MonadTrace (m : Type → Type) : Type

• modifyTraceState : (Lean.TraceState → Lean.TraceState) → m Unit
• getTraceState : m Lean.TraceState

instance Lean.instMonadTrace (m : Type → Type) (n : Type → Type) [MonadLift m n] [Lean.MonadTrace m] : Lean.MonadTrace n

def Lean.printTraces {m : Type → Type} [Monad m] [Lean.MonadTrace m] [MonadLiftT IO m] : m Unit

def Lean.resetTraceState {m : Type → Type} [Lean.MonadTrace m] : m Unit

def Lean.isTracingEnabledFor {m : Type → Type} [Monad m] [Lean.MonadOptions m] [MonadLiftT IO m] (cls : Lake.Name) : m Bool

@[inline]

def Lean.getTraces {m : Type → Type} [Monad m] [Lean.MonadTrace m] : m (Lean.PersistentArray Lean.TraceElem)

@[inline]

def Lean.modifyTraces {m : Type → Type} [Lean.MonadTrace m] (f : Lean.PersistentArray Lean.TraceElem → Lean.PersistentArray Lean.TraceElem) : m Unit

@[inline]

def Lean.setTraceState {m : Type → Type} [Lean.MonadTrace m] (s : Lean.TraceState) : m Unit

def Lean.addRawTrace {m : Type → Type} [Monad m] [Lean.MonadTrace m] [Lean.MonadRef m] [Lean.AddMessageContext m] (msg : Lean.MessageData) : m Unit

def Lean.addTrace {m : Type → Type} [Monad m] [Lean.MonadTrace m] [Lean.MonadRef m] [Lean.AddMessageContext m] (cls : Lake.Name) (msg : Lean.MessageData) : m Unit

@[inline]

def Lean.trace {m : Type → Type} [Monad m] [Lean.MonadTrace m] [MonadLiftT IO m] [Lean.MonadRef m] [Lean.AddMessageContext m] [Lean.MonadOptions m] (cls : Lake.Name) (msg : Unit → Lean.MessageData) : m Unit

@[inline]

def Lean.traceM {m : Type → Type} [Monad m] [Lean.MonadTrace m] [MonadLiftT IO m] [Lean.MonadRef m] [Lean.AddMessageContext m] [Lean.MonadOptions m] (cls : Lake.Name) (mkMsg : m Lean.MessageData) : m Unit

def Lean.withSeconds {α : Type} {m : Type → Type} [Monad m] [MonadLiftT BaseIO m] (act : m α) : m (α × Float)

opaque Lean.trace.profiler : Lean.Option Bool

opaque Lean.trace.profiler.threshold : Lean.Option Nat

def Lean.trace.profiler.threshold.getSecs (o : Lean.Options) : Float

@[inline]

def Lean.shouldProfile {m : Type → Type} [Monad m] [Lean.MonadOptions m] : m Bool

@[inline]

def Lean.shouldEnableNestedTrace {m : Type → Type} [Monad m] [MonadLiftT IO m] [Lean.MonadOptions m] (cls : Lake.Name) (secs : Float) : m Bool

def Lean.withTraceNode {α : Type} {m : Type → Type} [Monad m] [Lean.MonadTrace m] [MonadLiftT IO m] [Lean.MonadRef m] [Lean.AddMessageContext m] [Lean.MonadOptions m] {ε : Type} [MonadExcept ε m] [MonadLiftT BaseIO m] (cls : Lake.Name) (msg : Except ε α → m Lean.MessageData) (k : m α) (collapsed : optParam Bool true) : m α

def Lean.withTraceNode' {α : Type} {m : Type → Type} [Monad m] [Lean.MonadTrace m] [MonadLiftT IO m] [Lean.MonadRef m] [Lean.AddMessageContext m] [Lean.MonadOptions m] [MonadExcept Lean.Exception m] [MonadLiftT BaseIO m] (cls : Lake.Name) (k : m (α × Lean.MessageData)) (collapsed : optParam Bool true) : m α

def Lean.registerTraceClass (traceClassName : Lake.Name) (inherited : optParam Bool false) (ref : autoParam Lake.Name _auto✝) : IO Unit

Registers a trace class.

By default, trace classes are not inherited; that is, set_option trace.foo true does not imply set_option trace.foo.bar true. Calling registerTraceClass `foo.bar (inherited := true) enables this inheritance on an opt-in basis.

def Lean.«doElemTrace[_]__» : Lean.ParserDescr

def Lean.bombEmoji : String

def Lean.checkEmoji : String

def Lean.crossEmoji : String

def Lean.exceptBoolEmoji {ε : Type u_1} : Except ε Bool → String

def Lean.exceptOptionEmoji {α : Type} {ε : Type u_1} : Except ε (Option α) → String

class Lean.ExceptToEmoji (ε : Type) (α : Type) : Type

• toEmoji : Except ε α → String

instance Lean.instExceptToEmojiBool {ε : Type} : Lean.ExceptToEmoji ε Bool

instance Lean.instExceptToEmojiOption {α : Type} {ε : Type} : Lean.ExceptToEmoji ε (Option α)

def Lean.withTraceNodeBefore {α : Type} {m : Type → Type} [Monad m] [Lean.MonadTrace m] [MonadLiftT IO m] {ε : Type} [Lean.MonadRef m] [Lean.AddMessageContext m] [Lean.MonadOptions m] [MonadExcept ε m] [MonadLiftT BaseIO m] [Lean.ExceptToEmoji ε α] (cls : Lake.Name) (msg : m Lean.MessageData) (k : m α) (collapsed : optParam Bool true) : m α

Similar to withTraceNode, but msg is constructed before executing k. This is important when debugging methods such as isDefEq, and we want to generate the message before k updates the metavariable assignment. The class ExceptToEmoji is used to convert the result produced by k into an emoji (e.g., 💥, ✅, ❌).

TODO: find better name for this function.