Theorem pm54.43

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 ), so that their A e. 1 means, in our notation, A e. { x | ( cardx ) = 1o } which is the same as A ~1o by pm54.43lem . 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 dju1p1e2 shows the derivation of 1+1=2 for cardinal numbers from this theorem. (Contributed by NM, 4-Apr-2007)

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

Proof

Step	Hyp	Ref	Expression
1		1oex	|- 1o e. _V
2	1	ensn1	|- { 1o } ~~ 1o
3	2	ensymi	|- 1o ~~ { 1o }
4		entr	|- ( ( B ~~ 1o /\ 1o ~~ { 1o } ) -> B ~~ { 1o } )
5	3 4	mpan2	|- ( B ~~ 1o -> B ~~ { 1o } )
6		1on	|- 1o e. On
7	6	onirri	|- -. 1o e. 1o
8		disjsn	|- ( ( 1o i^i { 1o } ) = (/) <-> -. 1o e. 1o )
9	7 8	mpbir	|- ( 1o i^i { 1o } ) = (/)
10		unen	|- ( ( ( A ~~ 1o /\ B ~~ { 1o } ) /\ ( ( A i^i B ) = (/) /\ ( 1o i^i { 1o } ) = (/) ) ) -> ( A u. B ) ~~ ( 1o u. { 1o } ) )
11	9 10	mpanr2	|- ( ( ( A ~~ 1o /\ B ~~ { 1o } ) /\ ( A i^i B ) = (/) ) -> ( A u. B ) ~~ ( 1o u. { 1o } ) )
12	11	ex	|- ( ( A ~~ 1o /\ B ~~ { 1o } ) -> ( ( A i^i B ) = (/) -> ( A u. B ) ~~ ( 1o u. { 1o } ) ) )
13	5 12	sylan2	|- ( ( A ~~ 1o /\ B ~~ 1o ) -> ( ( A i^i B ) = (/) -> ( A u. B ) ~~ ( 1o u. { 1o } ) ) )
14		df-2o	|- 2o = suc 1o
15		df-suc	|- suc 1o = ( 1o u. { 1o } )
16	14 15	eqtri	|- 2o = ( 1o u. { 1o } )
17	16	breq2i	|- ( ( A u. B ) ~~ 2o <-> ( A u. B ) ~~ ( 1o u. { 1o } ) )
18	13 17	syl6ibr	|- ( ( A ~~ 1o /\ B ~~ 1o ) -> ( ( A i^i B ) = (/) -> ( A u. B ) ~~ 2o ) )
19		en1	|- ( A ~~ 1o <-> E. x A = { x } )
20		en1	|- ( B ~~ 1o <-> E. y B = { y } )
21		sneq	|- ( x = y -> { x } = { y } )
22	21	uneq2d	|- ( x = y -> ( { x } u. { x } ) = ( { x } u. { y } ) )
23		unidm	|- ( { x } u. { x } ) = { x }
24	22 23	eqtr3di	|- ( x = y -> ( { x } u. { y } ) = { x } )
25		vex	|- x e. _V
26	25	ensn1	|- { x } ~~ 1o
27		1sdom2	|- 1o ~< 2o
28		ensdomtr	|- ( ( { x } ~~ 1o /\ 1o ~< 2o ) -> { x } ~< 2o )
29	26 27 28	mp2an	|- { x } ~< 2o
30	24 29	eqbrtrdi	|- ( x = y -> ( { x } u. { y } ) ~< 2o )
31		sdomnen	|- ( ( { x } u. { y } ) ~< 2o -> -. ( { x } u. { y } ) ~~ 2o )
32	30 31	syl	|- ( x = y -> -. ( { x } u. { y } ) ~~ 2o )
33	32	necon2ai	|- ( ( { x } u. { y } ) ~~ 2o -> x =/= y )
34		disjsn2	|- ( x =/= y -> ( { x } i^i { y } ) = (/) )
35	33 34	syl	|- ( ( { x } u. { y } ) ~~ 2o -> ( { x } i^i { y } ) = (/) )
36	35	a1i	|- ( ( A = { x } /\ B = { y } ) -> ( ( { x } u. { y } ) ~~ 2o -> ( { x } i^i { y } ) = (/) ) )
37		uneq12	|- ( ( A = { x } /\ B = { y } ) -> ( A u. B ) = ( { x } u. { y } ) )
38	37	breq1d	|- ( ( A = { x } /\ B = { y } ) -> ( ( A u. B ) ~~ 2o <-> ( { x } u. { y } ) ~~ 2o ) )
39		ineq12	|- ( ( A = { x } /\ B = { y } ) -> ( A i^i B ) = ( { x } i^i { y } ) )
40	39	eqeq1d	|- ( ( A = { x } /\ B = { y } ) -> ( ( A i^i B ) = (/) <-> ( { x } i^i { y } ) = (/) ) )
41	36 38 40	3imtr4d	|- ( ( A = { x } /\ B = { y } ) -> ( ( A u. B ) ~~ 2o -> ( A i^i B ) = (/) ) )
42	41	ex	|- ( A = { x } -> ( B = { y } -> ( ( A u. B ) ~~ 2o -> ( A i^i B ) = (/) ) ) )
43	42	exlimdv	|- ( A = { x } -> ( E. y B = { y } -> ( ( A u. B ) ~~ 2o -> ( A i^i B ) = (/) ) ) )
44	43	exlimiv	|- ( E. x A = { x } -> ( E. y B = { y } -> ( ( A u. B ) ~~ 2o -> ( A i^i B ) = (/) ) ) )
45	44	imp	|- ( ( E. x A = { x } /\ E. y B = { y } ) -> ( ( A u. B ) ~~ 2o -> ( A i^i B ) = (/) ) )
46	19 20 45	syl2anb	|- ( ( A ~~ 1o /\ B ~~ 1o ) -> ( ( A u. B ) ~~ 2o -> ( A i^i B ) = (/) ) )
47	18 46	impbid	|- ( ( A ~~ 1o /\ B ~~ 1o ) -> ( ( A i^i B ) = (/) <-> ( A u. B ) ~~ 2o ) )