Theorem pm54.43 7601

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 7569), 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 7600. 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 7771 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

Step	Hyp	Ref	Expression
1		1on 6454	. . . . . . . 8 |- 1o e. On
2	1	elexi 2772	. . . . . . 7 |- 1o e. _V
3	2	ensn1 6893	. . . . . 6 |- { 1o } ~~ 1o
4	3	ensymi 6879	. . . . 5 |- 1o ~~ { 1o }
5		entr 6881	. . . . 5 |- ( ( B ~~ 1o /\ 1o ~~ { 1o } ) -> B ~~ { 1o } )
6	4, 5	mpan2 655	. . . 4 |- ( B ~~ 1o -> B ~~ { 1o } )
7	1	onirri 4471	. . . . . . 7 |- -. 1o e. 1o
8		disjsn 3667	. . . . . . 7 |- ( ( 1o i^i { 1o } ) = (/) <-> -. 1o e. 1o )
9	7, 8	mpbir 202	. . . . . 6 |- ( 1o i^i { 1o } ) = (/)
10		unen 6911	. . . . . 6 |- ( ( ( A ~~ 1o /\ B ~~ { 1o } ) /\ ( ( A i^i B ) = (/) /\ ( 1o i^i { 1o } ) = (/) ) ) -> ( A u. B ) ~~ ( 1o u. { 1o } ) )
11	9, 10	mpanr2 668	. . . . 5 |- ( ( ( A ~~ 1o /\ B ~~ { 1o } ) /\ ( A i^i B ) = (/) ) -> ( A u. B ) ~~ ( 1o u. { 1o } ) )
12	11	ex 425	. . . 4 |- ( ( A ~~ 1o /\ B ~~ { 1o } ) -> ( ( A i^i B ) = (/) -> ( A u. B ) ~~ ( 1o u. { 1o } ) ) )
13	6, 12	sylan2 462	. . 3 |- ( ( A ~~ 1o /\ B ~~ 1o ) -> ( ( A i^i B ) = (/) -> ( A u. B ) ~~ ( 1o u. { 1o } ) ) )
14		df-2o 6448	. . . . 5 |- 2o = suc 1o
15		df-suc 4370	. . . . 5 |- suc 1o = ( 1o u. { 1o } )
16	14, 15	eqtri 2278	. . . 4 |- 2o = ( 1o u. { 1o } )
17	16	breq2i 4005	. . 3 |- ( ( A u. B ) ~~ 2o <-> ( A u. B ) ~~ ( 1o u. { 1o } ) )
18	13, 17	syl6ibr 220	. 2 |- ( ( A ~~ 1o /\ B ~~ 1o ) -> ( ( A i^i B ) = (/) -> ( A u. B ) ~~ 2o ) )
19		en1 6896	. . 3 |- ( A ~~ 1o <-> E. x A = { x } )
20		en1 6896	. . 3 |- ( B ~~ 1o <-> E. y B = { y } )
21		unidm 3293	. . . . . . . . . . . . . 14 |- ( { x } u. { x } ) = { x }
22		sneq 3625	. . . . . . . . . . . . . . 15 |- ( x = y -> { x } = { y } )
23	22	uneq2d 3304	. . . . . . . . . . . . . 14 |- ( x = y -> ( { x } u. { x } ) = ( { x } u. { y } ) )
24	21, 23	syl5reqr 2305	. . . . . . . . . . . . 13 |- ( x = y -> ( { x } u. { y } ) = { x } )
25		vex 2766	. . . . . . . . . . . . . . 15 |- x e. _V
26	25	ensn1 6893	. . . . . . . . . . . . . 14 |- { x } ~~ 1o
27		1sdom2 7029	. . . . . . . . . . . . . 14 |- 1o ~< 2o
28		ensdomtr 6965	. . . . . . . . . . . . . 14 |- ( ( { x } ~~ 1o /\ 1o ~< 2o ) -> { x } ~< 2o )
29	26, 27, 28	mp2an 656	. . . . . . . . . . . . 13 |- { x } ~< 2o
30	24, 29	syl6eqbr 4034	. . . . . . . . . . . 12 |- ( x = y -> ( { x } u. { y } ) ~< 2o )
31		sdomnen 6858	. . . . . . . . . . . 12 |- ( ( { x } u. { y } ) ~< 2o -> -. ( { x } u. { y } ) ~~ 2o )
32	30, 31	syl 17	. . . . . . . . . . 11 |- ( x = y -> -. ( { x } u. { y } ) ~~ 2o )
33	32	necon2ai 2466	. . . . . . . . . 10 |- ( ( { x } u. { y } ) ~~ 2o -> x =/= y )
34		disjsn2 3668	. . . . . . . . . 10 |- ( x =/= y -> ( { x } i^i { y } ) = (/) )
35	33, 34	syl 17	. . . . . . . . 9 |- ( ( { x } u. { y } ) ~~ 2o -> ( { x } i^i { y } ) = (/) )
36	35	a1i 12	. . . . . . . 8 |- ( ( A = { x } /\ B = { y } ) -> ( ( { x } u. { y } ) ~~ 2o -> ( { x } i^i { y } ) = (/) ) )
37		uneq12 3299	. . . . . . . . 9 |- ( ( A = { x } /\ B = { y } ) -> ( A u. B ) = ( { x } u. { y } ) )
38	37	breq1d 4007	. . . . . . . 8 |- ( ( A = { x } /\ B = { y } ) -> ( ( A u. B ) ~~ 2o <-> ( { x } u. { y } ) ~~ 2o ) )
39		ineq12 3340	. . . . . . . . 9 |- ( ( A = { x } /\ B = { y } ) -> ( A i^i B ) = ( { x } i^i { y } ) )
40	39	eqeq1d 2266	. . . . . . . 8 |- ( ( A = { x } /\ B = { y } ) -> ( ( A i^i B ) = (/) <-> ( { x } i^i { y } ) = (/) ) )
41	36, 38, 40	3imtr4d 261	. . . . . . 7 |- ( ( A = { x } /\ B = { y } ) -> ( ( A u. B ) ~~ 2o -> ( A i^i B ) = (/) ) )
42	41	ex 425	. . . . . 6 |- ( A = { x } -> ( B = { y } -> ( ( A u. B ) ~~ 2o -> ( A i^i B ) = (/) ) ) )
43	42	exlimdv 1933	. . . . 5 |- ( A = { x } -> ( E. y B = { y } -> ( ( A u. B ) ~~ 2o -> ( A i^i B ) = (/) ) ) )
44	43	exlimiv 2024	. . . 4 |- ( E. x A = { x } -> ( E. y B = { y } -> ( ( A u. B ) ~~ 2o -> ( A i^i B ) = (/) ) ) )
45	44	imp 420	. . 3 |- ( ( E. x A = { x } /\ E. y B = { y } ) -> ( ( A u. B ) ~~ 2o -> ( A i^i B ) = (/) ) )
46	19, 20, 45	syl2anb 467	. 2 |- ( ( A ~~ 1o /\ B ~~ 1o ) -> ( ( A u. B ) ~~ 2o -> ( A i^i B ) = (/) ) )
47	18, 46	impbid 185	1 |- ( ( A ~~ 1o /\ B ~~ 1o ) -> ( ( A i^i B ) = (/) <-> ( A u. B ) ~~ 2o ) )

Syntax hints:   -. wn 5   -> wi 6   <-> wb 178   /\ wa 360   E.wex 1537   = wceq 1619   e. wcel 1621   =/= wne 2421   u. cun 3125   i^i cin 3126   (/)c0 3430   {csn 3614   class class class wbr 3997   Oncon0 4364   suc csuc 4366   1oc1o 6440   2oc2o 6441   ~~ cen 6828   ~< csdm 6830

This theorem is referenced by:  pr2nelem  7602  pm110.643  7771  isprm2lem  12727

This theorem was proved from axioms:  ax-1 7  ax-2 8  ax-3 9  ax-mp 10  ax-5 1533  ax-6 1534  ax-7 1535  ax-gen 1536  ax-8 1623  ax-11 1624  ax-13 1625  ax-14 1626  ax-17 1628  ax-12o 1664  ax-10 1678  ax-9 1684  ax-4 1692  ax-16 1927  ax-ext 2239  ax-sep 4115  ax-nul 4123  ax-pow 4160  ax-pr 4186  ax-un 4484

This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3or 940  df-3an 941  df-tru 1315  df-ex 1538  df-nf 1540  df-sb 1884  df-eu 2122  df-mo 2123  df-clab 2245  df-cleq 2251  df-clel 2254  df-nfc 2383  df-ne 2423  df-ral 2523  df-rex 2524  df-reu 2525  df-rab 2527  df-v 2765  df-sbc 2967  df-dif 3130  df-un 3132  df-in 3134  df-ss 3141  df-pss 3143  df-nul 3431  df-if 3540  df-pw 3601  df-sn 3620  df-pr 3621  df-tp 3622  df-op 3623  df-uni 3802  df-br 3998  df-opab 4052  df-tr 4088  df-eprel 4277  df-id 4281  df-po 4286  df-so 4287  df-fr 4324  df-we 4326  df-ord 4367  df-on 4368  df-lim 4369  df-suc 4370  df-om 4629  df-xp 4675  df-rel 4676  df-cnv 4677  df-co 4678  df-dm 4679  df-rn 4680  df-res 4681  df-ima 4682  df-fun 4683  df-fn 4684  df-f 4685  df-f1 4686  df-fo 4687  df-f1o 4688  df-fv 4689  df-1o 6447  df-2o 6448  df-er 6628  df-en 6832  df-dom 6833  df-sdom 6834