Metamath Proof Explorer


Theorem ackbij1lem16

Description: Lemma for ackbij1 . (Contributed by Stefan O'Rear, 18-Nov-2014)

Ref Expression
Hypothesis ackbij.f F=x𝒫ωFincardyxy×𝒫y
Assertion ackbij1lem16 A𝒫ωFinB𝒫ωFinFA=FBA=B

Proof

Step Hyp Ref Expression
1 ackbij.f F=x𝒫ωFincardyxy×𝒫y
2 inss1 𝒫ωFin𝒫ω
3 2 sseli A𝒫ωFinA𝒫ω
4 3 elpwid A𝒫ωFinAω
5 4 adantr A𝒫ωFinB𝒫ωFinAω
6 2 sseli B𝒫ωFinB𝒫ω
7 6 elpwid B𝒫ωFinBω
8 7 adantl A𝒫ωFinB𝒫ωFinBω
9 5 8 unssd A𝒫ωFinB𝒫ωFinABω
10 inss2 𝒫ωFinFin
11 10 sseli A𝒫ωFinAFin
12 10 sseli B𝒫ωFinBFin
13 unfi AFinBFinABFin
14 11 12 13 syl2an A𝒫ωFinB𝒫ωFinABFin
15 nnunifi ABωABFinABω
16 9 14 15 syl2anc A𝒫ωFinB𝒫ωFinABω
17 peano2 ABωsucABω
18 16 17 syl A𝒫ωFinB𝒫ωFinsucABω
19 ineq2 a=Aa=A
20 19 fveq2d a=FAa=FA
21 ineq2 a=Ba=B
22 21 fveq2d a=FBa=FB
23 20 22 eqeq12d a=FAa=FBaFA=FB
24 19 21 eqeq12d a=Aa=BaA=B
25 23 24 imbi12d a=FAa=FBaAa=BaFA=FBA=B
26 25 imbi2d a=A𝒫ωFinB𝒫ωFinFAa=FBaAa=BaA𝒫ωFinB𝒫ωFinFA=FBA=B
27 ineq2 a=bAa=Ab
28 27 fveq2d a=bFAa=FAb
29 ineq2 a=bBa=Bb
30 29 fveq2d a=bFBa=FBb
31 28 30 eqeq12d a=bFAa=FBaFAb=FBb
32 27 29 eqeq12d a=bAa=BaAb=Bb
33 31 32 imbi12d a=bFAa=FBaAa=BaFAb=FBbAb=Bb
34 33 imbi2d a=bA𝒫ωFinB𝒫ωFinFAa=FBaAa=BaA𝒫ωFinB𝒫ωFinFAb=FBbAb=Bb
35 ineq2 a=sucbAa=Asucb
36 35 fveq2d a=sucbFAa=FAsucb
37 ineq2 a=sucbBa=Bsucb
38 37 fveq2d a=sucbFBa=FBsucb
39 36 38 eqeq12d a=sucbFAa=FBaFAsucb=FBsucb
40 35 37 eqeq12d a=sucbAa=BaAsucb=Bsucb
41 39 40 imbi12d a=sucbFAa=FBaAa=BaFAsucb=FBsucbAsucb=Bsucb
42 41 imbi2d a=sucbA𝒫ωFinB𝒫ωFinFAa=FBaAa=BaA𝒫ωFinB𝒫ωFinFAsucb=FBsucbAsucb=Bsucb
43 ineq2 a=sucABAa=AsucAB
44 43 fveq2d a=sucABFAa=FAsucAB
45 ineq2 a=sucABBa=BsucAB
46 45 fveq2d a=sucABFBa=FBsucAB
47 44 46 eqeq12d a=sucABFAa=FBaFAsucAB=FBsucAB
48 43 45 eqeq12d a=sucABAa=BaAsucAB=BsucAB
49 47 48 imbi12d a=sucABFAa=FBaAa=BaFAsucAB=FBsucABAsucAB=BsucAB
50 49 imbi2d a=sucABA𝒫ωFinB𝒫ωFinFAa=FBaAa=BaA𝒫ωFinB𝒫ωFinFAsucAB=FBsucABAsucAB=BsucAB
51 in0 A=
52 in0 B=
53 51 52 eqtr4i A=B
54 53 2a1i A𝒫ωFinB𝒫ωFinFA=FBA=B
55 simp13 bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbAbBFAsucb=FBsucb
56 3simpa bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbωA𝒫ωFinB𝒫ωFin
57 ackbij1lem2 bAAsucb=bAb
58 57 fveq2d bAFAsucb=FbAb
59 58 3ad2ant2 bωA𝒫ωFinB𝒫ωFinbAbBFAsucb=FbAb
60 ackbij1lem4 bωb𝒫ωFin
61 60 adantr bωA𝒫ωFinB𝒫ωFinb𝒫ωFin
62 simprl bωA𝒫ωFinB𝒫ωFinA𝒫ωFin
63 inss1 AbA
64 1 ackbij1lem11 A𝒫ωFinAbAAb𝒫ωFin
65 62 63 64 sylancl bωA𝒫ωFinB𝒫ωFinAb𝒫ωFin
66 incom bAb=Abb
67 inss2 Abb
68 nnord bωOrdb
69 orddisj Ordbbb=
70 68 69 syl bωbb=
71 70 adantr bωA𝒫ωFinB𝒫ωFinbb=
72 ssdisj Abbbb=Abb=
73 67 71 72 sylancr bωA𝒫ωFinB𝒫ωFinAbb=
74 66 73 eqtrid bωA𝒫ωFinB𝒫ωFinbAb=
75 1 ackbij1lem9 b𝒫ωFinAb𝒫ωFinbAb=FbAb=Fb+𝑜FAb
76 61 65 74 75 syl3anc bωA𝒫ωFinB𝒫ωFinFbAb=Fb+𝑜FAb
77 76 3ad2ant1 bωA𝒫ωFinB𝒫ωFinbAbBFbAb=Fb+𝑜FAb
78 59 77 eqtrd bωA𝒫ωFinB𝒫ωFinbAbBFAsucb=Fb+𝑜FAb
79 56 78 syl3an1 bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbAbBFAsucb=Fb+𝑜FAb
80 ackbij1lem2 bBBsucb=bBb
81 80 fveq2d bBFBsucb=FbBb
82 81 3ad2ant3 bωA𝒫ωFinB𝒫ωFinbAbBFBsucb=FbBb
83 simprr bωA𝒫ωFinB𝒫ωFinB𝒫ωFin
84 inss1 BbB
85 1 ackbij1lem11 B𝒫ωFinBbBBb𝒫ωFin
86 83 84 85 sylancl bωA𝒫ωFinB𝒫ωFinBb𝒫ωFin
87 incom bBb=Bbb
88 inss2 Bbb
89 ssdisj Bbbbb=Bbb=
90 88 71 89 sylancr bωA𝒫ωFinB𝒫ωFinBbb=
91 87 90 eqtrid bωA𝒫ωFinB𝒫ωFinbBb=
92 1 ackbij1lem9 b𝒫ωFinBb𝒫ωFinbBb=FbBb=Fb+𝑜FBb
93 61 86 91 92 syl3anc bωA𝒫ωFinB𝒫ωFinFbBb=Fb+𝑜FBb
94 93 3ad2ant1 bωA𝒫ωFinB𝒫ωFinbAbBFbBb=Fb+𝑜FBb
95 82 94 eqtrd bωA𝒫ωFinB𝒫ωFinbAbBFBsucb=Fb+𝑜FBb
96 56 95 syl3an1 bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbAbBFBsucb=Fb+𝑜FBb
97 55 79 96 3eqtr3d bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbAbBFb+𝑜FAb=Fb+𝑜FBb
98 1 ackbij1lem10 F:𝒫ωFinω
99 98 ffvelcdmi b𝒫ωFinFbω
100 61 99 syl bωA𝒫ωFinB𝒫ωFinFbω
101 98 ffvelcdmi Ab𝒫ωFinFAbω
102 65 101 syl bωA𝒫ωFinB𝒫ωFinFAbω
103 98 ffvelcdmi Bb𝒫ωFinFBbω
104 86 103 syl bωA𝒫ωFinB𝒫ωFinFBbω
105 nnacan FbωFAbωFBbωFb+𝑜FAb=Fb+𝑜FBbFAb=FBb
106 100 102 104 105 syl3anc bωA𝒫ωFinB𝒫ωFinFb+𝑜FAb=Fb+𝑜FBbFAb=FBb
107 106 3adant3 bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbFb+𝑜FAb=Fb+𝑜FBbFAb=FBb
108 107 3ad2ant1 bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbAbBFb+𝑜FAb=Fb+𝑜FBbFAb=FBb
109 97 108 mpbid bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbAbBFAb=FBb
110 uneq2 Ab=BbbAb=bBb
111 110 adantl bAbBAb=BbbAb=bBb
112 57 ad2antrr bAbBAb=BbAsucb=bAb
113 80 ad2antlr bAbBAb=BbBsucb=bBb
114 111 112 113 3eqtr4d bAbBAb=BbAsucb=Bsucb
115 114 ex bAbBAb=BbAsucb=Bsucb
116 115 3adant1 bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbAbBAb=BbAsucb=Bsucb
117 109 116 embantd bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbAbBFAb=FBbAb=BbAsucb=Bsucb
118 117 3exp bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbAbBFAb=FBbAb=BbAsucb=Bsucb
119 simp13 bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucb¬bAbBFAsucb=FBsucb
120 119 eqcomd bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucb¬bAbBFBsucb=FAsucb
121 simp12r bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucb¬bAbBB𝒫ωFin
122 simp12l bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucb¬bAbBA𝒫ωFin
123 simp11 bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucb¬bAbBbω
124 simp3 bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucb¬bAbBbB
125 simp2 bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucb¬bAbB¬bA
126 1 ackbij1lem15 B𝒫ωFinA𝒫ωFinbωbB¬bA¬FBsucb=FAsucb
127 121 122 123 124 125 126 syl23anc bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucb¬bAbB¬FBsucb=FAsucb
128 120 127 pm2.21dd bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucb¬bAbBFAb=FBbAb=BbAsucb=Bsucb
129 128 3exp bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucb¬bAbBFAb=FBbAb=BbAsucb=Bsucb
130 118 129 pm2.61d bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbBFAb=FBbAb=BbAsucb=Bsucb
131 simp13 bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbA¬bBFAsucb=FBsucb
132 simp12l bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbA¬bBA𝒫ωFin
133 simp12r bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbA¬bBB𝒫ωFin
134 simp11 bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbA¬bBbω
135 simp2 bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbA¬bBbA
136 simp3 bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbA¬bB¬bB
137 1 ackbij1lem15 A𝒫ωFinB𝒫ωFinbωbA¬bB¬FAsucb=FBsucb
138 132 133 134 135 136 137 syl23anc bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbA¬bB¬FAsucb=FBsucb
139 131 138 pm2.21dd bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbA¬bBFAb=FBbAb=BbAsucb=Bsucb
140 139 3exp bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbbA¬bBFAb=FBbAb=BbAsucb=Bsucb
141 simp13 bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucb¬bA¬bBFAsucb=FBsucb
142 ackbij1lem1 ¬bAAsucb=Ab
143 142 adantr ¬bA¬bBAsucb=Ab
144 143 fveq2d ¬bA¬bBFAsucb=FAb
145 ackbij1lem1 ¬bBBsucb=Bb
146 145 adantl ¬bA¬bBBsucb=Bb
147 146 fveq2d ¬bA¬bBFBsucb=FBb
148 144 147 eqeq12d ¬bA¬bBFAsucb=FBsucbFAb=FBb
149 148 biimpd ¬bA¬bBFAsucb=FBsucbFAb=FBb
150 149 3adant1 bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucb¬bA¬bBFAsucb=FBsucbFAb=FBb
151 141 150 mpd bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucb¬bA¬bBFAb=FBb
152 143 146 eqeq12d ¬bA¬bBAsucb=BsucbAb=Bb
153 152 biimprd ¬bA¬bBAb=BbAsucb=Bsucb
154 153 3adant1 bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucb¬bA¬bBAb=BbAsucb=Bsucb
155 151 154 embantd bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucb¬bA¬bBFAb=FBbAb=BbAsucb=Bsucb
156 155 3exp bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucb¬bA¬bBFAb=FBbAb=BbAsucb=Bsucb
157 140 156 pm2.61d bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucb¬bBFAb=FBbAb=BbAsucb=Bsucb
158 130 157 pm2.61d bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbFAb=FBbAb=BbAsucb=Bsucb
159 158 3exp bωA𝒫ωFinB𝒫ωFinFAsucb=FBsucbFAb=FBbAb=BbAsucb=Bsucb
160 159 com34 bωA𝒫ωFinB𝒫ωFinFAb=FBbAb=BbFAsucb=FBsucbAsucb=Bsucb
161 160 a2d bωA𝒫ωFinB𝒫ωFinFAb=FBbAb=BbA𝒫ωFinB𝒫ωFinFAsucb=FBsucbAsucb=Bsucb
162 26 34 42 50 54 161 finds sucABωA𝒫ωFinB𝒫ωFinFAsucAB=FBsucABAsucAB=BsucAB
163 18 162 mpcom A𝒫ωFinB𝒫ωFinFAsucAB=FBsucABAsucAB=BsucAB
164 omsson ωOn
165 9 164 sstrdi A𝒫ωFinB𝒫ωFinABOn
166 onsucuni ABOnABsucAB
167 165 166 syl A𝒫ωFinB𝒫ωFinABsucAB
168 167 unssad A𝒫ωFinB𝒫ωFinAsucAB
169 df-ss AsucABAsucAB=A
170 168 169 sylib A𝒫ωFinB𝒫ωFinAsucAB=A
171 170 fveq2d A𝒫ωFinB𝒫ωFinFAsucAB=FA
172 167 unssbd A𝒫ωFinB𝒫ωFinBsucAB
173 df-ss BsucABBsucAB=B
174 172 173 sylib A𝒫ωFinB𝒫ωFinBsucAB=B
175 174 fveq2d A𝒫ωFinB𝒫ωFinFBsucAB=FB
176 171 175 eqeq12d A𝒫ωFinB𝒫ωFinFAsucAB=FBsucABFA=FB
177 170 174 eqeq12d A𝒫ωFinB𝒫ωFinAsucAB=BsucABA=B
178 163 176 177 3imtr3d A𝒫ωFinB𝒫ωFinFA=FBA=B