evalNatSucc

Mathlib.Tactic.Positivity.Basic

URI: https://scilib.ai/kg/mathlib#Mathlib.Meta.Positivity.evalNatSucc

Lean4

/-- Extension for `Nat.succ`. -/
@[positivity Nat.succ _]
def evalNatSucc : PositivityExt where
  eval {u α} _zα _pα
    e := do
    match u, α, e with
    | 0, ~q(ℕ), ~q(Nat.succ $a) =>
      assertInstancesCommute
      pure (.positive q(Nat.succ_pos $a))
    | _, _, _ =>
      throwError"not Nat.succ"

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

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

Разделы

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

Аффилиация

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