Metamath Proof Explorer


Theorem pssnnOLD

Description: Obsolete version of pssnn as of 31-Jul-2024. (Contributed by NM, 22-Jun-1998) (Revised by Mario Carneiro, 16-Nov-2014) (Proof modification is discouraged.) (New usage is discouraged.)

Ref Expression
Assertion pssnnOLD AωBAxABx

Proof

Step Hyp Ref Expression
1 pssss BABA
2 ssexg BAAωBV
3 1 2 sylan BAAωBV
4 3 ancoms AωBABV
5 psseq2 z=wzw
6 rexeq z=xzwxxwx
7 5 6 imbi12d z=wzxzwxwxwx
8 7 albidv z=wwzxzwxwwxwx
9 psseq2 z=ywzwy
10 rexeq z=yxzwxxywx
11 9 10 imbi12d z=ywzxzwxwyxywx
12 11 albidv z=ywwzxzwxwwyxywx
13 psseq2 z=sucywzwsucy
14 rexeq z=sucyxzwxxsucywx
15 13 14 imbi12d z=sucywzxzwxwsucyxsucywx
16 15 albidv z=sucywwzxzwxwwsucyxsucywx
17 psseq2 z=AwzwA
18 rexeq z=AxzwxxAwx
19 17 18 imbi12d z=AwzxzwxwAxAwx
20 19 albidv z=AwwzxzwxwwAxAwx
21 npss0 ¬w
22 21 pm2.21i wxwx
23 22 ax-gen wwxwx
24 nfv wyω
25 nfa1 wwwyxywx
26 elequ1 z=yzwyw
27 26 biimpcd zwz=yyw
28 27 con3d zw¬yw¬z=y
29 28 adantl wsucyzw¬yw¬z=y
30 pssss wsucywsucy
31 30 sseld wsucyzwzsucy
32 elsuci zsucyzyz=y
33 32 ord zsucy¬zyz=y
34 33 con1d zsucy¬z=yzy
35 31 34 syl6 wsucyzw¬z=yzy
36 35 imp wsucyzw¬z=yzy
37 29 36 syld wsucyzw¬ywzy
38 37 impancom wsucy¬ywzwzy
39 38 ssrdv wsucy¬ywwy
40 39 anim1i wsucy¬yw¬w=ywy¬w=y
41 dfpss2 wywy¬w=y
42 40 41 sylibr wsucy¬yw¬w=ywy
43 elelsuc xyxsucy
44 43 anim1i xywxxsucywx
45 44 reximi2 xywxxsucywx
46 42 45 imim12i wyxywxwsucy¬yw¬w=yxsucywx
47 46 exp4c wyxywxwsucy¬yw¬w=yxsucywx
48 47 sps wwyxywxwsucy¬yw¬w=yxsucywx
49 48 adantl yωwwyxywxwsucy¬yw¬w=yxsucywx
50 49 com4t ¬yw¬w=yyωwwyxywxwsucyxsucywx
51 anidm wsucywsucywsucy
52 ssdif wsucywysucyy
53 nnord yωOrdy
54 orddif Ordyy=sucyy
55 53 54 syl yωy=sucyy
56 55 sseq2d yωwyywysucyy
57 52 56 imbitrrid yωwsucywyy
58 30 57 syl5 yωwsucywyy
59 pssnel wsucyzzsucy¬zw
60 eleq2 wy=yzwyzy
61 eldifi zwyzw
62 60 61 syl6bir wy=yzyzw
63 62 adantl ywzsucywy=yzyzw
64 eleq1a ywz=yzw
65 33 64 sylan9r ywzsucy¬zyzw
66 65 adantr ywzsucywy=y¬zyzw
67 63 66 pm2.61d ywzsucywy=yzw
68 67 ex ywzsucywy=yzw
69 68 con3d ywzsucy¬zw¬wy=y
70 69 expimpd ywzsucy¬zw¬wy=y
71 70 exlimdv ywzzsucy¬zw¬wy=y
72 59 71 syl5 ywwsucy¬wy=y
73 58 72 im2anan9r ywyωwsucywsucywyy¬wy=y
74 51 73 biimtrrid ywyωwsucywyy¬wy=y
75 dfpss2 wyywyy¬wy=y
76 74 75 syl6ibr ywyωwsucywyy
77 psseq1 w=zwyzy
78 breq1 w=zwxzx
79 78 rexbidv w=zxywxxyzx
80 77 79 imbi12d w=zwyxywxzyxyzx
81 80 cbvalvw wwyxywxzzyxyzx
82 vex wV
83 82 difexi wyV
84 psseq1 z=wyzywyy
85 breq1 z=wyzxwyx
86 85 rexbidv z=wyxyzxxywyx
87 84 86 imbi12d z=wyzyxyzxwyyxywyx
88 83 87 spcv zzyxyzxwyyxywyx
89 81 88 sylbi wwyxywxwyyxywyx
90 76 89 sylan9 ywyωwwyxywxwsucyxywyx
91 ordsucelsuc Ordyxysucxsucy
92 91 biimpd Ordyxysucxsucy
93 53 92 syl yωxysucxsucy
94 93 adantl ywyωxysucxsucy
95 94 adantrd ywyωxywyxsucxsucy
96 elnn xyyωxω
97 snex yxV
98 vex yV
99 vex xV
100 98 99 f1osn yx:y1-1 ontox
101 f1oen3g yxVyx:y1-1 ontoxyx
102 97 100 101 mp2an yx
103 102 jctr wyxwyxyx
104 nnord xωOrdx
105 orddisj Ordxxx=
106 104 105 syl xωxx=
107 incom ywy=wyy
108 disjdif ywy=
109 107 108 eqtr3i wyy=
110 106 109 jctil xωwyy=xx=
111 unen wyxyxwyy=xx=wyyxx
112 103 110 111 syl2an wyxxωwyyxx
113 difsnid ywwyy=w
114 113 eqcomd yww=wyy
115 df-suc sucx=xx
116 115 a1i ywsucx=xx
117 114 116 breq12d ywwsucxwyyxx
118 112 117 imbitrrid ywwyxxωwsucx
119 96 118 sylan2i ywwyxxyyωwsucx
120 119 exp4d ywwyxxyyωwsucx
121 120 com24 ywyωxywyxwsucx
122 121 imp4b ywyωxywyxwsucx
123 95 122 jcad ywyωxywyxsucxsucywsucx
124 breq2 z=sucxwzwsucx
125 124 rspcev sucxsucywsucxzsucywz
126 123 125 syl6 ywyωxywyxzsucywz
127 126 exlimdv ywyωxxywyxzsucywz
128 df-rex xywyxxxywyx
129 breq2 x=zwxwz
130 129 cbvrexvw xsucywxzsucywz
131 127 128 130 3imtr4g ywyωxywyxxsucywx
132 131 adantr ywyωwwyxywxxywyxxsucywx
133 90 132 syld ywyωwwyxywxwsucyxsucywx
134 133 expl ywyωwwyxywxwsucyxsucywx
135 82 eqelsuc w=ywsucy
136 82 enref ww
137 breq2 x=wwxww
138 137 rspcev wsucywwxsucywx
139 135 136 138 sylancl w=yxsucywx
140 139 2a1d w=yyωwwyxywxwsucyxsucywx
141 50 134 140 pm2.61ii yωwwyxywxwsucyxsucywx
142 141 ex yωwwyxywxwsucyxsucywx
143 24 25 142 alrimd yωwwyxywxwwsucyxsucywx
144 8 12 16 20 23 143 finds AωwwAxAwx
145 psseq1 w=BwABA
146 breq1 w=BwxBx
147 146 rexbidv w=BxAwxxABx
148 145 147 imbi12d w=BwAxAwxBAxABx
149 148 spcgv BVwwAxAwxBAxABx
150 144 149 syl5 BVAωBAxABx
151 150 com3l AωBABVxABx
152 151 imp AωBABVxABx
153 4 152 mpd AωBAxABx