Theorem phpm 6351

Description: Pigeonhole Principle. A natural number is not equinumerous to a proper subset of itself. By "proper subset" here we mean that there is an element which is in the natural number and not in the subset, or in symbols E. x x e. ( A \ B ) (which is stronger than not being equal in the absence of excluded middle). Theorem (Pigeonhole Principle) of [Enderton] p. 134. The theorem is so-called because you can't put n + 1 pigeons into n holes (if each hole holds only one pigeon). The proof consists of lemmas phplem1 6338 through phplem4 6341, nneneq 6343, and this final piece of the proof. (Contributed by NM, 29-May-1998.)

Assertion

Ref	Expression
phpm	|- ( ( A e. om /\ B C_ A /\ E. x x e. ( A \ B ) ) -> -. A ~~ B )

Distinct variable groups:   x, A   x, B

Proof of Theorem phpm

Dummy variable y is distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpr 108	. . . . . 6 |- ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ A = (/) ) -> A = (/) )
2		eldifi 3094	. . . . . . . . 9 |- ( x e. ( A \ B ) -> x e. A )
3		ne0i 3257	. . . . . . . . 9 |- ( x e. A -> A =/= (/) )
4	2, 3	syl 14	. . . . . . . 8 |- ( x e. ( A \ B ) -> A =/= (/) )
5	4	neneqd 2266	. . . . . . 7 |- ( x e. ( A \ B ) -> -. A = (/) )
6	5	ad2antlr 472	. . . . . 6 |- ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ A = (/) ) -> -. A = (/) )
7	1, 6	pm2.21dd 582	. . . . 5 |- ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ A = (/) ) -> -. A ~~ B )
8		php5dom 6349	. . . . . . . . . 10 |- ( y e. om -> -. suc y ~<_ y )
9	8	ad2antlr 472	. . . . . . . . 9 |- ( ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) /\ A = suc y ) -> -. suc y ~<_ y )
10		simplr 496	. . . . . . . . . 10 |- ( ( ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) /\ A = suc y ) /\ A ~~ B ) -> A = suc y )
11		simpr 108	. . . . . . . . . . 11 |- ( ( ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) /\ A = suc y ) /\ A ~~ B ) -> A ~~ B )
12		vex 2604	. . . . . . . . . . . . . . . 16 |- y e. _V
13	12	sucex 4243	. . . . . . . . . . . . . . 15 |- suc y e. _V
14		difss 3098	. . . . . . . . . . . . . . 15 |- ( suc y \ { x } ) C_ suc y
15	13, 14	ssexi 3916	. . . . . . . . . . . . . 14 |- ( suc y \ { x } ) e. _V
16		eldifn 3095	. . . . . . . . . . . . . . . 16 |- ( x e. ( A \ B ) -> -. x e. B )
17	16	ad3antlr 476	. . . . . . . . . . . . . . 15 |- ( ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) /\ A = suc y ) -> -. x e. B )
18		simpllr 500	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) -> B C_ A )
19	18	adantr 270	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) /\ A = suc y ) -> B C_ A )
20		simpr 108	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) /\ A = suc y ) -> A = suc y )
21	19, 20	sseqtrd 3035	. . . . . . . . . . . . . . 15 |- ( ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) /\ A = suc y ) -> B C_ suc y )
22		ssdif 3107	. . . . . . . . . . . . . . . 16 |- ( B C_ suc y -> ( B \ { x } ) C_ ( suc y \ { x } ) )
23		disjsn 3454	. . . . . . . . . . . . . . . . . 18 |- ( ( B i^i { x } ) = (/) <-> -. x e. B )
24		disj3 3296	. . . . . . . . . . . . . . . . . 18 |- ( ( B i^i { x } ) = (/) <-> B = ( B \ { x } ) )
25	23, 24	bitr3i 184	. . . . . . . . . . . . . . . . 17 |- ( -. x e. B <-> B = ( B \ { x } ) )
26		sseq1 3020	. . . . . . . . . . . . . . . . 17 |- ( B = ( B \ { x } ) -> ( B C_ ( suc y \ { x } ) <-> ( B \ { x } ) C_ ( suc y \ { x } ) ) )
27	25, 26	sylbi 119	. . . . . . . . . . . . . . . 16 |- ( -. x e. B -> ( B C_ ( suc y \ { x } ) <-> ( B \ { x } ) C_ ( suc y \ { x } ) ) )
28	22, 27	syl5ibr 154	. . . . . . . . . . . . . . 15 |- ( -. x e. B -> ( B C_ suc y -> B C_ ( suc y \ { x } ) ) )
29	17, 21, 28	sylc 61	. . . . . . . . . . . . . 14 |- ( ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) /\ A = suc y ) -> B C_ ( suc y \ { x } ) )
30		ssdomg 6281	. . . . . . . . . . . . . 14 |- ( ( suc y \ { x } ) e. _V -> ( B C_ ( suc y \ { x } ) -> B ~<_ ( suc y \ { x } ) ) )
31	15, 29, 30	mpsyl 64	. . . . . . . . . . . . 13 |- ( ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) /\ A = suc y ) -> B ~<_ ( suc y \ { x } ) )
32		simplr 496	. . . . . . . . . . . . . 14 |- ( ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) /\ A = suc y ) -> y e. om )
33	2	ad3antlr 476	. . . . . . . . . . . . . . 15 |- ( ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) /\ A = suc y ) -> x e. A )
34	33, 20	eleqtrd 2157	. . . . . . . . . . . . . 14 |- ( ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) /\ A = suc y ) -> x e. suc y )
35		phplem3g 6342	. . . . . . . . . . . . . . 15 |- ( ( y e. om /\ x e. suc y ) -> y ~~ ( suc y \ { x } ) )
36	35	ensymd 6286	. . . . . . . . . . . . . 14 |- ( ( y e. om /\ x e. suc y ) -> ( suc y \ { x } ) ~~ y )
37	32, 34, 36	syl2anc 403	. . . . . . . . . . . . 13 |- ( ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) /\ A = suc y ) -> ( suc y \ { x } ) ~~ y )
38		domentr 6294	. . . . . . . . . . . . 13 |- ( ( B ~<_ ( suc y \ { x } ) /\ ( suc y \ { x } ) ~~ y ) -> B ~<_ y )
39	31, 37, 38	syl2anc 403	. . . . . . . . . . . 12 |- ( ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) /\ A = suc y ) -> B ~<_ y )
40	39	adantr 270	. . . . . . . . . . 11 |- ( ( ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) /\ A = suc y ) /\ A ~~ B ) -> B ~<_ y )
41		endomtr 6293	. . . . . . . . . . 11 |- ( ( A ~~ B /\ B ~<_ y ) -> A ~<_ y )
42	11, 40, 41	syl2anc 403	. . . . . . . . . 10 |- ( ( ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) /\ A = suc y ) /\ A ~~ B ) -> A ~<_ y )
43	10, 42	eqbrtrrd 3807	. . . . . . . . 9 |- ( ( ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) /\ A = suc y ) /\ A ~~ B ) -> suc y ~<_ y )
44	9, 43	mtand 623	. . . . . . . 8 |- ( ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) /\ A = suc y ) -> -. A ~~ B )
45	44	ex 113	. . . . . . 7 |- ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ y e. om ) -> ( A = suc y -> -. A ~~ B ) )
46	45	rexlimdva 2477	. . . . . 6 |- ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) -> ( E. y e. om A = suc y -> -. A ~~ B ) )
47	46	imp 122	. . . . 5 |- ( ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) /\ E. y e. om A = suc y ) -> -. A ~~ B )
48		nn0suc 4345	. . . . . 6 |- ( A e. om -> ( A = (/) \/ E. y e. om A = suc y ) )
49	48	ad2antrr 471	. . . . 5 |- ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) -> ( A = (/) \/ E. y e. om A = suc y ) )
50	7, 47, 49	mpjaodan 744	. . . 4 |- ( ( ( A e. om /\ B C_ A ) /\ x e. ( A \ B ) ) -> -. A ~~ B )
51	50	ex 113	. . 3 |- ( ( A e. om /\ B C_ A ) -> ( x e. ( A \ B ) -> -. A ~~ B ) )
52	51	exlimdv 1740	. 2 |- ( ( A e. om /\ B C_ A ) -> ( E. x x e. ( A \ B ) -> -. A ~~ B ) )
53	52	3impia 1135	1 |- ( ( A e. om /\ B C_ A /\ E. x x e. ( A \ B ) ) -> -. A ~~ B )

Syntax hints:   -. wn 3   -> wi 4   /\ wa 102   <-> wb 103   \/ wo 661   /\ w3a 919   = wceq 1284   E.wex 1421   e. wcel 1433   =/= wne 2245   E.wrex 2349   _Vcvv 2601   \ cdif 2970   i^i cin 2972   C_ wss 2973   (/)c0 3251   {csn 3398   class class class wbr 3785   suc csuc 4120   omcom 4331   ~~ cen 6242   ~<_ cdom 6243

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-in1 576  ax-in2 577  ax-io 662  ax-5 1376  ax-7 1377  ax-gen 1378  ax-ie1 1422  ax-ie2 1423  ax-8 1435  ax-10 1436  ax-11 1437  ax-i12 1438  ax-bndl 1439  ax-4 1440  ax-13 1444  ax-14 1445  ax-17 1459  ax-i9 1463  ax-ial 1467  ax-i5r 1468  ax-ext 2063  ax-sep 3896  ax-nul 3904  ax-pow 3948  ax-pr 3964  ax-un 4188  ax-setind 4280  ax-iinf 4329

This theorem depends on definitions:  df-bi 115  df-dc 776  df-3or 920  df-3an 921  df-tru 1287  df-fal 1290  df-nf 1390  df-sb 1686  df-eu 1944  df-mo 1945  df-clab 2068  df-cleq 2074  df-clel 2077  df-nfc 2208  df-ne 2246  df-ral 2353  df-rex 2354  df-rab 2357  df-v 2603  df-sbc 2816  df-dif 2975  df-un 2977  df-in 2979  df-ss 2986  df-nul 3252  df-pw 3384  df-sn 3404  df-pr 3405  df-op 3407  df-uni 3602  df-int 3637  df-br 3786  df-opab 3840  df-tr 3876  df-id 4048  df-iord 4121  df-on 4123  df-suc 4126  df-iom 4332  df-xp 4369  df-rel 4370  df-cnv 4371  df-co 4372  df-dm 4373  df-rn 4374  df-res 4375  df-ima 4376  df-iota 4887  df-fun 4924  df-fn 4925  df-f 4926  df-f1 4927  df-fo 4928  df-f1o 4929  df-fv 4930  df-er 6129  df-en 6245  df-dom 6246

This theorem is referenced by:  phpelm  6352