elabReduceProj

Mathlib.Util.TermReduce

URI: https://scilib.ai/kg/mathlib#Mathlib.Util.TermReduce.elabReduceProj

Lean4

@[term_elab reduceProjStx, inherit_doc reduceProjStx]
def elabReduceProj : TermElab := fun stx expectedType? =>
  match stx with
  | `(reduceProj% $t) => do
    let t ←
      withSynthesize (postpone := .partial) do
          elabTerm t expectedType?
    synthesizeSyntheticMVars
    let t ← instantiateMVars t
    let t ←
      Lean.Core.transform t (post := fun e ↦ do
          return .continue (← Expr.reduceProjStruct? e))
    pure t
  | _ => throwUnsupportedSyntax

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

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

Разделы

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

Аффилиация

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