mkProdTree

Mathlib.Tactic.ProdAssoc

URI: https://scilib.ai/kg/mathlib#Lean.Expr.mkProdTree

Lean4

/-- Make a `ProdTree` out of an `Expr`. -/
partial def mkProdTree (e : Expr) : MetaM ProdTree :=
  match e.consumeMData with
  | .app (.app (.const ``Prod [u, v]) X) Y => do
    return .prod (← X.mkProdTree) (← Y.mkProdTree) u v
  | X => do
    let some u := (← whnfD <| ← inferType X).type? |
      throwError "Not a type{indentExpr X}"
    return .type X u

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

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

Разделы

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

Аффилиация

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