Users' Mathboxes Mathbox for Scott Fenton < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  altopthsn Structured version   Visualization version   GIF version

Theorem altopthsn 35237
Description: Two alternate ordered pairs are equal iff the singletons of their respective elements are equal. Note that this holds regardless of sethood of any of the elements. (Contributed by Scott Fenton, 16-Apr-2012.)
Assertion
Ref Expression
altopthsn (⟪𝐴, 𝐵⟫ = ⟪𝐶, 𝐷⟫ ↔ ({𝐴} = {𝐶} ∧ {𝐵} = {𝐷}))

Proof of Theorem altopthsn
StepHypRef Expression
1 df-altop 35234 . . 3 𝐴, 𝐵⟫ = {{𝐴}, {𝐴, {𝐵}}}
2 df-altop 35234 . . 3 𝐶, 𝐷⟫ = {{𝐶}, {𝐶, {𝐷}}}
31, 2eqeq12i 2748 . 2 (⟪𝐴, 𝐵⟫ = ⟪𝐶, 𝐷⟫ ↔ {{𝐴}, {𝐴, {𝐵}}} = {{𝐶}, {𝐶, {𝐷}}})
4 snex 5430 . . . . . 6 {𝐴} ∈ V
5 prex 5431 . . . . . 6 {𝐴, {𝐵}} ∈ V
6 snex 5430 . . . . . 6 {𝐶} ∈ V
7 prex 5431 . . . . . 6 {𝐶, {𝐷}} ∈ V
84, 5, 6, 7preq12b 4850 . . . . 5 ({{𝐴}, {𝐴, {𝐵}}} = {{𝐶}, {𝐶, {𝐷}}} ↔ (({𝐴} = {𝐶} ∧ {𝐴, {𝐵}} = {𝐶, {𝐷}}) ∨ ({𝐴} = {𝐶, {𝐷}} ∧ {𝐴, {𝐵}} = {𝐶})))
9 simpl 481 . . . . . 6 (({𝐴} = {𝐶} ∧ {𝐴, {𝐵}} = {𝐶, {𝐷}}) → {𝐴} = {𝐶})
10 snsspr1 4816 . . . . . . . . 9 {𝐴} ⊆ {𝐴, {𝐵}}
11 sseq2 4007 . . . . . . . . 9 ({𝐴, {𝐵}} = {𝐶} → ({𝐴} ⊆ {𝐴, {𝐵}} ↔ {𝐴} ⊆ {𝐶}))
1210, 11mpbii 232 . . . . . . . 8 ({𝐴, {𝐵}} = {𝐶} → {𝐴} ⊆ {𝐶})
1312adantl 480 . . . . . . 7 (({𝐴} = {𝐶, {𝐷}} ∧ {𝐴, {𝐵}} = {𝐶}) → {𝐴} ⊆ {𝐶})
14 snsspr1 4816 . . . . . . . . 9 {𝐶} ⊆ {𝐶, {𝐷}}
15 sseq2 4007 . . . . . . . . 9 ({𝐴} = {𝐶, {𝐷}} → ({𝐶} ⊆ {𝐴} ↔ {𝐶} ⊆ {𝐶, {𝐷}}))
1614, 15mpbiri 257 . . . . . . . 8 ({𝐴} = {𝐶, {𝐷}} → {𝐶} ⊆ {𝐴})
1716adantr 479 . . . . . . 7 (({𝐴} = {𝐶, {𝐷}} ∧ {𝐴, {𝐵}} = {𝐶}) → {𝐶} ⊆ {𝐴})
1813, 17eqssd 3998 . . . . . 6 (({𝐴} = {𝐶, {𝐷}} ∧ {𝐴, {𝐵}} = {𝐶}) → {𝐴} = {𝐶})
199, 18jaoi 853 . . . . 5 ((({𝐴} = {𝐶} ∧ {𝐴, {𝐵}} = {𝐶, {𝐷}}) ∨ ({𝐴} = {𝐶, {𝐷}} ∧ {𝐴, {𝐵}} = {𝐶})) → {𝐴} = {𝐶})
208, 19sylbi 216 . . . 4 ({{𝐴}, {𝐴, {𝐵}}} = {{𝐶}, {𝐶, {𝐷}}} → {𝐴} = {𝐶})
21 uneq1 4155 . . . . . . . . . 10 ({𝐴} = {𝐶} → ({𝐴} ∪ {{𝐵}}) = ({𝐶} ∪ {{𝐵}}))
22 df-pr 4630 . . . . . . . . . 10 {𝐴, {𝐵}} = ({𝐴} ∪ {{𝐵}})
23 df-pr 4630 . . . . . . . . . 10 {𝐶, {𝐵}} = ({𝐶} ∪ {{𝐵}})
2421, 22, 233eqtr4g 2795 . . . . . . . . 9 ({𝐴} = {𝐶} → {𝐴, {𝐵}} = {𝐶, {𝐵}})
2524preq2d 4743 . . . . . . . 8 ({𝐴} = {𝐶} → {{𝐴}, {𝐴, {𝐵}}} = {{𝐴}, {𝐶, {𝐵}}})
26 preq1 4736 . . . . . . . 8 ({𝐴} = {𝐶} → {{𝐴}, {𝐶, {𝐵}}} = {{𝐶}, {𝐶, {𝐵}}})
2725, 26eqtrd 2770 . . . . . . 7 ({𝐴} = {𝐶} → {{𝐴}, {𝐴, {𝐵}}} = {{𝐶}, {𝐶, {𝐵}}})
2827eqeq1d 2732 . . . . . 6 ({𝐴} = {𝐶} → ({{𝐴}, {𝐴, {𝐵}}} = {{𝐶}, {𝐶, {𝐷}}} ↔ {{𝐶}, {𝐶, {𝐵}}} = {{𝐶}, {𝐶, {𝐷}}}))
2928biimpd 228 . . . . 5 ({𝐴} = {𝐶} → ({{𝐴}, {𝐴, {𝐵}}} = {{𝐶}, {𝐶, {𝐷}}} → {{𝐶}, {𝐶, {𝐵}}} = {{𝐶}, {𝐶, {𝐷}}}))
30 prex 5431 . . . . . . 7 {𝐶, {𝐵}} ∈ V
3130, 7preqr2 4849 . . . . . 6 ({{𝐶}, {𝐶, {𝐵}}} = {{𝐶}, {𝐶, {𝐷}}} → {𝐶, {𝐵}} = {𝐶, {𝐷}})
32 snex 5430 . . . . . . 7 {𝐵} ∈ V
33 snex 5430 . . . . . . 7 {𝐷} ∈ V
3432, 33preqr2 4849 . . . . . 6 ({𝐶, {𝐵}} = {𝐶, {𝐷}} → {𝐵} = {𝐷})
3531, 34syl 17 . . . . 5 ({{𝐶}, {𝐶, {𝐵}}} = {{𝐶}, {𝐶, {𝐷}}} → {𝐵} = {𝐷})
3629, 35syl6com 37 . . . 4 ({{𝐴}, {𝐴, {𝐵}}} = {{𝐶}, {𝐶, {𝐷}}} → ({𝐴} = {𝐶} → {𝐵} = {𝐷}))
3720, 36jcai 515 . . 3 ({{𝐴}, {𝐴, {𝐵}}} = {{𝐶}, {𝐶, {𝐷}}} → ({𝐴} = {𝐶} ∧ {𝐵} = {𝐷}))
38 preq2 4737 . . . . 5 ({𝐵} = {𝐷} → {𝐶, {𝐵}} = {𝐶, {𝐷}})
3938preq2d 4743 . . . 4 ({𝐵} = {𝐷} → {{𝐶}, {𝐶, {𝐵}}} = {{𝐶}, {𝐶, {𝐷}}})
4027, 39sylan9eq 2790 . . 3 (({𝐴} = {𝐶} ∧ {𝐵} = {𝐷}) → {{𝐴}, {𝐴, {𝐵}}} = {{𝐶}, {𝐶, {𝐷}}})
4137, 40impbii 208 . 2 ({{𝐴}, {𝐴, {𝐵}}} = {{𝐶}, {𝐶, {𝐷}}} ↔ ({𝐴} = {𝐶} ∧ {𝐵} = {𝐷}))
423, 41bitri 274 1 (⟪𝐴, 𝐵⟫ = ⟪𝐶, 𝐷⟫ ↔ ({𝐴} = {𝐶} ∧ {𝐵} = {𝐷}))
Colors of variables: wff setvar class
Syntax hints:  wb 205  wa 394  wo 843   = wceq 1539  cun 3945  wss 3947  {csn 4627  {cpr 4629  caltop 35232
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1911  ax-6 1969  ax-7 2009  ax-8 2106  ax-9 2114  ax-ext 2701  ax-sep 5298  ax-nul 5305  ax-pr 5426
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 844  df-tru 1542  df-fal 1552  df-ex 1780  df-sb 2066  df-clab 2708  df-cleq 2722  df-clel 2808  df-v 3474  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-nul 4322  df-sn 4628  df-pr 4630  df-altop 35234
This theorem is referenced by:  altopeq12  35238  altopth1  35241  altopth2  35242  altopthg  35243  altopthbg  35244
  Copyright terms: Public domain W3C validator