Metamath Proof Explorer


Theorem ackbij1lem15

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

Ref Expression
Hypothesis ackbij.f F=x𝒫ωFincardyxy×𝒫y
Assertion ackbij1lem15 A𝒫ωFinB𝒫ωFincωcA¬cB¬FAsucc=FBsucc

Proof

Step Hyp Ref Expression
1 ackbij.f F=x𝒫ωFincardyxy×𝒫y
2 simpr1 A𝒫ωFinB𝒫ωFincωcA¬cBcω
3 ackbij1lem3 cωc𝒫ωFin
4 2 3 syl A𝒫ωFinB𝒫ωFincωcA¬cBc𝒫ωFin
5 simpr3 A𝒫ωFinB𝒫ωFincωcA¬cB¬cB
6 ackbij1lem1 ¬cBBsucc=Bc
7 5 6 syl A𝒫ωFinB𝒫ωFincωcA¬cBBsucc=Bc
8 inss2 Bcc
9 7 8 eqsstrdi A𝒫ωFinB𝒫ωFincωcA¬cBBsuccc
10 1 ackbij1lem12 c𝒫ωFinBsucccFBsuccFc
11 4 9 10 syl2anc A𝒫ωFinB𝒫ωFincωcA¬cBFBsuccFc
12 1 ackbij1lem10 F:𝒫ωFinω
13 12 ffvelcdmi c𝒫ωFinFcω
14 nnon FcωFcOn
15 onpsssuc FcOnFcsucFc
16 4 13 14 15 4syl A𝒫ωFinB𝒫ωFincωcA¬cBFcsucFc
17 1 ackbij1lem14 cωFc=sucFc
18 2 17 syl A𝒫ωFinB𝒫ωFincωcA¬cBFc=sucFc
19 18 psseq2d A𝒫ωFinB𝒫ωFincωcA¬cBFcFcFcsucFc
20 16 19 mpbird A𝒫ωFinB𝒫ωFincωcA¬cBFcFc
21 simpll A𝒫ωFinB𝒫ωFincωcA¬cBA𝒫ωFin
22 inss1 AsuccA
23 1 ackbij1lem11 A𝒫ωFinAsuccAAsucc𝒫ωFin
24 21 22 23 sylancl A𝒫ωFinB𝒫ωFincωcA¬cBAsucc𝒫ωFin
25 ssun1 ccAc
26 simpr2 A𝒫ωFinB𝒫ωFincωcA¬cBcA
27 ackbij1lem2 cAAsucc=cAc
28 26 27 syl A𝒫ωFinB𝒫ωFincωcA¬cBAsucc=cAc
29 25 28 sseqtrrid A𝒫ωFinB𝒫ωFincωcA¬cBcAsucc
30 1 ackbij1lem12 Asucc𝒫ωFincAsuccFcFAsucc
31 24 29 30 syl2anc A𝒫ωFinB𝒫ωFincωcA¬cBFcFAsucc
32 20 31 psssstrd A𝒫ωFinB𝒫ωFincωcA¬cBFcFAsucc
33 11 32 sspsstrd A𝒫ωFinB𝒫ωFincωcA¬cBFBsuccFAsucc
34 33 pssned A𝒫ωFinB𝒫ωFincωcA¬cBFBsuccFAsucc
35 34 necomd A𝒫ωFinB𝒫ωFincωcA¬cBFAsuccFBsucc
36 35 neneqd A𝒫ωFinB𝒫ωFincωcA¬cB¬FAsucc=FBsucc