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

Theorem opthwiener 4966
Description: Justification theorem for the ordered pair definition in Norbert Wiener, "A simplification of the logic of relations," Proc. of the Cambridge Philos. Soc., 1914, vol. 17, pp.387-390. It is also shown as a definition in [Enderton] p. 36 and as Exercise 4.8(b) of [Mendelson] p. 230. It is meaningful only for classes that exist as sets (i.e. are not proper classes). See df-op 4175 for other ordered pair definitions. (Contributed by NM, 28-Sep-2003.)
Hypotheses
Ref Expression
opthw.1 𝐴 ∈ V
opthw.2 𝐵 ∈ V
Assertion
Ref Expression
opthwiener ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} ↔ (𝐴 = 𝐶𝐵 = 𝐷))

Proof of Theorem opthwiener
StepHypRef Expression
1 id 22 . . . . . . 7 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → {{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}})
2 snex 4899 . . . . . . . . . . . 12 {{𝐵}} ∈ V
32prid2 4289 . . . . . . . . . . 11 {{𝐵}} ∈ {{{𝐴}, ∅}, {{𝐵}}}
4 eleq2 2688 . . . . . . . . . . 11 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → ({{𝐵}} ∈ {{{𝐴}, ∅}, {{𝐵}}} ↔ {{𝐵}} ∈ {{{𝐶}, ∅}, {{𝐷}}}))
53, 4mpbii 223 . . . . . . . . . 10 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → {{𝐵}} ∈ {{{𝐶}, ∅}, {{𝐷}}})
62elpr 4189 . . . . . . . . . 10 ({{𝐵}} ∈ {{{𝐶}, ∅}, {{𝐷}}} ↔ ({{𝐵}} = {{𝐶}, ∅} ∨ {{𝐵}} = {{𝐷}}))
75, 6sylib 208 . . . . . . . . 9 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → ({{𝐵}} = {{𝐶}, ∅} ∨ {{𝐵}} = {{𝐷}}))
8 0ex 4781 . . . . . . . . . . . . 13 ∅ ∈ V
98prid2 4289 . . . . . . . . . . . 12 ∅ ∈ {{𝐶}, ∅}
10 opthw.2 . . . . . . . . . . . . . 14 𝐵 ∈ V
1110snnz 4300 . . . . . . . . . . . . 13 {𝐵} ≠ ∅
128elsn 4183 . . . . . . . . . . . . . 14 (∅ ∈ {{𝐵}} ↔ ∅ = {𝐵})
13 eqcom 2627 . . . . . . . . . . . . . 14 (∅ = {𝐵} ↔ {𝐵} = ∅)
1412, 13bitri 264 . . . . . . . . . . . . 13 (∅ ∈ {{𝐵}} ↔ {𝐵} = ∅)
1511, 14nemtbir 2886 . . . . . . . . . . . 12 ¬ ∅ ∈ {{𝐵}}
16 nelneq2 2724 . . . . . . . . . . . 12 ((∅ ∈ {{𝐶}, ∅} ∧ ¬ ∅ ∈ {{𝐵}}) → ¬ {{𝐶}, ∅} = {{𝐵}})
179, 15, 16mp2an 707 . . . . . . . . . . 11 ¬ {{𝐶}, ∅} = {{𝐵}}
18 eqcom 2627 . . . . . . . . . . 11 ({{𝐶}, ∅} = {{𝐵}} ↔ {{𝐵}} = {{𝐶}, ∅})
1917, 18mtbi 312 . . . . . . . . . 10 ¬ {{𝐵}} = {{𝐶}, ∅}
20 biorf 420 . . . . . . . . . 10 (¬ {{𝐵}} = {{𝐶}, ∅} → ({{𝐵}} = {{𝐷}} ↔ ({{𝐵}} = {{𝐶}, ∅} ∨ {{𝐵}} = {{𝐷}})))
2119, 20ax-mp 5 . . . . . . . . 9 ({{𝐵}} = {{𝐷}} ↔ ({{𝐵}} = {{𝐶}, ∅} ∨ {{𝐵}} = {{𝐷}}))
227, 21sylibr 224 . . . . . . . 8 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → {{𝐵}} = {{𝐷}})
2322preq2d 4266 . . . . . . 7 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → {{{𝐶}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}})
241, 23eqtr4d 2657 . . . . . 6 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → {{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐵}}})
25 prex 4900 . . . . . . 7 {{𝐴}, ∅} ∈ V
26 prex 4900 . . . . . . 7 {{𝐶}, ∅} ∈ V
2725, 26preqr1 4370 . . . . . 6 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐵}}} → {{𝐴}, ∅} = {{𝐶}, ∅})
2824, 27syl 17 . . . . 5 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → {{𝐴}, ∅} = {{𝐶}, ∅})
29 snex 4899 . . . . . 6 {𝐴} ∈ V
30 snex 4899 . . . . . 6 {𝐶} ∈ V
3129, 30preqr1 4370 . . . . 5 ({{𝐴}, ∅} = {{𝐶}, ∅} → {𝐴} = {𝐶})
3228, 31syl 17 . . . 4 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → {𝐴} = {𝐶})
33 opthw.1 . . . . 5 𝐴 ∈ V
3433sneqr 4362 . . . 4 ({𝐴} = {𝐶} → 𝐴 = 𝐶)
3532, 34syl 17 . . 3 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → 𝐴 = 𝐶)
36 snex 4899 . . . . . 6 {𝐵} ∈ V
3736sneqr 4362 . . . . 5 ({{𝐵}} = {{𝐷}} → {𝐵} = {𝐷})
3822, 37syl 17 . . . 4 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → {𝐵} = {𝐷})
3910sneqr 4362 . . . 4 ({𝐵} = {𝐷} → 𝐵 = 𝐷)
4038, 39syl 17 . . 3 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → 𝐵 = 𝐷)
4135, 40jca 554 . 2 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → (𝐴 = 𝐶𝐵 = 𝐷))
42 sneq 4178 . . . . 5 (𝐴 = 𝐶 → {𝐴} = {𝐶})
4342preq1d 4265 . . . 4 (𝐴 = 𝐶 → {{𝐴}, ∅} = {{𝐶}, ∅})
4443preq1d 4265 . . 3 (𝐴 = 𝐶 → {{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐵}}})
45 sneq 4178 . . . . 5 (𝐵 = 𝐷 → {𝐵} = {𝐷})
46 sneq 4178 . . . . 5 ({𝐵} = {𝐷} → {{𝐵}} = {{𝐷}})
4745, 46syl 17 . . . 4 (𝐵 = 𝐷 → {{𝐵}} = {{𝐷}})
4847preq2d 4266 . . 3 (𝐵 = 𝐷 → {{{𝐶}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}})
4944, 48sylan9eq 2674 . 2 ((𝐴 = 𝐶𝐵 = 𝐷) → {{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}})
5041, 49impbii 199 1 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} ↔ (𝐴 = 𝐶𝐵 = 𝐷))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wb 196  wo 383  wa 384   = wceq 1481  wcel 1988  Vcvv 3195  c0 3907  {csn 4168  {cpr 4170
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1720  ax-4 1735  ax-5 1837  ax-6 1886  ax-7 1933  ax-9 1997  ax-10 2017  ax-11 2032  ax-12 2045  ax-13 2244  ax-ext 2600  ax-sep 4772  ax-nul 4780  ax-pr 4897
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-tru 1484  df-ex 1703  df-nf 1708  df-sb 1879  df-clab 2607  df-cleq 2613  df-clel 2616  df-nfc 2751  df-ne 2792  df-v 3197  df-dif 3570  df-un 3572  df-nul 3908  df-sn 4169  df-pr 4171
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator