evalNot

Mathlib.Tactic.NormNum.Basic

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

Lean4

/-- The `norm_num` extension which identifies expressions of the form `¬a`,
such that `norm_num` successfully recognises `a`. -/
@[norm_num ¬_]
def evalNot : NormNumExt where
  eval {u α}
    e := do
    let .app (.const ``Not _) (a : Q(Prop)) ← whnfR e |
      failure
    guard <| ← withNewMCtxDepth <| isDefEq α q(Prop)
    let ⟨b, p⟩ ← deriveBool q($a)
    match b with
    | true =>
      return .isFalse q(not_not_intro $p)
    | false =>
      return .isTrue q($p)

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

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

Разделы

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

Аффилиация

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