ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  eroveu Unicode version

Theorem eroveu 6616
Description: Lemma for eroprf 6618. (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 6577 . . . . . . . 8  |-  ( X  e.  ( A /. R )  ->  E. p  e.  A  X  =  [ p ] R
)
2 eropr.1 . . . . . . . 8  |-  J  =  ( A /. R
)
31, 2eleq2s 2270 . . . . . . 7  |-  ( X  e.  J  ->  E. p  e.  A  X  =  [ p ] R
)
4 elqsi 6577 . . . . . . . 8  |-  ( Y  e.  ( B /. S )  ->  E. q  e.  B  Y  =  [ q ] S
)
5 eropr.2 . . . . . . . 8  |-  K  =  ( B /. S
)
64, 5eleq2s 2270 . . . . . . 7  |-  ( Y  e.  K  ->  E. q  e.  B  Y  =  [ q ] S
)
73, 6anim12i 338 . . . . . 6  |-  ( ( X  e.  J  /\  Y  e.  K )  ->  ( E. p  e.  A  X  =  [
p ] R  /\  E. q  e.  B  Y  =  [ q ] S
) )
87adantl 277 . . . . 5  |-  ( (
ph  /\  ( X  e.  J  /\  Y  e.  K ) )  -> 
( E. p  e.  A  X  =  [
p ] R  /\  E. q  e.  B  Y  =  [ q ] S
) )
9 reeanv 2644 . . . . 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 134 . . . 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 276 . . . . . . 7  |-  ( (
ph  /\  ( X  e.  J  /\  Y  e.  K ) )  ->  T  e.  Z )
13 ecexg 6529 . . . . . . 7  |-  ( T  e.  Z  ->  [ ( p  .+  q ) ] T  e.  _V )
14 elisset 2749 . . . . . . 7  |-  ( [ ( p  .+  q
) ] T  e. 
_V  ->  E. z  z  =  [ ( p  .+  q ) ] T
)
1512, 13, 143syl 17 . . . . . 6  |-  ( (
ph  /\  ( X  e.  J  /\  Y  e.  K ) )  ->  E. z  z  =  [ ( p  .+  q ) ] T
)
1615biantrud 304 . . . . 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 2500 . . . 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 147 . . 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 1904 . . . . . . . 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 132 . . . . . . 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 2482 . . . . . 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 2758 . . . . . 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 184 . . . . 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 2482 . . . 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 2758 . . . 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 184 . . 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 122 . 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 2644 . . . . . 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 6560 . . . . . . . . . . 11  |-  ( p  =  r  ->  [ p ] R  =  [
r ] R )
3029eqeq2d 2187 . . . . . . . . . 10  |-  ( p  =  r  ->  ( X  =  [ p ] R  <->  X  =  [
r ] R ) )
3130anbi1d 465 . . . . . . . . 9  |-  ( p  =  r  ->  (
( X  =  [
p ] R  /\  Y  =  [ q ] S )  <->  ( X  =  [ r ] R  /\  Y  =  [
q ] S ) ) )
32 oveq1 5872 . . . . . . . . . . 11  |-  ( p  =  r  ->  (
p  .+  q )  =  ( r  .+  q ) )
3332eceq1d 6561 . . . . . . . . . 10  |-  ( p  =  r  ->  [ ( p  .+  q ) ] T  =  [
( r  .+  q
) ] T )
3433eqeq2d 2187 . . . . . . . . 9  |-  ( p  =  r  ->  (
z  =  [ ( p  .+  q ) ] T  <->  z  =  [ ( r  .+  q ) ] T
) )
3531, 34anbi12d 473 . . . . . . . 8  |-  ( p  =  r  ->  (
( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T )  <-> 
( ( X  =  [ r ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( r  .+  q
) ] T ) ) )
36 eceq1 6560 . . . . . . . . . . 11  |-  ( q  =  t  ->  [ q ] S  =  [
t ] S )
3736eqeq2d 2187 . . . . . . . . . 10  |-  ( q  =  t  ->  ( Y  =  [ q ] S  <->  Y  =  [
t ] S ) )
3837anbi2d 464 . . . . . . . . 9  |-  ( q  =  t  ->  (
( X  =  [
r ] R  /\  Y  =  [ q ] S )  <->  ( X  =  [ r ] R  /\  Y  =  [
t ] S ) ) )
39 oveq2 5873 . . . . . . . . . . 11  |-  ( q  =  t  ->  (
r  .+  q )  =  ( r  .+  t ) )
4039eceq1d 6561 . . . . . . . . . 10  |-  ( q  =  t  ->  [ ( r  .+  q ) ] T  =  [
( r  .+  t
) ] T )
4140eqeq2d 2187 . . . . . . . . 9  |-  ( q  =  t  ->  (
z  =  [ ( r  .+  q ) ] T  <->  z  =  [ ( r  .+  t ) ] T
) )
4238, 41anbi12d 473 . . . . . . . 8  |-  ( q  =  t  ->  (
( ( X  =  [ r ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( r  .+  q
) ] T )  <-> 
( ( X  =  [ r ] R  /\  Y  =  [
t ] S )  /\  z  =  [
( r  .+  t
) ] T ) ) )
4335, 42cbvrex2v 2715 . . . . . . 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 ) )
44 eceq1 6560 . . . . . . . . . . 11  |-  ( p  =  s  ->  [ p ] R  =  [
s ] R )
4544eqeq2d 2187 . . . . . . . . . 10  |-  ( p  =  s  ->  ( X  =  [ p ] R  <->  X  =  [
s ] R ) )
4645anbi1d 465 . . . . . . . . 9  |-  ( p  =  s  ->  (
( X  =  [
p ] R  /\  Y  =  [ q ] S )  <->  ( X  =  [ s ] R  /\  Y  =  [
q ] S ) ) )
47 oveq1 5872 . . . . . . . . . . 11  |-  ( p  =  s  ->  (
p  .+  q )  =  ( s  .+  q ) )
4847eceq1d 6561 . . . . . . . . . 10  |-  ( p  =  s  ->  [ ( p  .+  q ) ] T  =  [
( s  .+  q
) ] T )
4948eqeq2d 2187 . . . . . . . . 9  |-  ( p  =  s  ->  (
w  =  [ ( p  .+  q ) ] T  <->  w  =  [ ( s  .+  q ) ] T
) )
5046, 49anbi12d 473 . . . . . . . 8  |-  ( p  =  s  ->  (
( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  w  =  [
( p  .+  q
) ] T )  <-> 
( ( X  =  [ s ] R  /\  Y  =  [
q ] S )  /\  w  =  [
( s  .+  q
) ] T ) ) )
51 eceq1 6560 . . . . . . . . . . 11  |-  ( q  =  u  ->  [ q ] S  =  [
u ] S )
5251eqeq2d 2187 . . . . . . . . . 10  |-  ( q  =  u  ->  ( Y  =  [ q ] S  <->  Y  =  [
u ] S ) )
5352anbi2d 464 . . . . . . . . 9  |-  ( q  =  u  ->  (
( X  =  [
s ] R  /\  Y  =  [ q ] S )  <->  ( X  =  [ s ] R  /\  Y  =  [
u ] S ) ) )
54 oveq2 5873 . . . . . . . . . . 11  |-  ( q  =  u  ->  (
s  .+  q )  =  ( s  .+  u ) )
5554eceq1d 6561 . . . . . . . . . 10  |-  ( q  =  u  ->  [ ( s  .+  q ) ] T  =  [
( s  .+  u
) ] T )
5655eqeq2d 2187 . . . . . . . . 9  |-  ( q  =  u  ->  (
w  =  [ ( s  .+  q ) ] T  <->  w  =  [ ( s  .+  u ) ] T
) )
5753, 56anbi12d 473 . . . . . . . 8  |-  ( q  =  u  ->  (
( ( X  =  [ s ] R  /\  Y  =  [
q ] S )  /\  w  =  [
( s  .+  q
) ] T )  <-> 
( ( X  =  [ s ] R  /\  Y  =  [
u ] S )  /\  w  =  [
( s  .+  u
) ] T ) ) )
5850, 57cbvrex2v 2715 . . . . . . 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 ) )
5943, 58anbi12i 460 . . . . . 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
) ) )
6028, 59bitr4i 187 . . . . 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
) ) )
61 reeanv 2644 . . . . . . 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
) ) )
62 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 ) ) )
63 eropr.4 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  R  Er  U )
6463adantr 276 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  ->  R  Er  U )
65 eropr.7 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  A  C_  U )
6665adantr 276 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  ->  A  C_  U )
67 simprll 537 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
r  e.  A )
6866, 67sseldd 3154 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
r  e.  U )
6964, 68erth 6569 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
( r R s  <->  [ r ] R  =  [ s ] R
) )
70 eropr.5 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  S  Er  V )
7170adantr 276 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  ->  S  Er  V )
72 eropr.8 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  B  C_  V )
7372adantr 276 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  ->  B  C_  V )
74 simprrl 539 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
t  e.  B )
7573, 74sseldd 3154 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
t  e.  V )
7671, 75erth 6569 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
( t S u  <->  [ t ] S  =  [ u ] S
) )
7769, 76anbi12d 473 . . . . . . . . . . . . . 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
) ) )
78 eropr.6 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  T  Er  W )
7978adantr 276 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  ->  T  Er  W )
80 eropr.9 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  C  C_  W )
8180adantr 276 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  ->  C  C_  W )
82 eropr.10 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  .+  : ( A  X.  B ) --> C )
8382adantr 276 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  ->  .+  : ( A  X.  B ) --> C )
8483, 67, 74fovrnd 6009 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
( r  .+  t
)  e.  C )
8581, 84sseldd 3154 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( (
r  e.  A  /\  s  e.  A )  /\  ( t  e.  B  /\  u  e.  B
) ) )  -> 
( r  .+  t
)  e.  W )
8679, 85erth 6569 . . . . . . . . . . . . . 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
) )
8762, 77, 863imtr3d 202 . . . . . . . . . . . . 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 ) )
88 eqeq2 2185 . . . . . . . . . . . . . 14  |-  ( w  =  [ ( s 
.+  u ) ] T  ->  ( [
( r  .+  t
) ] T  =  w  <->  [ ( r  .+  t ) ] T  =  [ ( s  .+  u ) ] T
) )
8988biimprcd 160 . . . . . . . . . . . . 13  |-  ( [ ( r  .+  t
) ] T  =  [ ( s  .+  u ) ] T  ->  ( w  =  [
( s  .+  u
) ] T  ->  [ ( r  .+  t ) ] T  =  w ) )
9087, 89syl6 33 . . . . . . . . . . . 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 ) ) )
9190impd 254 . . . . . . . . . . 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
) )
92 eqeq1 2182 . . . . . . . . . . . . . . 15  |-  ( X  =  [ r ] R  ->  ( X  =  [ s ] R  <->  [ r ] R  =  [ s ] R
) )
93 eqeq1 2182 . . . . . . . . . . . . . . 15  |-  ( Y  =  [ t ] S  ->  ( Y  =  [ u ] S  <->  [ t ] S  =  [ u ] S
) )
9492, 93bi2anan9 606 . . . . . . . . . . . . . 14  |-  ( ( X  =  [ r ] R  /\  Y  =  [ t ] S
)  ->  ( ( X  =  [ s ] R  /\  Y  =  [ u ] S
)  <->  ( [ r ] R  =  [
s ] R  /\  [ t ] S  =  [ u ] S
) ) )
9594anbi1d 465 . . . . . . . . . . . . 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
) ) )
9695adantr 276 . . . . . . . . . . . 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
) ) )
97 eqeq1 2182 . . . . . . . . . . . . 13  |-  ( z  =  [ ( r 
.+  t ) ] T  ->  ( z  =  w  <->  [ ( r  .+  t ) ] T  =  w ) )
9897adantl 277 . . . . . . . . . . . 12  |-  ( ( ( X  =  [
r ] R  /\  Y  =  [ t ] S )  /\  z  =  [ ( r  .+  t ) ] T
)  ->  ( z  =  w  <->  [ ( r  .+  t ) ] T  =  w ) )
9996, 98imbi12d 234 . . . . . . . . . . 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
) ) )
10091, 99syl5ibrcom 157 . . . . . . . . . 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 ) ) )
101100impd 254 . . . . . . . . 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 ) )
102101anassrs 400 . . . . . . . 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 ) )
103102rexlimdvva 2600 . . . . . . 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 ) )
10461, 103syl5bir 153 . . . . . 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 ) )
105104rexlimdvva 2600 . . . . 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 ) )
10660, 105syl5bir 153 . . . 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 ) )
107106adantr 276 . . 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 ) )
108107alrimivv 1873 . 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 ) )
109 eqeq1 2182 . . . . 5  |-  ( z  =  w  ->  (
z  =  [ ( p  .+  q ) ] T  <->  w  =  [ ( p  .+  q ) ] T
) )
110109anbi2d 464 . . . 4  |-  ( z  =  w  ->  (
( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  z  =  [
( p  .+  q
) ] T )  <-> 
( ( X  =  [ p ] R  /\  Y  =  [
q ] S )  /\  w  =  [
( p  .+  q
) ] T ) ) )
1111102rexbidv 2500 . . 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 ) ) )
112111eu4 2086 . 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 ) ) )
11327, 108, 112sylanbrc 417 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    /\ wa 104    <-> wb 105   A.wal 1351    = wceq 1353   E.wex 1490   E!weu 2024    e. wcel 2146   E.wrex 2454   _Vcvv 2735    C_ wss 3127   class class class wbr 3998    X. cxp 4618   -->wf 5204  (class class class)co 5865    Er wer 6522   [cec 6523   /.cqs 6524
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 709  ax-5 1445  ax-7 1446  ax-gen 1447  ax-ie1 1491  ax-ie2 1492  ax-8 1502  ax-10 1503  ax-11 1504  ax-i12 1505  ax-bndl 1507  ax-4 1508  ax-17 1524  ax-i9 1528  ax-ial 1532  ax-i5r 1533  ax-13 2148  ax-14 2149  ax-ext 2157  ax-sep 4116  ax-pow 4169  ax-pr 4203  ax-un 4427
This theorem depends on definitions:  df-bi 117  df-3an 980  df-tru 1356  df-nf 1459  df-sb 1761  df-eu 2027  df-mo 2028  df-clab 2162  df-cleq 2168  df-clel 2171  df-nfc 2306  df-ral 2458  df-rex 2459  df-v 2737  df-sbc 2961  df-un 3131  df-in 3133  df-ss 3140  df-pw 3574  df-sn 3595  df-pr 3596  df-op 3598  df-uni 3806  df-br 3999  df-opab 4060  df-id 4287  df-xp 4626  df-rel 4627  df-cnv 4628  df-co 4629  df-dm 4630  df-rn 4631  df-res 4632  df-ima 4633  df-iota 5170  df-fun 5210  df-fn 5211  df-f 5212  df-fv 5216  df-ov 5868  df-er 6525  df-ec 6527  df-qs 6531
This theorem is referenced by:  erovlem  6617  eroprf  6618
  Copyright terms: Public domain W3C validator