structure Lean.ClassEntry : Type

An entry for the persistent environment extension for declared type classes

• name : Lake.Name

  Class name.

• outParams : Array Nat

  Position of the class outParams. For example, for class

  class GetElem (cont : Type u) (idx : Type v) (elem : outParam (Type w)) (dom : outParam (cont → idx → Prop)) where
  

  outParams := #[2, 3]

def Lean.ClassEntry.lt (a : Lean.ClassEntry) (b : Lean.ClassEntry) : Bool

Equations

• a.lt b = a.name.quickLt b.name

structure Lean.ClassState : Type

State of the type class environment extension.

• outParamMap : Lean.SMap Lake.Name (Array Nat)

instance Lean.instInhabitedClassState : Inhabited Lean.ClassState

Equations

• Lean.instInhabitedClassState = { default := { outParamMap := default } }

def Lean.ClassState.addEntry (s : Lean.ClassState) (entry : Lean.ClassEntry) : Lean.ClassState

Equations

• s.addEntry entry = { outParamMap := s.outParamMap.insert entry.name entry.outParams }

def Lean.ClassState.switch (s : Lean.ClassState) : Lean.ClassState

Switch the state into persistent mode. We switch to this mode after we read all imported .olean files. Recall that we use a SMap for implementing the state of the type class environment extension.

Equations

• s.switch = { outParamMap := s.outParamMap.switch }

opaque Lean.classExtension : Lean.SimplePersistentEnvExtension Lean.ClassEntry Lean.ClassState

Type class environment extension

@[export lean_is_class]

def Lean.isClass (env : Lean.Environment) (n : Lake.Name) : Bool

Return true if n is the name of type class in the given environment.

Equations

• Lean.isClass env n = (Lean.classExtension.getState env).outParamMap.contains n

def Lean.getOutParamPositions? (env : Lean.Environment) (declName : Lake.Name) : Option (Array Nat)

If declName is a class, return the position of its outParams.

Equations

• Lean.getOutParamPositions? env declName = (Lean.classExtension.getState env).outParamMap.find? declName

@[export lean_has_out_params]

def Lean.hasOutParams (env : Lean.Environment) (declName : Lake.Name) : Bool

Return true if the given declName is a type class with output parameters.

Equations

• Lean.hasOutParams env declName = match Lean.getOutParamPositions? env declName with | some outParams => !outParams.isEmpty | none => false

@[export lean_mk_outparam_args_implicit]

def Lean.mkOutParamArgsImplicit (type : Lean.Expr) : Lean.Expr

Mark outParams in type as implicit. Note that it also marks instance implicit arguments that depend on outParams as implicit.

Remark: this function consumes the outParam annotations.

This function uses the same logic used as checkOutParam. See issue #1901

Equations

• Lean.mkOutParamArgsImplicit type = Lean.mkOutParamArgsImplicit.go type type #[]

partial def Lean.mkOutParamArgsImplicit.go (type : Lean.Expr) (typeAux : Lean.Expr) (outParamFVarIds : Array Lean.FVarId) : Lean.Expr

def Lean.addClass (env : Lean.Environment) (clsName : Lake.Name) : Except String Lean.Environment

Add a new type class with the given name to the environment. declName must not be the name of an existing type class, and it must be the name of constant in env. declName must be a inductive datatype or axiom. Recall that all structures are inductive datatypes.

Equations

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