mapConstructor

Mathlib.Tactic.DeriveTraversable

URI: https://scilib.ai/kg/mathlib#Mathlib.Deriving.Traversable.mapConstructor

Lean4

/-- similar to `traverseConstructor` but for `Functor` -/
def mapConstructor (c n : Name) (f α β : Expr) (args₀ : List Expr) (args₁ : List (Bool × Expr)) (m : MVarId) :
    TermElabM Unit := do
  let ad ← getAuxDefOfDeclName
  let g ← m.getType >>= instantiateMVars
  let args' ←
    args₁.mapM
        (fun (y : Bool × Expr) =>
          if y.1 then return mkAppN (.fvar ad) #[α, β, f, y.2] else mapField n g.appFn! f α β y.2)
  mkAppOptM c ((args₀ ++ args').map some).toArray >>= m.assign

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

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

Разделы

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

Аффилиация

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