Theorem isbth 7069

Description: Schroeder-Bernstein Theorem. Theorem 18 of [Suppes] p. 95. This theorem states that if set A is smaller (has lower cardinality) than B and vice-versa, then A and B are equinumerous (have the same cardinality). The interesting thing is that this can be proved without invoking the Axiom of Choice, as we do here, but the proof as you can see is quite difficult. (The theorem can be proved more easily if we allow AC.) The main proof consists of lemmas sbthlem1 7059 through sbthlemi10 7068; this final piece mainly changes bound variables to eliminate the hypotheses of sbthlemi10 7068. We follow closely the proof in Suppes, which you should consult to understand our proof at a higher level. Note that Suppes' proof, which is credited to J. M. Whitaker, does not require the Axiom of Infinity. The proof does require the law of the excluded middle which cannot be avoided as shown at exmidsbthr 15966. (Contributed by NM, 8-Jun-1998.)

Assertion

Ref	Expression
isbth	|- ( (EXMID /\ ( A ~<_ B /\ B ~<_ A ) ) -> A ~~ B )

Proof of Theorem isbth

Dummy variables x y z w f g are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simprl 529	. 2 |- ( (EXMID /\ ( A ~<_ B /\ B ~<_ A ) ) -> A ~<_ B )
2		simprr 531	. 2 |- ( (EXMID /\ ( A ~<_ B /\ B ~<_ A ) ) -> B ~<_ A )
3		reldom 6832	. . . . 5 |- Rel ~<_
4	3	brrelex1i 4718	. . . 4 |- ( B ~<_ A -> B e. _V )
5	2, 4	syl 14	. . 3 |- ( (EXMID /\ ( A ~<_ B /\ B ~<_ A ) ) -> B e. _V )
6		breq2 4048	. . . . . 6 |- ( w = B -> ( A ~<_ w <-> A ~<_ B ) )
7		breq1 4047	. . . . . 6 |- ( w = B -> ( w ~<_ A <-> B ~<_ A ) )
8	6, 7	anbi12d 473	. . . . 5 |- ( w = B -> ( ( A ~<_ w /\ w ~<_ A ) <-> ( A ~<_ B /\ B ~<_ A ) ) )
9		breq2 4048	. . . . 5 |- ( w = B -> ( A ~~ w <-> A ~~ B ) )
10	8, 9	imbi12d 234	. . . 4 |- ( w = B -> ( ( ( A ~<_ w /\ w ~<_ A ) -> A ~~ w ) <-> ( ( A ~<_ B /\ B ~<_ A ) -> A ~~ B ) ) )
11	10	adantl 277	. . 3 |- ( ( (EXMID /\ ( A ~<_ B /\ B ~<_ A ) ) /\ w = B ) -> ( ( ( A ~<_ w /\ w ~<_ A ) -> A ~~ w ) <-> ( ( A ~<_ B /\ B ~<_ A ) -> A ~~ B ) ) )
12	3	brrelex1i 4718	. . . . 5 |- ( A ~<_ B -> A e. _V )
13	1, 12	syl 14	. . . 4 |- ( (EXMID /\ ( A ~<_ B /\ B ~<_ A ) ) -> A e. _V )
14		breq1 4047	. . . . . . 7 |- ( z = A -> ( z ~<_ w <-> A ~<_ w ) )
15		breq2 4048	. . . . . . 7 |- ( z = A -> ( w ~<_ z <-> w ~<_ A ) )
16	14, 15	anbi12d 473	. . . . . 6 |- ( z = A -> ( ( z ~<_ w /\ w ~<_ z ) <-> ( A ~<_ w /\ w ~<_ A ) ) )
17		breq1 4047	. . . . . 6 |- ( z = A -> ( z ~~ w <-> A ~~ w ) )
18	16, 17	imbi12d 234	. . . . 5 |- ( z = A -> ( ( ( z ~<_ w /\ w ~<_ z ) -> z ~~ w ) <-> ( ( A ~<_ w /\ w ~<_ A ) -> A ~~ w ) ) )
19	18	adantl 277	. . . 4 |- ( ( (EXMID /\ ( A ~<_ B /\ B ~<_ A ) ) /\ z = A ) -> ( ( ( z ~<_ w /\ w ~<_ z ) -> z ~~ w ) <-> ( ( A ~<_ w /\ w ~<_ A ) -> A ~~ w ) ) )
20		vex 2775	. . . . . . 7 |- z e. _V
21		sseq1 3216	. . . . . . . . 9 |- ( y = x -> ( y C_ z <-> x C_ z ) )
22		imaeq2 5018	. . . . . . . . . . . 12 |- ( y = x -> ( f " y ) = ( f " x ) )
23	22	difeq2d 3291	. . . . . . . . . . 11 |- ( y = x -> ( w \ ( f " y ) ) = ( w \ ( f " x ) ) )
24	23	imaeq2d 5022	. . . . . . . . . 10 |- ( y = x -> ( g " ( w \ ( f " y ) ) ) = ( g " ( w \ ( f " x ) ) ) )
25		difeq2 3285	. . . . . . . . . 10 |- ( y = x -> ( z \ y ) = ( z \ x ) )
26	24, 25	sseq12d 3224	. . . . . . . . 9 |- ( y = x -> ( ( g " ( w \ ( f " y ) ) ) C_ ( z \ y ) <-> ( g " ( w \ ( f " x ) ) ) C_ ( z \ x ) ) )
27	21, 26	anbi12d 473	. . . . . . . 8 |- ( y = x -> ( ( y C_ z /\ ( g " ( w \ ( f " y ) ) ) C_ ( z \ y ) ) <-> ( x C_ z /\ ( g " ( w \ ( f " x ) ) ) C_ ( z \ x ) ) ) )
28	27	cbvabv 2330	. . . . . . 7 |- { y | ( y C_ z /\ ( g " ( w \ ( f " y ) ) ) C_ ( z \ y ) ) } = { x | ( x C_ z /\ ( g " ( w \ ( f " x ) ) ) C_ ( z \ x ) ) }
29		eqid 2205	. . . . . . 7 |- ( ( f |` U. { y | ( y C_ z /\ ( g " ( w \ ( f " y ) ) ) C_ ( z \ y ) ) } ) u. ( `' g |` ( z \ U. { y | ( y C_ z /\ ( g " ( w \ ( f " y ) ) ) C_ ( z \ y ) ) } ) ) ) = ( ( f |` U. { y | ( y C_ z /\ ( g " ( w \ ( f " y ) ) ) C_ ( z \ y ) ) } ) u. ( `' g |` ( z \ U. { y | ( y C_ z /\ ( g " ( w \ ( f " y ) ) ) C_ ( z \ y ) ) } ) ) )
30		vex 2775	. . . . . . 7 |- w e. _V
31	20, 28, 29, 30	sbthlemi10 7068	. . . . . 6 |- ( (EXMID /\ ( z ~<_ w /\ w ~<_ z ) ) -> z ~~ w )
32	31	ex 115	. . . . 5 |- (EXMID -> ( ( z ~<_ w /\ w ~<_ z ) -> z ~~ w ) )
33	32	adantr 276	. . . 4 |- ( (EXMID /\ ( A ~<_ B /\ B ~<_ A ) ) -> ( ( z ~<_ w /\ w ~<_ z ) -> z ~~ w ) )
34	13, 19, 33	vtocld 2825	. . 3 |- ( (EXMID /\ ( A ~<_ B /\ B ~<_ A ) ) -> ( ( A ~<_ w /\ w ~<_ A ) -> A ~~ w ) )
35	5, 11, 34	vtocld 2825	. 2 |- ( (EXMID /\ ( A ~<_ B /\ B ~<_ A ) ) -> ( ( A ~<_ B /\ B ~<_ A ) -> A ~~ B ) )
36	1, 2, 35	mp2and 433	1 |- ( (EXMID /\ ( A ~<_ B /\ B ~<_ A ) ) -> A ~~ B )

Syntax hints:   -> wi 4   /\ wa 104   <-> wb 105   = wceq 1373   e. wcel 2176   {cab 2191   _Vcvv 2772   \ cdif 3163   u. cun 3164   C_ wss 3166   U.cuni 3850   class class class wbr 4044  EXMIDwem 4238   `'ccnv 4674   |` cres 4677   "cima 4678   ~~ cen 6825   ~<_ cdom 6826

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 711  ax-5 1470  ax-7 1471  ax-gen 1472  ax-ie1 1516  ax-ie2 1517  ax-8 1527  ax-10 1528  ax-11 1529  ax-i12 1530  ax-bndl 1532  ax-4 1533  ax-17 1549  ax-i9 1553  ax-ial 1557  ax-i5r 1558  ax-13 2178  ax-14 2179  ax-ext 2187  ax-sep 4162  ax-nul 4170  ax-pow 4218  ax-pr 4253  ax-un 4480

This theorem depends on definitions:  df-bi 117  df-stab 833  df-dc 837  df-3an 983  df-tru 1376  df-nf 1484  df-sb 1786  df-eu 2057  df-mo 2058  df-clab 2192  df-cleq 2198  df-clel 2201  df-nfc 2337  df-ral 2489  df-rex 2490  df-rab 2493  df-v 2774  df-dif 3168  df-un 3170  df-in 3172  df-ss 3179  df-nul 3461  df-pw 3618  df-sn 3639  df-pr 3640  df-op 3642  df-uni 3851  df-br 4045  df-opab 4106  df-exmid 4239  df-id 4340  df-xp 4681  df-rel 4682  df-cnv 4683  df-co 4684  df-dm 4685  df-rn 4686  df-res 4687  df-ima 4688  df-fun 5273  df-fn 5274  df-f 5275  df-f1 5276  df-fo 5277  df-f1o 5278  df-en 6828  df-dom 6829

This theorem is referenced by:  exmidsbth  15967