Metamath Proof Explorer


Theorem hashbclem

Description: Lemma for hashbc : inductive step. (Contributed by Mario Carneiro, 13-Jul-2014)

Ref Expression
Hypotheses hashbc.1 φ A Fin
hashbc.2 φ ¬ z A
hashbc.3 φ j ( A j) = x 𝒫 A | x = j
hashbc.4 φ K
Assertion hashbclem φ ( A z K) = x 𝒫 A z | x = K

Proof

Step Hyp Ref Expression
1 hashbc.1 φ A Fin
2 hashbc.2 φ ¬ z A
3 hashbc.3 φ j ( A j) = x 𝒫 A | x = j
4 hashbc.4 φ K
5 oveq2 j = K ( A j) = ( A K)
6 eqeq2 j = K x = j x = K
7 6 rabbidv j = K x 𝒫 A | x = j = x 𝒫 A | x = K
8 7 fveq2d j = K x 𝒫 A | x = j = x 𝒫 A | x = K
9 5 8 eqeq12d j = K ( A j) = x 𝒫 A | x = j ( A K) = x 𝒫 A | x = K
10 9 3 4 rspcdva φ ( A K) = x 𝒫 A | x = K
11 ssun1 A A z
12 11 sspwi 𝒫 A 𝒫 A z
13 12 sseli x 𝒫 A x 𝒫 A z
14 13 adantl φ x 𝒫 A x 𝒫 A z
15 elpwi x 𝒫 A x A
16 15 ssneld x 𝒫 A ¬ z A ¬ z x
17 2 16 mpan9 φ x 𝒫 A ¬ z x
18 14 17 jca φ x 𝒫 A x 𝒫 A z ¬ z x
19 elpwi x 𝒫 A z x A z
20 uncom A z = z A
21 19 20 sseqtrdi x 𝒫 A z x z A
22 21 adantr x 𝒫 A z ¬ z x x z A
23 disjsn x z = ¬ z x
24 23 bilanri x 𝒫 A z ¬ z x x z =
25 disjssun x z = x z A x A
26 24 25 syl x 𝒫 A z ¬ z x x z A x A
27 22 26 mpbid x 𝒫 A z ¬ z x x A
28 vex x V
29 28 elpw x 𝒫 A x A
30 27 29 sylibr x 𝒫 A z ¬ z x x 𝒫 A
31 30 adantl φ x 𝒫 A z ¬ z x x 𝒫 A
32 18 31 impbida φ x 𝒫 A x 𝒫 A z ¬ z x
33 32 anbi1d φ x 𝒫 A x = K x 𝒫 A z ¬ z x x = K
34 anass x 𝒫 A z ¬ z x x = K x 𝒫 A z ¬ z x x = K
35 33 34 bitrdi φ x 𝒫 A x = K x 𝒫 A z ¬ z x x = K
36 35 rabbidva2 φ x 𝒫 A | x = K = x 𝒫 A z | ¬ z x x = K
37 36 fveq2d φ x 𝒫 A | x = K = x 𝒫 A z | ¬ z x x = K
38 10 37 eqtrd φ ( A K) = x 𝒫 A z | ¬ z x x = K
39 oveq2 j = K 1 ( A j) = ( A K 1 )
40 eqeq2 j = K 1 x = j x = K 1
41 40 rabbidv j = K 1 x 𝒫 A | x = j = x 𝒫 A | x = K 1
42 41 fveq2d j = K 1 x 𝒫 A | x = j = x 𝒫 A | x = K 1
43 39 42 eqeq12d j = K 1 ( A j) = x 𝒫 A | x = j ( A K 1 ) = x 𝒫 A | x = K 1
44 peano2zm K K 1
45 4 44 syl φ K 1
46 43 3 45 rspcdva φ ( A K 1 ) = x 𝒫 A | x = K 1
47 pwfi A Fin 𝒫 A Fin
48 1 47 sylib φ 𝒫 A Fin
49 rabexg 𝒫 A Fin x 𝒫 A | x = K 1 V
50 48 49 syl φ x 𝒫 A | x = K 1 V
51 snfi z Fin
52 unfi A Fin z Fin A z Fin
53 1 51 52 sylancl φ A z Fin
54 pwfi A z Fin 𝒫 A z Fin
55 53 54 sylib φ 𝒫 A z Fin
56 ssrab2 x 𝒫 A z | z x x = K 𝒫 A z
57 ssfi 𝒫 A z Fin x 𝒫 A z | z x x = K 𝒫 A z x 𝒫 A z | z x x = K Fin
58 55 56 57 sylancl φ x 𝒫 A z | z x x = K Fin
59 fveqeq2 x = u x = K 1 u = K 1
60 59 elrab u x 𝒫 A | x = K 1 u 𝒫 A u = K 1
61 eleq2 x = u z z x z u z
62 fveqeq2 x = u z x = K u z = K
63 61 62 anbi12d x = u z z x x = K z u z u z = K
64 elpwi u 𝒫 A u A
65 64 ad2antrl φ u 𝒫 A u = K 1 u A
66 unss1 u A u z A z
67 65 66 syl φ u 𝒫 A u = K 1 u z A z
68 vex u V
69 vsnex z V
70 68 69 unex u z V
71 70 elpw u z 𝒫 A z u z A z
72 67 71 sylibr φ u 𝒫 A u = K 1 u z 𝒫 A z
73 1 adantr φ u 𝒫 A u = K 1 A Fin
74 73 65 ssfid φ u 𝒫 A u = K 1 u Fin
75 51 a1i φ u 𝒫 A u = K 1 z Fin
76 2 adantr φ u 𝒫 A u = K 1 ¬ z A
77 65 76 ssneldd φ u 𝒫 A u = K 1 ¬ z u
78 disjsn u z = ¬ z u
79 77 78 sylibr φ u 𝒫 A u = K 1 u z =
80 hashun u Fin z Fin u z = u z = u + z
81 74 75 79 80 syl3anc φ u 𝒫 A u = K 1 u z = u + z
82 simprr φ u 𝒫 A u = K 1 u = K 1
83 hashsng z V z = 1
84 83 elv z = 1
85 84 a1i φ u 𝒫 A u = K 1 z = 1
86 82 85 oveq12d φ u 𝒫 A u = K 1 u + z = K - 1 + 1
87 4 adantr φ u 𝒫 A u = K 1 K
88 87 zcnd φ u 𝒫 A u = K 1 K
89 ax-1cn 1
90 npcan K 1 K - 1 + 1 = K
91 88 89 90 sylancl φ u 𝒫 A u = K 1 K - 1 + 1 = K
92 81 86 91 3eqtrd φ u 𝒫 A u = K 1 u z = K
93 ssun2 z u z
94 vex z V
95 94 snss z u z z u z
96 93 95 mpbir z u z
97 92 96 jctil φ u 𝒫 A u = K 1 z u z u z = K
98 63 72 97 elrabd φ u 𝒫 A u = K 1 u z x 𝒫 A z | z x x = K
99 98 ex φ u 𝒫 A u = K 1 u z x 𝒫 A z | z x x = K
100 60 99 biimtrid φ u x 𝒫 A | x = K 1 u z x 𝒫 A z | z x x = K
101 eleq2 x = v z x z v
102 fveqeq2 x = v x = K v = K
103 101 102 anbi12d x = v z x x = K z v v = K
104 103 elrab v x 𝒫 A z | z x x = K v 𝒫 A z z v v = K
105 fveqeq2 x = v z x = K 1 v z = K 1
106 elpwi v 𝒫 A z v A z
107 106 ad2antrl φ v 𝒫 A z z v v = K v A z
108 107 20 sseqtrdi φ v 𝒫 A z z v v = K v z A
109 ssundif v z A v z A
110 108 109 sylib φ v 𝒫 A z z v v = K v z A
111 vex v V
112 111 difexi v z V
113 112 elpw v z 𝒫 A v z A
114 110 113 sylibr φ v 𝒫 A z z v v = K v z 𝒫 A
115 1 adantr φ v 𝒫 A z z v v = K A Fin
116 115 110 ssfid φ v 𝒫 A z z v v = K v z Fin
117 hashcl v z Fin v z 0
118 116 117 syl φ v 𝒫 A z z v v = K v z 0
119 118 nn0cnd φ v 𝒫 A z z v v = K v z
120 pncan v z 1 v z + 1 - 1 = v z
121 119 89 120 sylancl φ v 𝒫 A z z v v = K v z + 1 - 1 = v z
122 undif1 v z z = v z
123 simprrl φ v 𝒫 A z z v v = K z v
124 123 snssd φ v 𝒫 A z z v v = K z v
125 ssequn2 z v v z = v
126 124 125 sylib φ v 𝒫 A z z v v = K v z = v
127 122 126 eqtrid φ v 𝒫 A z z v v = K v z z = v
128 127 fveq2d φ v 𝒫 A z z v v = K v z z = v
129 51 a1i φ v 𝒫 A z z v v = K z Fin
130 disjdifr v z z =
131 130 a1i φ v 𝒫 A z z v v = K v z z =
132 hashun v z Fin z Fin v z z = v z z = v z + z
133 116 129 131 132 syl3anc φ v 𝒫 A z z v v = K v z z = v z + z
134 84 oveq2i v z + z = v z + 1
135 133 134 eqtrdi φ v 𝒫 A z z v v = K v z z = v z + 1
136 simprrr φ v 𝒫 A z z v v = K v = K
137 128 135 136 3eqtr3d φ v 𝒫 A z z v v = K v z + 1 = K
138 137 oveq1d φ v 𝒫 A z z v v = K v z + 1 - 1 = K 1
139 121 138 eqtr3d φ v 𝒫 A z z v v = K v z = K 1
140 105 114 139 elrabd φ v 𝒫 A z z v v = K v z x 𝒫 A | x = K 1
141 140 ex φ v 𝒫 A z z v v = K v z x 𝒫 A | x = K 1
142 104 141 biimtrid φ v x 𝒫 A z | z x x = K v z x 𝒫 A | x = K 1
143 60 104 anbi12i u x 𝒫 A | x = K 1 v x 𝒫 A z | z x x = K u 𝒫 A u = K 1 v 𝒫 A z z v v = K
144 simp3rl φ u 𝒫 A u = K 1 v 𝒫 A z z v v = K z v
145 144 snssd φ u 𝒫 A u = K 1 v 𝒫 A z z v v = K z v
146 incom z u = u z
147 79 3adant3 φ u 𝒫 A u = K 1 v 𝒫 A z z v v = K u z =
148 146 147 eqtrid φ u 𝒫 A u = K 1 v 𝒫 A z z v v = K z u =
149 uneqdifeq z v z u = z u = v v z = u
150 145 148 149 syl2anc φ u 𝒫 A u = K 1 v 𝒫 A z z v v = K z u = v v z = u
151 150 bicomd φ u 𝒫 A u = K 1 v 𝒫 A z z v v = K v z = u z u = v
152 eqcom u = v z v z = u
153 eqcom v = u z u z = v
154 uncom u z = z u
155 154 eqeq1i u z = v z u = v
156 153 155 bitri v = u z z u = v
157 151 152 156 3bitr4g φ u 𝒫 A u = K 1 v 𝒫 A z z v v = K u = v z v = u z
158 157 3expib φ u 𝒫 A u = K 1 v 𝒫 A z z v v = K u = v z v = u z
159 143 158 biimtrid φ u x 𝒫 A | x = K 1 v x 𝒫 A z | z x x = K u = v z v = u z
160 50 58 100 142 159 en3d φ x 𝒫 A | x = K 1 x 𝒫 A z | z x x = K
161 ssrab2 x 𝒫 A | x = K 1 𝒫 A
162 ssfi 𝒫 A Fin x 𝒫 A | x = K 1 𝒫 A x 𝒫 A | x = K 1 Fin
163 48 161 162 sylancl φ x 𝒫 A | x = K 1 Fin
164 hashen x 𝒫 A | x = K 1 Fin x 𝒫 A z | z x x = K Fin x 𝒫 A | x = K 1 = x 𝒫 A z | z x x = K x 𝒫 A | x = K 1 x 𝒫 A z | z x x = K
165 163 58 164 syl2anc φ x 𝒫 A | x = K 1 = x 𝒫 A z | z x x = K x 𝒫 A | x = K 1 x 𝒫 A z | z x x = K
166 160 165 mpbird φ x 𝒫 A | x = K 1 = x 𝒫 A z | z x x = K
167 46 166 eqtrd φ ( A K 1 ) = x 𝒫 A z | z x x = K
168 38 167 oveq12d φ ( A K) + ( A K 1 ) = x 𝒫 A z | ¬ z x x = K + x 𝒫 A z | z x x = K
169 51 a1i φ z Fin
170 disjsn A z = ¬ z A
171 2 170 sylibr φ A z =
172 hashun A Fin z Fin A z = A z = A + z
173 1 169 171 172 syl3anc φ A z = A + z
174 84 oveq2i A + z = A + 1
175 173 174 eqtrdi φ A z = A + 1
176 175 oveq1d φ ( A z K) = ( A + 1 K)
177 hashcl A Fin A 0
178 1 177 syl φ A 0
179 bcpasc A 0 K ( A K) + ( A K 1 ) = ( A + 1 K)
180 178 4 179 syl2anc φ ( A K) + ( A K 1 ) = ( A + 1 K)
181 176 180 eqtr4d φ ( A z K) = ( A K) + ( A K 1 )
182 pm2.1 ¬ z x z x
183 182 biantrur x = K ¬ z x z x x = K
184 andir ¬ z x z x x = K ¬ z x x = K z x x = K
185 183 184 bitri x = K ¬ z x x = K z x x = K
186 185 rabbii x 𝒫 A z | x = K = x 𝒫 A z | ¬ z x x = K z x x = K
187 unrab x 𝒫 A z | ¬ z x x = K x 𝒫 A z | z x x = K = x 𝒫 A z | ¬ z x x = K z x x = K
188 186 187 eqtr4i x 𝒫 A z | x = K = x 𝒫 A z | ¬ z x x = K x 𝒫 A z | z x x = K
189 188 fveq2i x 𝒫 A z | x = K = x 𝒫 A z | ¬ z x x = K x 𝒫 A z | z x x = K
190 ssrab2 x 𝒫 A z | ¬ z x x = K 𝒫 A z
191 ssfi 𝒫 A z Fin x 𝒫 A z | ¬ z x x = K 𝒫 A z x 𝒫 A z | ¬ z x x = K Fin
192 55 190 191 sylancl φ x 𝒫 A z | ¬ z x x = K Fin
193 inrab x 𝒫 A z | ¬ z x x = K x 𝒫 A z | z x x = K = x 𝒫 A z | ¬ z x x = K z x x = K
194 simprl ¬ z x x = K z x x = K z x
195 simpll ¬ z x x = K z x x = K ¬ z x
196 194 195 pm2.65i ¬ ¬ z x x = K z x x = K
197 196 rgenw x 𝒫 A z ¬ ¬ z x x = K z x x = K
198 rabeq0 x 𝒫 A z | ¬ z x x = K z x x = K = x 𝒫 A z ¬ ¬ z x x = K z x x = K
199 197 198 mpbir x 𝒫 A z | ¬ z x x = K z x x = K =
200 193 199 eqtri x 𝒫 A z | ¬ z x x = K x 𝒫 A z | z x x = K =
201 200 a1i φ x 𝒫 A z | ¬ z x x = K x 𝒫 A z | z x x = K =
202 hashun x 𝒫 A z | ¬ z x x = K Fin x 𝒫 A z | z x x = K Fin x 𝒫 A z | ¬ z x x = K x 𝒫 A z | z x x = K = x 𝒫 A z | ¬ z x x = K x 𝒫 A z | z x x = K = x 𝒫 A z | ¬ z x x = K + x 𝒫 A z | z x x = K
203 192 58 201 202 syl3anc φ x 𝒫 A z | ¬ z x x = K x 𝒫 A z | z x x = K = x 𝒫 A z | ¬ z x x = K + x 𝒫 A z | z x x = K
204 189 203 eqtrid φ x 𝒫 A z | x = K = x 𝒫 A z | ¬ z x x = K + x 𝒫 A z | z x x = K
205 168 181 204 3eqtr4d φ ( A z K) = x 𝒫 A z | x = K