inductive Lean.Compiler.LCNF.Simp.CtorInfo : Type

• ctor (val : ConstructorVal) (args : Array Arg) : CtorInfo
• natVal (n : Nat) : CtorInfo

  Natural numbers are morally constructor applications

def Lean.Compiler.LCNF.Simp.CtorInfo.getName : CtorInfo → Name

def Lean.Compiler.LCNF.Simp.CtorInfo.getNumParams : CtorInfo → Nat

def Lean.Compiler.LCNF.Simp.CtorInfo.getNumFields : CtorInfo → Nat

structure Lean.Compiler.LCNF.Simp.DiscrM.Context : Type

• discrCtorMap : FVarIdMap CtorInfo

  A mapping from discriminant to constructor application it is equal to in the current context.

• ctorDiscrMap : PersistentExprMap FVarId

  A mapping from constructor application to discriminant it is equal to in the current context.

@[reducible, inline]

abbrev Lean.Compiler.LCNF.Simp.DiscrM (α : Type) : Type

Helper monad for tracking mappings from discriminant to constructor applications and back. The combinator withDiscrCtor should be used when visiting cases alternatives.

def Lean.Compiler.LCNF.Simp.findCtor? (fvarId : FVarId) : DiscrM (Option CtorInfo)

If fvarId is a constructor application, returns constructor information. Remark: we use the map discrCtorMap. Remark: We use this method when simplifying projections and cases-constructor.

def Lean.Compiler.LCNF.Simp.findCtorName? (fvarId : FVarId) : DiscrM (Option Name)

def Lean.Compiler.LCNF.Simp.getIndInfo? (type : Expr) : CoreM (Option (List Level × Array Arg))

If type is an inductive datatype, return its universe levels and parameters.

@[inline]

def Lean.Compiler.LCNF.Simp.withDiscrCtorImp {α : Type} (discr : FVarId) (ctorName : Name) (ctorFields : Array Param) (x : DiscrM α) : DiscrM α

Execute x with the information that discr = ctorName ctorFields. We use this information to simplify nested cases on the same discriminant.

def Lean.Compiler.LCNF.Simp.withDiscrCtorImp.updateCtx (discr : FVarId) (ctorName : Name) (ctorFields : Array Param) : DiscrM DiscrM.Context

@[inline]

def Lean.Compiler.LCNF.Simp.withDiscrCtor {m : Type → Type u_1} {α : Type} [MonadFunctorT DiscrM m] (discr : FVarId) (ctorName : Name) (ctorFields : Array Param) : m α → m α

Execute x with the information that discr = ctorName ctorFields. We use this information to simplify nested cases on the same discriminant.

def Lean.Compiler.LCNF.Simp.simpCtorDiscrCore? (e : Expr) : DiscrM (Option FVarId)