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

Theorem opthwiener 4888
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 4127 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 4826 . . . . . . . . . . . 12 {{𝐵}} ∈ V
32prid2 4237 . . . . . . . . . . 11 {{𝐵}} ∈ {{{𝐴}, ∅}, {{𝐵}}}
4 eleq2 2672 . . . . . . . . . . 11 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → ({{𝐵}} ∈ {{{𝐴}, ∅}, {{𝐵}}} ↔ {{𝐵}} ∈ {{{𝐶}, ∅}, {{𝐷}}}))
53, 4mpbii 221 . . . . . . . . . 10 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → {{𝐵}} ∈ {{{𝐶}, ∅}, {{𝐷}}})
62elpr 4141 . . . . . . . . . 10 ({{𝐵}} ∈ {{{𝐶}, ∅}, {{𝐷}}} ↔ ({{𝐵}} = {{𝐶}, ∅} ∨ {{𝐵}} = {{𝐷}}))
75, 6sylib 206 . . . . . . . . 9 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → ({{𝐵}} = {{𝐶}, ∅} ∨ {{𝐵}} = {{𝐷}}))
8 0ex 4709 . . . . . . . . . . . . 13 ∅ ∈ V
98prid2 4237 . . . . . . . . . . . 12 ∅ ∈ {{𝐶}, ∅}
10 opthw.2 . . . . . . . . . . . . . 14 𝐵 ∈ V
1110snnz 4247 . . . . . . . . . . . . 13 {𝐵} ≠ ∅
128elsn 4135 . . . . . . . . . . . . . 14 (∅ ∈ {{𝐵}} ↔ ∅ = {𝐵})
13 eqcom 2612 . . . . . . . . . . . . . 14 (∅ = {𝐵} ↔ {𝐵} = ∅)
1412, 13bitri 262 . . . . . . . . . . . . 13 (∅ ∈ {{𝐵}} ↔ {𝐵} = ∅)
1511, 14nemtbir 2872 . . . . . . . . . . . 12 ¬ ∅ ∈ {{𝐵}}
16 nelneq2 2708 . . . . . . . . . . . 12 ((∅ ∈ {{𝐶}, ∅} ∧ ¬ ∅ ∈ {{𝐵}}) → ¬ {{𝐶}, ∅} = {{𝐵}})
179, 15, 16mp2an 703 . . . . . . . . . . 11 ¬ {{𝐶}, ∅} = {{𝐵}}
18 eqcom 2612 . . . . . . . . . . 11 ({{𝐶}, ∅} = {{𝐵}} ↔ {{𝐵}} = {{𝐶}, ∅})
1917, 18mtbi 310 . . . . . . . . . 10 ¬ {{𝐵}} = {{𝐶}, ∅}
20 biorf 418 . . . . . . . . . 10 (¬ {{𝐵}} = {{𝐶}, ∅} → ({{𝐵}} = {{𝐷}} ↔ ({{𝐵}} = {{𝐶}, ∅} ∨ {{𝐵}} = {{𝐷}})))
2119, 20ax-mp 5 . . . . . . . . 9 ({{𝐵}} = {{𝐷}} ↔ ({{𝐵}} = {{𝐶}, ∅} ∨ {{𝐵}} = {{𝐷}}))
227, 21sylibr 222 . . . . . . . 8 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → {{𝐵}} = {{𝐷}})
2322preq2d 4214 . . . . . . 7 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → {{{𝐶}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}})
241, 23eqtr4d 2642 . . . . . 6 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → {{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐵}}})
25 prex 4827 . . . . . . 7 {{𝐴}, ∅} ∈ V
26 prex 4827 . . . . . . 7 {{𝐶}, ∅} ∈ V
2725, 26preqr1 4310 . . . . . 6 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐵}}} → {{𝐴}, ∅} = {{𝐶}, ∅})
2824, 27syl 17 . . . . 5 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → {{𝐴}, ∅} = {{𝐶}, ∅})
29 snex 4826 . . . . . 6 {𝐴} ∈ V
30 snex 4826 . . . . . 6 {𝐶} ∈ V
3129, 30preqr1 4310 . . . . 5 ({{𝐴}, ∅} = {{𝐶}, ∅} → {𝐴} = {𝐶})
3228, 31syl 17 . . . 4 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → {𝐴} = {𝐶})
33 opthw.1 . . . . 5 𝐴 ∈ V
3433sneqr 4302 . . . 4 ({𝐴} = {𝐶} → 𝐴 = 𝐶)
3532, 34syl 17 . . 3 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → 𝐴 = 𝐶)
36 snex 4826 . . . . . 6 {𝐵} ∈ V
3736sneqr 4302 . . . . 5 ({{𝐵}} = {{𝐷}} → {𝐵} = {𝐷})
3822, 37syl 17 . . . 4 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → {𝐵} = {𝐷})
3910sneqr 4302 . . . 4 ({𝐵} = {𝐷} → 𝐵 = 𝐷)
4038, 39syl 17 . . 3 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → 𝐵 = 𝐷)
4135, 40jca 552 . 2 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} → (𝐴 = 𝐶𝐵 = 𝐷))
42 sneq 4130 . . . . 5 (𝐴 = 𝐶 → {𝐴} = {𝐶})
4342preq1d 4213 . . . 4 (𝐴 = 𝐶 → {{𝐴}, ∅} = {{𝐶}, ∅})
4443preq1d 4213 . . 3 (𝐴 = 𝐶 → {{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐵}}})
45 sneq 4130 . . . . 5 (𝐵 = 𝐷 → {𝐵} = {𝐷})
46 sneq 4130 . . . . 5 ({𝐵} = {𝐷} → {{𝐵}} = {{𝐷}})
4745, 46syl 17 . . . 4 (𝐵 = 𝐷 → {{𝐵}} = {{𝐷}})
4847preq2d 4214 . . 3 (𝐵 = 𝐷 → {{{𝐶}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}})
4944, 48sylan9eq 2659 . 2 ((𝐴 = 𝐶𝐵 = 𝐷) → {{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}})
5041, 49impbii 197 1 ({{{𝐴}, ∅}, {{𝐵}}} = {{{𝐶}, ∅}, {{𝐷}}} ↔ (𝐴 = 𝐶𝐵 = 𝐷))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wb 194  wo 381  wa 382   = wceq 1474  wcel 1975  Vcvv 3168  c0 3869  {csn 4120  {cpr 4122
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1711  ax-4 1726  ax-5 1825  ax-6 1873  ax-7 1920  ax-9 1984  ax-10 2004  ax-11 2019  ax-12 2031  ax-13 2228  ax-ext 2585  ax-sep 4699  ax-nul 4708  ax-pr 4824
This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-tru 1477  df-ex 1695  df-nf 1700  df-sb 1866  df-clab 2592  df-cleq 2598  df-clel 2601  df-nfc 2735  df-ne 2777  df-v 3170  df-dif 3538  df-un 3540  df-nul 3870  df-sn 4121  df-pr 4123
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator