MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  reuprg Structured version   Visualization version   GIF version

Theorem reuprg 4669
Description: Convert a restricted existential uniqueness over a pair to a disjunction and an implication . (Contributed by AV, 2-Apr-2023.)
Hypotheses
Ref Expression
reuprg.1 (𝑥 = 𝐴 → (𝜑𝜓))
reuprg.2 (𝑥 = 𝐵 → (𝜑𝜒))
Assertion
Ref Expression
reuprg ((𝐴𝑉𝐵𝑊) → (∃!𝑥 ∈ {𝐴, 𝐵}𝜑 ↔ ((𝜓𝜒) ∧ ((𝜒𝜓) → 𝐴 = 𝐵))))
Distinct variable groups:   𝑥,𝐴   𝑥,𝐵   𝜓,𝑥   𝜒,𝑥
Allowed substitution hints:   𝜑(𝑥)   𝑉(𝑥)   𝑊(𝑥)

Proof of Theorem reuprg
StepHypRef Expression
1 reuprg.1 . . 3 (𝑥 = 𝐴 → (𝜑𝜓))
2 reuprg.2 . . 3 (𝑥 = 𝐵 → (𝜑𝜒))
31, 2reuprg0 4668 . 2 ((𝐴𝑉𝐵𝑊) → (∃!𝑥 ∈ {𝐴, 𝐵}𝜑 ↔ ((𝜓 ∧ (𝜒𝐴 = 𝐵)) ∨ (𝜒 ∧ (𝜓𝐴 = 𝐵)))))
4 orddi 1009 . . 3 (((𝜓 ∧ (𝜒𝐴 = 𝐵)) ∨ (𝜒 ∧ (𝜓𝐴 = 𝐵))) ↔ (((𝜓𝜒) ∧ (𝜓 ∨ (𝜓𝐴 = 𝐵))) ∧ (((𝜒𝐴 = 𝐵) ∨ 𝜒) ∧ ((𝜒𝐴 = 𝐵) ∨ (𝜓𝐴 = 𝐵)))))
5 curryax 893 . . . . . 6 (𝜓 ∨ (𝜓𝐴 = 𝐵))
65biantru 531 . . . . 5 ((𝜓𝜒) ↔ ((𝜓𝜒) ∧ (𝜓 ∨ (𝜓𝐴 = 𝐵))))
76bicomi 223 . . . 4 (((𝜓𝜒) ∧ (𝜓 ∨ (𝜓𝐴 = 𝐵))) ↔ (𝜓𝜒))
8 curryax 893 . . . . . . . 8 (𝜒 ∨ (𝜒𝐴 = 𝐵))
9 orcom 869 . . . . . . . 8 (((𝜒𝐴 = 𝐵) ∨ 𝜒) ↔ (𝜒 ∨ (𝜒𝐴 = 𝐵)))
108, 9mpbir 230 . . . . . . 7 ((𝜒𝐴 = 𝐵) ∨ 𝜒)
1110biantrur 532 . . . . . 6 (((𝜒𝐴 = 𝐵) ∨ (𝜓𝐴 = 𝐵)) ↔ (((𝜒𝐴 = 𝐵) ∨ 𝜒) ∧ ((𝜒𝐴 = 𝐵) ∨ (𝜓𝐴 = 𝐵))))
1211bicomi 223 . . . . 5 ((((𝜒𝐴 = 𝐵) ∨ 𝜒) ∧ ((𝜒𝐴 = 𝐵) ∨ (𝜓𝐴 = 𝐵))) ↔ ((𝜒𝐴 = 𝐵) ∨ (𝜓𝐴 = 𝐵)))
13 pm4.79 1003 . . . . 5 (((𝜒𝐴 = 𝐵) ∨ (𝜓𝐴 = 𝐵)) ↔ ((𝜒𝜓) → 𝐴 = 𝐵))
1412, 13bitri 275 . . . 4 ((((𝜒𝐴 = 𝐵) ∨ 𝜒) ∧ ((𝜒𝐴 = 𝐵) ∨ (𝜓𝐴 = 𝐵))) ↔ ((𝜒𝜓) → 𝐴 = 𝐵))
157, 14anbi12i 628 . . 3 ((((𝜓𝜒) ∧ (𝜓 ∨ (𝜓𝐴 = 𝐵))) ∧ (((𝜒𝐴 = 𝐵) ∨ 𝜒) ∧ ((𝜒𝐴 = 𝐵) ∨ (𝜓𝐴 = 𝐵)))) ↔ ((𝜓𝜒) ∧ ((𝜒𝜓) → 𝐴 = 𝐵)))
164, 15bitri 275 . 2 (((𝜓 ∧ (𝜒𝐴 = 𝐵)) ∨ (𝜒 ∧ (𝜓𝐴 = 𝐵))) ↔ ((𝜓𝜒) ∧ ((𝜒𝜓) → 𝐴 = 𝐵)))
173, 16bitrdi 287 1 ((𝐴𝑉𝐵𝑊) → (∃!𝑥 ∈ {𝐴, 𝐵}𝜑 ↔ ((𝜓𝜒) ∧ ((𝜒𝜓) → 𝐴 = 𝐵))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 397  wo 846   = wceq 1542  wcel 2107  ∃!wreu 3354  {cpr 4593
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2708
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3an 1090  df-tru 1545  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2890  df-ral 3066  df-rex 3075  df-rmo 3356  df-reu 3357  df-v 3450  df-sbc 3745  df-un 3920  df-sn 4592  df-pr 4594
This theorem is referenced by:  reurexprg  4670
  Copyright terms: Public domain W3C validator