A builder for attributes that are applied to declarations of a common type and group them by the given attribute argument (an arbitrary Name, currently). Also creates a second "builtin" attribute used for bootstrapping, which saves the applied declarations in an IO.Ref instead of an environment extension.

Used to register elaborators, macros, tactics, and delaborators.

@[reducible, inline]

abbrev Lean.KeyedDeclsAttribute.Key : Type

structure Lean.KeyedDeclsAttribute.Def (γ : Type) : Type

KeyedDeclsAttribute definition.

Important: mkConst valueTypeName and γ must be definitionally equal.

• builtinName : Lean.Name

  Builtin attribute name, if any (e.g., `builtin_term_elab)

• name : Lean.Name

  Attribute name (e.g., `term_elab)

• descr : String

  Attribute description

• valueTypeName : Lean.Name
• evalKey : Bool → Lean.Syntax → Lean.AttrM Lean.KeyedDeclsAttribute.Key

  Convert Syntax into a Key, the default implementation expects an identifier.

• onAdded : Bool → Lean.Name → Lean.AttrM Unit

Instances For

• Lean.KeyedDeclsAttribute.instInhabitedDef

instance Lean.KeyedDeclsAttribute.instInhabitedDef {a✝ : Type} : Inhabited (Lean.KeyedDeclsAttribute.Def a✝)

Equations

• One or more equations did not get rendered due to their size.

structure Lean.KeyedDeclsAttribute.OLeanEntry : Type

• key : Lean.KeyedDeclsAttribute.Key
• declName : Lean.Name

  Name of a declaration stored in the environment which has type mkConst Def.valueTypeName.

Instances For

• Lean.KeyedDeclsAttribute.instInhabitedOLeanEntry

instance Lean.KeyedDeclsAttribute.instInhabitedOLeanEntry : Inhabited Lean.KeyedDeclsAttribute.OLeanEntry

Equations

• Lean.KeyedDeclsAttribute.instInhabitedOLeanEntry = { default := { key := default, declName := default } }

structure Lean.KeyedDeclsAttribute.AttributeEntry (γ : Type) extends Lean.KeyedDeclsAttribute.OLeanEntry : Type

• key : Lean.KeyedDeclsAttribute.Key
• declName : Lean.Name
• value : γ

  Recall that we cannot store γ into .olean files because it is a closure. Given OLeanEntry.declName, we convert it into a γ by using the unsafe function evalConstCheck.

@[reducible, inline]

abbrev Lean.KeyedDeclsAttribute.Table (γ : Type) : Type

Equations

• Lean.KeyedDeclsAttribute.Table γ = Lean.SMap Lean.KeyedDeclsAttribute.Key (List (Lean.KeyedDeclsAttribute.AttributeEntry γ))

structure Lean.KeyedDeclsAttribute.ExtensionState (γ : Type) : Type

• newEntries : List Lean.KeyedDeclsAttribute.OLeanEntry
• table : Lean.KeyedDeclsAttribute.Table γ
• declNames : Lean.PHashSet Lean.Name
• erased : Lean.PHashSet Lean.Name

Instances For

• Lean.KeyedDeclsAttribute.instInhabitedExtensionState

instance Lean.KeyedDeclsAttribute.instInhabitedExtensionState {a✝ : Type} : Inhabited (Lean.KeyedDeclsAttribute.ExtensionState a✝)

Equations

• Lean.KeyedDeclsAttribute.instInhabitedExtensionState = { default := { newEntries := default, table := default, declNames := default, erased := default } }

@[reducible, inline]

abbrev Lean.KeyedDeclsAttribute.Extension (γ : Type) : Type

structure Lean.KeyedDeclsAttribute (γ : Type) : Type

• defn : Lean.KeyedDeclsAttribute.Def γ
• tableRef : IO.Ref (Lean.KeyedDeclsAttribute.Table γ)
• ext : Lean.KeyedDeclsAttribute.Extension γ

theorem Lean.instNonemptyKeyedDeclsAttribute {γ✝ : Type} : Nonempty (Lean.KeyedDeclsAttribute γ✝)

def Lean.KeyedDeclsAttribute.ExtensionState.insert {γ : Type} (s : Lean.KeyedDeclsAttribute.ExtensionState γ) (v : Lean.KeyedDeclsAttribute.AttributeEntry γ) : Lean.KeyedDeclsAttribute.ExtensionState γ

def Lean.KeyedDeclsAttribute.addBuiltin {γ : Type} (attr : Lean.KeyedDeclsAttribute γ) (key : Lean.KeyedDeclsAttribute.Key) (declName : Lean.Name) (value : γ) : IO Unit

def Lean.KeyedDeclsAttribute.mkStateOfTable {γ : Type} (table : Lean.KeyedDeclsAttribute.Table γ) : Lean.KeyedDeclsAttribute.ExtensionState γ

def Lean.KeyedDeclsAttribute.ExtensionState.erase {γ : Type} (s : Lean.KeyedDeclsAttribute.ExtensionState γ) (attrName declName : Lean.Name) : Lean.CoreM (Lean.KeyedDeclsAttribute.ExtensionState γ)

Equations

• One or more equations did not get rendered due to their size.

unsafe def Lean.KeyedDeclsAttribute.init {γ : Type} (df : Lean.KeyedDeclsAttribute.Def γ) (attrDeclName : Lean.Name := by exact decl_name%) : IO (Lean.KeyedDeclsAttribute γ)

def Lean.KeyedDeclsAttribute.getEntries {γ : Type} (attr : Lean.KeyedDeclsAttribute γ) (env : Lean.Environment) (key : Lean.Name) : List (Lean.KeyedDeclsAttribute.AttributeEntry γ)

Retrieve entries tagged with [attr key] or [builtinAttr key].

def Lean.KeyedDeclsAttribute.getValues {γ : Type} (attr : Lean.KeyedDeclsAttribute γ) (env : Lean.Environment) (key : Lean.Name) : List γ

Retrieve values tagged with [attr key] or [builtinAttr key].