Step |
Hyp |
Ref |
Expression |
1 |
|
df-muls |
|- x.s = norec2 ( ( z e. _V , m e. _V |-> [_ ( 1st ` z ) / x ]_ [_ ( 2nd ` z ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p m y ) +s ( x m q ) ) -s ( p m q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r m y ) +s ( x m s ) ) -s ( r m s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t m y ) +s ( x m u ) ) -s ( t m u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v m y ) +s ( x m w ) ) -s ( v m w ) ) } ) ) ) ) |
2 |
1
|
norec2ov |
|- ( ( A e. No /\ B e. No ) -> ( A x.s B ) = ( <. A , B >. ( z e. _V , m e. _V |-> [_ ( 1st ` z ) / x ]_ [_ ( 2nd ` z ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p m y ) +s ( x m q ) ) -s ( p m q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r m y ) +s ( x m s ) ) -s ( r m s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t m y ) +s ( x m u ) ) -s ( t m u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v m y ) +s ( x m w ) ) -s ( v m w ) ) } ) ) ) ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ) ) |
3 |
|
opex |
|- <. A , B >. e. _V |
4 |
|
mulsfn |
|- x.s Fn ( No X. No ) |
5 |
|
fnfun |
|- ( x.s Fn ( No X. No ) -> Fun x.s ) |
6 |
4 5
|
ax-mp |
|- Fun x.s |
7 |
|
fvex |
|- ( _Left ` A ) e. _V |
8 |
|
fvex |
|- ( _Right ` A ) e. _V |
9 |
7 8
|
unex |
|- ( ( _Left ` A ) u. ( _Right ` A ) ) e. _V |
10 |
|
snex |
|- { A } e. _V |
11 |
9 10
|
unex |
|- ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) e. _V |
12 |
|
fvex |
|- ( _Left ` B ) e. _V |
13 |
|
fvex |
|- ( _Right ` B ) e. _V |
14 |
12 13
|
unex |
|- ( ( _Left ` B ) u. ( _Right ` B ) ) e. _V |
15 |
|
snex |
|- { B } e. _V |
16 |
14 15
|
unex |
|- ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) e. _V |
17 |
11 16
|
xpex |
|- ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) e. _V |
18 |
17
|
difexi |
|- ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) e. _V |
19 |
|
resfunexg |
|- ( ( Fun x.s /\ ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) e. _V ) -> ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) e. _V ) |
20 |
6 18 19
|
mp2an |
|- ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) e. _V |
21 |
|
fveq2 |
|- ( z = <. A , B >. -> ( 1st ` z ) = ( 1st ` <. A , B >. ) ) |
22 |
|
fveq2 |
|- ( z = <. A , B >. -> ( 2nd ` z ) = ( 2nd ` <. A , B >. ) ) |
23 |
22
|
csbeq1d |
|- ( z = <. A , B >. -> [_ ( 2nd ` z ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p m y ) +s ( x m q ) ) -s ( p m q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r m y ) +s ( x m s ) ) -s ( r m s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t m y ) +s ( x m u ) ) -s ( t m u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v m y ) +s ( x m w ) ) -s ( v m w ) ) } ) ) = [_ ( 2nd ` <. A , B >. ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p m y ) +s ( x m q ) ) -s ( p m q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r m y ) +s ( x m s ) ) -s ( r m s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t m y ) +s ( x m u ) ) -s ( t m u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v m y ) +s ( x m w ) ) -s ( v m w ) ) } ) ) ) |
24 |
21 23
|
csbeq12dv |
|- ( z = <. A , B >. -> [_ ( 1st ` z ) / x ]_ [_ ( 2nd ` z ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p m y ) +s ( x m q ) ) -s ( p m q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r m y ) +s ( x m s ) ) -s ( r m s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t m y ) +s ( x m u ) ) -s ( t m u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v m y ) +s ( x m w ) ) -s ( v m w ) ) } ) ) = [_ ( 1st ` <. A , B >. ) / x ]_ [_ ( 2nd ` <. A , B >. ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p m y ) +s ( x m q ) ) -s ( p m q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r m y ) +s ( x m s ) ) -s ( r m s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t m y ) +s ( x m u ) ) -s ( t m u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v m y ) +s ( x m w ) ) -s ( v m w ) ) } ) ) ) |
25 |
|
oveq |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( p m y ) = ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) ) |
26 |
|
oveq |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( x m q ) = ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) |
27 |
25 26
|
oveq12d |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( ( p m y ) +s ( x m q ) ) = ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) ) |
28 |
|
oveq |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( p m q ) = ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) |
29 |
27 28
|
oveq12d |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( ( ( p m y ) +s ( x m q ) ) -s ( p m q ) ) = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) ) |
30 |
29
|
eqeq2d |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( a = ( ( ( p m y ) +s ( x m q ) ) -s ( p m q ) ) <-> a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) ) ) |
31 |
30
|
2rexbidv |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p m y ) +s ( x m q ) ) -s ( p m q ) ) <-> E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) ) ) |
32 |
31
|
abbidv |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p m y ) +s ( x m q ) ) -s ( p m q ) ) } = { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } ) |
33 |
|
oveq |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( r m y ) = ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) ) |
34 |
|
oveq |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( x m s ) = ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) |
35 |
33 34
|
oveq12d |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( ( r m y ) +s ( x m s ) ) = ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) ) |
36 |
|
oveq |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( r m s ) = ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) |
37 |
35 36
|
oveq12d |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( ( ( r m y ) +s ( x m s ) ) -s ( r m s ) ) = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) ) |
38 |
37
|
eqeq2d |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( b = ( ( ( r m y ) +s ( x m s ) ) -s ( r m s ) ) <-> b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) ) ) |
39 |
38
|
2rexbidv |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r m y ) +s ( x m s ) ) -s ( r m s ) ) <-> E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) ) ) |
40 |
39
|
abbidv |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r m y ) +s ( x m s ) ) -s ( r m s ) ) } = { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |
41 |
32 40
|
uneq12d |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p m y ) +s ( x m q ) ) -s ( p m q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r m y ) +s ( x m s ) ) -s ( r m s ) ) } ) = ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) ) |
42 |
|
oveq |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( t m y ) = ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) ) |
43 |
|
oveq |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( x m u ) = ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) |
44 |
42 43
|
oveq12d |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( ( t m y ) +s ( x m u ) ) = ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) ) |
45 |
|
oveq |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( t m u ) = ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) |
46 |
44 45
|
oveq12d |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( ( ( t m y ) +s ( x m u ) ) -s ( t m u ) ) = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) ) |
47 |
46
|
eqeq2d |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( c = ( ( ( t m y ) +s ( x m u ) ) -s ( t m u ) ) <-> c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) ) ) |
48 |
47
|
2rexbidv |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t m y ) +s ( x m u ) ) -s ( t m u ) ) <-> E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) ) ) |
49 |
48
|
abbidv |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t m y ) +s ( x m u ) ) -s ( t m u ) ) } = { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } ) |
50 |
|
oveq |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( v m y ) = ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) ) |
51 |
|
oveq |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( x m w ) = ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) |
52 |
50 51
|
oveq12d |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( ( v m y ) +s ( x m w ) ) = ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) ) |
53 |
|
oveq |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( v m w ) = ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) |
54 |
52 53
|
oveq12d |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( ( ( v m y ) +s ( x m w ) ) -s ( v m w ) ) = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) ) |
55 |
54
|
eqeq2d |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( d = ( ( ( v m y ) +s ( x m w ) ) -s ( v m w ) ) <-> d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) ) ) |
56 |
55
|
2rexbidv |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v m y ) +s ( x m w ) ) -s ( v m w ) ) <-> E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) ) ) |
57 |
56
|
abbidv |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v m y ) +s ( x m w ) ) -s ( v m w ) ) } = { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) |
58 |
49 57
|
uneq12d |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t m y ) +s ( x m u ) ) -s ( t m u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v m y ) +s ( x m w ) ) -s ( v m w ) ) } ) = ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) |
59 |
41 58
|
oveq12d |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p m y ) +s ( x m q ) ) -s ( p m q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r m y ) +s ( x m s ) ) -s ( r m s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t m y ) +s ( x m u ) ) -s ( t m u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v m y ) +s ( x m w ) ) -s ( v m w ) ) } ) ) = ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) ) |
60 |
59
|
csbeq2dv |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> [_ ( 2nd ` <. A , B >. ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p m y ) +s ( x m q ) ) -s ( p m q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r m y ) +s ( x m s ) ) -s ( r m s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t m y ) +s ( x m u ) ) -s ( t m u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v m y ) +s ( x m w ) ) -s ( v m w ) ) } ) ) = [_ ( 2nd ` <. A , B >. ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) ) |
61 |
60
|
csbeq2dv |
|- ( m = ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) -> [_ ( 1st ` <. A , B >. ) / x ]_ [_ ( 2nd ` <. A , B >. ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p m y ) +s ( x m q ) ) -s ( p m q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r m y ) +s ( x m s ) ) -s ( r m s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t m y ) +s ( x m u ) ) -s ( t m u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v m y ) +s ( x m w ) ) -s ( v m w ) ) } ) ) = [_ ( 1st ` <. A , B >. ) / x ]_ [_ ( 2nd ` <. A , B >. ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) ) |
62 |
|
eqid |
|- ( z e. _V , m e. _V |-> [_ ( 1st ` z ) / x ]_ [_ ( 2nd ` z ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p m y ) +s ( x m q ) ) -s ( p m q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r m y ) +s ( x m s ) ) -s ( r m s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t m y ) +s ( x m u ) ) -s ( t m u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v m y ) +s ( x m w ) ) -s ( v m w ) ) } ) ) ) = ( z e. _V , m e. _V |-> [_ ( 1st ` z ) / x ]_ [_ ( 2nd ` z ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p m y ) +s ( x m q ) ) -s ( p m q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r m y ) +s ( x m s ) ) -s ( r m s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t m y ) +s ( x m u ) ) -s ( t m u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v m y ) +s ( x m w ) ) -s ( v m w ) ) } ) ) ) |
63 |
|
ovex |
|- ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) e. _V |
64 |
63
|
csbex |
|- [_ ( 2nd ` <. A , B >. ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) e. _V |
65 |
64
|
csbex |
|- [_ ( 1st ` <. A , B >. ) / x ]_ [_ ( 2nd ` <. A , B >. ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) e. _V |
66 |
24 61 62 65
|
ovmpo |
|- ( ( <. A , B >. e. _V /\ ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) e. _V ) -> ( <. A , B >. ( z e. _V , m e. _V |-> [_ ( 1st ` z ) / x ]_ [_ ( 2nd ` z ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p m y ) +s ( x m q ) ) -s ( p m q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r m y ) +s ( x m s ) ) -s ( r m s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t m y ) +s ( x m u ) ) -s ( t m u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v m y ) +s ( x m w ) ) -s ( v m w ) ) } ) ) ) ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ) = [_ ( 1st ` <. A , B >. ) / x ]_ [_ ( 2nd ` <. A , B >. ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) ) |
67 |
3 20 66
|
mp2an |
|- ( <. A , B >. ( z e. _V , m e. _V |-> [_ ( 1st ` z ) / x ]_ [_ ( 2nd ` z ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p m y ) +s ( x m q ) ) -s ( p m q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r m y ) +s ( x m s ) ) -s ( r m s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t m y ) +s ( x m u ) ) -s ( t m u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v m y ) +s ( x m w ) ) -s ( v m w ) ) } ) ) ) ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ) = [_ ( 1st ` <. A , B >. ) / x ]_ [_ ( 2nd ` <. A , B >. ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) |
68 |
|
op1stg |
|- ( ( A e. No /\ B e. No ) -> ( 1st ` <. A , B >. ) = A ) |
69 |
68
|
csbeq1d |
|- ( ( A e. No /\ B e. No ) -> [_ ( 1st ` <. A , B >. ) / x ]_ [_ ( 2nd ` <. A , B >. ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) = [_ A / x ]_ [_ ( 2nd ` <. A , B >. ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) ) |
70 |
|
op2ndg |
|- ( ( A e. No /\ B e. No ) -> ( 2nd ` <. A , B >. ) = B ) |
71 |
70
|
csbeq1d |
|- ( ( A e. No /\ B e. No ) -> [_ ( 2nd ` <. A , B >. ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) = [_ B / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) ) |
72 |
71
|
csbeq2dv |
|- ( ( A e. No /\ B e. No ) -> [_ A / x ]_ [_ ( 2nd ` <. A , B >. ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) = [_ A / x ]_ [_ B / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) ) |
73 |
|
simpl |
|- ( ( A e. No /\ B e. No ) -> A e. No ) |
74 |
|
fveq2 |
|- ( x = A -> ( _Left ` x ) = ( _Left ` A ) ) |
75 |
|
oveq1 |
|- ( x = A -> ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) = ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) |
76 |
75
|
oveq2d |
|- ( x = A -> ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) = ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) ) |
77 |
76
|
oveq1d |
|- ( x = A -> ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) ) |
78 |
77
|
eqeq2d |
|- ( x = A -> ( a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) <-> a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) ) ) |
79 |
78
|
rexbidv |
|- ( x = A -> ( E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) <-> E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) ) ) |
80 |
74 79
|
rexeqbidv |
|- ( x = A -> ( E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) <-> E. p e. ( _Left ` A ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) ) ) |
81 |
80
|
abbidv |
|- ( x = A -> { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } = { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } ) |
82 |
|
fveq2 |
|- ( x = A -> ( _Right ` x ) = ( _Right ` A ) ) |
83 |
|
oveq1 |
|- ( x = A -> ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) = ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) |
84 |
83
|
oveq2d |
|- ( x = A -> ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) = ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) ) |
85 |
84
|
oveq1d |
|- ( x = A -> ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) ) |
86 |
85
|
eqeq2d |
|- ( x = A -> ( b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) <-> b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) ) ) |
87 |
86
|
rexbidv |
|- ( x = A -> ( E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) <-> E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) ) ) |
88 |
82 87
|
rexeqbidv |
|- ( x = A -> ( E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) <-> E. r e. ( _Right ` A ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) ) ) |
89 |
88
|
abbidv |
|- ( x = A -> { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } = { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |
90 |
81 89
|
uneq12d |
|- ( x = A -> ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) = ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) ) |
91 |
|
oveq1 |
|- ( x = A -> ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) = ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) |
92 |
91
|
oveq2d |
|- ( x = A -> ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) = ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) ) |
93 |
92
|
oveq1d |
|- ( x = A -> ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) ) |
94 |
93
|
eqeq2d |
|- ( x = A -> ( c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) <-> c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) ) ) |
95 |
94
|
rexbidv |
|- ( x = A -> ( E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) <-> E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) ) ) |
96 |
74 95
|
rexeqbidv |
|- ( x = A -> ( E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) <-> E. t e. ( _Left ` A ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) ) ) |
97 |
96
|
abbidv |
|- ( x = A -> { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } = { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } ) |
98 |
|
oveq1 |
|- ( x = A -> ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) = ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) |
99 |
98
|
oveq2d |
|- ( x = A -> ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) = ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) ) |
100 |
99
|
oveq1d |
|- ( x = A -> ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) ) |
101 |
100
|
eqeq2d |
|- ( x = A -> ( d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) <-> d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) ) ) |
102 |
101
|
rexbidv |
|- ( x = A -> ( E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) <-> E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) ) ) |
103 |
82 102
|
rexeqbidv |
|- ( x = A -> ( E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) <-> E. v e. ( _Right ` A ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) ) ) |
104 |
103
|
abbidv |
|- ( x = A -> { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } = { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) |
105 |
97 104
|
uneq12d |
|- ( x = A -> ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) = ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) |
106 |
90 105
|
oveq12d |
|- ( x = A -> ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) = ( ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) ) |
107 |
106
|
csbeq2dv |
|- ( x = A -> [_ B / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) = [_ B / y ]_ ( ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) ) |
108 |
107
|
adantl |
|- ( ( ( A e. No /\ B e. No ) /\ x = A ) -> [_ B / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) = [_ B / y ]_ ( ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) ) |
109 |
73 108
|
csbied |
|- ( ( A e. No /\ B e. No ) -> [_ A / x ]_ [_ B / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) = [_ B / y ]_ ( ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) ) |
110 |
|
simpr |
|- ( ( A e. No /\ B e. No ) -> B e. No ) |
111 |
|
fveq2 |
|- ( y = B -> ( _Left ` y ) = ( _Left ` B ) ) |
112 |
|
oveq2 |
|- ( y = B -> ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) = ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) ) |
113 |
112
|
oveq1d |
|- ( y = B -> ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) = ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) ) |
114 |
113
|
oveq1d |
|- ( y = B -> ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) ) |
115 |
114
|
eqeq2d |
|- ( y = B -> ( a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) <-> a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) ) ) |
116 |
111 115
|
rexeqbidv |
|- ( y = B -> ( E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) <-> E. q e. ( _Left ` B ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) ) ) |
117 |
116
|
rexbidv |
|- ( y = B -> ( E. p e. ( _Left ` A ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) <-> E. p e. ( _Left ` A ) E. q e. ( _Left ` B ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) ) ) |
118 |
117
|
abbidv |
|- ( y = B -> { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } = { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` B ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } ) |
119 |
|
fveq2 |
|- ( y = B -> ( _Right ` y ) = ( _Right ` B ) ) |
120 |
|
oveq2 |
|- ( y = B -> ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) = ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) ) |
121 |
120
|
oveq1d |
|- ( y = B -> ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) = ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) ) |
122 |
121
|
oveq1d |
|- ( y = B -> ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) ) |
123 |
122
|
eqeq2d |
|- ( y = B -> ( b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) <-> b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) ) ) |
124 |
119 123
|
rexeqbidv |
|- ( y = B -> ( E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) <-> E. s e. ( _Right ` B ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) ) ) |
125 |
124
|
rexbidv |
|- ( y = B -> ( E. r e. ( _Right ` A ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) <-> E. r e. ( _Right ` A ) E. s e. ( _Right ` B ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) ) ) |
126 |
125
|
abbidv |
|- ( y = B -> { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } = { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` B ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |
127 |
118 126
|
uneq12d |
|- ( y = B -> ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) = ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` B ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` B ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) ) |
128 |
|
oveq2 |
|- ( y = B -> ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) = ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) ) |
129 |
128
|
oveq1d |
|- ( y = B -> ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) = ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) ) |
130 |
129
|
oveq1d |
|- ( y = B -> ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) ) |
131 |
130
|
eqeq2d |
|- ( y = B -> ( c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) <-> c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) ) ) |
132 |
119 131
|
rexeqbidv |
|- ( y = B -> ( E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) <-> E. u e. ( _Right ` B ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) ) ) |
133 |
132
|
rexbidv |
|- ( y = B -> ( E. t e. ( _Left ` A ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) <-> E. t e. ( _Left ` A ) E. u e. ( _Right ` B ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) ) ) |
134 |
133
|
abbidv |
|- ( y = B -> { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } = { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` B ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } ) |
135 |
|
oveq2 |
|- ( y = B -> ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) = ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) ) |
136 |
135
|
oveq1d |
|- ( y = B -> ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) = ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) ) |
137 |
136
|
oveq1d |
|- ( y = B -> ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) ) |
138 |
137
|
eqeq2d |
|- ( y = B -> ( d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) <-> d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) ) ) |
139 |
111 138
|
rexeqbidv |
|- ( y = B -> ( E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) <-> E. w e. ( _Left ` B ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) ) ) |
140 |
139
|
rexbidv |
|- ( y = B -> ( E. v e. ( _Right ` A ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) <-> E. v e. ( _Right ` A ) E. w e. ( _Left ` B ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) ) ) |
141 |
140
|
abbidv |
|- ( y = B -> { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } = { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` B ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) |
142 |
134 141
|
uneq12d |
|- ( y = B -> ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) = ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` B ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` B ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) |
143 |
127 142
|
oveq12d |
|- ( y = B -> ( ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) = ( ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` B ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` B ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` B ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` B ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) ) |
144 |
143
|
adantl |
|- ( ( ( A e. No /\ B e. No ) /\ y = B ) -> ( ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) = ( ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` B ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` B ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` B ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` B ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) ) |
145 |
110 144
|
csbied |
|- ( ( A e. No /\ B e. No ) -> [_ B / y ]_ ( ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) = ( ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` B ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` B ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` B ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` B ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) ) |
146 |
|
elun1 |
|- ( p e. ( _Left ` A ) -> p e. ( ( _Left ` A ) u. ( _Right ` A ) ) ) |
147 |
146
|
ad2antrl |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> p e. ( ( _Left ` A ) u. ( _Right ` A ) ) ) |
148 |
|
elun1 |
|- ( p e. ( ( _Left ` A ) u. ( _Right ` A ) ) -> p e. ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) ) |
149 |
147 148
|
syl |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> p e. ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) ) |
150 |
|
snidg |
|- ( B e. No -> B e. { B } ) |
151 |
150
|
adantl |
|- ( ( A e. No /\ B e. No ) -> B e. { B } ) |
152 |
|
elun2 |
|- ( B e. { B } -> B e. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) |
153 |
151 152
|
syl |
|- ( ( A e. No /\ B e. No ) -> B e. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) |
154 |
153
|
adantr |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> B e. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) |
155 |
149 154
|
opelxpd |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> <. p , B >. e. ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) ) |
156 |
|
leftirr |
|- -. A e. ( _Left ` A ) |
157 |
|
eleq1 |
|- ( p = A -> ( p e. ( _Left ` A ) <-> A e. ( _Left ` A ) ) ) |
158 |
156 157
|
mtbiri |
|- ( p = A -> -. p e. ( _Left ` A ) ) |
159 |
158
|
necon2ai |
|- ( p e. ( _Left ` A ) -> p =/= A ) |
160 |
159
|
ad2antrl |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> p =/= A ) |
161 |
160
|
orcd |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> ( p =/= A \/ B =/= B ) ) |
162 |
|
vex |
|- p e. _V |
163 |
|
opthneg |
|- ( ( p e. _V /\ B e. No ) -> ( <. p , B >. =/= <. A , B >. <-> ( p =/= A \/ B =/= B ) ) ) |
164 |
162 163
|
mpan |
|- ( B e. No -> ( <. p , B >. =/= <. A , B >. <-> ( p =/= A \/ B =/= B ) ) ) |
165 |
164
|
ad2antlr |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> ( <. p , B >. =/= <. A , B >. <-> ( p =/= A \/ B =/= B ) ) ) |
166 |
161 165
|
mpbird |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> <. p , B >. =/= <. A , B >. ) |
167 |
|
opex |
|- <. p , B >. e. _V |
168 |
167
|
elsn |
|- ( <. p , B >. e. { <. A , B >. } <-> <. p , B >. = <. A , B >. ) |
169 |
168
|
necon3bbii |
|- ( -. <. p , B >. e. { <. A , B >. } <-> <. p , B >. =/= <. A , B >. ) |
170 |
166 169
|
sylibr |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> -. <. p , B >. e. { <. A , B >. } ) |
171 |
155 170
|
eldifd |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> <. p , B >. e. ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) |
172 |
171
|
fvresd |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. p , B >. ) = ( x.s ` <. p , B >. ) ) |
173 |
|
df-ov |
|- ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) = ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. p , B >. ) |
174 |
|
df-ov |
|- ( p x.s B ) = ( x.s ` <. p , B >. ) |
175 |
172 173 174
|
3eqtr4g |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) = ( p x.s B ) ) |
176 |
|
snidg |
|- ( A e. No -> A e. { A } ) |
177 |
176
|
adantr |
|- ( ( A e. No /\ B e. No ) -> A e. { A } ) |
178 |
|
elun2 |
|- ( A e. { A } -> A e. ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) ) |
179 |
177 178
|
syl |
|- ( ( A e. No /\ B e. No ) -> A e. ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) ) |
180 |
179
|
adantr |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> A e. ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) ) |
181 |
|
elun1 |
|- ( q e. ( _Left ` B ) -> q e. ( ( _Left ` B ) u. ( _Right ` B ) ) ) |
182 |
181
|
ad2antll |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> q e. ( ( _Left ` B ) u. ( _Right ` B ) ) ) |
183 |
|
elun1 |
|- ( q e. ( ( _Left ` B ) u. ( _Right ` B ) ) -> q e. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) |
184 |
182 183
|
syl |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> q e. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) |
185 |
180 184
|
opelxpd |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> <. A , q >. e. ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) ) |
186 |
|
leftirr |
|- -. B e. ( _Left ` B ) |
187 |
|
eleq1 |
|- ( q = B -> ( q e. ( _Left ` B ) <-> B e. ( _Left ` B ) ) ) |
188 |
186 187
|
mtbiri |
|- ( q = B -> -. q e. ( _Left ` B ) ) |
189 |
188
|
necon2ai |
|- ( q e. ( _Left ` B ) -> q =/= B ) |
190 |
189
|
ad2antll |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> q =/= B ) |
191 |
190
|
olcd |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> ( A =/= A \/ q =/= B ) ) |
192 |
|
opthneg |
|- ( ( A e. No /\ q e. _V ) -> ( <. A , q >. =/= <. A , B >. <-> ( A =/= A \/ q =/= B ) ) ) |
193 |
192
|
elvd |
|- ( A e. No -> ( <. A , q >. =/= <. A , B >. <-> ( A =/= A \/ q =/= B ) ) ) |
194 |
193
|
ad2antrr |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> ( <. A , q >. =/= <. A , B >. <-> ( A =/= A \/ q =/= B ) ) ) |
195 |
191 194
|
mpbird |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> <. A , q >. =/= <. A , B >. ) |
196 |
|
opex |
|- <. A , q >. e. _V |
197 |
196
|
elsn |
|- ( <. A , q >. e. { <. A , B >. } <-> <. A , q >. = <. A , B >. ) |
198 |
197
|
necon3bbii |
|- ( -. <. A , q >. e. { <. A , B >. } <-> <. A , q >. =/= <. A , B >. ) |
199 |
195 198
|
sylibr |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> -. <. A , q >. e. { <. A , B >. } ) |
200 |
185 199
|
eldifd |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> <. A , q >. e. ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) |
201 |
200
|
fvresd |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. A , q >. ) = ( x.s ` <. A , q >. ) ) |
202 |
|
df-ov |
|- ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) = ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. A , q >. ) |
203 |
|
df-ov |
|- ( A x.s q ) = ( x.s ` <. A , q >. ) |
204 |
201 202 203
|
3eqtr4g |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) = ( A x.s q ) ) |
205 |
175 204
|
oveq12d |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) = ( ( p x.s B ) +s ( A x.s q ) ) ) |
206 |
149 184
|
opelxpd |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> <. p , q >. e. ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) ) |
207 |
190
|
olcd |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> ( p =/= A \/ q =/= B ) ) |
208 |
|
vex |
|- q e. _V |
209 |
162 208
|
opthne |
|- ( <. p , q >. =/= <. A , B >. <-> ( p =/= A \/ q =/= B ) ) |
210 |
207 209
|
sylibr |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> <. p , q >. =/= <. A , B >. ) |
211 |
|
opex |
|- <. p , q >. e. _V |
212 |
211
|
elsn |
|- ( <. p , q >. e. { <. A , B >. } <-> <. p , q >. = <. A , B >. ) |
213 |
212
|
necon3bbii |
|- ( -. <. p , q >. e. { <. A , B >. } <-> <. p , q >. =/= <. A , B >. ) |
214 |
210 213
|
sylibr |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> -. <. p , q >. e. { <. A , B >. } ) |
215 |
206 214
|
eldifd |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> <. p , q >. e. ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) |
216 |
215
|
fvresd |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. p , q >. ) = ( x.s ` <. p , q >. ) ) |
217 |
|
df-ov |
|- ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) = ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. p , q >. ) |
218 |
|
df-ov |
|- ( p x.s q ) = ( x.s ` <. p , q >. ) |
219 |
216 217 218
|
3eqtr4g |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) = ( p x.s q ) ) |
220 |
205 219
|
oveq12d |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) = ( ( ( p x.s B ) +s ( A x.s q ) ) -s ( p x.s q ) ) ) |
221 |
220
|
eqeq2d |
|- ( ( ( A e. No /\ B e. No ) /\ ( p e. ( _Left ` A ) /\ q e. ( _Left ` B ) ) ) -> ( a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) <-> a = ( ( ( p x.s B ) +s ( A x.s q ) ) -s ( p x.s q ) ) ) ) |
222 |
221
|
2rexbidva |
|- ( ( A e. No /\ B e. No ) -> ( E. p e. ( _Left ` A ) E. q e. ( _Left ` B ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) <-> E. p e. ( _Left ` A ) E. q e. ( _Left ` B ) a = ( ( ( p x.s B ) +s ( A x.s q ) ) -s ( p x.s q ) ) ) ) |
223 |
222
|
abbidv |
|- ( ( A e. No /\ B e. No ) -> { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` B ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } = { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` B ) a = ( ( ( p x.s B ) +s ( A x.s q ) ) -s ( p x.s q ) ) } ) |
224 |
|
elun2 |
|- ( r e. ( _Right ` A ) -> r e. ( ( _Left ` A ) u. ( _Right ` A ) ) ) |
225 |
224
|
ad2antrl |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> r e. ( ( _Left ` A ) u. ( _Right ` A ) ) ) |
226 |
|
elun1 |
|- ( r e. ( ( _Left ` A ) u. ( _Right ` A ) ) -> r e. ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) ) |
227 |
225 226
|
syl |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> r e. ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) ) |
228 |
153
|
adantr |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> B e. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) |
229 |
227 228
|
opelxpd |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> <. r , B >. e. ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) ) |
230 |
|
rightirr |
|- -. A e. ( _Right ` A ) |
231 |
|
eleq1 |
|- ( r = A -> ( r e. ( _Right ` A ) <-> A e. ( _Right ` A ) ) ) |
232 |
230 231
|
mtbiri |
|- ( r = A -> -. r e. ( _Right ` A ) ) |
233 |
232
|
necon2ai |
|- ( r e. ( _Right ` A ) -> r =/= A ) |
234 |
233
|
ad2antrl |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> r =/= A ) |
235 |
234
|
orcd |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> ( r =/= A \/ B =/= B ) ) |
236 |
|
vex |
|- r e. _V |
237 |
|
opthneg |
|- ( ( r e. _V /\ B e. No ) -> ( <. r , B >. =/= <. A , B >. <-> ( r =/= A \/ B =/= B ) ) ) |
238 |
236 237
|
mpan |
|- ( B e. No -> ( <. r , B >. =/= <. A , B >. <-> ( r =/= A \/ B =/= B ) ) ) |
239 |
238
|
ad2antlr |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> ( <. r , B >. =/= <. A , B >. <-> ( r =/= A \/ B =/= B ) ) ) |
240 |
235 239
|
mpbird |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> <. r , B >. =/= <. A , B >. ) |
241 |
|
opex |
|- <. r , B >. e. _V |
242 |
241
|
elsn |
|- ( <. r , B >. e. { <. A , B >. } <-> <. r , B >. = <. A , B >. ) |
243 |
242
|
necon3bbii |
|- ( -. <. r , B >. e. { <. A , B >. } <-> <. r , B >. =/= <. A , B >. ) |
244 |
240 243
|
sylibr |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> -. <. r , B >. e. { <. A , B >. } ) |
245 |
229 244
|
eldifd |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> <. r , B >. e. ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) |
246 |
245
|
fvresd |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. r , B >. ) = ( x.s ` <. r , B >. ) ) |
247 |
|
df-ov |
|- ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) = ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. r , B >. ) |
248 |
|
df-ov |
|- ( r x.s B ) = ( x.s ` <. r , B >. ) |
249 |
246 247 248
|
3eqtr4g |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) = ( r x.s B ) ) |
250 |
179
|
adantr |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> A e. ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) ) |
251 |
|
elun2 |
|- ( s e. ( _Right ` B ) -> s e. ( ( _Left ` B ) u. ( _Right ` B ) ) ) |
252 |
251
|
ad2antll |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> s e. ( ( _Left ` B ) u. ( _Right ` B ) ) ) |
253 |
|
elun1 |
|- ( s e. ( ( _Left ` B ) u. ( _Right ` B ) ) -> s e. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) |
254 |
252 253
|
syl |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> s e. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) |
255 |
250 254
|
opelxpd |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> <. A , s >. e. ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) ) |
256 |
|
rightirr |
|- -. B e. ( _Right ` B ) |
257 |
|
eleq1 |
|- ( s = B -> ( s e. ( _Right ` B ) <-> B e. ( _Right ` B ) ) ) |
258 |
256 257
|
mtbiri |
|- ( s = B -> -. s e. ( _Right ` B ) ) |
259 |
258
|
necon2ai |
|- ( s e. ( _Right ` B ) -> s =/= B ) |
260 |
259
|
ad2antll |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> s =/= B ) |
261 |
260
|
olcd |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> ( A =/= A \/ s =/= B ) ) |
262 |
|
opthneg |
|- ( ( A e. No /\ s e. _V ) -> ( <. A , s >. =/= <. A , B >. <-> ( A =/= A \/ s =/= B ) ) ) |
263 |
262
|
elvd |
|- ( A e. No -> ( <. A , s >. =/= <. A , B >. <-> ( A =/= A \/ s =/= B ) ) ) |
264 |
263
|
ad2antrr |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> ( <. A , s >. =/= <. A , B >. <-> ( A =/= A \/ s =/= B ) ) ) |
265 |
261 264
|
mpbird |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> <. A , s >. =/= <. A , B >. ) |
266 |
|
opex |
|- <. A , s >. e. _V |
267 |
266
|
elsn |
|- ( <. A , s >. e. { <. A , B >. } <-> <. A , s >. = <. A , B >. ) |
268 |
267
|
necon3bbii |
|- ( -. <. A , s >. e. { <. A , B >. } <-> <. A , s >. =/= <. A , B >. ) |
269 |
265 268
|
sylibr |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> -. <. A , s >. e. { <. A , B >. } ) |
270 |
255 269
|
eldifd |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> <. A , s >. e. ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) |
271 |
270
|
fvresd |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. A , s >. ) = ( x.s ` <. A , s >. ) ) |
272 |
|
df-ov |
|- ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) = ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. A , s >. ) |
273 |
|
df-ov |
|- ( A x.s s ) = ( x.s ` <. A , s >. ) |
274 |
271 272 273
|
3eqtr4g |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) = ( A x.s s ) ) |
275 |
249 274
|
oveq12d |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) = ( ( r x.s B ) +s ( A x.s s ) ) ) |
276 |
227 254
|
opelxpd |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> <. r , s >. e. ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) ) |
277 |
260
|
olcd |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> ( r =/= A \/ s =/= B ) ) |
278 |
|
vex |
|- s e. _V |
279 |
236 278
|
opthne |
|- ( <. r , s >. =/= <. A , B >. <-> ( r =/= A \/ s =/= B ) ) |
280 |
277 279
|
sylibr |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> <. r , s >. =/= <. A , B >. ) |
281 |
|
opex |
|- <. r , s >. e. _V |
282 |
281
|
elsn |
|- ( <. r , s >. e. { <. A , B >. } <-> <. r , s >. = <. A , B >. ) |
283 |
282
|
necon3bbii |
|- ( -. <. r , s >. e. { <. A , B >. } <-> <. r , s >. =/= <. A , B >. ) |
284 |
280 283
|
sylibr |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> -. <. r , s >. e. { <. A , B >. } ) |
285 |
276 284
|
eldifd |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> <. r , s >. e. ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) |
286 |
285
|
fvresd |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. r , s >. ) = ( x.s ` <. r , s >. ) ) |
287 |
|
df-ov |
|- ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) = ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. r , s >. ) |
288 |
|
df-ov |
|- ( r x.s s ) = ( x.s ` <. r , s >. ) |
289 |
286 287 288
|
3eqtr4g |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) = ( r x.s s ) ) |
290 |
275 289
|
oveq12d |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) = ( ( ( r x.s B ) +s ( A x.s s ) ) -s ( r x.s s ) ) ) |
291 |
290
|
eqeq2d |
|- ( ( ( A e. No /\ B e. No ) /\ ( r e. ( _Right ` A ) /\ s e. ( _Right ` B ) ) ) -> ( b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) <-> b = ( ( ( r x.s B ) +s ( A x.s s ) ) -s ( r x.s s ) ) ) ) |
292 |
291
|
2rexbidva |
|- ( ( A e. No /\ B e. No ) -> ( E. r e. ( _Right ` A ) E. s e. ( _Right ` B ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) <-> E. r e. ( _Right ` A ) E. s e. ( _Right ` B ) b = ( ( ( r x.s B ) +s ( A x.s s ) ) -s ( r x.s s ) ) ) ) |
293 |
292
|
abbidv |
|- ( ( A e. No /\ B e. No ) -> { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` B ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } = { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` B ) b = ( ( ( r x.s B ) +s ( A x.s s ) ) -s ( r x.s s ) ) } ) |
294 |
223 293
|
uneq12d |
|- ( ( A e. No /\ B e. No ) -> ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` B ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` B ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) = ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` B ) a = ( ( ( p x.s B ) +s ( A x.s q ) ) -s ( p x.s q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` B ) b = ( ( ( r x.s B ) +s ( A x.s s ) ) -s ( r x.s s ) ) } ) ) |
295 |
|
elun1 |
|- ( t e. ( _Left ` A ) -> t e. ( ( _Left ` A ) u. ( _Right ` A ) ) ) |
296 |
295
|
ad2antrl |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> t e. ( ( _Left ` A ) u. ( _Right ` A ) ) ) |
297 |
|
elun1 |
|- ( t e. ( ( _Left ` A ) u. ( _Right ` A ) ) -> t e. ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) ) |
298 |
296 297
|
syl |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> t e. ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) ) |
299 |
153
|
adantr |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> B e. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) |
300 |
298 299
|
opelxpd |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> <. t , B >. e. ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) ) |
301 |
|
eleq1 |
|- ( t = A -> ( t e. ( _Left ` A ) <-> A e. ( _Left ` A ) ) ) |
302 |
156 301
|
mtbiri |
|- ( t = A -> -. t e. ( _Left ` A ) ) |
303 |
302
|
necon2ai |
|- ( t e. ( _Left ` A ) -> t =/= A ) |
304 |
303
|
ad2antrl |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> t =/= A ) |
305 |
304
|
orcd |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> ( t =/= A \/ B =/= B ) ) |
306 |
|
vex |
|- t e. _V |
307 |
|
opthneg |
|- ( ( t e. _V /\ B e. No ) -> ( <. t , B >. =/= <. A , B >. <-> ( t =/= A \/ B =/= B ) ) ) |
308 |
306 307
|
mpan |
|- ( B e. No -> ( <. t , B >. =/= <. A , B >. <-> ( t =/= A \/ B =/= B ) ) ) |
309 |
308
|
ad2antlr |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> ( <. t , B >. =/= <. A , B >. <-> ( t =/= A \/ B =/= B ) ) ) |
310 |
305 309
|
mpbird |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> <. t , B >. =/= <. A , B >. ) |
311 |
|
opex |
|- <. t , B >. e. _V |
312 |
311
|
elsn |
|- ( <. t , B >. e. { <. A , B >. } <-> <. t , B >. = <. A , B >. ) |
313 |
312
|
necon3bbii |
|- ( -. <. t , B >. e. { <. A , B >. } <-> <. t , B >. =/= <. A , B >. ) |
314 |
310 313
|
sylibr |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> -. <. t , B >. e. { <. A , B >. } ) |
315 |
300 314
|
eldifd |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> <. t , B >. e. ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) |
316 |
315
|
fvresd |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. t , B >. ) = ( x.s ` <. t , B >. ) ) |
317 |
|
df-ov |
|- ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) = ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. t , B >. ) |
318 |
|
df-ov |
|- ( t x.s B ) = ( x.s ` <. t , B >. ) |
319 |
316 317 318
|
3eqtr4g |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) = ( t x.s B ) ) |
320 |
179
|
adantr |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> A e. ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) ) |
321 |
|
elun2 |
|- ( u e. ( _Right ` B ) -> u e. ( ( _Left ` B ) u. ( _Right ` B ) ) ) |
322 |
321
|
ad2antll |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> u e. ( ( _Left ` B ) u. ( _Right ` B ) ) ) |
323 |
|
elun1 |
|- ( u e. ( ( _Left ` B ) u. ( _Right ` B ) ) -> u e. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) |
324 |
322 323
|
syl |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> u e. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) |
325 |
320 324
|
opelxpd |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> <. A , u >. e. ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) ) |
326 |
|
eleq1 |
|- ( u = B -> ( u e. ( _Right ` B ) <-> B e. ( _Right ` B ) ) ) |
327 |
256 326
|
mtbiri |
|- ( u = B -> -. u e. ( _Right ` B ) ) |
328 |
327
|
necon2ai |
|- ( u e. ( _Right ` B ) -> u =/= B ) |
329 |
328
|
ad2antll |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> u =/= B ) |
330 |
329
|
olcd |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> ( A =/= A \/ u =/= B ) ) |
331 |
|
opthneg |
|- ( ( A e. No /\ u e. _V ) -> ( <. A , u >. =/= <. A , B >. <-> ( A =/= A \/ u =/= B ) ) ) |
332 |
331
|
elvd |
|- ( A e. No -> ( <. A , u >. =/= <. A , B >. <-> ( A =/= A \/ u =/= B ) ) ) |
333 |
332
|
ad2antrr |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> ( <. A , u >. =/= <. A , B >. <-> ( A =/= A \/ u =/= B ) ) ) |
334 |
330 333
|
mpbird |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> <. A , u >. =/= <. A , B >. ) |
335 |
|
opex |
|- <. A , u >. e. _V |
336 |
335
|
elsn |
|- ( <. A , u >. e. { <. A , B >. } <-> <. A , u >. = <. A , B >. ) |
337 |
336
|
necon3bbii |
|- ( -. <. A , u >. e. { <. A , B >. } <-> <. A , u >. =/= <. A , B >. ) |
338 |
334 337
|
sylibr |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> -. <. A , u >. e. { <. A , B >. } ) |
339 |
325 338
|
eldifd |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> <. A , u >. e. ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) |
340 |
339
|
fvresd |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. A , u >. ) = ( x.s ` <. A , u >. ) ) |
341 |
|
df-ov |
|- ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) = ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. A , u >. ) |
342 |
|
df-ov |
|- ( A x.s u ) = ( x.s ` <. A , u >. ) |
343 |
340 341 342
|
3eqtr4g |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) = ( A x.s u ) ) |
344 |
319 343
|
oveq12d |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) = ( ( t x.s B ) +s ( A x.s u ) ) ) |
345 |
298 324
|
opelxpd |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> <. t , u >. e. ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) ) |
346 |
329
|
olcd |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> ( t =/= A \/ u =/= B ) ) |
347 |
|
vex |
|- u e. _V |
348 |
306 347
|
opthne |
|- ( <. t , u >. =/= <. A , B >. <-> ( t =/= A \/ u =/= B ) ) |
349 |
346 348
|
sylibr |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> <. t , u >. =/= <. A , B >. ) |
350 |
|
opex |
|- <. t , u >. e. _V |
351 |
350
|
elsn |
|- ( <. t , u >. e. { <. A , B >. } <-> <. t , u >. = <. A , B >. ) |
352 |
351
|
necon3bbii |
|- ( -. <. t , u >. e. { <. A , B >. } <-> <. t , u >. =/= <. A , B >. ) |
353 |
349 352
|
sylibr |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> -. <. t , u >. e. { <. A , B >. } ) |
354 |
345 353
|
eldifd |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> <. t , u >. e. ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) |
355 |
354
|
fvresd |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. t , u >. ) = ( x.s ` <. t , u >. ) ) |
356 |
|
df-ov |
|- ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) = ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. t , u >. ) |
357 |
|
df-ov |
|- ( t x.s u ) = ( x.s ` <. t , u >. ) |
358 |
355 356 357
|
3eqtr4g |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) = ( t x.s u ) ) |
359 |
344 358
|
oveq12d |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) = ( ( ( t x.s B ) +s ( A x.s u ) ) -s ( t x.s u ) ) ) |
360 |
359
|
eqeq2d |
|- ( ( ( A e. No /\ B e. No ) /\ ( t e. ( _Left ` A ) /\ u e. ( _Right ` B ) ) ) -> ( c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) <-> c = ( ( ( t x.s B ) +s ( A x.s u ) ) -s ( t x.s u ) ) ) ) |
361 |
360
|
2rexbidva |
|- ( ( A e. No /\ B e. No ) -> ( E. t e. ( _Left ` A ) E. u e. ( _Right ` B ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) <-> E. t e. ( _Left ` A ) E. u e. ( _Right ` B ) c = ( ( ( t x.s B ) +s ( A x.s u ) ) -s ( t x.s u ) ) ) ) |
362 |
361
|
abbidv |
|- ( ( A e. No /\ B e. No ) -> { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` B ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } = { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` B ) c = ( ( ( t x.s B ) +s ( A x.s u ) ) -s ( t x.s u ) ) } ) |
363 |
|
elun2 |
|- ( v e. ( _Right ` A ) -> v e. ( ( _Left ` A ) u. ( _Right ` A ) ) ) |
364 |
363
|
ad2antrl |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> v e. ( ( _Left ` A ) u. ( _Right ` A ) ) ) |
365 |
|
elun1 |
|- ( v e. ( ( _Left ` A ) u. ( _Right ` A ) ) -> v e. ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) ) |
366 |
364 365
|
syl |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> v e. ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) ) |
367 |
153
|
adantr |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> B e. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) |
368 |
366 367
|
opelxpd |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> <. v , B >. e. ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) ) |
369 |
|
eleq1 |
|- ( v = A -> ( v e. ( _Right ` A ) <-> A e. ( _Right ` A ) ) ) |
370 |
230 369
|
mtbiri |
|- ( v = A -> -. v e. ( _Right ` A ) ) |
371 |
370
|
necon2ai |
|- ( v e. ( _Right ` A ) -> v =/= A ) |
372 |
371
|
ad2antrl |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> v =/= A ) |
373 |
372
|
orcd |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> ( v =/= A \/ B =/= B ) ) |
374 |
|
vex |
|- v e. _V |
375 |
|
opthneg |
|- ( ( v e. _V /\ B e. No ) -> ( <. v , B >. =/= <. A , B >. <-> ( v =/= A \/ B =/= B ) ) ) |
376 |
374 375
|
mpan |
|- ( B e. No -> ( <. v , B >. =/= <. A , B >. <-> ( v =/= A \/ B =/= B ) ) ) |
377 |
376
|
ad2antlr |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> ( <. v , B >. =/= <. A , B >. <-> ( v =/= A \/ B =/= B ) ) ) |
378 |
373 377
|
mpbird |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> <. v , B >. =/= <. A , B >. ) |
379 |
|
opex |
|- <. v , B >. e. _V |
380 |
379
|
elsn |
|- ( <. v , B >. e. { <. A , B >. } <-> <. v , B >. = <. A , B >. ) |
381 |
380
|
necon3bbii |
|- ( -. <. v , B >. e. { <. A , B >. } <-> <. v , B >. =/= <. A , B >. ) |
382 |
378 381
|
sylibr |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> -. <. v , B >. e. { <. A , B >. } ) |
383 |
368 382
|
eldifd |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> <. v , B >. e. ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) |
384 |
383
|
fvresd |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. v , B >. ) = ( x.s ` <. v , B >. ) ) |
385 |
|
df-ov |
|- ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) = ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. v , B >. ) |
386 |
|
df-ov |
|- ( v x.s B ) = ( x.s ` <. v , B >. ) |
387 |
384 385 386
|
3eqtr4g |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) = ( v x.s B ) ) |
388 |
179
|
adantr |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> A e. ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) ) |
389 |
|
elun1 |
|- ( w e. ( _Left ` B ) -> w e. ( ( _Left ` B ) u. ( _Right ` B ) ) ) |
390 |
389
|
ad2antll |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> w e. ( ( _Left ` B ) u. ( _Right ` B ) ) ) |
391 |
|
elun1 |
|- ( w e. ( ( _Left ` B ) u. ( _Right ` B ) ) -> w e. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) |
392 |
390 391
|
syl |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> w e. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) |
393 |
388 392
|
opelxpd |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> <. A , w >. e. ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) ) |
394 |
|
eleq1 |
|- ( w = B -> ( w e. ( _Left ` B ) <-> B e. ( _Left ` B ) ) ) |
395 |
186 394
|
mtbiri |
|- ( w = B -> -. w e. ( _Left ` B ) ) |
396 |
395
|
necon2ai |
|- ( w e. ( _Left ` B ) -> w =/= B ) |
397 |
396
|
ad2antll |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> w =/= B ) |
398 |
397
|
olcd |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> ( A =/= A \/ w =/= B ) ) |
399 |
|
opthneg |
|- ( ( A e. No /\ w e. _V ) -> ( <. A , w >. =/= <. A , B >. <-> ( A =/= A \/ w =/= B ) ) ) |
400 |
399
|
elvd |
|- ( A e. No -> ( <. A , w >. =/= <. A , B >. <-> ( A =/= A \/ w =/= B ) ) ) |
401 |
400
|
ad2antrr |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> ( <. A , w >. =/= <. A , B >. <-> ( A =/= A \/ w =/= B ) ) ) |
402 |
398 401
|
mpbird |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> <. A , w >. =/= <. A , B >. ) |
403 |
|
opex |
|- <. A , w >. e. _V |
404 |
403
|
elsn |
|- ( <. A , w >. e. { <. A , B >. } <-> <. A , w >. = <. A , B >. ) |
405 |
404
|
necon3bbii |
|- ( -. <. A , w >. e. { <. A , B >. } <-> <. A , w >. =/= <. A , B >. ) |
406 |
402 405
|
sylibr |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> -. <. A , w >. e. { <. A , B >. } ) |
407 |
393 406
|
eldifd |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> <. A , w >. e. ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) |
408 |
407
|
fvresd |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. A , w >. ) = ( x.s ` <. A , w >. ) ) |
409 |
|
df-ov |
|- ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) = ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. A , w >. ) |
410 |
|
df-ov |
|- ( A x.s w ) = ( x.s ` <. A , w >. ) |
411 |
408 409 410
|
3eqtr4g |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) = ( A x.s w ) ) |
412 |
387 411
|
oveq12d |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) = ( ( v x.s B ) +s ( A x.s w ) ) ) |
413 |
366 392
|
opelxpd |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> <. v , w >. e. ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) ) |
414 |
397
|
olcd |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> ( v =/= A \/ w =/= B ) ) |
415 |
|
vex |
|- w e. _V |
416 |
374 415
|
opthne |
|- ( <. v , w >. =/= <. A , B >. <-> ( v =/= A \/ w =/= B ) ) |
417 |
414 416
|
sylibr |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> <. v , w >. =/= <. A , B >. ) |
418 |
|
opex |
|- <. v , w >. e. _V |
419 |
418
|
elsn |
|- ( <. v , w >. e. { <. A , B >. } <-> <. v , w >. = <. A , B >. ) |
420 |
419
|
necon3bbii |
|- ( -. <. v , w >. e. { <. A , B >. } <-> <. v , w >. =/= <. A , B >. ) |
421 |
417 420
|
sylibr |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> -. <. v , w >. e. { <. A , B >. } ) |
422 |
413 421
|
eldifd |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> <. v , w >. e. ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) |
423 |
422
|
fvresd |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. v , w >. ) = ( x.s ` <. v , w >. ) ) |
424 |
|
df-ov |
|- ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) = ( ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ` <. v , w >. ) |
425 |
|
df-ov |
|- ( v x.s w ) = ( x.s ` <. v , w >. ) |
426 |
423 424 425
|
3eqtr4g |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) = ( v x.s w ) ) |
427 |
412 426
|
oveq12d |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) = ( ( ( v x.s B ) +s ( A x.s w ) ) -s ( v x.s w ) ) ) |
428 |
427
|
eqeq2d |
|- ( ( ( A e. No /\ B e. No ) /\ ( v e. ( _Right ` A ) /\ w e. ( _Left ` B ) ) ) -> ( d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) <-> d = ( ( ( v x.s B ) +s ( A x.s w ) ) -s ( v x.s w ) ) ) ) |
429 |
428
|
2rexbidva |
|- ( ( A e. No /\ B e. No ) -> ( E. v e. ( _Right ` A ) E. w e. ( _Left ` B ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) <-> E. v e. ( _Right ` A ) E. w e. ( _Left ` B ) d = ( ( ( v x.s B ) +s ( A x.s w ) ) -s ( v x.s w ) ) ) ) |
430 |
429
|
abbidv |
|- ( ( A e. No /\ B e. No ) -> { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` B ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } = { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` B ) d = ( ( ( v x.s B ) +s ( A x.s w ) ) -s ( v x.s w ) ) } ) |
431 |
362 430
|
uneq12d |
|- ( ( A e. No /\ B e. No ) -> ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` B ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` B ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) = ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` B ) c = ( ( ( t x.s B ) +s ( A x.s u ) ) -s ( t x.s u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` B ) d = ( ( ( v x.s B ) +s ( A x.s w ) ) -s ( v x.s w ) ) } ) ) |
432 |
294 431
|
oveq12d |
|- ( ( A e. No /\ B e. No ) -> ( ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` B ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` B ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` B ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` B ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) B ) +s ( A ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) = ( ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` B ) a = ( ( ( p x.s B ) +s ( A x.s q ) ) -s ( p x.s q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` B ) b = ( ( ( r x.s B ) +s ( A x.s s ) ) -s ( r x.s s ) ) } ) |s ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` B ) c = ( ( ( t x.s B ) +s ( A x.s u ) ) -s ( t x.s u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` B ) d = ( ( ( v x.s B ) +s ( A x.s w ) ) -s ( v x.s w ) ) } ) ) ) |
433 |
109 145 432
|
3eqtrd |
|- ( ( A e. No /\ B e. No ) -> [_ A / x ]_ [_ B / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) = ( ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` B ) a = ( ( ( p x.s B ) +s ( A x.s q ) ) -s ( p x.s q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` B ) b = ( ( ( r x.s B ) +s ( A x.s s ) ) -s ( r x.s s ) ) } ) |s ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` B ) c = ( ( ( t x.s B ) +s ( A x.s u ) ) -s ( t x.s u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` B ) d = ( ( ( v x.s B ) +s ( A x.s w ) ) -s ( v x.s w ) ) } ) ) ) |
434 |
69 72 433
|
3eqtrd |
|- ( ( A e. No /\ B e. No ) -> [_ ( 1st ` <. A , B >. ) / x ]_ [_ ( 2nd ` <. A , B >. ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) -s ( p ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) -s ( r ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) -s ( t ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) y ) +s ( x ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) -s ( v ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) w ) ) } ) ) = ( ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` B ) a = ( ( ( p x.s B ) +s ( A x.s q ) ) -s ( p x.s q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` B ) b = ( ( ( r x.s B ) +s ( A x.s s ) ) -s ( r x.s s ) ) } ) |s ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` B ) c = ( ( ( t x.s B ) +s ( A x.s u ) ) -s ( t x.s u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` B ) d = ( ( ( v x.s B ) +s ( A x.s w ) ) -s ( v x.s w ) ) } ) ) ) |
435 |
67 434
|
eqtrid |
|- ( ( A e. No /\ B e. No ) -> ( <. A , B >. ( z e. _V , m e. _V |-> [_ ( 1st ` z ) / x ]_ [_ ( 2nd ` z ) / y ]_ ( ( { a | E. p e. ( _Left ` x ) E. q e. ( _Left ` y ) a = ( ( ( p m y ) +s ( x m q ) ) -s ( p m q ) ) } u. { b | E. r e. ( _Right ` x ) E. s e. ( _Right ` y ) b = ( ( ( r m y ) +s ( x m s ) ) -s ( r m s ) ) } ) |s ( { c | E. t e. ( _Left ` x ) E. u e. ( _Right ` y ) c = ( ( ( t m y ) +s ( x m u ) ) -s ( t m u ) ) } u. { d | E. v e. ( _Right ` x ) E. w e. ( _Left ` y ) d = ( ( ( v m y ) +s ( x m w ) ) -s ( v m w ) ) } ) ) ) ( x.s |` ( ( ( ( ( _Left ` A ) u. ( _Right ` A ) ) u. { A } ) X. ( ( ( _Left ` B ) u. ( _Right ` B ) ) u. { B } ) ) \ { <. A , B >. } ) ) ) = ( ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` B ) a = ( ( ( p x.s B ) +s ( A x.s q ) ) -s ( p x.s q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` B ) b = ( ( ( r x.s B ) +s ( A x.s s ) ) -s ( r x.s s ) ) } ) |s ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` B ) c = ( ( ( t x.s B ) +s ( A x.s u ) ) -s ( t x.s u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` B ) d = ( ( ( v x.s B ) +s ( A x.s w ) ) -s ( v x.s w ) ) } ) ) ) |
436 |
2 435
|
eqtrd |
|- ( ( A e. No /\ B e. No ) -> ( A x.s B ) = ( ( { a | E. p e. ( _Left ` A ) E. q e. ( _Left ` B ) a = ( ( ( p x.s B ) +s ( A x.s q ) ) -s ( p x.s q ) ) } u. { b | E. r e. ( _Right ` A ) E. s e. ( _Right ` B ) b = ( ( ( r x.s B ) +s ( A x.s s ) ) -s ( r x.s s ) ) } ) |s ( { c | E. t e. ( _Left ` A ) E. u e. ( _Right ` B ) c = ( ( ( t x.s B ) +s ( A x.s u ) ) -s ( t x.s u ) ) } u. { d | E. v e. ( _Right ` A ) E. w e. ( _Left ` B ) d = ( ( ( v x.s B ) +s ( A x.s w ) ) -s ( v x.s w ) ) } ) ) ) |