fastSubsingletonElim

Mathlib.Lean.Meta.CongrTheorems

URI: https://scilib.ai/kg/mathlib#Lean.Meta.fastSubsingletonElim

Lean4

/-- Like `subsingletonElim` but uses `FastSubsingleton` to fail fast. -/
def fastSubsingletonElim (mvarId : MVarId) : MetaM Bool :=
  mvarId.withContext
    (do
      let res ←
        observing?
            (do
              mvarId.checkNotAssigned `fastSubsingletonElim
              let tgt ← withReducible mvarId.getType'
              let some (_, lhs, rhs) := tgt.eq? |
                failure
              let pf ← withSubsingletonAsFast fun elim => elim <$> mkAppM ``FastSubsingleton.elim #[lhs, rhs]
              mvarId.assign pf
              return true)
      return res.getD false)

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

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

Разделы

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

Аффилиация

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