Metamath Proof Explorer


Theorem satffunlem2lem2

Description: Lemma 2 for satffunlem2 . (Contributed by AV, 27-Oct-2023)

Ref Expression
Hypotheses satffunlem2lem2.s S = M Sat E
satffunlem2lem2.a A = M ω 2 nd u 2 nd v
satffunlem2lem2.b B = a M ω | z M i z a ω i 2 nd u
Assertion satffunlem2lem2 N ω M V E W Fun S suc N dom S suc N dom x y | u S suc N S N v S suc N x = 1 st u 𝑔 1 st v y = A i ω x = 𝑔 i 1 st u y = B u S N v S suc N S N x = 1 st u 𝑔 1 st v y = A =

Proof

Step Hyp Ref Expression
1 satffunlem2lem2.s S = M Sat E
2 satffunlem2lem2.a A = M ω 2 nd u 2 nd v
3 satffunlem2lem2.b B = a M ω | z M i z a ω i 2 nd u
4 1 fveq1i S suc N = M Sat E suc N
5 4 dmeqi dom S suc N = dom M Sat E suc N
6 simprl N ω M V E W M V
7 simprr N ω M V E W E W
8 peano2 N ω suc N ω
9 8 adantr N ω M V E W suc N ω
10 6 7 9 3jca N ω M V E W M V E W suc N ω
11 satfdmfmla M V E W suc N ω dom M Sat E suc N = Fmla suc N
12 10 11 syl N ω M V E W dom M Sat E suc N = Fmla suc N
13 12 adantr N ω M V E W Fun S suc N dom M Sat E suc N = Fmla suc N
14 5 13 eqtrid N ω M V E W Fun S suc N dom S suc N = Fmla suc N
15 ovex M ω V
16 15 difexi M ω 2 nd u 2 nd v V
17 2 16 eqeltri A V
18 17 a1i N ω M V E W Fun S suc N u S suc N v S suc N A V
19 18 ralrimiva N ω M V E W Fun S suc N u S suc N v S suc N A V
20 3 15 rabex2 B V
21 20 a1i N ω M V E W Fun S suc N u S suc N i ω B V
22 21 ralrimiva N ω M V E W Fun S suc N u S suc N i ω B V
23 19 22 jca N ω M V E W Fun S suc N u S suc N v S suc N A V i ω B V
24 23 ralrimiva N ω M V E W Fun S suc N u S suc N v S suc N A V i ω B V
25 simplr N ω M V E W Fun S suc N M V E W
26 8 ancri N ω suc N ω N ω
27 26 ad2antrr N ω M V E W Fun S suc N suc N ω N ω
28 25 27 jca N ω M V E W Fun S suc N M V E W suc N ω N ω
29 sssucid N suc N
30 1 satfsschain M V E W suc N ω N ω N suc N S N S suc N
31 28 29 30 mpisyl N ω M V E W Fun S suc N S N S suc N
32 dmopab3rexdif u S suc N v S suc N A V i ω B V S N S suc N dom x y | u S suc N S N v S suc N x = 1 st u 𝑔 1 st v y = A i ω x = 𝑔 i 1 st u y = B u S N v S suc N S N x = 1 st u 𝑔 1 st v y = A = x | u S suc N S N v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u u S N v S suc N S N x = 1 st u 𝑔 1 st v
33 24 31 32 syl2anc N ω M V E W Fun S suc N dom x y | u S suc N S N v S suc N x = 1 st u 𝑔 1 st v y = A i ω x = 𝑔 i 1 st u y = B u S N v S suc N S N x = 1 st u 𝑔 1 st v y = A = x | u S suc N S N v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u u S N v S suc N S N x = 1 st u 𝑔 1 st v
34 simpr N ω M V E W Fun S suc N u M Sat E suc N M Sat E N u M Sat E suc N M Sat E N
35 fveqeq2 w = u 1 st w = 1 st u 1 st u = 1 st u
36 35 adantl N ω M V E W Fun S suc N u M Sat E suc N M Sat E N w = u 1 st w = 1 st u 1 st u = 1 st u
37 eqidd N ω M V E W Fun S suc N u M Sat E suc N M Sat E N 1 st u = 1 st u
38 34 36 37 rspcedvd N ω M V E W Fun S suc N u M Sat E suc N M Sat E N w M Sat E suc N M Sat E N 1 st w = 1 st u
39 4 funeqi Fun S suc N Fun M Sat E suc N
40 39 bilani N ω M V E W Fun S suc N Fun M Sat E suc N
41 1 fveq1i S N = M Sat E N
42 31 41 4 3sstr3g N ω M V E W Fun S suc N M Sat E N M Sat E suc N
43 40 42 jca N ω M V E W Fun S suc N Fun M Sat E suc N M Sat E N M Sat E suc N
44 43 adantr N ω M V E W Fun S suc N u M Sat E suc N M Sat E N Fun M Sat E suc N M Sat E N M Sat E suc N
45 funeldmdif Fun M Sat E suc N M Sat E N M Sat E suc N 1 st u dom M Sat E suc N dom M Sat E N w M Sat E suc N M Sat E N 1 st w = 1 st u
46 44 45 syl N ω M V E W Fun S suc N u M Sat E suc N M Sat E N 1 st u dom M Sat E suc N dom M Sat E N w M Sat E suc N M Sat E N 1 st w = 1 st u
47 38 46 mpbird N ω M V E W Fun S suc N u M Sat E suc N M Sat E N 1 st u dom M Sat E suc N dom M Sat E N
48 47 ex N ω M V E W Fun S suc N u M Sat E suc N M Sat E N 1 st u dom M Sat E suc N dom M Sat E N
49 4 41 difeq12i S suc N S N = M Sat E suc N M Sat E N
50 49 eleq2i u S suc N S N u M Sat E suc N M Sat E N
51 50 a1i N ω M V E W Fun S suc N u S suc N S N u M Sat E suc N M Sat E N
52 13 eqcomd N ω M V E W Fun S suc N Fmla suc N = dom M Sat E suc N
53 simpl N ω M V E W N ω
54 6 7 53 3jca N ω M V E W M V E W N ω
55 satfdmfmla M V E W N ω dom M Sat E N = Fmla N
56 54 55 syl N ω M V E W dom M Sat E N = Fmla N
57 56 eqcomd N ω M V E W Fmla N = dom M Sat E N
58 57 adantr N ω M V E W Fun S suc N Fmla N = dom M Sat E N
59 52 58 difeq12d N ω M V E W Fun S suc N Fmla suc N Fmla N = dom M Sat E suc N dom M Sat E N
60 59 eleq2d N ω M V E W Fun S suc N 1 st u Fmla suc N Fmla N 1 st u dom M Sat E suc N dom M Sat E N
61 48 51 60 3imtr4d N ω M V E W Fun S suc N u S suc N S N 1 st u Fmla suc N Fmla N
62 61 imp N ω M V E W Fun S suc N u S suc N S N 1 st u Fmla suc N Fmla N
63 62 adantr N ω M V E W Fun S suc N u S suc N S N v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u 1 st u Fmla suc N Fmla N
64 oveq1 f = 1 st u f 𝑔 g = 1 st u 𝑔 g
65 64 eqeq2d f = 1 st u x = f 𝑔 g x = 1 st u 𝑔 g
66 65 rexbidv f = 1 st u g Fmla suc N x = f 𝑔 g g Fmla suc N x = 1 st u 𝑔 g
67 eqidd f = 1 st u i = i
68 id f = 1 st u f = 1 st u
69 67 68 goaleq12d f = 1 st u 𝑔 i f = 𝑔 i 1 st u
70 69 eqeq2d f = 1 st u x = 𝑔 i f x = 𝑔 i 1 st u
71 70 rexbidv f = 1 st u i ω x = 𝑔 i f i ω x = 𝑔 i 1 st u
72 66 71 orbi12d f = 1 st u g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f g Fmla suc N x = 1 st u 𝑔 g i ω x = 𝑔 i 1 st u
73 72 adantl N ω M V E W Fun S suc N u S suc N S N v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u f = 1 st u g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f g Fmla suc N x = 1 st u 𝑔 g i ω x = 𝑔 i 1 st u
74 6 adantr N ω M V E W Fun S suc N M V
75 7 adantr N ω M V E W Fun S suc N E W
76 8 ad2antrr N ω M V E W Fun S suc N suc N ω
77 74 75 76 3jca N ω M V E W Fun S suc N M V E W suc N ω
78 satfrel M V E W suc N ω Rel M Sat E suc N
79 77 78 syl N ω M V E W Fun S suc N Rel M Sat E suc N
80 4 releqi Rel S suc N Rel M Sat E suc N
81 79 80 sylibr N ω M V E W Fun S suc N Rel S suc N
82 1stdm Rel S suc N v S suc N 1 st v dom S suc N
83 81 82 sylan N ω M V E W Fun S suc N v S suc N 1 st v dom S suc N
84 14 eqcomd N ω M V E W Fun S suc N Fmla suc N = dom S suc N
85 84 adantr N ω M V E W Fun S suc N v S suc N Fmla suc N = dom S suc N
86 83 85 eleqtrrd N ω M V E W Fun S suc N v S suc N 1 st v Fmla suc N
87 86 ad4ant13 N ω M V E W Fun S suc N u S suc N S N v S suc N x = 1 st u 𝑔 1 st v 1 st v Fmla suc N
88 oveq2 g = 1 st v 1 st u 𝑔 g = 1 st u 𝑔 1 st v
89 88 eqeq2d g = 1 st v x = 1 st u 𝑔 g x = 1 st u 𝑔 1 st v
90 89 adantl N ω M V E W Fun S suc N u S suc N S N v S suc N x = 1 st u 𝑔 1 st v g = 1 st v x = 1 st u 𝑔 g x = 1 st u 𝑔 1 st v
91 simpr N ω M V E W Fun S suc N u S suc N S N v S suc N x = 1 st u 𝑔 1 st v x = 1 st u 𝑔 1 st v
92 87 90 91 rspcedvd N ω M V E W Fun S suc N u S suc N S N v S suc N x = 1 st u 𝑔 1 st v g Fmla suc N x = 1 st u 𝑔 g
93 92 rexlimdva2 N ω M V E W Fun S suc N u S suc N S N v S suc N x = 1 st u 𝑔 1 st v g Fmla suc N x = 1 st u 𝑔 g
94 93 orim1d N ω M V E W Fun S suc N u S suc N S N v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u g Fmla suc N x = 1 st u 𝑔 g i ω x = 𝑔 i 1 st u
95 94 imp N ω M V E W Fun S suc N u S suc N S N v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u g Fmla suc N x = 1 st u 𝑔 g i ω x = 𝑔 i 1 st u
96 63 73 95 rspcedvd N ω M V E W Fun S suc N u S suc N S N v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u f Fmla suc N Fmla N g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f
97 96 rexlimdva2 N ω M V E W Fun S suc N u S suc N S N v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u f Fmla suc N Fmla N g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f
98 54 adantr N ω M V E W Fun S suc N M V E W N ω
99 satfrel M V E W N ω Rel M Sat E N
100 98 99 syl N ω M V E W Fun S suc N Rel M Sat E N
101 41 releqi Rel S N Rel M Sat E N
102 100 101 sylibr N ω M V E W Fun S suc N Rel S N
103 1stdm Rel S N u S N 1 st u dom S N
104 102 103 sylan N ω M V E W Fun S suc N u S N 1 st u dom S N
105 41 dmeqi dom S N = dom M Sat E N
106 98 55 syl N ω M V E W Fun S suc N dom M Sat E N = Fmla N
107 105 106 eqtrid N ω M V E W Fun S suc N dom S N = Fmla N
108 107 eqcomd N ω M V E W Fun S suc N Fmla N = dom S N
109 108 adantr N ω M V E W Fun S suc N u S N Fmla N = dom S N
110 104 109 eleqtrrd N ω M V E W Fun S suc N u S N 1 st u Fmla N
111 110 adantr N ω M V E W Fun S suc N u S N v S suc N S N x = 1 st u 𝑔 1 st v 1 st u Fmla N
112 65 rexbidv f = 1 st u g Fmla suc N Fmla N x = f 𝑔 g g Fmla suc N Fmla N x = 1 st u 𝑔 g
113 112 adantl N ω M V E W Fun S suc N u S N v S suc N S N x = 1 st u 𝑔 1 st v f = 1 st u g Fmla suc N Fmla N x = f 𝑔 g g Fmla suc N Fmla N x = 1 st u 𝑔 g
114 simpr N ω M V E W Fun S suc N v M Sat E suc N M Sat E N v M Sat E suc N M Sat E N
115 fveqeq2 t = v 1 st t = 1 st v 1 st v = 1 st v
116 115 adantl N ω M V E W Fun S suc N v M Sat E suc N M Sat E N t = v 1 st t = 1 st v 1 st v = 1 st v
117 eqidd N ω M V E W Fun S suc N v M Sat E suc N M Sat E N 1 st v = 1 st v
118 114 116 117 rspcedvd N ω M V E W Fun S suc N v M Sat E suc N M Sat E N t M Sat E suc N M Sat E N 1 st t = 1 st v
119 43 adantr N ω M V E W Fun S suc N v M Sat E suc N M Sat E N Fun M Sat E suc N M Sat E N M Sat E suc N
120 funeldmdif Fun M Sat E suc N M Sat E N M Sat E suc N 1 st v dom M Sat E suc N dom M Sat E N t M Sat E suc N M Sat E N 1 st t = 1 st v
121 119 120 syl N ω M V E W Fun S suc N v M Sat E suc N M Sat E N 1 st v dom M Sat E suc N dom M Sat E N t M Sat E suc N M Sat E N 1 st t = 1 st v
122 118 121 mpbird N ω M V E W Fun S suc N v M Sat E suc N M Sat E N 1 st v dom M Sat E suc N dom M Sat E N
123 122 ex N ω M V E W Fun S suc N v M Sat E suc N M Sat E N 1 st v dom M Sat E suc N dom M Sat E N
124 49 eleq2i v S suc N S N v M Sat E suc N M Sat E N
125 124 a1i N ω M V E W Fun S suc N v S suc N S N v M Sat E suc N M Sat E N
126 12 eqcomd N ω M V E W Fmla suc N = dom M Sat E suc N
127 126 57 difeq12d N ω M V E W Fmla suc N Fmla N = dom M Sat E suc N dom M Sat E N
128 127 eleq2d N ω M V E W 1 st v Fmla suc N Fmla N 1 st v dom M Sat E suc N dom M Sat E N
129 128 adantr N ω M V E W Fun S suc N 1 st v Fmla suc N Fmla N 1 st v dom M Sat E suc N dom M Sat E N
130 123 125 129 3imtr4d N ω M V E W Fun S suc N v S suc N S N 1 st v Fmla suc N Fmla N
131 130 adantr N ω M V E W Fun S suc N u S N v S suc N S N 1 st v Fmla suc N Fmla N
132 131 imp N ω M V E W Fun S suc N u S N v S suc N S N 1 st v Fmla suc N Fmla N
133 132 adantr N ω M V E W Fun S suc N u S N v S suc N S N x = 1 st u 𝑔 1 st v 1 st v Fmla suc N Fmla N
134 89 adantl N ω M V E W Fun S suc N u S N v S suc N S N x = 1 st u 𝑔 1 st v g = 1 st v x = 1 st u 𝑔 g x = 1 st u 𝑔 1 st v
135 simpr N ω M V E W Fun S suc N u S N v S suc N S N x = 1 st u 𝑔 1 st v x = 1 st u 𝑔 1 st v
136 133 134 135 rspcedvd N ω M V E W Fun S suc N u S N v S suc N S N x = 1 st u 𝑔 1 st v g Fmla suc N Fmla N x = 1 st u 𝑔 g
137 136 r19.29an N ω M V E W Fun S suc N u S N v S suc N S N x = 1 st u 𝑔 1 st v g Fmla suc N Fmla N x = 1 st u 𝑔 g
138 111 113 137 rspcedvd N ω M V E W Fun S suc N u S N v S suc N S N x = 1 st u 𝑔 1 st v f Fmla N g Fmla suc N Fmla N x = f 𝑔 g
139 138 rexlimdva2 N ω M V E W Fun S suc N u S N v S suc N S N x = 1 st u 𝑔 1 st v f Fmla N g Fmla suc N Fmla N x = f 𝑔 g
140 97 139 orim12d N ω M V E W Fun S suc N u S suc N S N v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u u S N v S suc N S N x = 1 st u 𝑔 1 st v f Fmla suc N Fmla N g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f f Fmla N g Fmla suc N Fmla N x = f 𝑔 g
141 10 adantr N ω M V E W Fun S suc N M V E W suc N ω
142 11 eqcomd M V E W suc N ω Fmla suc N = dom M Sat E suc N
143 141 142 syl N ω M V E W Fun S suc N Fmla suc N = dom M Sat E suc N
144 106 eqcomd N ω M V E W Fun S suc N Fmla N = dom M Sat E N
145 143 144 difeq12d N ω M V E W Fun S suc N Fmla suc N Fmla N = dom M Sat E suc N dom M Sat E N
146 145 eleq2d N ω M V E W Fun S suc N f Fmla suc N Fmla N f dom M Sat E suc N dom M Sat E N
147 eqid M Sat E = M Sat E
148 147 satfsschain M V E W suc N ω N ω N suc N M Sat E N M Sat E suc N
149 28 29 148 mpisyl N ω M V E W Fun S suc N M Sat E N M Sat E suc N
150 releldmdifi Rel M Sat E suc N M Sat E N M Sat E suc N f dom M Sat E suc N dom M Sat E N u M Sat E suc N M Sat E N 1 st u = f
151 79 149 150 syl2anc N ω M V E W Fun S suc N f dom M Sat E suc N dom M Sat E N u M Sat E suc N M Sat E N 1 st u = f
152 146 151 sylbid N ω M V E W Fun S suc N f Fmla suc N Fmla N u M Sat E suc N M Sat E N 1 st u = f
153 49 eqcomi M Sat E suc N M Sat E N = S suc N S N
154 153 rexeqi u M Sat E suc N M Sat E N 1 st u = f u S suc N S N 1 st u = f
155 r19.41v u S suc N S N 1 st u = f g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f u S suc N S N 1 st u = f g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f
156 oveq1 1 st u = f 1 st u 𝑔 g = f 𝑔 g
157 156 eqeq2d 1 st u = f x = 1 st u 𝑔 g x = f 𝑔 g
158 157 rexbidv 1 st u = f g Fmla suc N x = 1 st u 𝑔 g g Fmla suc N x = f 𝑔 g
159 eqidd 1 st u = f i = i
160 id 1 st u = f 1 st u = f
161 159 160 goaleq12d 1 st u = f 𝑔 i 1 st u = 𝑔 i f
162 161 eqeq2d 1 st u = f x = 𝑔 i 1 st u x = 𝑔 i f
163 162 rexbidv 1 st u = f i ω x = 𝑔 i 1 st u i ω x = 𝑔 i f
164 158 163 orbi12d 1 st u = f g Fmla suc N x = 1 st u 𝑔 g i ω x = 𝑔 i 1 st u g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f
165 164 adantl N ω M V E W Fun S suc N u S suc N S N 1 st u = f g Fmla suc N x = 1 st u 𝑔 g i ω x = 𝑔 i 1 st u g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f
166 141 11 syl N ω M V E W Fun S suc N dom M Sat E suc N = Fmla suc N
167 166 eqcomd N ω M V E W Fun S suc N Fmla suc N = dom M Sat E suc N
168 167 eleq2d N ω M V E W Fun S suc N g Fmla suc N g dom M Sat E suc N
169 releldm2 Rel M Sat E suc N g dom M Sat E suc N v M Sat E suc N 1 st v = g
170 79 169 syl N ω M V E W Fun S suc N g dom M Sat E suc N v M Sat E suc N 1 st v = g
171 168 170 bitrd N ω M V E W Fun S suc N g Fmla suc N v M Sat E suc N 1 st v = g
172 r19.41v v M Sat E suc N 1 st v = g x = 1 st u 𝑔 g v M Sat E suc N 1 st v = g x = 1 st u 𝑔 g
173 1 eqcomi M Sat E = S
174 173 fveq1i M Sat E suc N = S suc N
175 174 rexeqi v M Sat E suc N 1 st v = g x = 1 st u 𝑔 g v S suc N 1 st v = g x = 1 st u 𝑔 g
176 88 eqcoms 1 st v = g 1 st u 𝑔 g = 1 st u 𝑔 1 st v
177 176 eqeq2d 1 st v = g x = 1 st u 𝑔 g x = 1 st u 𝑔 1 st v
178 177 biimpa 1 st v = g x = 1 st u 𝑔 g x = 1 st u 𝑔 1 st v
179 178 a1i N ω M V E W Fun S suc N 1 st v = g x = 1 st u 𝑔 g x = 1 st u 𝑔 1 st v
180 179 reximdv N ω M V E W Fun S suc N v S suc N 1 st v = g x = 1 st u 𝑔 g v S suc N x = 1 st u 𝑔 1 st v
181 175 180 biimtrid N ω M V E W Fun S suc N v M Sat E suc N 1 st v = g x = 1 st u 𝑔 g v S suc N x = 1 st u 𝑔 1 st v
182 172 181 biimtrrid N ω M V E W Fun S suc N v M Sat E suc N 1 st v = g x = 1 st u 𝑔 g v S suc N x = 1 st u 𝑔 1 st v
183 182 expd N ω M V E W Fun S suc N v M Sat E suc N 1 st v = g x = 1 st u 𝑔 g v S suc N x = 1 st u 𝑔 1 st v
184 171 183 sylbid N ω M V E W Fun S suc N g Fmla suc N x = 1 st u 𝑔 g v S suc N x = 1 st u 𝑔 1 st v
185 184 rexlimdv N ω M V E W Fun S suc N g Fmla suc N x = 1 st u 𝑔 g v S suc N x = 1 st u 𝑔 1 st v
186 185 ad2antrr N ω M V E W Fun S suc N u S suc N S N 1 st u = f g Fmla suc N x = 1 st u 𝑔 g v S suc N x = 1 st u 𝑔 1 st v
187 186 orim1d N ω M V E W Fun S suc N u S suc N S N 1 st u = f g Fmla suc N x = 1 st u 𝑔 g i ω x = 𝑔 i 1 st u v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u
188 165 187 sylbird N ω M V E W Fun S suc N u S suc N S N 1 st u = f g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u
189 188 expimpd N ω M V E W Fun S suc N u S suc N S N 1 st u = f g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u
190 189 reximdva N ω M V E W Fun S suc N u S suc N S N 1 st u = f g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f u S suc N S N v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u
191 155 190 biimtrrid N ω M V E W Fun S suc N u S suc N S N 1 st u = f g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f u S suc N S N v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u
192 191 expd N ω M V E W Fun S suc N u S suc N S N 1 st u = f g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f u S suc N S N v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u
193 154 192 biimtrid N ω M V E W Fun S suc N u M Sat E suc N M Sat E N 1 st u = f g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f u S suc N S N v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u
194 152 193 syld N ω M V E W Fun S suc N f Fmla suc N Fmla N g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f u S suc N S N v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u
195 194 rexlimdv N ω M V E W Fun S suc N f Fmla suc N Fmla N g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f u S suc N S N v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u
196 144 eleq2d N ω M V E W Fun S suc N f Fmla N f dom M Sat E N
197 54 99 syl N ω M V E W Rel M Sat E N
198 197 adantr N ω M V E W Fun S suc N Rel M Sat E N
199 releldm2 Rel M Sat E N f dom M Sat E N u M Sat E N 1 st u = f
200 198 199 syl N ω M V E W Fun S suc N f dom M Sat E N u M Sat E N 1 st u = f
201 196 200 bitrd N ω M V E W Fun S suc N f Fmla N u M Sat E N 1 st u = f
202 r19.41v u M Sat E N 1 st u = f g Fmla suc N Fmla N x = f 𝑔 g u M Sat E N 1 st u = f g Fmla suc N Fmla N x = f 𝑔 g
203 41 eqcomi M Sat E N = S N
204 203 rexeqi u M Sat E N 1 st u = f g Fmla suc N Fmla N x = f 𝑔 g u S N 1 st u = f g Fmla suc N Fmla N x = f 𝑔 g
205 157 rexbidv 1 st u = f g Fmla suc N Fmla N x = 1 st u 𝑔 g g Fmla suc N Fmla N x = f 𝑔 g
206 205 adantl N ω M V E W Fun S suc N 1 st u = f g Fmla suc N Fmla N x = 1 st u 𝑔 g g Fmla suc N Fmla N x = f 𝑔 g
207 145 eleq2d N ω M V E W Fun S suc N g Fmla suc N Fmla N g dom M Sat E suc N dom M Sat E N
208 releldmdifi Rel M Sat E suc N M Sat E N M Sat E suc N g dom M Sat E suc N dom M Sat E N v M Sat E suc N M Sat E N 1 st v = g
209 79 149 208 syl2anc N ω M V E W Fun S suc N g dom M Sat E suc N dom M Sat E N v M Sat E suc N M Sat E N 1 st v = g
210 207 209 sylbid N ω M V E W Fun S suc N g Fmla suc N Fmla N v M Sat E suc N M Sat E N 1 st v = g
211 153 rexeqi v M Sat E suc N M Sat E N 1 st v = g v S suc N S N 1 st v = g
212 177 biimpcd x = 1 st u 𝑔 g 1 st v = g x = 1 st u 𝑔 1 st v
213 212 adantl N ω M V E W Fun S suc N x = 1 st u 𝑔 g 1 st v = g x = 1 st u 𝑔 1 st v
214 213 reximdv N ω M V E W Fun S suc N x = 1 st u 𝑔 g v S suc N S N 1 st v = g v S suc N S N x = 1 st u 𝑔 1 st v
215 214 ex N ω M V E W Fun S suc N x = 1 st u 𝑔 g v S suc N S N 1 st v = g v S suc N S N x = 1 st u 𝑔 1 st v
216 215 com23 N ω M V E W Fun S suc N v S suc N S N 1 st v = g x = 1 st u 𝑔 g v S suc N S N x = 1 st u 𝑔 1 st v
217 211 216 biimtrid N ω M V E W Fun S suc N v M Sat E suc N M Sat E N 1 st v = g x = 1 st u 𝑔 g v S suc N S N x = 1 st u 𝑔 1 st v
218 210 217 syld N ω M V E W Fun S suc N g Fmla suc N Fmla N x = 1 st u 𝑔 g v S suc N S N x = 1 st u 𝑔 1 st v
219 218 rexlimdv N ω M V E W Fun S suc N g Fmla suc N Fmla N x = 1 st u 𝑔 g v S suc N S N x = 1 st u 𝑔 1 st v
220 219 adantr N ω M V E W Fun S suc N 1 st u = f g Fmla suc N Fmla N x = 1 st u 𝑔 g v S suc N S N x = 1 st u 𝑔 1 st v
221 206 220 sylbird N ω M V E W Fun S suc N 1 st u = f g Fmla suc N Fmla N x = f 𝑔 g v S suc N S N x = 1 st u 𝑔 1 st v
222 221 expimpd N ω M V E W Fun S suc N 1 st u = f g Fmla suc N Fmla N x = f 𝑔 g v S suc N S N x = 1 st u 𝑔 1 st v
223 222 reximdv N ω M V E W Fun S suc N u S N 1 st u = f g Fmla suc N Fmla N x = f 𝑔 g u S N v S suc N S N x = 1 st u 𝑔 1 st v
224 204 223 biimtrid N ω M V E W Fun S suc N u M Sat E N 1 st u = f g Fmla suc N Fmla N x = f 𝑔 g u S N v S suc N S N x = 1 st u 𝑔 1 st v
225 202 224 biimtrrid N ω M V E W Fun S suc N u M Sat E N 1 st u = f g Fmla suc N Fmla N x = f 𝑔 g u S N v S suc N S N x = 1 st u 𝑔 1 st v
226 225 expd N ω M V E W Fun S suc N u M Sat E N 1 st u = f g Fmla suc N Fmla N x = f 𝑔 g u S N v S suc N S N x = 1 st u 𝑔 1 st v
227 201 226 sylbid N ω M V E W Fun S suc N f Fmla N g Fmla suc N Fmla N x = f 𝑔 g u S N v S suc N S N x = 1 st u 𝑔 1 st v
228 227 rexlimdv N ω M V E W Fun S suc N f Fmla N g Fmla suc N Fmla N x = f 𝑔 g u S N v S suc N S N x = 1 st u 𝑔 1 st v
229 195 228 orim12d N ω M V E W Fun S suc N f Fmla suc N Fmla N g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f f Fmla N g Fmla suc N Fmla N x = f 𝑔 g u S suc N S N v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u u S N v S suc N S N x = 1 st u 𝑔 1 st v
230 140 229 impbid N ω M V E W Fun S suc N u S suc N S N v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u u S N v S suc N S N x = 1 st u 𝑔 1 st v f Fmla suc N Fmla N g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f f Fmla N g Fmla suc N Fmla N x = f 𝑔 g
231 230 abbidv N ω M V E W Fun S suc N x | u S suc N S N v S suc N x = 1 st u 𝑔 1 st v i ω x = 𝑔 i 1 st u u S N v S suc N S N x = 1 st u 𝑔 1 st v = x | f Fmla suc N Fmla N g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f f Fmla N g Fmla suc N Fmla N x = f 𝑔 g
232 33 231 eqtrd N ω M V E W Fun S suc N dom x y | u S suc N S N v S suc N x = 1 st u 𝑔 1 st v y = A i ω x = 𝑔 i 1 st u y = B u S N v S suc N S N x = 1 st u 𝑔 1 st v y = A = x | f Fmla suc N Fmla N g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f f Fmla N g Fmla suc N Fmla N x = f 𝑔 g
233 14 232 ineq12d N ω M V E W Fun S suc N dom S suc N dom x y | u S suc N S N v S suc N x = 1 st u 𝑔 1 st v y = A i ω x = 𝑔 i 1 st u y = B u S N v S suc N S N x = 1 st u 𝑔 1 st v y = A = Fmla suc N x | f Fmla suc N Fmla N g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f f Fmla N g Fmla suc N Fmla N x = f 𝑔 g
234 fmlasucdisj N ω Fmla suc N x | f Fmla suc N Fmla N g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f f Fmla N g Fmla suc N Fmla N x = f 𝑔 g =
235 234 ad2antrr N ω M V E W Fun S suc N Fmla suc N x | f Fmla suc N Fmla N g Fmla suc N x = f 𝑔 g i ω x = 𝑔 i f f Fmla N g Fmla suc N Fmla N x = f 𝑔 g =
236 233 235 eqtrd N ω M V E W Fun S suc N dom S suc N dom x y | u S suc N S N v S suc N x = 1 st u 𝑔 1 st v y = A i ω x = 𝑔 i 1 st u y = B u S N v S suc N S N x = 1 st u 𝑔 1 st v y = A =