Metamath Proof Explorer


Theorem hashxpe

Description: The size of the Cartesian product of two finite sets is the product of their sizes. This is a version of hashxp valid for infinite sets, which uses extended real numbers. (Contributed by Thierry Arnoux, 27-May-2023)

Ref Expression
Assertion hashxpe AVBWA×B=A𝑒B

Proof

Step Hyp Ref Expression
1 simpr AVBWAFinBFinAFinBFin
2 hashxp AFinBFinA×B=AB
3 1 2 syl AVBWAFinBFinA×B=AB
4 nn0ssre 0
5 hashcl AFinA0
6 4 5 sselid AFinA
7 hashcl BFinB0
8 4 7 sselid BFinB
9 6 8 anim12i AFinBFinAB
10 1 9 syl AVBWAFinBFinAB
11 rexmul ABA𝑒B=AB
12 10 11 syl AVBWAFinBFinA𝑒B=AB
13 3 12 eqtr4d AVBWAFinBFinA×B=A𝑒B
14 simpr AVBW¬AFinB=B=
15 14 xpeq2d AVBW¬AFinB=A×B=A×
16 xp0 A×=
17 15 16 eqtrdi AVBW¬AFinB=A×B=
18 17 fveq2d AVBW¬AFinB=A×B=
19 hash0 =0
20 18 19 eqtrdi AVBW¬AFinB=A×B=0
21 simpl AVBWAV
22 hashinf AV¬AFinA=+∞
23 21 22 sylan AVBW¬AFinA=+∞
24 23 adantr AVBW¬AFinB=A=+∞
25 14 fveq2d AVBW¬AFinB=B=
26 25 19 eqtrdi AVBW¬AFinB=B=0
27 24 26 oveq12d AVBW¬AFinB=A𝑒B=+∞𝑒0
28 pnfxr +∞*
29 xmul01 +∞*+∞𝑒0=0
30 28 29 ax-mp +∞𝑒0=0
31 27 30 eqtrdi AVBW¬AFinB=A𝑒B=0
32 20 31 eqtr4d AVBW¬AFinB=A×B=A𝑒B
33 simpr AVBWBW
34 33 ad2antrr AVBW¬AFinBBW
35 hashxrcl BWB*
36 34 35 syl AVBW¬AFinBB*
37 hashgt0 BWB0<B
38 34 37 sylancom AVBW¬AFinB0<B
39 xmulpnf2 B*0<B+∞𝑒B=+∞
40 36 38 39 syl2anc AVBW¬AFinB+∞𝑒B=+∞
41 23 adantr AVBW¬AFinBA=+∞
42 41 oveq1d AVBW¬AFinBA𝑒B=+∞𝑒B
43 21 ad2antrr AVBW¬AFinBAV
44 43 34 xpexd AVBW¬AFinBA×BV
45 simplr AVBW¬AFinB¬AFin
46 0fin Fin
47 eleq1 A=AFinFin
48 46 47 mpbiri A=AFin
49 48 necon3bi ¬AFinA
50 45 49 syl AVBW¬AFinBA
51 simpr AVBW¬AFinBB
52 ioran ¬A=B=¬A=¬B=
53 xpeq0 A×B=A=B=
54 53 necon3abii A×B¬A=B=
55 df-ne A¬A=
56 df-ne B¬B=
57 55 56 anbi12i AB¬A=¬B=
58 52 54 57 3bitr4i A×BAB
59 58 biimpri ABA×B
60 50 51 59 syl2anc AVBW¬AFinBA×B
61 45 intnanrd AVBW¬AFinB¬AFinBFin
62 pm4.61 ¬A×BAFinBFinA×B¬AFinBFin
63 xpfir A×BFinA×BAFinBFin
64 63 ex A×BFinA×BAFinBFin
65 64 con3i ¬A×BAFinBFin¬A×BFin
66 62 65 sylbir A×B¬AFinBFin¬A×BFin
67 60 61 66 syl2anc AVBW¬AFinB¬A×BFin
68 hashinf A×BV¬A×BFinA×B=+∞
69 44 67 68 syl2anc AVBW¬AFinBA×B=+∞
70 40 42 69 3eqtr4rd AVBW¬AFinBA×B=A𝑒B
71 exmidne B=B
72 71 a1i AVBW¬AFinB=B
73 32 70 72 mpjaodan AVBW¬AFinA×B=A𝑒B
74 73 adantlr AVBW¬AFinBFin¬AFinA×B=A𝑒B
75 simpr AVBW¬BFinA=A=
76 75 xpeq1d AVBW¬BFinA=A×B=×B
77 0xp ×B=
78 76 77 eqtrdi AVBW¬BFinA=A×B=
79 78 fveq2d AVBW¬BFinA=A×B=
80 79 19 eqtrdi AVBW¬BFinA=A×B=0
81 75 fveq2d AVBW¬BFinA=A=
82 81 19 eqtrdi AVBW¬BFinA=A=0
83 hashinf BW¬BFinB=+∞
84 33 83 sylan AVBW¬BFinB=+∞
85 84 adantr AVBW¬BFinA=B=+∞
86 82 85 oveq12d AVBW¬BFinA=A𝑒B=0𝑒+∞
87 xmul02 +∞*0𝑒+∞=0
88 28 87 ax-mp 0𝑒+∞=0
89 86 88 eqtrdi AVBW¬BFinA=A𝑒B=0
90 80 89 eqtr4d AVBW¬BFinA=A×B=A𝑒B
91 hashxrcl AVA*
92 91 ad3antrrr AVBW¬BFinAA*
93 hashgt0 AVA0<A
94 93 ad4ant14 AVBW¬BFinA0<A
95 xmulpnf1 A*0<AA𝑒+∞=+∞
96 92 94 95 syl2anc AVBW¬BFinAA𝑒+∞=+∞
97 84 adantr AVBW¬BFinAB=+∞
98 97 oveq2d AVBW¬BFinAA𝑒B=A𝑒+∞
99 21 ad2antrr AVBW¬BFinAAV
100 33 ad2antrr AVBW¬BFinABW
101 99 100 xpexd AVBW¬BFinAA×BV
102 simpr AVBW¬BFinAA
103 simplr AVBW¬BFinA¬BFin
104 eleq1 B=BFinFin
105 46 104 mpbiri B=BFin
106 105 necon3bi ¬BFinB
107 103 106 syl AVBW¬BFinAB
108 102 107 59 syl2anc AVBW¬BFinAA×B
109 103 intnand AVBW¬BFinA¬AFinBFin
110 108 109 66 syl2anc AVBW¬BFinA¬A×BFin
111 101 110 68 syl2anc AVBW¬BFinAA×B=+∞
112 96 98 111 3eqtr4rd AVBW¬BFinAA×B=A𝑒B
113 exmidne A=A
114 113 a1i AVBW¬BFinA=A
115 90 112 114 mpjaodan AVBW¬BFinA×B=A𝑒B
116 115 adantlr AVBW¬AFinBFin¬BFinA×B=A𝑒B
117 simpr AVBW¬AFinBFin¬AFinBFin
118 ianor ¬AFinBFin¬AFin¬BFin
119 117 118 sylib AVBW¬AFinBFin¬AFin¬BFin
120 74 116 119 mpjaodan AVBW¬AFinBFinA×B=A𝑒B
121 exmidd AVBWAFinBFin¬AFinBFin
122 13 120 121 mpjaodan AVBWA×B=A𝑒B