evalPNatVal

Mathlib.Tactic.Positivity.Basic

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

Lean4

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

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

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

Разделы

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

Аффилиация

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