MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  pm54.43 Unicode version

Theorem pm54.43 7821
Description: Theorem *54.43 of [WhiteheadRussell] p. 360. "From this proposition it will follow, when arithmetical addition has been defined, that 1+1=2." See http://en.wikipedia.org/wiki/Principia_Mathematica#Quotations. This theorem states that two sets of cardinality 1 are disjoint iff their union has cardinality 2.

Whitehead and Russell define 1 as the collection of all sets with cardinality 1 (i.e. all singletons; see card1 7789), so that their  A  e.  1 means, in our notation,  A  e.  { x  |  (
card `  x )  =  1o } which is the same as  A  ~~  1o by pm54.43lem 7820. We do not have several of their earlier lemmas available (which would otherwise be unused by our different approach to arithmetic), so our proof is longer. (It is also longer because we must show every detail.)

Theorem pm110.643 7991 shows the derivation of 1+1=2 for cardinal numbers from this theorem. (Contributed by NM, 4-Apr-2007.)

Assertion
Ref Expression
pm54.43  |-  ( ( A  ~~  1o  /\  B  ~~  1o )  -> 
( ( A  i^i  B )  =  (/)  <->  ( A  u.  B )  ~~  2o ) )

Proof of Theorem pm54.43
Dummy variables  x  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 1on 6668 . . . . . . . 8  |-  1o  e.  On
21elexi 2909 . . . . . . 7  |-  1o  e.  _V
32ensn1 7108 . . . . . 6  |-  { 1o }  ~~  1o
43ensymi 7094 . . . . 5  |-  1o  ~~  { 1o }
5 entr 7096 . . . . 5  |-  ( ( B  ~~  1o  /\  1o  ~~  { 1o }
)  ->  B  ~~  { 1o } )
64, 5mpan2 653 . . . 4  |-  ( B 
~~  1o  ->  B  ~~  { 1o } )
71onirri 4629 . . . . . . 7  |-  -.  1o  e.  1o
8 disjsn 3812 . . . . . . 7  |-  ( ( 1o  i^i  { 1o } )  =  (/)  <->  -.  1o  e.  1o )
97, 8mpbir 201 . . . . . 6  |-  ( 1o 
i^i  { 1o } )  =  (/)
10 unen 7126 . . . . . 6  |-  ( ( ( A  ~~  1o  /\  B  ~~  { 1o } )  /\  (
( A  i^i  B
)  =  (/)  /\  ( 1o  i^i  { 1o }
)  =  (/) ) )  ->  ( A  u.  B )  ~~  ( 1o  u.  { 1o }
) )
119, 10mpanr2 666 . . . . 5  |-  ( ( ( A  ~~  1o  /\  B  ~~  { 1o } )  /\  ( A  i^i  B )  =  (/) )  ->  ( A  u.  B )  ~~  ( 1o  u.  { 1o } ) )
1211ex 424 . . . 4  |-  ( ( A  ~~  1o  /\  B  ~~  { 1o }
)  ->  ( ( A  i^i  B )  =  (/)  ->  ( A  u.  B )  ~~  ( 1o  u.  { 1o }
) ) )
136, 12sylan2 461 . . 3  |-  ( ( A  ~~  1o  /\  B  ~~  1o )  -> 
( ( A  i^i  B )  =  (/)  ->  ( A  u.  B )  ~~  ( 1o  u.  { 1o } ) ) )
14 df-2o 6662 . . . . 5  |-  2o  =  suc  1o
15 df-suc 4529 . . . . 5  |-  suc  1o  =  ( 1o  u.  { 1o } )
1614, 15eqtri 2408 . . . 4  |-  2o  =  ( 1o  u.  { 1o } )
1716breq2i 4162 . . 3  |-  ( ( A  u.  B ) 
~~  2o  <->  ( A  u.  B )  ~~  ( 1o  u.  { 1o }
) )
1813, 17syl6ibr 219 . 2  |-  ( ( A  ~~  1o  /\  B  ~~  1o )  -> 
( ( A  i^i  B )  =  (/)  ->  ( A  u.  B )  ~~  2o ) )
19 en1 7111 . . 3  |-  ( A 
~~  1o  <->  E. x  A  =  { x } )
20 en1 7111 . . 3  |-  ( B 
~~  1o  <->  E. y  B  =  { y } )
21 unidm 3434 . . . . . . . . . . . . . 14  |-  ( { x }  u.  {
x } )  =  { x }
22 sneq 3769 . . . . . . . . . . . . . . 15  |-  ( x  =  y  ->  { x }  =  { y } )
2322uneq2d 3445 . . . . . . . . . . . . . 14  |-  ( x  =  y  ->  ( { x }  u.  { x } )  =  ( { x }  u.  { y } ) )
2421, 23syl5reqr 2435 . . . . . . . . . . . . 13  |-  ( x  =  y  ->  ( { x }  u.  { y } )  =  { x } )
25 vex 2903 . . . . . . . . . . . . . . 15  |-  x  e. 
_V
2625ensn1 7108 . . . . . . . . . . . . . 14  |-  { x }  ~~  1o
27 1sdom2 7244 . . . . . . . . . . . . . 14  |-  1o  ~<  2o
28 ensdomtr 7180 . . . . . . . . . . . . . 14  |-  ( ( { x }  ~~  1o  /\  1o  ~<  2o )  ->  { x }  ~<  2o )
2926, 27, 28mp2an 654 . . . . . . . . . . . . 13  |-  { x }  ~<  2o
3024, 29syl6eqbr 4191 . . . . . . . . . . . 12  |-  ( x  =  y  ->  ( { x }  u.  { y } )  ~<  2o )
31 sdomnen 7073 . . . . . . . . . . . 12  |-  ( ( { x }  u.  { y } )  ~<  2o  ->  -.  ( {
x }  u.  {
y } )  ~~  2o )
3230, 31syl 16 . . . . . . . . . . 11  |-  ( x  =  y  ->  -.  ( { x }  u.  { y } )  ~~  2o )
3332necon2ai 2596 . . . . . . . . . 10  |-  ( ( { x }  u.  { y } )  ~~  2o  ->  x  =/=  y
)
34 disjsn2 3813 . . . . . . . . . 10  |-  ( x  =/=  y  ->  ( { x }  i^i  { y } )  =  (/) )
3533, 34syl 16 . . . . . . . . 9  |-  ( ( { x }  u.  { y } )  ~~  2o  ->  ( { x }  i^i  { y } )  =  (/) )
3635a1i 11 . . . . . . . 8  |-  ( ( A  =  { x }  /\  B  =  {
y } )  -> 
( ( { x }  u.  { y } )  ~~  2o  ->  ( { x }  i^i  { y } )  =  (/) ) )
37 uneq12 3440 . . . . . . . . 9  |-  ( ( A  =  { x }  /\  B  =  {
y } )  -> 
( A  u.  B
)  =  ( { x }  u.  {
y } ) )
3837breq1d 4164 . . . . . . . 8  |-  ( ( A  =  { x }  /\  B  =  {
y } )  -> 
( ( A  u.  B )  ~~  2o  <->  ( { x }  u.  { y } )  ~~  2o ) )
39 ineq12 3481 . . . . . . . . 9  |-  ( ( A  =  { x }  /\  B  =  {
y } )  -> 
( A  i^i  B
)  =  ( { x }  i^i  {
y } ) )
4039eqeq1d 2396 . . . . . . . 8  |-  ( ( A  =  { x }  /\  B  =  {
y } )  -> 
( ( A  i^i  B )  =  (/)  <->  ( {
x }  i^i  {
y } )  =  (/) ) )
4136, 38, 403imtr4d 260 . . . . . . 7  |-  ( ( A  =  { x }  /\  B  =  {
y } )  -> 
( ( A  u.  B )  ~~  2o  ->  ( A  i^i  B
)  =  (/) ) )
4241ex 424 . . . . . 6  |-  ( A  =  { x }  ->  ( B  =  {
y }  ->  (
( A  u.  B
)  ~~  2o  ->  ( A  i^i  B )  =  (/) ) ) )
4342exlimdv 1643 . . . . 5  |-  ( A  =  { x }  ->  ( E. y  B  =  { y }  ->  ( ( A  u.  B )  ~~  2o  ->  ( A  i^i  B )  =  (/) ) ) )
4443exlimiv 1641 . . . 4  |-  ( E. x  A  =  {
x }  ->  ( E. y  B  =  { y }  ->  ( ( A  u.  B
)  ~~  2o  ->  ( A  i^i  B )  =  (/) ) ) )
4544imp 419 . . 3  |-  ( ( E. x  A  =  { x }  /\  E. y  B  =  {
y } )  -> 
( ( A  u.  B )  ~~  2o  ->  ( A  i^i  B
)  =  (/) ) )
4619, 20, 45syl2anb 466 . 2  |-  ( ( A  ~~  1o  /\  B  ~~  1o )  -> 
( ( A  u.  B )  ~~  2o  ->  ( A  i^i  B
)  =  (/) ) )
4718, 46impbid 184 1  |-  ( ( A  ~~  1o  /\  B  ~~  1o )  -> 
( ( A  i^i  B )  =  (/)  <->  ( A  u.  B )  ~~  2o ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 177    /\ wa 359   E.wex 1547    = wceq 1649    e. wcel 1717    =/= wne 2551    u. cun 3262    i^i cin 3263   (/)c0 3572   {csn 3758   class class class wbr 4154   Oncon0 4523   suc csuc 4525   1oc1o 6654   2oc2o 6655    ~~ cen 7043    ~< csdm 7045
This theorem is referenced by:  pr2nelem  7822  pm110.643  7991  isprm2lem  13014
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1552  ax-5 1563  ax-17 1623  ax-9 1661  ax-8 1682  ax-13 1719  ax-14 1721  ax-6 1736  ax-7 1741  ax-11 1753  ax-12 1939  ax-ext 2369  ax-sep 4272  ax-nul 4280  ax-pow 4319  ax-pr 4345  ax-un 4642
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3or 937  df-3an 938  df-tru 1325  df-ex 1548  df-nf 1551  df-sb 1656  df-eu 2243  df-mo 2244  df-clab 2375  df-cleq 2381  df-clel 2384  df-nfc 2513  df-ne 2553  df-ral 2655  df-rex 2656  df-reu 2657  df-rab 2659  df-v 2902  df-sbc 3106  df-dif 3267  df-un 3269  df-in 3271  df-ss 3278  df-pss 3280  df-nul 3573  df-if 3684  df-pw 3745  df-sn 3764  df-pr 3765  df-tp 3766  df-op 3767  df-uni 3959  df-br 4155  df-opab 4209  df-tr 4245  df-eprel 4436  df-id 4440  df-po 4445  df-so 4446  df-fr 4483  df-we 4485  df-ord 4526  df-on 4527  df-lim 4528  df-suc 4529  df-om 4787  df-xp 4825  df-rel 4826  df-cnv 4827  df-co 4828  df-dm 4829  df-rn 4830  df-res 4831  df-ima 4832  df-iota 5359  df-fun 5397  df-fn 5398  df-f 5399  df-f1 5400  df-fo 5401  df-f1o 5402  df-fv 5403  df-1o 6661  df-2o 6662  df-er 6842  df-en 7047  df-dom 7048  df-sdom 7049
  Copyright terms: Public domain W3C validator