def Lean.Meta.elimOptParam (type : Lean.Expr) : Lean.CoreM Lean.Expr

def Lean.Meta.occursOrInType (lctx : Lean.LocalContext) (e t : Lean.Expr) : Bool

Returns true if e occurs either in t, or in the type of a sub-expression of t. Consider the following example:

inductive Tyₛ : Type (u+1)
| SPi : (T : Type u) -> (T -> Tyₛ) -> Tyₛ

inductive Tmₛ.{u} :  Tyₛ.{u} -> Type (u+1)
| app : Tmₛ (.SPi T A) -> (arg : T) -> Tmₛ (A arg)```

When looking for fixed arguments in Tmₛ.app, if we only consider occurrences in the term Tmₛ (A arg), T is considered non-fixed despite the fact that A : T -> Tyₛ. This leads to an ill-typed injectivity theorem signature:

theorem Tmₛ.app.inj {T : Type u} {A : T → Tyₛ} {a : Tmₛ (Tyₛ.SPi T A)} {arg : T} {T_1 : Type u} {a_1 : Tmₛ (Tyₛ.SPi T_1 A)} :
Tmₛ.app a arg = Tmₛ.app a_1 arg →
  T = T_1 ∧ HEq a a_1 := fun x => Tmₛ.noConfusion x fun T_eq A_eq a_eq arg_eq => eq_of_heq a_eq

Instead of checking the type of every subterm, we only need to check the type of free variables, since free variables introduced in the constructor may only appear in the type of other free variables introduced after them.

Equations

• Lean.Meta.occursOrInType lctx e t = (Lean.Expr.find? (Lean.Meta.occursOrInType.go lctx e) t).isSome

def Lean.Meta.occursOrInType.go (lctx : Lean.LocalContext) (e s : Lean.Expr) : Bool

def Lean.Meta.mkInjectiveTheoremNameFor (ctorName : Lean.Name) : Lean.Name

def Lean.Meta.mkInjectiveEqTheoremNameFor (ctorName : Lean.Name) : Lean.Name

Equations

• Lean.Meta.mkInjectiveEqTheoremNameFor ctorName = ctorName ++ `injEq

opaque Lean.Meta.genInjectivity : Lean.Option Bool

def Lean.Meta.mkInjectiveTheorems (declName : Lean.Name) : Lean.MetaM Unit