Theorem hashen 10876

Description: Two finite sets have the same number of elements iff they are equinumerous. (Contributed by Paul Chapman, 22-Jun-2011.) (Revised by Mario Carneiro, 15-Sep-2013.)

Assertion

Ref	Expression
hashen	|- ( ( A e. Fin /\ B e. Fin ) -> ( (♯ ` A ) = (♯ ` B ) <-> A ~~ B ) )

Proof of Theorem hashen

Dummy variables m n x are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		isfi 6820	. . . 4 |- ( A e. Fin <-> E. n e. om A ~~ n )
2	1	biimpi 120	. . 3 |- ( A e. Fin -> E. n e. om A ~~ n )
3	2	adantr 276	. 2 |- ( ( A e. Fin /\ B e. Fin ) -> E. n e. om A ~~ n )
4		isfi 6820	. . . . 5 |- ( B e. Fin <-> E. m e. om B ~~ m )
5	4	biimpi 120	. . . 4 |- ( B e. Fin -> E. m e. om B ~~ m )
6	5	ad2antlr 489	. . 3 |- ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) -> E. m e. om B ~~ m )
7		simplrl 535	. . . . 5 |- ( ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) /\ ( m e. om /\ B ~~ m ) ) -> n e. om )
8		simprl 529	. . . . 5 |- ( ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) /\ ( m e. om /\ B ~~ m ) ) -> m e. om )
9		nneneq 6918	. . . . 5 |- ( ( n e. om /\ m e. om ) -> ( n ~~ m <-> n = m ) )
10	7, 8, 9	syl2anc 411	. . . 4 |- ( ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) /\ ( m e. om /\ B ~~ m ) ) -> ( n ~~ m <-> n = m ) )
11		simplrr 536	. . . . . 6 |- ( ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) /\ ( m e. om /\ B ~~ m ) ) -> A ~~ n )
12		enen1 6901	. . . . . 6 |- ( A ~~ n -> ( A ~~ B <-> n ~~ B ) )
13	11, 12	syl 14	. . . . 5 |- ( ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) /\ ( m e. om /\ B ~~ m ) ) -> ( A ~~ B <-> n ~~ B ) )
14		simprr 531	. . . . . 6 |- ( ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) /\ ( m e. om /\ B ~~ m ) ) -> B ~~ m )
15		enen2 6902	. . . . . 6 |- ( B ~~ m -> ( n ~~ B <-> n ~~ m ) )
16	14, 15	syl 14	. . . . 5 |- ( ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) /\ ( m e. om /\ B ~~ m ) ) -> ( n ~~ B <-> n ~~ m ) )
17	13, 16	bitrd 188	. . . 4 |- ( ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) /\ ( m e. om /\ B ~~ m ) ) -> ( A ~~ B <-> n ~~ m ) )
18	11	ensymd 6842	. . . . . . 7 |- ( ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) /\ ( m e. om /\ B ~~ m ) ) -> n ~~ A )
19		hashennn 10872	. . . . . . 7 |- ( ( n e. om /\ n ~~ A ) -> (♯ ` A ) = (frec ( ( x e. ZZ |-> ( x + 1 ) ) , 0 ) ` n ) )
20	7, 18, 19	syl2anc 411	. . . . . 6 |- ( ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) /\ ( m e. om /\ B ~~ m ) ) -> (♯ ` A ) = (frec ( ( x e. ZZ |-> ( x + 1 ) ) , 0 ) ` n ) )
21	14	ensymd 6842	. . . . . . 7 |- ( ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) /\ ( m e. om /\ B ~~ m ) ) -> m ~~ B )
22		hashennn 10872	. . . . . . 7 |- ( ( m e. om /\ m ~~ B ) -> (♯ ` B ) = (frec ( ( x e. ZZ |-> ( x + 1 ) ) , 0 ) ` m ) )
23	8, 21, 22	syl2anc 411	. . . . . 6 |- ( ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) /\ ( m e. om /\ B ~~ m ) ) -> (♯ ` B ) = (frec ( ( x e. ZZ |-> ( x + 1 ) ) , 0 ) ` m ) )
24	20, 23	eqeq12d 2211	. . . . 5 |- ( ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) /\ ( m e. om /\ B ~~ m ) ) -> ( (♯ ` A ) = (♯ ` B ) <-> (frec ( ( x e. ZZ |-> ( x + 1 ) ) , 0 ) ` n ) = (frec ( ( x e. ZZ |-> ( x + 1 ) ) , 0 ) ` m ) ) )
25		0zd 9338	. . . . . . . 8 |- ( ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) /\ ( m e. om /\ B ~~ m ) ) -> 0 e. ZZ )
26		eqid 2196	. . . . . . . 8 |- frec ( ( x e. ZZ |-> ( x + 1 ) ) , 0 ) = frec ( ( x e. ZZ |-> ( x + 1 ) ) , 0 )
27	25, 26	frec2uzf1od 10498	. . . . . . 7 |- ( ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) /\ ( m e. om /\ B ~~ m ) ) -> frec ( ( x e. ZZ |-> ( x + 1 ) ) , 0 ) : om -1-1-onto-> ( ZZ>= ` 0 ) )
28		f1of1 5503	. . . . . . 7 |- (frec ( ( x e. ZZ |-> ( x + 1 ) ) , 0 ) : om -1-1-onto-> ( ZZ>= ` 0 ) -> frec ( ( x e. ZZ |-> ( x + 1 ) ) , 0 ) : om -1-1-> ( ZZ>= ` 0 ) )
29	27, 28	syl 14	. . . . . 6 |- ( ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) /\ ( m e. om /\ B ~~ m ) ) -> frec ( ( x e. ZZ |-> ( x + 1 ) ) , 0 ) : om -1-1-> ( ZZ>= ` 0 ) )
30		f1fveq 5819	. . . . . 6 |- ( (frec ( ( x e. ZZ |-> ( x + 1 ) ) , 0 ) : om -1-1-> ( ZZ>= ` 0 ) /\ ( n e. om /\ m e. om ) ) -> ( (frec ( ( x e. ZZ |-> ( x + 1 ) ) , 0 ) ` n ) = (frec ( ( x e. ZZ |-> ( x + 1 ) ) , 0 ) ` m ) <-> n = m ) )
31	29, 7, 8, 30	syl12anc 1247	. . . . 5 |- ( ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) /\ ( m e. om /\ B ~~ m ) ) -> ( (frec ( ( x e. ZZ |-> ( x + 1 ) ) , 0 ) ` n ) = (frec ( ( x e. ZZ |-> ( x + 1 ) ) , 0 ) ` m ) <-> n = m ) )
32	24, 31	bitrd 188	. . . 4 |- ( ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) /\ ( m e. om /\ B ~~ m ) ) -> ( (♯ ` A ) = (♯ ` B ) <-> n = m ) )
33	10, 17, 32	3bitr4rd 221	. . 3 |- ( ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) /\ ( m e. om /\ B ~~ m ) ) -> ( (♯ ` A ) = (♯ ` B ) <-> A ~~ B ) )
34	6, 33	rexlimddv 2619	. 2 |- ( ( ( A e. Fin /\ B e. Fin ) /\ ( n e. om /\ A ~~ n ) ) -> ( (♯ ` A ) = (♯ ` B ) <-> A ~~ B ) )
35	3, 34	rexlimddv 2619	1 |- ( ( A e. Fin /\ B e. Fin ) -> ( (♯ ` A ) = (♯ ` B ) <-> A ~~ B ) )

Syntax hints:   -> wi 4   /\ wa 104   <-> wb 105   = wceq 1364   e. wcel 2167   E.wrex 2476   class class class wbr 4033   |-> cmpt 4094   omcom 4626   -1-1->wf1 5255   -1-1-onto->wf1o 5257   ` cfv 5258  (class class class)co 5922  freccfrec 6448   ~~ cen 6797   Fincfn 6799   0cc0 7879   1c1 7880   + caddc 7882   ZZcz 9326   ZZ>=cuz 9601  ♯chash 10867

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 710  ax-5 1461  ax-7 1462  ax-gen 1463  ax-ie1 1507  ax-ie2 1508  ax-8 1518  ax-10 1519  ax-11 1520  ax-i12 1521  ax-bndl 1523  ax-4 1524  ax-17 1540  ax-i9 1544  ax-ial 1548  ax-i5r 1549  ax-13 2169  ax-14 2170  ax-ext 2178  ax-coll 4148  ax-sep 4151  ax-nul 4159  ax-pow 4207  ax-pr 4242  ax-un 4468  ax-setind 4573  ax-iinf 4624  ax-cnex 7970  ax-resscn 7971  ax-1cn 7972  ax-1re 7973  ax-icn 7974  ax-addcl 7975  ax-addrcl 7976  ax-mulcl 7977  ax-addcom 7979  ax-addass 7981  ax-distr 7983  ax-i2m1 7984  ax-0lt1 7985  ax-0id 7987  ax-rnegex 7988  ax-cnre 7990  ax-pre-ltirr 7991  ax-pre-ltwlin 7992  ax-pre-lttrn 7993  ax-pre-ltadd 7995

This theorem depends on definitions:  df-bi 117  df-dc 836  df-3or 981  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1475  df-sb 1777  df-eu 2048  df-mo 2049  df-clab 2183  df-cleq 2189  df-clel 2192  df-nfc 2328  df-ne 2368  df-nel 2463  df-ral 2480  df-rex 2481  df-reu 2482  df-rab 2484  df-v 2765  df-sbc 2990  df-csb 3085  df-dif 3159  df-un 3161  df-in 3163  df-ss 3170  df-nul 3451  df-pw 3607  df-sn 3628  df-pr 3629  df-op 3631  df-uni 3840  df-int 3875  df-iun 3918  df-br 4034  df-opab 4095  df-mpt 4096  df-tr 4132  df-id 4328  df-iord 4401  df-on 4403  df-ilim 4404  df-suc 4406  df-iom 4627  df-xp 4669  df-rel 4670  df-cnv 4671  df-co 4672  df-dm 4673  df-rn 4674  df-res 4675  df-ima 4676  df-iota 5219  df-fun 5260  df-fn 5261  df-f 5262  df-f1 5263  df-fo 5264  df-f1o 5265  df-fv 5266  df-riota 5877  df-ov 5925  df-oprab 5926  df-mpo 5927  df-recs 6363  df-frec 6449  df-er 6592  df-en 6800  df-dom 6801  df-fin 6802  df-pnf 8063  df-mnf 8064  df-xr 8065  df-ltxr 8066  df-le 8067  df-sub 8199  df-neg 8200  df-inn 8991  df-n0 9250  df-z 9327  df-uz 9602  df-ihash 10868

This theorem is referenced by:  hasheqf1o  10877  isfinite4im  10884  fihasheq0  10885  hashsng  10890  fihashen1  10891  fihashfn  10892  hashun  10897  hashfz  10913  hashxp  10918  mertenslemi1  11700  hashdvds  12389  crth  12392  phimullem  12393  eulerth  12401  4sqlem11  12570  znhash  14212  lgsquadlem1  15318  lgsquadlem2  15319  lgsquadlem3  15320