unfoldHeadFVar?

Mathlib.Tactic.FunProp.FunctionData

URI: https://scilib.ai/kg/mathlib#Mathlib.Meta.FunProp.FunctionData.unfoldHeadFVar?

Lean4

/-- If head function is a let-fvar unfold it and return resulting function.
Return `none` otherwise. -/
def unfoldHeadFVar? (fData : FunctionData) : MetaM (Option Expr) := do
  let .fvar id := fData.fn |
    return none
  let some val ← id.getValue? |
    return none
  let f ←
    withLCtx fData.lctx fData.insts do
        mkLambdaFVars #[fData.mainVar] (headBetaThroughLet (Mor.mkAppN val fData.args))
  return f

Похожие утверждения

Научная платформа российской исследовательской школы.

Разделы

MathLib Explorer
Graph RAG
Лаборатория
Блог
О проекте
Команда

Аффилиация

Вычислительный центр им. А. А. Дороницына при ФИЦ «Информатика и Управление» РАН frccsc.ru