MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  eroveu Unicode version

Theorem eroveu 6753
Description: Lemma for erov 6755 and eroprf 6756. (Contributed by Jeff Madsen, 10-Jun-2010.) (Revised by Mario Carneiro, 9-Jul-2014.)
Hypotheses
Ref Expression
eropr.1  |-  J  =  ( A /. R
)
eropr.2  |-  K  =  ( B /. S
)
eropr.3  |-  ( ph  ->  T  e.  Z )
eropr.4  |-  ( ph  ->  R  Er  U )
eropr.5  |-  ( ph  ->  S  Er  V )
eropr.6  |-  ( ph  ->  T  Er  W )
eropr.7  |-  ( ph  ->  A  C_  U )
eropr.8  |-  ( ph  ->  B  C_  V )
eropr.9  |-  ( ph  ->  C  C_  W )
eropr.10  |-  ( ph  ->  .+  : ( A  X.  B ) --> C )
eropr.11  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
( ( r R s  /\  t S u )  ->  (
r  .+  t ) T ( s  .+  u ) ) )
Assertion
Ref Expression
eroveu  |-  ( (
ph  /\  ( X  e.  J  /\  Y  e.  K ) )  ->  E! z E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T ) )
Distinct variable groups:    q, p, r, s, t, u, z, A    B, p, q, r, s, t, u, z    J, p, q, z    R, p, q, r, s, t, u, z    K, p, q, z    S, p, q, r, s, t, u, z    .+ , p, q, r, s, t, u, z    ph, p, q, r, s, t, u, z    T, p, q, r, s, t, u, z    X, p, q, r, s, t, u, z    Y, p, q, r, s, t, u, z
Allowed substitution hints:    C( z, u, t, s, r, q, p)    U( z, u, t, s, r, q, p)    J( u, t, s, r)    K( u, t, s, r)    V( z, u, t, s, r, q, p)    W( z, u, t, s, r, q, p)    Z( z, u, t, s, r, q, p)

Proof of Theorem eroveu
Dummy variable  w is distinct from all other variables.
StepHypRef Expression
1 elqsi 6713 . . . . . . . 8  |-  ( X  e.  ( A /. R )  ->  E. p  e.  A  X  =  [ p ] R
)
2 eropr.1 . . . . . . . 8  |-  J  =  ( A /. R
)
31, 2eleq2s 2375 . . . . . . 7  |-  ( X  e.  J  ->  E. p  e.  A  X  =  [ p ] R
)
4 elqsi 6713 . . . . . . . 8  |-  ( Y  e.  ( B /. S )  ->  E. q  e.  B  Y  =  [ q ] S
)
5 eropr.2 . . . . . . . 8  |-  K  =  ( B /. S
)
64, 5eleq2s 2375 . . . . . . 7  |-  ( Y  e.  K  ->  E. q  e.  B  Y  =  [ q ] S
)
73, 6anim12i 549 . . . . . 6  |-  ( ( X  e.  J  /\  Y  e.  K )  ->  ( E. p  e.  A  X  =  [
p ] R  /\  E. q  e.  B  Y  =  [ q ] S
) )
87adantl 452 . . . . 5  |-  ( (
ph  /\  ( X  e.  J  /\  Y  e.  K ) )  -> 
( E. p  e.  A  X  =  [
p ] R  /\  E. q  e.  B  Y  =  [ q ] S
) )
9 reeanv 2707 . . . . 5  |-  ( E. p  e.  A  E. q  e.  B  ( X  =  [ p ] R  /\  Y  =  [ q ] S
)  <->  ( E. p  e.  A  X  =  [ p ] R  /\  E. q  e.  B  Y  =  [ q ] S ) )
108, 9sylibr 203 . . . 4  |-  ( (
ph  /\  ( X  e.  J  /\  Y  e.  K ) )  ->  E. p  e.  A  E. q  e.  B  ( X  =  [
p ] R  /\  Y  =  [ q ] S ) )
11 eropr.3 . . . . . . . 8  |-  ( ph  ->  T  e.  Z )
1211adantr 451 . . . . . . 7  |-  ( (
ph  /\  ( X  e.  J  /\  Y  e.  K ) )  ->  T  e.  Z )
13 ecexg 6664 . . . . . . 7  |-  ( T  e.  Z  ->  [ ( p  .+  q ) ] T  e.  _V )
14 elisset 2798 . . . . . . 7  |-  ( [ ( p  .+  q
) ] T  e. 
_V  ->  E. z  z  =  [ ( p  .+  q ) ] T
)
1512, 13, 143syl 18 . . . . . 6  |-  ( (
ph  /\  ( X  e.  J  /\  Y  e.  K ) )  ->  E. z  z  =  [ ( p  .+  q ) ] T
)
1615biantrud 493 . . . . 5  |-  ( (
ph  /\  ( X  e.  J  /\  Y  e.  K ) )  -> 
( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  <-> 
( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  E. z  z  =  [ ( p 
.+  q ) ] T ) ) )
17162rexbidv 2586 . . . 4  |-  ( (
ph  /\  ( X  e.  J  /\  Y  e.  K ) )  -> 
( E. p  e.  A  E. q  e.  B  ( X  =  [ p ] R  /\  Y  =  [
q ] S )  <->  E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  E. z  z  =  [ ( p 
.+  q ) ] T ) ) )
1810, 17mpbid 201 . . 3  |-  ( (
ph  /\  ( X  e.  J  /\  Y  e.  K ) )  ->  E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  E. z  z  =  [ ( p 
.+  q ) ] T ) )
19 19.42v 1846 . . . . . . . 8  |-  ( E. z ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T )  <-> 
( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  E. z  z  =  [ ( p 
.+  q ) ] T ) )
2019bicomi 193 . . . . . . 7  |-  ( ( ( X  =  [
p ] R  /\  Y  =  [ q ] S )  /\  E. z  z  =  [
( p  .+  q
) ] T )  <->  E. z ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T ) )
2120rexbii 2568 . . . . . 6  |-  ( E. q  e.  B  ( ( X  =  [
p ] R  /\  Y  =  [ q ] S )  /\  E. z  z  =  [
( p  .+  q
) ] T )  <->  E. q  e.  B  E. z ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T ) )
22 rexcom4 2807 . . . . . 6  |-  ( E. q  e.  B  E. z ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T )  <->  E. z E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T ) )
2321, 22bitri 240 . . . . 5  |-  ( E. q  e.  B  ( ( X  =  [
p ] R  /\  Y  =  [ q ] S )  /\  E. z  z  =  [
( p  .+  q
) ] T )  <->  E. z E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T ) )
2423rexbii 2568 . . . 4  |-  ( E. p  e.  A  E. q  e.  B  (
( X  =  [
p ] R  /\  Y  =  [ q ] S )  /\  E. z  z  =  [
( p  .+  q
) ] T )  <->  E. p  e.  A  E. z E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T ) )
25 rexcom4 2807 . . . 4  |-  ( E. p  e.  A  E. z E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T )  <->  E. z E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T ) )
2624, 25bitri 240 . . 3  |-  ( E. p  e.  A  E. q  e.  B  (
( X  =  [
p ] R  /\  Y  =  [ q ] S )  /\  E. z  z  =  [
( p  .+  q
) ] T )  <->  E. z E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T ) )
2718, 26sylib 188 . 2  |-  ( (
ph  /\  ( X  e.  J  /\  Y  e.  K ) )  ->  E. z E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T ) )
28 reeanv 2707 . . . . . 6  |-  ( E. r  e.  A  E. s  e.  A  ( E. t  e.  B  ( ( X  =  [ r ] R  /\  Y  =  [
t ] S )  /\  z  =  [
( r  .+  t
) ] T )  /\  E. u  e.  B  ( ( X  =  [ s ] R  /\  Y  =  [ u ] S
)  /\  w  =  [ ( s  .+  u ) ] T
) )  <->  ( E. r  e.  A  E. t  e.  B  (
( X  =  [
r ] R  /\  Y  =  [ t ] S )  /\  z  =  [ ( r  .+  t ) ] T
)  /\  E. s  e.  A  E. u  e.  B  ( ( X  =  [ s ] R  /\  Y  =  [ u ] S
)  /\  w  =  [ ( s  .+  u ) ] T
) ) )
29 eceq1 6696 . . . . . . . . . . 11  |-  ( p  =  r  ->  [ p ] R  =  [
r ] R )
3029eqeq2d 2294 . . . . . . . . . 10  |-  ( p  =  r  ->  ( X  =  [ p ] R  <->  X  =  [
r ] R ) )
3130anbi1d 685 . . . . . . . . 9  |-  ( p  =  r  ->  (
( X  =  [
p ] R  /\  Y  =  [ q ] S )  <->  ( X  =  [ r ] R  /\  Y  =  [
q ] S ) ) )
32 oveq1 5865 . . . . . . . . . . 11  |-  ( p  =  r  ->  (
p  .+  q )  =  ( r  .+  q ) )
33 eceq1 6696 . . . . . . . . . . 11  |-  ( ( p  .+  q )  =  ( r  .+  q )  ->  [ ( p  .+  q ) ] T  =  [
( r  .+  q
) ] T )
3432, 33syl 15 . . . . . . . . . 10  |-  ( p  =  r  ->  [ ( p  .+  q ) ] T  =  [
( r  .+  q
) ] T )
3534eqeq2d 2294 . . . . . . . . 9  |-  ( p  =  r  ->  (
z  =  [ ( p  .+  q ) ] T  <->  z  =  [ ( r  .+  q ) ] T
) )
3631, 35anbi12d 691 . . . . . . . 8  |-  ( p  =  r  ->  (
( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T )  <-> 
( ( X  =  [ r ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( r  .+  q
) ] T ) ) )
37 eceq1 6696 . . . . . . . . . . 11  |-  ( q  =  t  ->  [ q ] S  =  [
t ] S )
3837eqeq2d 2294 . . . . . . . . . 10  |-  ( q  =  t  ->  ( Y  =  [ q ] S  <->  Y  =  [
t ] S ) )
3938anbi2d 684 . . . . . . . . 9  |-  ( q  =  t  ->  (
( X  =  [
r ] R  /\  Y  =  [ q ] S )  <->  ( X  =  [ r ] R  /\  Y  =  [
t ] S ) ) )
40 oveq2 5866 . . . . . . . . . . 11  |-  ( q  =  t  ->  (
r  .+  q )  =  ( r  .+  t ) )
41 eceq1 6696 . . . . . . . . . . 11  |-  ( ( r  .+  q )  =  ( r  .+  t )  ->  [ ( r  .+  q ) ] T  =  [
( r  .+  t
) ] T )
4240, 41syl 15 . . . . . . . . . 10  |-  ( q  =  t  ->  [ ( r  .+  q ) ] T  =  [
( r  .+  t
) ] T )
4342eqeq2d 2294 . . . . . . . . 9  |-  ( q  =  t  ->  (
z  =  [ ( r  .+  q ) ] T  <->  z  =  [ ( r  .+  t ) ] T
) )
4439, 43anbi12d 691 . . . . . . . 8  |-  ( q  =  t  ->  (
( ( X  =  [ r ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( r  .+  q
) ] T )  <-> 
( ( X  =  [ r ] R  /\  Y  =  [
t ] S )  /\  z  =  [
( r  .+  t
) ] T ) ) )
4536, 44cbvrex2v 2773 . . . . . . 7  |-  ( E. p  e.  A  E. q  e.  B  (
( X  =  [
p ] R  /\  Y  =  [ q ] S )  /\  z  =  [ ( p  .+  q ) ] T
)  <->  E. r  e.  A  E. t  e.  B  ( ( X  =  [ r ] R  /\  Y  =  [
t ] S )  /\  z  =  [
( r  .+  t
) ] T ) )
46 eceq1 6696 . . . . . . . . . . 11  |-  ( p  =  s  ->  [ p ] R  =  [
s ] R )
4746eqeq2d 2294 . . . . . . . . . 10  |-  ( p  =  s  ->  ( X  =  [ p ] R  <->  X  =  [
s ] R ) )
4847anbi1d 685 . . . . . . . . 9  |-  ( p  =  s  ->  (
( X  =  [
p ] R  /\  Y  =  [ q ] S )  <->  ( X  =  [ s ] R  /\  Y  =  [
q ] S ) ) )
49 oveq1 5865 . . . . . . . . . . 11  |-  ( p  =  s  ->  (
p  .+  q )  =  ( s  .+  q ) )
50 eceq1 6696 . . . . . . . . . . 11  |-  ( ( p  .+  q )  =  ( s  .+  q )  ->  [ ( p  .+  q ) ] T  =  [
( s  .+  q
) ] T )
5149, 50syl 15 . . . . . . . . . 10  |-  ( p  =  s  ->  [ ( p  .+  q ) ] T  =  [
( s  .+  q
) ] T )
5251eqeq2d 2294 . . . . . . . . 9  |-  ( p  =  s  ->  (
w  =  [ ( p  .+  q ) ] T  <->  w  =  [ ( s  .+  q ) ] T
) )
5348, 52anbi12d 691 . . . . . . . 8  |-  ( p  =  s  ->  (
( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  w  =  [
( p  .+  q
) ] T )  <-> 
( ( X  =  [ s ] R  /\  Y  =  [
q ] S )  /\  w  =  [
( s  .+  q
) ] T ) ) )
54 eceq1 6696 . . . . . . . . . . 11  |-  ( q  =  u  ->  [ q ] S  =  [
u ] S )
5554eqeq2d 2294 . . . . . . . . . 10  |-  ( q  =  u  ->  ( Y  =  [ q ] S  <->  Y  =  [
u ] S ) )
5655anbi2d 684 . . . . . . . . 9  |-  ( q  =  u  ->  (
( X  =  [
s ] R  /\  Y  =  [ q ] S )  <->  ( X  =  [ s ] R  /\  Y  =  [
u ] S ) ) )
57 oveq2 5866 . . . . . . . . . . 11  |-  ( q  =  u  ->  (
s  .+  q )  =  ( s  .+  u ) )
58 eceq1 6696 . . . . . . . . . . 11  |-  ( ( s  .+  q )  =  ( s  .+  u )  ->  [ ( s  .+  q ) ] T  =  [
( s  .+  u
) ] T )
5957, 58syl 15 . . . . . . . . . 10  |-  ( q  =  u  ->  [ ( s  .+  q ) ] T  =  [
( s  .+  u
) ] T )
6059eqeq2d 2294 . . . . . . . . 9  |-  ( q  =  u  ->  (
w  =  [ ( s  .+  q ) ] T  <->  w  =  [ ( s  .+  u ) ] T
) )
6156, 60anbi12d 691 . . . . . . . 8  |-  ( q  =  u  ->  (
( ( X  =  [ s ] R  /\  Y  =  [
q ] S )  /\  w  =  [
( s  .+  q
) ] T )  <-> 
( ( X  =  [ s ] R  /\  Y  =  [
u ] S )  /\  w  =  [
( s  .+  u
) ] T ) ) )
6253, 61cbvrex2v 2773 . . . . . . 7  |-  ( E. p  e.  A  E. q  e.  B  (
( X  =  [
p ] R  /\  Y  =  [ q ] S )  /\  w  =  [ ( p  .+  q ) ] T
)  <->  E. s  e.  A  E. u  e.  B  ( ( X  =  [ s ] R  /\  Y  =  [
u ] S )  /\  w  =  [
( s  .+  u
) ] T ) )
6345, 62anbi12i 678 . . . . . 6  |-  ( ( E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T )  /\  E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  w  =  [
( p  .+  q
) ] T ) )  <->  ( E. r  e.  A  E. t  e.  B  ( ( X  =  [ r ] R  /\  Y  =  [ t ] S
)  /\  z  =  [ ( r  .+  t ) ] T
)  /\  E. s  e.  A  E. u  e.  B  ( ( X  =  [ s ] R  /\  Y  =  [ u ] S
)  /\  w  =  [ ( s  .+  u ) ] T
) ) )
6428, 63bitr4i 243 . . . . 5  |-  ( E. r  e.  A  E. s  e.  A  ( E. t  e.  B  ( ( X  =  [ r ] R  /\  Y  =  [
t ] S )  /\  z  =  [
( r  .+  t
) ] T )  /\  E. u  e.  B  ( ( X  =  [ s ] R  /\  Y  =  [ u ] S
)  /\  w  =  [ ( s  .+  u ) ] T
) )  <->  ( E. p  e.  A  E. q  e.  B  (
( X  =  [
p ] R  /\  Y  =  [ q ] S )  /\  z  =  [ ( p  .+  q ) ] T
)  /\  E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [ q ] S
)  /\  w  =  [ ( p  .+  q ) ] T
) ) )
65 reeanv 2707 . . . . . . 7  |-  ( E. t  e.  B  E. u  e.  B  (
( ( X  =  [ r ] R  /\  Y  =  [
t ] S )  /\  z  =  [
( r  .+  t
) ] T )  /\  ( ( X  =  [ s ] R  /\  Y  =  [ u ] S
)  /\  w  =  [ ( s  .+  u ) ] T
) )  <->  ( E. t  e.  B  (
( X  =  [
r ] R  /\  Y  =  [ t ] S )  /\  z  =  [ ( r  .+  t ) ] T
)  /\  E. u  e.  B  ( ( X  =  [ s ] R  /\  Y  =  [ u ] S
)  /\  w  =  [ ( s  .+  u ) ] T
) ) )
66 eropr.11 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
( ( r R s  /\  t S u )  ->  (
r  .+  t ) T ( s  .+  u ) ) )
67 eropr.4 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  R  Er  U )
6867adantr 451 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  ->  R  Er  U )
69 eropr.7 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  A  C_  U )
7069adantr 451 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  ->  A  C_  U )
71 simprll 738 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
r  e.  A )
7270, 71sseldd 3181 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
r  e.  U )
7368, 72erth 6704 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
( r R s  <->  [ r ] R  =  [ s ] R
) )
74 eropr.5 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  S  Er  V )
7574adantr 451 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  ->  S  Er  V )
76 eropr.8 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  B  C_  V )
7776adantr 451 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  ->  B  C_  V )
78 simprrl 740 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
t  e.  B )
7977, 78sseldd 3181 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
t  e.  V )
8075, 79erth 6704 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
( t S u  <->  [ t ] S  =  [ u ] S
) )
8173, 80anbi12d 691 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
( ( r R s  /\  t S u )  <->  ( [
r ] R  =  [ s ] R  /\  [ t ] S  =  [ u ] S
) ) )
82 eropr.6 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  T  Er  W )
8382adantr 451 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  ->  T  Er  W )
84 eropr.9 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  C  C_  W )
8584adantr 451 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  ->  C  C_  W )
86 eropr.10 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  .+  : ( A  X.  B ) --> C )
8786adantr 451 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  ->  .+  : ( A  X.  B ) --> C )
88 fovrn 5990 . . . . . . . . . . . . . . . . 17  |-  ( ( 
.+  : ( A  X.  B ) --> C  /\  r  e.  A  /\  t  e.  B
)  ->  ( r  .+  t )  e.  C
)
8987, 71, 78, 88syl3anc 1182 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
( r  .+  t
)  e.  C )
9085, 89sseldd 3181 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
( r  .+  t
)  e.  W )
9183, 90erth 6704 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
( ( r  .+  t ) T ( s  .+  u )  <->  [ ( r  .+  t ) ] T  =  [ ( s  .+  u ) ] T
) )
9266, 81, 913imtr3d 258 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
( ( [ r ] R  =  [
s ] R  /\  [ t ] S  =  [ u ] S
)  ->  [ (
r  .+  t ) ] T  =  [
( s  .+  u
) ] T ) )
93 eqeq2 2292 . . . . . . . . . . . . . 14  |-  ( w  =  [ ( s 
.+  u ) ] T  ->  ( [
( r  .+  t
) ] T  =  w  <->  [ ( r  .+  t ) ] T  =  [ ( s  .+  u ) ] T
) )
9493biimprcd 216 . . . . . . . . . . . . 13  |-  ( [ ( r  .+  t
) ] T  =  [ ( s  .+  u ) ] T  ->  ( w  =  [
( s  .+  u
) ] T  ->  [ ( r  .+  t ) ] T  =  w ) )
9592, 94syl6 29 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
( ( [ r ] R  =  [
s ] R  /\  [ t ] S  =  [ u ] S
)  ->  ( w  =  [ ( s  .+  u ) ] T  ->  [ ( r  .+  t ) ] T  =  w ) ) )
9695imp3a 420 . . . . . . . . . . 11  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
( ( ( [ r ] R  =  [ s ] R  /\  [ t ] S  =  [ u ] S
)  /\  w  =  [ ( s  .+  u ) ] T
)  ->  [ (
r  .+  t ) ] T  =  w
) )
97 eqeq1 2289 . . . . . . . . . . . . . . 15  |-  ( X  =  [ r ] R  ->  ( X  =  [ s ] R  <->  [ r ] R  =  [ s ] R
) )
98 eqeq1 2289 . . . . . . . . . . . . . . 15  |-  ( Y  =  [ t ] S  ->  ( Y  =  [ u ] S  <->  [ t ] S  =  [ u ] S
) )
9997, 98bi2anan9 843 . . . . . . . . . . . . . 14  |-  ( ( X  =  [ r ] R  /\  Y  =  [ t ] S
)  ->  ( ( X  =  [ s ] R  /\  Y  =  [ u ] S
)  <->  ( [ r ] R  =  [
s ] R  /\  [ t ] S  =  [ u ] S
) ) )
10099anbi1d 685 . . . . . . . . . . . . 13  |-  ( ( X  =  [ r ] R  /\  Y  =  [ t ] S
)  ->  ( (
( X  =  [
s ] R  /\  Y  =  [ u ] S )  /\  w  =  [ ( s  .+  u ) ] T
)  <->  ( ( [ r ] R  =  [ s ] R  /\  [ t ] S  =  [ u ] S
)  /\  w  =  [ ( s  .+  u ) ] T
) ) )
101100adantr 451 . . . . . . . . . . . 12  |-  ( ( ( X  =  [
r ] R  /\  Y  =  [ t ] S )  /\  z  =  [ ( r  .+  t ) ] T
)  ->  ( (
( X  =  [
s ] R  /\  Y  =  [ u ] S )  /\  w  =  [ ( s  .+  u ) ] T
)  <->  ( ( [ r ] R  =  [ s ] R  /\  [ t ] S  =  [ u ] S
)  /\  w  =  [ ( s  .+  u ) ] T
) ) )
102 eqeq1 2289 . . . . . . . . . . . . 13  |-  ( z  =  [ ( r 
.+  t ) ] T  ->  ( z  =  w  <->  [ ( r  .+  t ) ] T  =  w ) )
103102adantl 452 . . . . . . . . . . . 12  |-  ( ( ( X  =  [
r ] R  /\  Y  =  [ t ] S )  /\  z  =  [ ( r  .+  t ) ] T
)  ->  ( z  =  w  <->  [ ( r  .+  t ) ] T  =  w ) )
104101, 103imbi12d 311 . . . . . . . . . . 11  |-  ( ( ( X  =  [
r ] R  /\  Y  =  [ t ] S )  /\  z  =  [ ( r  .+  t ) ] T
)  ->  ( (
( ( X  =  [ s ] R  /\  Y  =  [
u ] S )  /\  w  =  [
( s  .+  u
) ] T )  ->  z  =  w )  <->  ( ( ( [ r ] R  =  [ s ] R  /\  [ t ] S  =  [ u ] S
)  /\  w  =  [ ( s  .+  u ) ] T
)  ->  [ (
r  .+  t ) ] T  =  w
) ) )
10596, 104syl5ibrcom 213 . . . . . . . . . 10  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
( ( ( X  =  [ r ] R  /\  Y  =  [ t ] S
)  /\  z  =  [ ( r  .+  t ) ] T
)  ->  ( (
( X  =  [
s ] R  /\  Y  =  [ u ] S )  /\  w  =  [ ( s  .+  u ) ] T
)  ->  z  =  w ) ) )
106105imp3a 420 . . . . . . . . 9  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
( ( ( ( X  =  [ r ] R  /\  Y  =  [ t ] S
)  /\  z  =  [ ( r  .+  t ) ] T
)  /\  ( ( X  =  [ s ] R  /\  Y  =  [ u ] S
)  /\  w  =  [ ( s  .+  u ) ] T
) )  ->  z  =  w ) )
107106anassrs 629 . . . . . . . 8  |-  ( ( ( ph  /\  (
r  e.  A  /\  s  e.  A )
)  /\  ( t  e.  B  /\  u  e.  B ) )  -> 
( ( ( ( X  =  [ r ] R  /\  Y  =  [ t ] S
)  /\  z  =  [ ( r  .+  t ) ] T
)  /\  ( ( X  =  [ s ] R  /\  Y  =  [ u ] S
)  /\  w  =  [ ( s  .+  u ) ] T
) )  ->  z  =  w ) )
108107rexlimdvva 2674 . . . . . . 7  |-  ( (
ph  /\  ( r  e.  A  /\  s  e.  A ) )  -> 
( E. t  e.  B  E. u  e.  B  ( ( ( X  =  [ r ] R  /\  Y  =  [ t ] S
)  /\  z  =  [ ( r  .+  t ) ] T
)  /\  ( ( X  =  [ s ] R  /\  Y  =  [ u ] S
)  /\  w  =  [ ( s  .+  u ) ] T
) )  ->  z  =  w ) )
10965, 108syl5bir 209 . . . . . 6  |-  ( (
ph  /\  ( r  e.  A  /\  s  e.  A ) )  -> 
( ( E. t  e.  B  ( ( X  =  [ r ] R  /\  Y  =  [ t ] S
)  /\  z  =  [ ( r  .+  t ) ] T
)  /\  E. u  e.  B  ( ( X  =  [ s ] R  /\  Y  =  [ u ] S
)  /\  w  =  [ ( s  .+  u ) ] T
) )  ->  z  =  w ) )
110109rexlimdvva 2674 . . . . 5  |-  ( ph  ->  ( E. r  e.  A  E. s  e.  A  ( E. t  e.  B  ( ( X  =  [ r ] R  /\  Y  =  [ t ] S
)  /\  z  =  [ ( r  .+  t ) ] T
)  /\  E. u  e.  B  ( ( X  =  [ s ] R  /\  Y  =  [ u ] S
)  /\  w  =  [ ( s  .+  u ) ] T
) )  ->  z  =  w ) )
11164, 110syl5bir 209 . . . 4  |-  ( ph  ->  ( ( E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [ q ] S
)  /\  z  =  [ ( p  .+  q ) ] T
)  /\  E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [ q ] S
)  /\  w  =  [ ( p  .+  q ) ] T
) )  ->  z  =  w ) )
112111adantr 451 . . 3  |-  ( (
ph  /\  ( X  e.  J  /\  Y  e.  K ) )  -> 
( ( E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [ q ] S
)  /\  z  =  [ ( p  .+  q ) ] T
)  /\  E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [ q ] S
)  /\  w  =  [ ( p  .+  q ) ] T
) )  ->  z  =  w ) )
113112alrimivv 1618 . 2  |-  ( (
ph  /\  ( X  e.  J  /\  Y  e.  K ) )  ->  A. z A. w ( ( E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T )  /\  E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  w  =  [
( p  .+  q
) ] T ) )  ->  z  =  w ) )
114 eqeq1 2289 . . . . 5  |-  ( z  =  w  ->  (
z  =  [ ( p  .+  q ) ] T  <->  w  =  [ ( p  .+  q ) ] T
) )
115114anbi2d 684 . . . 4  |-  ( z  =  w  ->  (
( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T )  <-> 
( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  w  =  [
( p  .+  q
) ] T ) ) )
1161152rexbidv 2586 . . 3  |-  ( z  =  w  ->  ( E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T )  <->  E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  w  =  [
( p  .+  q
) ] T ) ) )
117116eu4 2182 . 2  |-  ( E! z E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T )  <-> 
( E. z E. p  e.  A  E. q  e.  B  (
( X  =  [
p ] R  /\  Y  =  [ q ] S )  /\  z  =  [ ( p  .+  q ) ] T
)  /\  A. z A. w ( ( E. p  e.  A  E. q  e.  B  (
( X  =  [
p ] R  /\  Y  =  [ q ] S )  /\  z  =  [ ( p  .+  q ) ] T
)  /\  E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [ q ] S
)  /\  w  =  [ ( p  .+  q ) ] T
) )  ->  z  =  w ) ) )
11827, 113, 117sylanbrc 645 1  |-  ( (
ph  /\  ( X  e.  J  /\  Y  e.  K ) )  ->  E! z E. p  e.  A  E. q  e.  B  ( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 176    /\ wa 358   A.wal 1527   E.wex 1528    = wceq 1623    e. wcel 1684   E!weu 2143   E.wrex 2544   _Vcvv 2788    C_ wss 3152   class class class wbr 4023    X. cxp 4687   -->wf 5251  (class class class)co 5858    Er wer 6657   [cec 6658   /.cqs 6659
This theorem is referenced by:  erovlem  6754  erov  6755  eroprf  6756
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1533  ax-5 1544  ax-17 1603  ax-9 1635  ax-8 1643  ax-13 1686  ax-14 1688  ax-6 1703  ax-7 1708  ax-11 1715  ax-12 1866  ax-ext 2264  ax-sep 4141  ax-nul 4149  ax-pr 4214  ax-un 4512
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3an 936  df-tru 1310  df-ex 1529  df-nf 1532  df-sb 1630  df-eu 2147  df-mo 2148  df-clab 2270  df-cleq 2276  df-clel 2279  df-nfc 2408  df-ne 2448  df-ral 2548  df-rex 2549  df-rab 2552  df-v 2790  df-sbc 2992  df-dif 3155  df-un 3157  df-in 3159  df-ss 3166  df-nul 3456  df-if 3566  df-sn 3646  df-pr 3647  df-op 3649  df-uni 3828  df-br 4024  df-opab 4078  df-id 4309  df-xp 4695  df-rel 4696  df-cnv 4697  df-co 4698  df-dm 4699  df-rn 4700  df-res 4701  df-ima 4702  df-iota 5219  df-fun 5257  df-fn 5258  df-f 5259  df-fv 5263  df-ov 5861  df-er 6660  df-ec 6662  df-qs 6666
  Copyright terms: Public domain W3C validator