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

Theorem reuprg 4708
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 4707 . 2 ((𝐴𝑉𝐵𝑊) → (∃!𝑥 ∈ {𝐴, 𝐵}𝜑 ↔ ((𝜓 ∧ (𝜒𝐴 = 𝐵)) ∨ (𝜒 ∧ (𝜓𝐴 = 𝐵)))))
4 orddi 1011 . . 3 (((𝜓 ∧ (𝜒𝐴 = 𝐵)) ∨ (𝜒 ∧ (𝜓𝐴 = 𝐵))) ↔ (((𝜓𝜒) ∧ (𝜓 ∨ (𝜓𝐴 = 𝐵))) ∧ (((𝜒𝐴 = 𝐵) ∨ 𝜒) ∧ ((𝜒𝐴 = 𝐵) ∨ (𝜓𝐴 = 𝐵)))))
5 curryax 893 . . . . . 6 (𝜓 ∨ (𝜓𝐴 = 𝐵))
65biantru 529 . . . . 5 ((𝜓𝜒) ↔ ((𝜓𝜒) ∧ (𝜓 ∨ (𝜓𝐴 = 𝐵))))
76bicomi 224 . . . 4 (((𝜓𝜒) ∧ (𝜓 ∨ (𝜓𝐴 = 𝐵))) ↔ (𝜓𝜒))
8 curryax 893 . . . . . . . 8 (𝜒 ∨ (𝜒𝐴 = 𝐵))
9 orcom 870 . . . . . . . 8 (((𝜒𝐴 = 𝐵) ∨ 𝜒) ↔ (𝜒 ∨ (𝜒𝐴 = 𝐵)))
108, 9mpbir 231 . . . . . . 7 ((𝜒𝐴 = 𝐵) ∨ 𝜒)
1110biantrur 530 . . . . . 6 (((𝜒𝐴 = 𝐵) ∨ (𝜓𝐴 = 𝐵)) ↔ (((𝜒𝐴 = 𝐵) ∨ 𝜒) ∧ ((𝜒𝐴 = 𝐵) ∨ (𝜓𝐴 = 𝐵))))
1211bicomi 224 . . . . 5 ((((𝜒𝐴 = 𝐵) ∨ 𝜒) ∧ ((𝜒𝐴 = 𝐵) ∨ (𝜓𝐴 = 𝐵))) ↔ ((𝜒𝐴 = 𝐵) ∨ (𝜓𝐴 = 𝐵)))
13 pm4.79 1005 . . . . 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 206  wa 395  wo 847   = wceq 1537  wcel 2106  ∃!wreu 3376  {cpr 4633
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1908  ax-6 1965  ax-7 2005  ax-8 2108  ax-9 2116  ax-10 2139  ax-11 2155  ax-12 2175  ax-ext 2706
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1540  df-ex 1777  df-nf 1781  df-sb 2063  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2727  df-clel 2814  df-nfc 2890  df-ral 3060  df-rex 3069  df-rmo 3378  df-reu 3379  df-v 3480  df-sbc 3792  df-un 3968  df-sn 4632  df-pr 4634
This theorem is referenced by:  reurexprg  4709
  Copyright terms: Public domain W3C validator