Compare commits

...

2 Commits

Author SHA1 Message Date
Leonardo de Moura
b3c427c3d9 chore: duplicate 2024-06-05 17:36:03 -07:00
Leonardo de Moura
c0b7303798 chore: missing registerTraceClass
closes #3373
2024-06-05 17:27:30 -07:00
10 changed files with 30 additions and 3 deletions

View File

@@ -782,6 +782,9 @@ def elabLetDeclCore (stx : Syntax) (expectedType? : Option Expr) (useLetExpr : B
@[builtin_term_elab «let_tmp»] def elabLetTmpDecl : TermElab :=
fun stx expectedType? => elabLetDeclCore stx expectedType? (useLetExpr := true) (elabBodyFirst := false) (usedLetOnly := true)
builtin_initialize registerTraceClass `Elab.let
builtin_initialize
registerTraceClass `Elab.let
registerTraceClass `Elab.let.decl
registerTraceClass `Elab.autoParam
end Lean.Elab.Term

View File

@@ -993,5 +993,8 @@ def elabMutualDef (ds : Array Syntax) : CommandElabM Unit := do
snap.new.resolve <| .ofTyped { defs, diagnostics := .empty : DefsParsedSnapshot }
runTermElabM fun vars => Term.elabMutualDef vars views
builtin_initialize
registerTraceClass `Elab.definition.mkClosure
end Command
end Lean.Elab

View File

@@ -690,5 +690,6 @@ builtin_initialize
registerTraceClass `Elab.match_syntax
registerTraceClass `Elab.match_syntax.alt (inherited := true)
registerTraceClass `Elab.match_syntax.result (inherited := true)
registerTraceClass `Elab.match_syntax.onMatch
end Lean.Elab.Term.Quotation

View File

@@ -957,6 +957,8 @@ private def elabStructInstAux (stx : Syntax) (expectedType? : Option Expr) (sour
else
elabStructInstAux stx expectedType? sourceView
builtin_initialize registerTraceClass `Elab.struct
builtin_initialize
registerTraceClass `Elab.struct
registerTraceClass `Elab.struct.modifyOp
end Lean.Elab.Term.StructInst

View File

@@ -442,4 +442,7 @@ def strLitToPattern (stx: Syntax) : MacroM Syntax :=
| some str => return mkAtomFrom stx str
| none => Macro.throwUnsupported
builtin_initialize
registerTraceClass `Elab.defaultInstance
end Lean.Elab.Command

View File

@@ -1916,4 +1916,7 @@ def isIncrementalElab [Monad m] [MonadEnv m] [MonadLiftT IO m] (decl : Name) : m
export Term (TermElabM)
builtin_initialize
registerTraceClass `Elab.implicitForall
end Lean.Elab

View File

@@ -70,4 +70,7 @@ def decLevel (u : Level) : MetaM Level := do
def getDecLevel (type : Expr) : MetaM Level := do
decLevel ( getLevel type)
builtin_initialize
registerTraceClass `Meta.isLevelDefEq.step
end Lean.Meta

View File

@@ -514,5 +514,9 @@ def mkSizeOfInstances (typeName : Name) : MetaM Unit := do
builtin_initialize
registerTraceClass `Meta.sizeOf
registerTraceClass `Meta.sizeOf.minor
registerTraceClass `Meta.sizeOf.minor.step
registerTraceClass `Meta.sizeOf.aux
registerTraceClass `Meta.sizeOf.loop
end Lean.Meta

View File

@@ -152,4 +152,7 @@ def simpAll (mvarId : MVarId) (ctx : Simp.Context) (simprocs : SimprocsArray :=
throwError "simp_all made no progress"
return (r, { s with })
builtin_initialize
registerTraceClass `Meta.Tactic.simp.all
end Lean.Meta

View File

@@ -437,6 +437,8 @@ def delab (e : Expr) (optionsPerPos : OptionsPerPos := {}) : MetaM Term := do
let (stx, _) delabCore e optionsPerPos Delaborator.delab
return stx
builtin_initialize registerTraceClass `PrettyPrinter.delab
builtin_initialize
registerTraceClass `PrettyPrinter.delab
registerTraceClass `PrettyPrinter.delab.input
end Lean.PrettyPrinter