evalNatLCM

Mathlib.Tactic.Positivity.Basic

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

Lean4

/-- Extension for `Nat.lcm`. -/
@[positivity Nat.lcm _ _]
def evalNatLCM : PositivityExt where
  eval {u α} z p
    e := do
    match u, α, e with
    | 0, ~q(ℕ), ~q(Nat.lcm $a $b) =>
      assertInstancesCommute
      match ← core z p a with
      | .positive pa =>
        match ← core z p b with
        | .positive pb =>
          return .positive q(Nat.lcm_pos $pa $pb)
        | _ =>
          failure
      | _ =>
        failure
    | _, _, _ =>
      throwError"not Nat.lcm"

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

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

Разделы

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

Аффилиация

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