Metamath Proof Explorer


Theorem fin23lem26

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

Ref Expression
Assertion fin23lem26 Sω¬SFiniωjSjSi

Proof

Step Hyp Ref Expression
1 breq2 i=jSijS
2 1 rexbidv i=jSjSijSjS
3 breq2 i=ajSijSa
4 3 rexbidv i=ajSjSijSjSa
5 breq2 i=sucajSijSsuca
6 5 rexbidv i=sucajSjSijSjSsuca
7 ordom Ordω
8 simpl Sω¬SFinSω
9 0fin Fin
10 eleq1 S=SFinFin
11 9 10 mpbiri S=SFin
12 11 necon3bi ¬SFinS
13 12 adantl Sω¬SFinS
14 tz7.5 OrdωSωSjSSj=
15 7 8 13 14 mp3an2i Sω¬SFinjSSj=
16 en0 jSjS=
17 incom jS=Sj
18 17 eqeq1i jS=Sj=
19 16 18 bitri jSSj=
20 19 rexbii jSjSjSSj=
21 15 20 sylibr Sω¬SFinjSjS
22 simplrl aωSω¬SFinjSjSaSω
23 omsson ωOn
24 22 23 sstrdi aωSω¬SFinjSjSaSOn
25 24 ssdifssd aωSω¬SFinjSjSaSsucjOn
26 simplr Sω¬SFinjS¬SFin
27 ssel2 SωjSjω
28 onfin2 ω=OnFin
29 inss2 OnFinFin
30 28 29 eqsstri ωFin
31 peano2 jωsucjω
32 30 31 sselid jωsucjFin
33 27 32 syl SωjSsucjFin
34 33 adantlr Sω¬SFinjSsucjFin
35 ssfi sucjFinSsucjSFin
36 35 ex sucjFinSsucjSFin
37 34 36 syl Sω¬SFinjSSsucjSFin
38 26 37 mtod Sω¬SFinjS¬Ssucj
39 ssdif0 SsucjSsucj=
40 39 necon3bbii ¬SsucjSsucj
41 38 40 sylib Sω¬SFinjSSsucj
42 41 ad2ant2lr aωSω¬SFinjSjSaSsucj
43 onint SsucjOnSsucjSsucjSsucj
44 25 42 43 syl2anc aωSω¬SFinjSjSaSsucjSsucj
45 44 eldifad aωSω¬SFinjSjSaSsucjS
46 simprr aωSω¬SFinjSjSajSa
47 en2sn jVaVja
48 47 el2v ja
49 48 a1i aωSω¬SFinjSjSaja
50 simprl aωSω¬SFinjSjSajS
51 22 50 sseldd aωSω¬SFinjSjSajω
52 nnord jωOrdj
53 51 52 syl aωSω¬SFinjSjSaOrdj
54 ordirr Ordj¬jj
55 elinel1 jjSjj
56 54 55 nsyl Ordj¬jjS
57 disjsn jSj=¬jjS
58 56 57 sylibr OrdjjSj=
59 53 58 syl aωSω¬SFinjSjSajSj=
60 nnord aωOrda
61 ordirr Orda¬aa
62 60 61 syl aω¬aa
63 disjsn aa=¬aa
64 62 63 sylibr aωaa=
65 64 ad2antrr aωSω¬SFinjSjSaaa=
66 unen jSajajSj=aa=jSjaa
67 46 49 59 65 66 syl22anc aωSω¬SFinjSjSajSjaa
68 simprr aωSω¬SFinjSjSabSbS
69 simplrl aωSω¬SFinjSjSabSSω
70 69 23 sstrdi aωSω¬SFinjSjSabSSOn
71 ordsuc OrdjOrdsucj
72 53 71 sylib aωSω¬SFinjSjSaOrdsucj
73 72 adantrr aωSω¬SFinjSjSabSOrdsucj
74 simp2 bSSOnOrdsucjSOn
75 74 ssdifssd bSSOnOrdsucjSsucjOn
76 simpl1 bSSOnOrdsucj¬bsucjbS
77 simpr bSSOnOrdsucj¬bsucj¬bsucj
78 76 77 eldifd bSSOnOrdsucj¬bsucjbSsucj
79 78 ex bSSOnOrdsucj¬bsucjbSsucj
80 onnmin SsucjOnbSsucj¬bSsucj
81 75 79 80 syl6an bSSOnOrdsucj¬bsucj¬bSsucj
82 81 con4d bSSOnOrdsucjbSsucjbsucj
83 82 imp bSSOnOrdsucjbSsucjbsucj
84 simp3 bSSOnOrdsucjOrdsucj
85 ordsucss Ordsucjbsucjsucbsucj
86 84 85 syl bSSOnOrdsucjbsucjsucbsucj
87 86 imp bSSOnOrdsucjbsucjsucbsucj
88 87 sscond bSSOnOrdsucjbsucjSsucjSsucb
89 intss SsucjSsucbSsucbSsucj
90 88 89 syl bSSOnOrdsucjbsucjSsucbSsucj
91 simpl2 bSSOnOrdsucjbsucjSOn
92 ordelon OrdsucjbsucjbOn
93 84 92 sylan bSSOnOrdsucjbsucjbOn
94 onmindif SOnbOnbSsucb
95 91 93 94 syl2anc bSSOnOrdsucjbsucjbSsucb
96 90 95 sseldd bSSOnOrdsucjbsucjbSsucj
97 83 96 impbida bSSOnOrdsucjbSsucjbsucj
98 68 70 73 97 syl3anc aωSω¬SFinjSjSabSbSsucjbsucj
99 df-suc sucj=jj
100 99 eleq2i bsucjbjj
101 98 100 bitrdi aωSω¬SFinjSjSabSbSsucjbjj
102 101 expr aωSω¬SFinjSjSabSbSsucjbjj
103 102 pm5.32rd aωSω¬SFinjSjSabSsucjbSbjjbS
104 elin bSsucjSbSsucjbS
105 elin bjjSbjjbS
106 103 104 105 3bitr4g aωSω¬SFinjSjSabSsucjSbjjS
107 106 eqrdv aωSω¬SFinjSjSaSsucjS=jjS
108 indir jjS=jSjS
109 107 108 eqtrdi aωSω¬SFinjSjSaSsucjS=jSjS
110 snssi jSjS
111 df-ss jSjS=j
112 110 111 sylib jSjS=j
113 112 uneq2d jSjSjS=jSj
114 113 ad2antrl aωSω¬SFinjSjSajSjS=jSj
115 109 114 eqtrd aωSω¬SFinjSjSaSsucjS=jSj
116 df-suc suca=aa
117 116 a1i aωSω¬SFinjSjSasuca=aa
118 67 115 117 3brtr4d aωSω¬SFinjSjSaSsucjSsuca
119 ineq1 b=SsucjbS=SsucjS
120 119 breq1d b=SsucjbSsucaSsucjSsuca
121 120 rspcev SsucjSSsucjSsucabSbSsuca
122 45 118 121 syl2anc aωSω¬SFinjSjSabSbSsuca
123 122 rexlimdvaa aωSω¬SFinjSjSabSbSsuca
124 ineq1 b=jbS=jS
125 124 breq1d b=jbSsucajSsuca
126 125 cbvrexvw bSbSsucajSjSsuca
127 123 126 imbitrdi aωSω¬SFinjSjSajSjSsuca
128 127 ex aωSω¬SFinjSjSajSjSsuca
129 2 4 6 21 128 finds2 iωSω¬SFinjSjSi
130 129 impcom Sω¬SFiniωjSjSi