evalOne

Mathlib.Tactic.NormNum.Basic

URI: https://scilib.ai/kg/mathlib#Mathlib.Meta.NormNum.evalOne

Lean4

/-- The `norm_num` extension which identifies the expression `One.one`, returning `1`. -/
@[norm_num One.one]
def evalOne : NormNumExt where
  eval {u α}
    e := do
    let sα ← inferAddMonoidWithOne α
    match e with
    | ~q(One.one) =>
      return .isNat sα q(nat_lit 1) q(isNat_one $α)

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

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

Разделы

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

Аффилиация

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