mkNeOfEqOfNe

Mathlib.Tactic.CC.MkProof

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

Lean4

/-- Given `a`, `a₁` and `a₁NeB : a₁ ≠ b`, return a proof of `a ≠ b` if `a` and `a₁` are in the
same equivalence class. -/
def mkNeOfEqOfNe (a a₁ a₁NeB : Expr) : CCM (Option Expr) := do
  guard (← isEqv a a₁)
  if a == a₁ then
    return some a₁NeB
  let aEqA₁ ← getEqProof a a₁
  match aEqA₁ with
  | none =>
    return none
  | some aEqA₁ =>
    mkAppM ``ne_of_eq_of_ne #[aEqA₁, a₁NeB]

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

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

Разделы

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

Аффилиация

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