ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  prel12 Structured version   GIF version

Theorem prel12 3533
Description: Equality of two unordered pairs. (Contributed by NM, 17-Oct-1996.)
Hypotheses
Ref Expression
preq12b.1 A V
preq12b.2 B V
preq12b.3 𝐶 V
preq12b.4 𝐷 V
Assertion
Ref Expression
prel12 A = B → ({A, B} = {𝐶, 𝐷} ↔ (A {𝐶, 𝐷} B {𝐶, 𝐷})))

Proof of Theorem prel12
StepHypRef Expression
1 preq12b.1 . . . . 5 A V
21prid1 3467 . . . 4 A {A, B}
3 eleq2 2098 . . . 4 ({A, B} = {𝐶, 𝐷} → (A {A, B} ↔ A {𝐶, 𝐷}))
42, 3mpbii 136 . . 3 ({A, B} = {𝐶, 𝐷} → A {𝐶, 𝐷})
5 preq12b.2 . . . . 5 B V
65prid2 3468 . . . 4 B {A, B}
7 eleq2 2098 . . . 4 ({A, B} = {𝐶, 𝐷} → (B {A, B} ↔ B {𝐶, 𝐷}))
86, 7mpbii 136 . . 3 ({A, B} = {𝐶, 𝐷} → B {𝐶, 𝐷})
94, 8jca 290 . 2 ({A, B} = {𝐶, 𝐷} → (A {𝐶, 𝐷} B {𝐶, 𝐷}))
101elpr 3385 . . . 4 (A {𝐶, 𝐷} ↔ (A = 𝐶 A = 𝐷))
11 eqeq2 2046 . . . . . . . . . . . 12 (B = 𝐷 → (A = BA = 𝐷))
1211notbid 591 . . . . . . . . . . 11 (B = 𝐷 → (¬ A = B ↔ ¬ A = 𝐷))
13 orel2 644 . . . . . . . . . . 11 A = 𝐷 → ((A = 𝐶 A = 𝐷) → A = 𝐶))
1412, 13syl6bi 152 . . . . . . . . . 10 (B = 𝐷 → (¬ A = B → ((A = 𝐶 A = 𝐷) → A = 𝐶)))
1514com3l 75 . . . . . . . . 9 A = B → ((A = 𝐶 A = 𝐷) → (B = 𝐷A = 𝐶)))
1615imp 115 . . . . . . . 8 ((¬ A = B (A = 𝐶 A = 𝐷)) → (B = 𝐷A = 𝐶))
1716ancrd 309 . . . . . . 7 ((¬ A = B (A = 𝐶 A = 𝐷)) → (B = 𝐷 → (A = 𝐶 B = 𝐷)))
18 eqeq2 2046 . . . . . . . . . . . 12 (B = 𝐶 → (A = BA = 𝐶))
1918notbid 591 . . . . . . . . . . 11 (B = 𝐶 → (¬ A = B ↔ ¬ A = 𝐶))
20 orel1 643 . . . . . . . . . . 11 A = 𝐶 → ((A = 𝐶 A = 𝐷) → A = 𝐷))
2119, 20syl6bi 152 . . . . . . . . . 10 (B = 𝐶 → (¬ A = B → ((A = 𝐶 A = 𝐷) → A = 𝐷)))
2221com3l 75 . . . . . . . . 9 A = B → ((A = 𝐶 A = 𝐷) → (B = 𝐶A = 𝐷)))
2322imp 115 . . . . . . . 8 ((¬ A = B (A = 𝐶 A = 𝐷)) → (B = 𝐶A = 𝐷))
2423ancrd 309 . . . . . . 7 ((¬ A = B (A = 𝐶 A = 𝐷)) → (B = 𝐶 → (A = 𝐷 B = 𝐶)))
2517, 24orim12d 699 . . . . . 6 ((¬ A = B (A = 𝐶 A = 𝐷)) → ((B = 𝐷 B = 𝐶) → ((A = 𝐶 B = 𝐷) (A = 𝐷 B = 𝐶))))
265elpr 3385 . . . . . . 7 (B {𝐶, 𝐷} ↔ (B = 𝐶 B = 𝐷))
27 orcom 646 . . . . . . 7 ((B = 𝐶 B = 𝐷) ↔ (B = 𝐷 B = 𝐶))
2826, 27bitri 173 . . . . . 6 (B {𝐶, 𝐷} ↔ (B = 𝐷 B = 𝐶))
29 preq12b.3 . . . . . . 7 𝐶 V
30 preq12b.4 . . . . . . 7 𝐷 V
311, 5, 29, 30preq12b 3532 . . . . . 6 ({A, B} = {𝐶, 𝐷} ↔ ((A = 𝐶 B = 𝐷) (A = 𝐷 B = 𝐶)))
3225, 28, 313imtr4g 194 . . . . 5 ((¬ A = B (A = 𝐶 A = 𝐷)) → (B {𝐶, 𝐷} → {A, B} = {𝐶, 𝐷}))
3332ex 108 . . . 4 A = B → ((A = 𝐶 A = 𝐷) → (B {𝐶, 𝐷} → {A, B} = {𝐶, 𝐷})))
3410, 33syl5bi 141 . . 3 A = B → (A {𝐶, 𝐷} → (B {𝐶, 𝐷} → {A, B} = {𝐶, 𝐷})))
3534impd 242 . 2 A = B → ((A {𝐶, 𝐷} B {𝐶, 𝐷}) → {A, B} = {𝐶, 𝐷}))
369, 35impbid2 131 1 A = B → ({A, B} = {𝐶, 𝐷} ↔ (A {𝐶, 𝐷} B {𝐶, 𝐷})))
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4   wa 97  wb 98   wo 628   = wceq 1242   wcel 1390  Vcvv 2551  {cpr 3368
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 99  ax-ia2 100  ax-ia3 101  ax-in1 544  ax-in2 545  ax-io 629  ax-5 1333  ax-7 1334  ax-gen 1335  ax-ie1 1379  ax-ie2 1380  ax-8 1392  ax-10 1393  ax-11 1394  ax-i12 1395  ax-bnd 1396  ax-4 1397  ax-17 1416  ax-i9 1420  ax-ial 1424  ax-i5r 1425  ax-ext 2019
This theorem depends on definitions:  df-bi 110  df-tru 1245  df-nf 1347  df-sb 1643  df-clab 2024  df-cleq 2030  df-clel 2033  df-nfc 2164  df-v 2553  df-un 2916  df-sn 3373  df-pr 3374
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator