propagateNotDown

Mathlib.Tactic.CC.Addition

URI: https://scilib.ai/kg/mathlib#Mathlib.Tactic.CC.CCM.propagateNotDown

Lean4

/-- Propagate equality from `¬a` to `a`. -/
def propagateNotDown (e : Expr) : CCM Unit := do
  if ← isEqTrue e then
    let some a := e.not? |
      failure
    pushEq a (.const ``False []) (mkApp2 (.const ``eq_false_of_not_eq_true []) a (← getEqTrueProof e))
  else if ← (·.em) <$> get <&&> isEqFalse e then
    let some a := e.not? |
      failure
    pushEq a (.const ``True []) (mkApp2 (.const ``eq_true_of_not_eq_false []) a (← getEqFalseProof e))

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

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

Разделы

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

Аффилиация

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