def Lean.Compiler.LCNF.ToLCNF.isLCProof (e : Expr) : Bool

Return true if e is a lcProof application. Recall that we use lcProof to erase all nested proofs.

Equations

• Lean.Compiler.LCNF.ToLCNF.isLCProof e = e.isAppOfArity `lcProof 1

def Lean.Compiler.LCNF.ToLCNF.mkLcProof (p : Expr) : Expr

Create the temporary lcProof

Equations

• Lean.Compiler.LCNF.ToLCNF.mkLcProof p = Lean.mkApp (Lean.mkConst `lcProof) p

inductive Lean.Compiler.LCNF.ToLCNF.Element : Type

Auxiliary inductive datatype for constructing LCNF Code objects. The toLCNF function maintains a sequence of elements that is eventually converted into Code.

• jp (decl : FunDecl Purity.pure) : Element
• fun (decl : FunDecl Purity.pure) : Element
• let (decl : LetDecl Purity.pure) : Element
• cases (p : Param Purity.pure) (cases : Cases Purity.pure) : Element
• unreach (p : Param Purity.pure) : Element

@[implicit_reducible]

instance Lean.Compiler.LCNF.ToLCNF.instInhabitedElement : Inhabited Element

Equations

• Lean.Compiler.LCNF.ToLCNF.instInhabitedElement = { default := Lean.Compiler.LCNF.ToLCNF.instInhabitedElement.default }

@[reducible, inline]

abbrev Lean.Compiler.LCNF.ToLCNF.BindCasesM.State : Type

State for BindCasesM monad Mapping from _alt.<idx> variables to new join points

Equations

• Lean.Compiler.LCNF.ToLCNF.BindCasesM.State = Lean.FVarIdMap (Lean.Compiler.LCNF.FunDecl Lean.Compiler.LCNF.Purity.pure)

@[reducible, inline]

abbrev Lean.Compiler.LCNF.ToLCNF.BindCasesM (α : Type) : Type

Auxiliary monad for implementing bindCases

Equations

• Lean.Compiler.LCNF.ToLCNF.BindCasesM = StateRefT' IO.RealWorld Lean.Compiler.LCNF.ToLCNF.BindCasesM.State Lean.Compiler.LCNF.CompilerM

def Lean.Compiler.LCNF.ToLCNF.bindCases (jpDecl : FunDecl Purity.pure) (cases : Cases Purity.pure) : CompilerM (Code Purity.pure)

This method returns code that at each exit point of cases, it jumps to jpDecl. It is similar to Code.bind, but we add special support for inlineMatcher. The inlineMatcher function inlines the auxiliary _match_<idx> declarations. To make sure there is no code duplication, inlineMatcher creates auxiliary declarations _alt.<idx>. We can say the _alt.<idx> declarations are pre join points. For each auxiliary declaration used at an exit point of cases, this method creates an new auxiliary join point that invokes _alt.<idx>, and then jumps to jpDecl. The goal is to make sure the auxiliary join point is the only occurrence of _alt.<idx>, then simp will inline it. That is, our goal is to try to promote the pre join points _alt.<idx> into a proper join point.

Equations

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

def Lean.Compiler.LCNF.ToLCNF.seqToCode (seq : Array Element) (k : Code Purity.pure) : CompilerM (Code Purity.pure)

Equations

• Lean.Compiler.LCNF.ToLCNF.seqToCode seq k = Lean.Compiler.LCNF.ToLCNF.seqToCode.go✝ seq seq.size k

structure Lean.Compiler.LCNF.ToLCNF.Context : Type

• ignoreNoncomputable : Bool

  Whether uses of noncomputable defs should be ignored; used in contexts that will be erased eventually.

• expectedType : Option Expr

  The expected type of the expression that is currently being handled if available. This type is only used to propagate potential borrow annotations as they are not propagated everywhere by the elaborator.

structure Lean.Compiler.LCNF.ToLCNF.CacheKey : Type

Key for the LCNF translation cache. ignoreNoncomputable is part of the key because entries cached in irrelevant positions skip the checkComputable check and must not be reused in relevant positions.

• expr : Expr
• expectedType? : Option Expr
• ignoreNoncomputable : Bool

@[implicit_reducible]

instance Lean.Compiler.LCNF.ToLCNF.instBEqCacheKey : BEq CacheKey

Equations

• Lean.Compiler.LCNF.ToLCNF.instBEqCacheKey = { beq := Lean.Compiler.LCNF.ToLCNF.instBEqCacheKey.beq }

def Lean.Compiler.LCNF.ToLCNF.instBEqCacheKey.beq : CacheKey → CacheKey → Bool

Equations

• One or more equations did not get rendered due to their size.
• Lean.Compiler.LCNF.ToLCNF.instBEqCacheKey.beq x✝¹ x✝ = false

@[implicit_reducible]

instance Lean.Compiler.LCNF.ToLCNF.instHashableCacheKey : Hashable CacheKey

Equations

• Lean.Compiler.LCNF.ToLCNF.instHashableCacheKey = { hash := Lean.Compiler.LCNF.ToLCNF.instHashableCacheKey.hash }

def Lean.Compiler.LCNF.ToLCNF.instHashableCacheKey.hash : CacheKey → UInt64

Equations

• Lean.Compiler.LCNF.ToLCNF.instHashableCacheKey.hash { expr := a, expectedType? := a_1, ignoreNoncomputable := a_2 } = mixHash (mixHash (mixHash 0 (hash a)) (hash a_1)) (hash a_2)

structure Lean.Compiler.LCNF.ToLCNF.State : Type

• lctx : LocalContext

  Local context containing the original Lean types (not LCNF ones).

• cache : PHashMap CacheKey (Arg Purity.pure)

  Cache from Lean regular expression to LCNF argument.

• shouldCache : Bool

  Determines whether caching has been disabled due to finding a use of a constant marked with never_extract.

• typeCache : Std.HashMap Expr Expr

  toLCNFType cache

• isTypeFormerTypeCache : Std.HashMap Expr Bool

  isTypeFormerType cache

• seq : Array Element

  LCNF sequence, we chain it to create a LCNF Code object.

• toAny : FVarIdSet

  Fields that are type formers must be replaced with ◾ in the resulting code. Otherwise, we have data occurring in types. When converting a casesOn into LCNF, we add constructor fields that are types and type formers into this set. See visitCases.

@[reducible, inline]

abbrev Lean.Compiler.LCNF.ToLCNF.M (α : Type) : Type

Equations

• Lean.Compiler.LCNF.ToLCNF.M = ReaderT Lean.Compiler.LCNF.ToLCNF.Context (StateRefT' IO.RealWorld Lean.Compiler.LCNF.ToLCNF.State Lean.Compiler.LCNF.CompilerM)

@[inline]

def Lean.Compiler.LCNF.ToLCNF.liftMetaM {α : Type} (x : MetaM α) : M α

Equations

• Lean.Compiler.LCNF.ToLCNF.liftMetaM x = do let __do_lift ← get liftM (x.run' { lctx := __do_lift.lctx })

def Lean.Compiler.LCNF.ToLCNF.pushElement (elem : Element) : M Unit

Add LCNF element to the current sequence

Equations

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

def Lean.Compiler.LCNF.ToLCNF.mkUnreachable (type : Expr) : M (Arg Purity.pure)

Equations

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

def Lean.Compiler.LCNF.ToLCNF.mkAuxLetDecl (e : LetValue Purity.pure) (prefixName : Name := `_x) : M FVarId

Equations

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

def Lean.Compiler.LCNF.ToLCNF.letValueToArg (e : LetValue Purity.pure) (prefixName : Name := `_x) : M (Arg Purity.pure)

Equations

• Lean.Compiler.LCNF.ToLCNF.letValueToArg e prefixName = do let __do_lift ← Lean.Compiler.LCNF.ToLCNF.mkAuxLetDecl e prefixName pure (Lean.Compiler.LCNF.Arg.fvar __do_lift)

def Lean.Compiler.LCNF.ToLCNF.toCode (result : Arg Purity.pure) : M (Code Purity.pure)

Create Code that executes the current seq and then returns result

Equations

• One or more equations did not get rendered due to their size.
• Lean.Compiler.LCNF.ToLCNF.toCode (Lean.Compiler.LCNF.Arg.fvar fvarId) = do let __do_lift ← get liftM (Lean.Compiler.LCNF.ToLCNF.seqToCode __do_lift.seq (Lean.Compiler.LCNF.Code.return fvarId))

def Lean.Compiler.LCNF.ToLCNF.run {α : Type} (expectedType : Expr) (x : M α) : CompilerM α

Equations

• Lean.Compiler.LCNF.ToLCNF.run expectedType x = (ReaderT.run x { expectedType := some expectedType }).run' { }

@[inline]

def Lean.Compiler.LCNF.ToLCNF.withExpectedType {α : Type} (e : Option Expr) (x : M α) : M α

Equations

• Lean.Compiler.LCNF.ToLCNF.withExpectedType e x = withReader (fun (ctx : Lean.Compiler.LCNF.ToLCNF.Context) => { ignoreNoncomputable := ctx.ignoreNoncomputable, expectedType := e }) x

@[inline]

def Lean.Compiler.LCNF.ToLCNF.withoutExpectedType {α : Type} (x : M α) : M α

Equations

• Lean.Compiler.LCNF.ToLCNF.withoutExpectedType x = Lean.Compiler.LCNF.ToLCNF.withExpectedType none x

def Lean.Compiler.LCNF.ToLCNF.withNewScope {α : Type} (x : M α) : M α

Equations

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

def Lean.Compiler.LCNF.ToLCNF.applyToAny (type : Expr) : M Expr

Equations

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

def Lean.Compiler.LCNF.ToLCNF.toLCNFType (type : Expr) : M Expr

Equations

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

def Lean.Compiler.LCNF.ToLCNF.cleanupBinderName (binderName : Name) : CompilerM Name

Equations

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

def Lean.Compiler.LCNF.ToLCNF.mkParam (binderName : Name) (type : Expr) (borrow : Bool := isMarkedBorrowed type) : M (Param Purity.pure)

Create a new local declaration using a Lean regular type.

Equations

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

def Lean.Compiler.LCNF.ToLCNF.mkLetDecl (binderName : Name) (type value type' : Expr) (arg : Arg Purity.pure) : M (LetDecl Purity.pure)

Equations

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

def Lean.Compiler.LCNF.ToLCNF.visitLambda (e : Expr) : M (Array (Param Purity.pure) × Expr × Option Expr)

Equations

• Lean.Compiler.LCNF.ToLCNF.visitLambda e = do let __do_lift ← read Lean.Compiler.LCNF.ToLCNF.visitLambda.go✝ e #[] #[] __do_lift.expectedType

def Lean.Compiler.LCNF.ToLCNF.visitBoundedLambda (e : Expr) (n : Nat) : M (Array (Param Purity.pure) × Expr)

Equations

• Lean.Compiler.LCNF.ToLCNF.visitBoundedLambda e n = Lean.Compiler.LCNF.ToLCNF.visitBoundedLambda.go✝ e n #[] #[]

def Lean.Compiler.LCNF.ToLCNF.mustEtaExpand (env : Environment) (e : Expr) : Bool

Equations

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

def Lean.Compiler.LCNF.ToLCNF.etaExpandN (e : Expr) (n : Nat) : M Expr

Eta-expand with n lambdas.

Equations

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

partial def Lean.Compiler.LCNF.ToLCNF.etaReduceImplicit (e : Expr) : Expr

Eta reduce implicits. We use this function to eliminate introduced by the implicit lambda feature, where it generates terms such as fun {α} => ReaderT.pure

def Lean.Compiler.LCNF.ToLCNF.litToValue (lit : Literal) : LitValue

Equations

• Lean.Compiler.LCNF.ToLCNF.litToValue (Lean.Literal.natVal val) = Lean.Compiler.LCNF.LitValue.nat val
• Lean.Compiler.LCNF.ToLCNF.litToValue (Lean.Literal.strVal val) = Lean.Compiler.LCNF.LitValue.str val

def Lean.Compiler.LCNF.ToLCNF.toLCNF (e eType : Expr) : CompilerM (Code Purity.pure)

Put the given expression in LCNF.

• Nested proofs are replaced with lcProof-applications.
• Eta-expand applications of declarations that satisfy shouldEtaExpand.
• Put computationally relevant expressions in A-normal form.

Equations

• Lean.Compiler.LCNF.toLCNF e eType = Lean.Compiler.LCNF.ToLCNF.run eType do let __do_lift ← Lean.Compiler.LCNF.ToLCNF.toLCNF.visit✝ e Lean.Compiler.LCNF.ToLCNF.toCode __do_lift