Helper functions for creating auxiliary names used in (old) compiler passes.

@[export lean_mk_eager_lambda_lifting_name]

def Lean.Compiler.mkEagerLambdaLiftingName (n : Lean.Name) (idx : Nat) : Lean.Name

Equations

• Lean.Compiler.mkEagerLambdaLiftingName n idx = n.mkStr ("_elambda_" ++ toString idx)

@[export lean_is_eager_lambda_lifting_name]

def Lean.Compiler.isEagerLambdaLiftingName : Lean.Name → Bool

Equations

• Lean.Compiler.isEagerLambdaLiftingName (p.str s) = ("_elambda".isPrefixOf s || Lean.Compiler.isEagerLambdaLiftingName p)
• Lean.Compiler.isEagerLambdaLiftingName (p.num i) = Lean.Compiler.isEagerLambdaLiftingName p
• Lean.Compiler.isEagerLambdaLiftingName x = false

def Lean.Compiler.getDeclNamesForCodeGen : Lean.Declaration → List Lean.Name

Return the name of new definitions in the a given declaration. Here we consider only declarations we generate code for. We use this definition to implement add_and_compile.

Equations

• One or more equations did not get rendered due to their size.
• Lean.Compiler.getDeclNamesForCodeGen (Lean.Declaration.mutualDefnDecl defs) = List.map (fun (d : Lean.DefinitionVal) => d.name) defs
• Lean.Compiler.getDeclNamesForCodeGen (Lean.Declaration.opaqueDecl { name := n, levelParams := levelParams, type := type, value := value, isUnsafe := isUnsafe, all := all }) = [n]
• Lean.Compiler.getDeclNamesForCodeGen (Lean.Declaration.axiomDecl { name := n, levelParams := levelParams, type := type, isUnsafe := isUnsafe }) = [n]
• Lean.Compiler.getDeclNamesForCodeGen x = []

def Lean.Compiler.checkIsDefinition (env : Lean.Environment) (n : Lean.Name) : Except String Unit

Equations

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

@[export lean_mk_unsafe_rec_name]

def Lean.Compiler.mkUnsafeRecName (declName : Lean.Name) : Lean.Name

We generate auxiliary unsafe definitions for regular recursive definitions. The auxiliary unsafe definition has a clear runtime cost execution model. This function returns the auxiliary unsafe definition name for the given name.

Equations

• Lean.Compiler.mkUnsafeRecName declName = declName.mkStr "_unsafe_rec"

@[export lean_is_unsafe_rec_name]

def Lean.Compiler.isUnsafeRecName? : Lean.Name → Option Lean.Name

Return some _ if the given name was created using mkUnsafeRecName

Equations

• Lean.Compiler.isUnsafeRecName? (n.str "_unsafe_rec") = some n
• Lean.Compiler.isUnsafeRecName? x = none

@[extern lean_compile_decls]

opaque Lean.Environment.compileDecls (env : Lean.Environment) (opt : Lean.Options) (decls : List Lean.Name) : Except Lean.KernelException Lean.Environment

Compile the given block of mutual declarations. Assumes the declarations have already been added to the environment using addDecl.

def Lean.Environment.compileDecl (env : Lean.Environment) (opt : Lean.Options) (decl : Lean.Declaration) : Except Lean.KernelException Lean.Environment

Compile the given declaration, it assumes the declaration has already been added to the environment using addDecl.

Equations

• env.compileDecl opt decl = env.compileDecls opt (Lean.Compiler.getDeclNamesForCodeGen decl)