Users' Mathboxes Mathbox for Norm Megill < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  diblsmopel Structured version   Unicode version

Theorem diblsmopel 31971
Description: Membership in subspace sum for partial isomorphism B. (Contributed by NM, 21-Sep-2014.) (Revised by Mario Carneiro, 6-May-2015.)
Hypotheses
Ref Expression
diblsmopel.b  |-  B  =  ( Base `  K
)
diblsmopel.l  |-  .<_  =  ( le `  K )
diblsmopel.h  |-  H  =  ( LHyp `  K
)
diblsmopel.t  |-  T  =  ( ( LTrn `  K
) `  W )
diblsmopel.o  |-  O  =  ( f  e.  T  |->  (  _I  |`  B ) )
diblsmopel.v  |-  V  =  ( ( DVecA `  K
) `  W )
diblsmopel.u  |-  U  =  ( ( DVecH `  K
) `  W )
diblsmopel.q  |-  .(+)  =  (
LSSum `  V )
diblsmopel.p  |-  .+b  =  ( LSSum `  U )
diblsmopel.j  |-  J  =  ( ( DIsoA `  K
) `  W )
diblsmopel.i  |-  I  =  ( ( DIsoB `  K
) `  W )
diblsmopel.k  |-  ( ph  ->  ( K  e.  HL  /\  W  e.  H ) )
diblsmopel.x  |-  ( ph  ->  ( X  e.  B  /\  X  .<_  W ) )
diblsmopel.y  |-  ( ph  ->  ( Y  e.  B  /\  Y  .<_  W ) )
Assertion
Ref Expression
diblsmopel  |-  ( ph  ->  ( <. F ,  S >.  e.  ( ( I `
 X )  .+b  ( I `  Y
) )  <->  ( F  e.  ( ( J `  X )  .(+)  ( J `
 Y ) )  /\  S  =  O ) ) )
Distinct variable groups:    B, f    f, H    f, K    T, f    f, W
Allowed substitution hints:    ph( f)    .+b ( f)    .(+) (
f)    S( f)    U( f)    F( f)    I( f)    J( f)   
.<_ ( f)    O( f)    V( f)    X( f)    Y( f)

Proof of Theorem diblsmopel
Dummy variables  x  w  y  z  s 
t are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 diblsmopel.k . . 3  |-  ( ph  ->  ( K  e.  HL  /\  W  e.  H ) )
2 diblsmopel.x . . . 4  |-  ( ph  ->  ( X  e.  B  /\  X  .<_  W ) )
3 diblsmopel.b . . . . 5  |-  B  =  ( Base `  K
)
4 diblsmopel.l . . . . 5  |-  .<_  =  ( le `  K )
5 diblsmopel.h . . . . 5  |-  H  =  ( LHyp `  K
)
6 diblsmopel.u . . . . 5  |-  U  =  ( ( DVecH `  K
) `  W )
7 diblsmopel.i . . . . 5  |-  I  =  ( ( DIsoB `  K
) `  W )
8 eqid 2438 . . . . 5  |-  ( LSubSp `  U )  =  (
LSubSp `  U )
93, 4, 5, 6, 7, 8diblss 31970 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W ) )  ->  (
I `  X )  e.  ( LSubSp `  U )
)
101, 2, 9syl2anc 644 . . 3  |-  ( ph  ->  ( I `  X
)  e.  ( LSubSp `  U ) )
11 diblsmopel.y . . . 4  |-  ( ph  ->  ( Y  e.  B  /\  Y  .<_  W ) )
123, 4, 5, 6, 7, 8diblss 31970 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( Y  e.  B  /\  Y  .<_  W ) )  ->  (
I `  Y )  e.  ( LSubSp `  U )
)
131, 11, 12syl2anc 644 . . 3  |-  ( ph  ->  ( I `  Y
)  e.  ( LSubSp `  U ) )
14 eqid 2438 . . . 4  |-  ( +g  `  U )  =  ( +g  `  U )
15 diblsmopel.p . . . 4  |-  .+b  =  ( LSSum `  U )
165, 6, 14, 8, 15dvhopellsm 31917 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( I `  X )  e.  (
LSubSp `  U )  /\  ( I `  Y
)  e.  ( LSubSp `  U ) )  -> 
( <. F ,  S >.  e.  ( ( I `
 X )  .+b  ( I `  Y
) )  <->  E. x E. y E. z E. w ( ( <.
x ,  y >.  e.  ( I `  X
)  /\  <. z ,  w >.  e.  (
I `  Y )
)  /\  <. F ,  S >.  =  ( <.
x ,  y >.
( +g  `  U )
<. z ,  w >. ) ) ) )
171, 10, 13, 16syl3anc 1185 . 2  |-  ( ph  ->  ( <. F ,  S >.  e.  ( ( I `
 X )  .+b  ( I `  Y
) )  <->  E. x E. y E. z E. w ( ( <.
x ,  y >.  e.  ( I `  X
)  /\  <. z ,  w >.  e.  (
I `  Y )
)  /\  <. F ,  S >.  =  ( <.
x ,  y >.
( +g  `  U )
<. z ,  w >. ) ) ) )
18 excom 1757 . . . 4  |-  ( E. y E. z E. w ( ( <.
x ,  y >.  e.  ( I `  X
)  /\  <. z ,  w >.  e.  (
I `  Y )
)  /\  <. F ,  S >.  =  ( <.
x ,  y >.
( +g  `  U )
<. z ,  w >. ) )  <->  E. z E. y E. w ( ( <.
x ,  y >.  e.  ( I `  X
)  /\  <. z ,  w >.  e.  (
I `  Y )
)  /\  <. F ,  S >.  =  ( <.
x ,  y >.
( +g  `  U )
<. z ,  w >. ) ) )
19 diblsmopel.t . . . . . . . . . . . . 13  |-  T  =  ( ( LTrn `  K
) `  W )
20 diblsmopel.o . . . . . . . . . . . . 13  |-  O  =  ( f  e.  T  |->  (  _I  |`  B ) )
21 diblsmopel.j . . . . . . . . . . . . 13  |-  J  =  ( ( DIsoA `  K
) `  W )
223, 4, 5, 19, 20, 21, 7dibopelval2 31945 . . . . . . . . . . . 12  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W ) )  ->  ( <. x ,  y >.  e.  ( I `  X
)  <->  ( x  e.  ( J `  X
)  /\  y  =  O ) ) )
231, 2, 22syl2anc 644 . . . . . . . . . . 11  |-  ( ph  ->  ( <. x ,  y
>.  e.  ( I `  X )  <->  ( x  e.  ( J `  X
)  /\  y  =  O ) ) )
243, 4, 5, 19, 20, 21, 7dibopelval2 31945 . . . . . . . . . . . 12  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( Y  e.  B  /\  Y  .<_  W ) )  ->  ( <. z ,  w >.  e.  ( I `  Y
)  <->  ( z  e.  ( J `  Y
)  /\  w  =  O ) ) )
251, 11, 24syl2anc 644 . . . . . . . . . . 11  |-  ( ph  ->  ( <. z ,  w >.  e.  ( I `  Y )  <->  ( z  e.  ( J `  Y
)  /\  w  =  O ) ) )
2623, 25anbi12d 693 . . . . . . . . . 10  |-  ( ph  ->  ( ( <. x ,  y >.  e.  ( I `  X )  /\  <. z ,  w >.  e.  ( I `  Y ) )  <->  ( (
x  e.  ( J `
 X )  /\  y  =  O )  /\  ( z  e.  ( J `  Y )  /\  w  =  O ) ) ) )
27 an4 799 . . . . . . . . . . 11  |-  ( ( ( x  e.  ( J `  X )  /\  y  =  O )  /\  ( z  e.  ( J `  Y )  /\  w  =  O ) )  <->  ( (
x  e.  ( J `
 X )  /\  z  e.  ( J `  Y ) )  /\  ( y  =  O  /\  w  =  O ) ) )
28 ancom 439 . . . . . . . . . . 11  |-  ( ( ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y ) )  /\  ( y  =  O  /\  w  =  O ) )  <->  ( (
y  =  O  /\  w  =  O )  /\  ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y ) ) ) )
2927, 28bitri 242 . . . . . . . . . 10  |-  ( ( ( x  e.  ( J `  X )  /\  y  =  O )  /\  ( z  e.  ( J `  Y )  /\  w  =  O ) )  <->  ( (
y  =  O  /\  w  =  O )  /\  ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y ) ) ) )
3026, 29syl6bb 254 . . . . . . . . 9  |-  ( ph  ->  ( ( <. x ,  y >.  e.  ( I `  X )  /\  <. z ,  w >.  e.  ( I `  Y ) )  <->  ( (
y  =  O  /\  w  =  O )  /\  ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y ) ) ) ) )
3130anbi1d 687 . . . . . . . 8  |-  ( ph  ->  ( ( ( <.
x ,  y >.  e.  ( I `  X
)  /\  <. z ,  w >.  e.  (
I `  Y )
)  /\  <. F ,  S >.  =  ( <.
x ,  y >.
( +g  `  U )
<. z ,  w >. ) )  <->  ( ( ( y  =  O  /\  w  =  O )  /\  ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y ) ) )  /\  <. F ,  S >.  =  (
<. x ,  y >.
( +g  `  U )
<. z ,  w >. ) ) ) )
32 anass 632 . . . . . . . . 9  |-  ( ( ( ( y  =  O  /\  w  =  O )  /\  (
x  e.  ( J `
 X )  /\  z  e.  ( J `  Y ) ) )  /\  <. F ,  S >.  =  ( <. x ,  y >. ( +g  `  U ) <.
z ,  w >. ) )  <->  ( ( y  =  O  /\  w  =  O )  /\  (
( x  e.  ( J `  X )  /\  z  e.  ( J `  Y ) )  /\  <. F ,  S >.  =  ( <.
x ,  y >.
( +g  `  U )
<. z ,  w >. ) ) ) )
33 df-3an 939 . . . . . . . . 9  |-  ( ( y  =  O  /\  w  =  O  /\  ( ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) )  /\  <. F ,  S >.  =  ( <.
x ,  y >.
( +g  `  U )
<. z ,  w >. ) ) )  <->  ( (
y  =  O  /\  w  =  O )  /\  ( ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) )  /\  <. F ,  S >.  =  ( <.
x ,  y >.
( +g  `  U )
<. z ,  w >. ) ) ) )
3432, 33bitr4i 245 . . . . . . . 8  |-  ( ( ( ( y  =  O  /\  w  =  O )  /\  (
x  e.  ( J `
 X )  /\  z  e.  ( J `  Y ) ) )  /\  <. F ,  S >.  =  ( <. x ,  y >. ( +g  `  U ) <.
z ,  w >. ) )  <->  ( y  =  O  /\  w  =  O  /\  ( ( x  e.  ( J `
 X )  /\  z  e.  ( J `  Y ) )  /\  <. F ,  S >.  =  ( <. x ,  y
>. ( +g  `  U
) <. z ,  w >. ) ) ) )
3531, 34syl6bb 254 . . . . . . 7  |-  ( ph  ->  ( ( ( <.
x ,  y >.  e.  ( I `  X
)  /\  <. z ,  w >.  e.  (
I `  Y )
)  /\  <. F ,  S >.  =  ( <.
x ,  y >.
( +g  `  U )
<. z ,  w >. ) )  <->  ( y  =  O  /\  w  =  O  /\  ( ( x  e.  ( J `
 X )  /\  z  e.  ( J `  Y ) )  /\  <. F ,  S >.  =  ( <. x ,  y
>. ( +g  `  U
) <. z ,  w >. ) ) ) ) )
36352exbidv 1639 . . . . . 6  |-  ( ph  ->  ( E. y E. w ( ( <.
x ,  y >.  e.  ( I `  X
)  /\  <. z ,  w >.  e.  (
I `  Y )
)  /\  <. F ,  S >.  =  ( <.
x ,  y >.
( +g  `  U )
<. z ,  w >. ) )  <->  E. y E. w
( y  =  O  /\  w  =  O  /\  ( ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y
) )  /\  <. F ,  S >.  =  (
<. x ,  y >.
( +g  `  U )
<. z ,  w >. ) ) ) ) )
37 fvex 5744 . . . . . . . . . . 11  |-  ( (
LTrn `  K ) `  W )  e.  _V
3819, 37eqeltri 2508 . . . . . . . . . 10  |-  T  e. 
_V
3938mptex 5968 . . . . . . . . 9  |-  ( f  e.  T  |->  (  _I  |`  B ) )  e. 
_V
4020, 39eqeltri 2508 . . . . . . . 8  |-  O  e. 
_V
41 opeq2 3987 . . . . . . . . . . 11  |-  ( y  =  O  ->  <. x ,  y >.  =  <. x ,  O >. )
4241oveq1d 6098 . . . . . . . . . 10  |-  ( y  =  O  ->  ( <. x ,  y >.
( +g  `  U )
<. z ,  w >. )  =  ( <. x ,  O >. ( +g  `  U
) <. z ,  w >. ) )
4342eqeq2d 2449 . . . . . . . . 9  |-  ( y  =  O  ->  ( <. F ,  S >.  =  ( <. x ,  y
>. ( +g  `  U
) <. z ,  w >. )  <->  <. F ,  S >.  =  ( <. x ,  O >. ( +g  `  U
) <. z ,  w >. ) ) )
4443anbi2d 686 . . . . . . . 8  |-  ( y  =  O  ->  (
( ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) )  /\  <. F ,  S >.  =  ( <.
x ,  y >.
( +g  `  U )
<. z ,  w >. ) )  <->  ( ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y
) )  /\  <. F ,  S >.  =  (
<. x ,  O >. ( +g  `  U )
<. z ,  w >. ) ) ) )
45 opeq2 3987 . . . . . . . . . . 11  |-  ( w  =  O  ->  <. z ,  w >.  =  <. z ,  O >. )
4645oveq2d 6099 . . . . . . . . . 10  |-  ( w  =  O  ->  ( <. x ,  O >. ( +g  `  U )
<. z ,  w >. )  =  ( <. x ,  O >. ( +g  `  U
) <. z ,  O >. ) )
4746eqeq2d 2449 . . . . . . . . 9  |-  ( w  =  O  ->  ( <. F ,  S >.  =  ( <. x ,  O >. ( +g  `  U
) <. z ,  w >. )  <->  <. F ,  S >.  =  ( <. x ,  O >. ( +g  `  U
) <. z ,  O >. ) ) )
4847anbi2d 686 . . . . . . . 8  |-  ( w  =  O  ->  (
( ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) )  /\  <. F ,  S >.  =  ( <.
x ,  O >. ( +g  `  U )
<. z ,  w >. ) )  <->  ( ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y
) )  /\  <. F ,  S >.  =  (
<. x ,  O >. ( +g  `  U )
<. z ,  O >. ) ) ) )
4940, 40, 44, 48ceqsex2v 2995 . . . . . . 7  |-  ( E. y E. w ( y  =  O  /\  w  =  O  /\  ( ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) )  /\  <. F ,  S >.  =  ( <.
x ,  y >.
( +g  `  U )
<. z ,  w >. ) ) )  <->  ( (
x  e.  ( J `
 X )  /\  z  e.  ( J `  Y ) )  /\  <. F ,  S >.  =  ( <. x ,  O >. ( +g  `  U
) <. z ,  O >. ) ) )
501adantr 453 . . . . . . . . . . 11  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  ( K  e.  HL  /\  W  e.  H ) )
512adantr 453 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  ( X  e.  B  /\  X  .<_  W ) )
52 simprl 734 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  x  e.  ( J `  X
) )
533, 4, 5, 19, 21diael 31843 . . . . . . . . . . . 12  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  x  e.  ( J `  X
) )  ->  x  e.  T )
5450, 51, 52, 53syl3anc 1185 . . . . . . . . . . 11  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  x  e.  T )
55 eqid 2438 . . . . . . . . . . . . 13  |-  ( (
TEndo `  K ) `  W )  =  ( ( TEndo `  K ) `  W )
563, 5, 19, 55, 20tendo0cl 31589 . . . . . . . . . . . 12  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  O  e.  ( (
TEndo `  K ) `  W ) )
5750, 56syl 16 . . . . . . . . . . 11  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  O  e.  ( ( TEndo `  K
) `  W )
)
5811adantr 453 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  ( Y  e.  B  /\  Y  .<_  W ) )
59 simprr 735 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  z  e.  ( J `  Y
) )
603, 4, 5, 19, 21diael 31843 . . . . . . . . . . . 12  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( Y  e.  B  /\  Y  .<_  W )  /\  z  e.  ( J `  Y
) )  ->  z  e.  T )
6150, 58, 59, 60syl3anc 1185 . . . . . . . . . . 11  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  z  e.  T )
62 eqid 2438 . . . . . . . . . . . 12  |-  (Scalar `  U )  =  (Scalar `  U )
63 eqid 2438 . . . . . . . . . . . 12  |-  ( +g  `  (Scalar `  U )
)  =  ( +g  `  (Scalar `  U )
)
645, 19, 55, 6, 62, 14, 63dvhopvadd 31893 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( x  e.  T  /\  O  e.  ( ( TEndo `  K
) `  W )
)  /\  ( z  e.  T  /\  O  e.  ( ( TEndo `  K
) `  W )
) )  ->  ( <. x ,  O >. ( +g  `  U )
<. z ,  O >. )  =  <. ( x  o.  z ) ,  ( O ( +g  `  (Scalar `  U ) ) O ) >. )
6550, 54, 57, 61, 57, 64syl122anc 1194 . . . . . . . . . 10  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  ( <. x ,  O >. ( +g  `  U )
<. z ,  O >. )  =  <. ( x  o.  z ) ,  ( O ( +g  `  (Scalar `  U ) ) O ) >. )
6665eqeq2d 2449 . . . . . . . . 9  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  ( <. F ,  S >.  =  ( <. x ,  O >. ( +g  `  U
) <. z ,  O >. )  <->  <. F ,  S >.  =  <. ( x  o.  z ) ,  ( O ( +g  `  (Scalar `  U ) ) O ) >. ) )
67 vex 2961 . . . . . . . . . . . 12  |-  x  e. 
_V
68 vex 2961 . . . . . . . . . . . 12  |-  z  e. 
_V
6967, 68coex 5415 . . . . . . . . . . 11  |-  ( x  o.  z )  e. 
_V
70 ovex 6108 . . . . . . . . . . 11  |-  ( O ( +g  `  (Scalar `  U ) ) O )  e.  _V
7169, 70opth2 4440 . . . . . . . . . 10  |-  ( <. F ,  S >.  = 
<. ( x  o.  z
) ,  ( O ( +g  `  (Scalar `  U ) ) O ) >.  <->  ( F  =  ( x  o.  z
)  /\  S  =  ( O ( +g  `  (Scalar `  U ) ) O ) ) )
72 diblsmopel.v . . . . . . . . . . . . . . 15  |-  V  =  ( ( DVecA `  K
) `  W )
73 eqid 2438 . . . . . . . . . . . . . . 15  |-  ( +g  `  V )  =  ( +g  `  V )
745, 19, 72, 73dvavadd 31814 . . . . . . . . . . . . . 14  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( x  e.  T  /\  z  e.  T ) )  -> 
( x ( +g  `  V ) z )  =  ( x  o.  z ) )
7550, 54, 61, 74syl12anc 1183 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  (
x ( +g  `  V
) z )  =  ( x  o.  z
) )
7675eqeq2d 2449 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  ( F  =  ( x
( +g  `  V ) z )  <->  F  =  ( x  o.  z
) ) )
7776bicomd 194 . . . . . . . . . . 11  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  ( F  =  ( x  o.  z )  <->  F  =  ( x ( +g  `  V ) z ) ) )
78 eqid 2438 . . . . . . . . . . . . . . . 16  |-  ( s  e.  ( ( TEndo `  K ) `  W
) ,  t  e.  ( ( TEndo `  K
) `  W )  |->  ( f  e.  T  |->  ( ( s `  f )  o.  (
t `  f )
) ) )  =  ( s  e.  ( ( TEndo `  K ) `  W ) ,  t  e.  ( ( TEndo `  K ) `  W
)  |->  ( f  e.  T  |->  ( ( s `
 f )  o.  ( t `  f
) ) ) )
795, 19, 55, 6, 62, 78, 63dvhfplusr 31884 . . . . . . . . . . . . . . 15  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( +g  `  (Scalar `  U ) )  =  ( s  e.  ( ( TEndo `  K ) `  W ) ,  t  e.  ( ( TEndo `  K ) `  W
)  |->  ( f  e.  T  |->  ( ( s `
 f )  o.  ( t `  f
) ) ) ) )
8050, 79syl 16 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  ( +g  `  (Scalar `  U
) )  =  ( s  e.  ( (
TEndo `  K ) `  W ) ,  t  e.  ( ( TEndo `  K ) `  W
)  |->  ( f  e.  T  |->  ( ( s `
 f )  o.  ( t `  f
) ) ) ) )
8180oveqd 6100 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  ( O ( +g  `  (Scalar `  U ) ) O )  =  ( O ( s  e.  ( ( TEndo `  K ) `  W ) ,  t  e.  ( ( TEndo `  K ) `  W
)  |->  ( f  e.  T  |->  ( ( s `
 f )  o.  ( t `  f
) ) ) ) O ) )
823, 5, 19, 55, 20, 78tendo0pl 31590 . . . . . . . . . . . . . 14  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  O  e.  ( ( TEndo `  K ) `  W ) )  -> 
( O ( s  e.  ( ( TEndo `  K ) `  W
) ,  t  e.  ( ( TEndo `  K
) `  W )  |->  ( f  e.  T  |->  ( ( s `  f )  o.  (
t `  f )
) ) ) O )  =  O )
8350, 57, 82syl2anc 644 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  ( O ( s  e.  ( ( TEndo `  K
) `  W ) ,  t  e.  (
( TEndo `  K ) `  W )  |->  ( f  e.  T  |->  ( ( s `  f )  o.  ( t `  f ) ) ) ) O )  =  O )
8481, 83eqtrd 2470 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  ( O ( +g  `  (Scalar `  U ) ) O )  =  O )
8584eqeq2d 2449 . . . . . . . . . . 11  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  ( S  =  ( O
( +g  `  (Scalar `  U ) ) O )  <->  S  =  O
) )
8677, 85anbi12d 693 . . . . . . . . . 10  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  (
( F  =  ( x  o.  z )  /\  S  =  ( O ( +g  `  (Scalar `  U ) ) O ) )  <->  ( F  =  ( x ( +g  `  V ) z )  /\  S  =  O ) ) )
8771, 86syl5bb 250 . . . . . . . . 9  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  ( <. F ,  S >.  = 
<. ( x  o.  z
) ,  ( O ( +g  `  (Scalar `  U ) ) O ) >.  <->  ( F  =  ( x ( +g  `  V ) z )  /\  S  =  O ) ) )
8866, 87bitrd 246 . . . . . . . 8  |-  ( (
ph  /\  ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) ) )  ->  ( <. F ,  S >.  =  ( <. x ,  O >. ( +g  `  U
) <. z ,  O >. )  <->  ( F  =  ( x ( +g  `  V ) z )  /\  S  =  O ) ) )
8988pm5.32da 624 . . . . . . 7  |-  ( ph  ->  ( ( ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y
) )  /\  <. F ,  S >.  =  (
<. x ,  O >. ( +g  `  U )
<. z ,  O >. ) )  <->  ( ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y
) )  /\  ( F  =  ( x
( +g  `  V ) z )  /\  S  =  O ) ) ) )
9049, 89syl5bb 250 . . . . . 6  |-  ( ph  ->  ( E. y E. w ( y  =  O  /\  w  =  O  /\  ( ( x  e.  ( J `
 X )  /\  z  e.  ( J `  Y ) )  /\  <. F ,  S >.  =  ( <. x ,  y
>. ( +g  `  U
) <. z ,  w >. ) ) )  <->  ( (
x  e.  ( J `
 X )  /\  z  e.  ( J `  Y ) )  /\  ( F  =  (
x ( +g  `  V
) z )  /\  S  =  O )
) ) )
9136, 90bitrd 246 . . . . 5  |-  ( ph  ->  ( E. y E. w ( ( <.
x ,  y >.  e.  ( I `  X
)  /\  <. z ,  w >.  e.  (
I `  Y )
)  /\  <. F ,  S >.  =  ( <.
x ,  y >.
( +g  `  U )
<. z ,  w >. ) )  <->  ( ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y
) )  /\  ( F  =  ( x
( +g  `  V ) z )  /\  S  =  O ) ) ) )
9291exbidv 1637 . . . 4  |-  ( ph  ->  ( E. z E. y E. w ( ( <. x ,  y
>.  e.  ( I `  X )  /\  <. z ,  w >.  e.  ( I `  Y ) )  /\  <. F ,  S >.  =  ( <.
x ,  y >.
( +g  `  U )
<. z ,  w >. ) )  <->  E. z ( ( x  e.  ( J `
 X )  /\  z  e.  ( J `  Y ) )  /\  ( F  =  (
x ( +g  `  V
) z )  /\  S  =  O )
) ) )
9318, 92syl5bb 250 . . 3  |-  ( ph  ->  ( E. y E. z E. w ( ( <. x ,  y
>.  e.  ( I `  X )  /\  <. z ,  w >.  e.  ( I `  Y ) )  /\  <. F ,  S >.  =  ( <.
x ,  y >.
( +g  `  U )
<. z ,  w >. ) )  <->  E. z ( ( x  e.  ( J `
 X )  /\  z  e.  ( J `  Y ) )  /\  ( F  =  (
x ( +g  `  V
) z )  /\  S  =  O )
) ) )
9493exbidv 1637 . 2  |-  ( ph  ->  ( E. x E. y E. z E. w
( ( <. x ,  y >.  e.  ( I `  X )  /\  <. z ,  w >.  e.  ( I `  Y ) )  /\  <. F ,  S >.  =  ( <. x ,  y
>. ( +g  `  U
) <. z ,  w >. ) )  <->  E. x E. z ( ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y
) )  /\  ( F  =  ( x
( +g  `  V ) z )  /\  S  =  O ) ) ) )
95 anass 632 . . . . . 6  |-  ( ( ( ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) )  /\  F  =  ( x ( +g  `  V ) z ) )  /\  S  =  O )  <->  ( (
x  e.  ( J `
 X )  /\  z  e.  ( J `  Y ) )  /\  ( F  =  (
x ( +g  `  V
) z )  /\  S  =  O )
) )
9695bicomi 195 . . . . 5  |-  ( ( ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y ) )  /\  ( F  =  ( x ( +g  `  V ) z )  /\  S  =  O ) )  <->  ( (
( x  e.  ( J `  X )  /\  z  e.  ( J `  Y ) )  /\  F  =  ( x ( +g  `  V ) z ) )  /\  S  =  O ) )
97962exbii 1594 . . . 4  |-  ( E. x E. z ( ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y ) )  /\  ( F  =  ( x ( +g  `  V ) z )  /\  S  =  O ) )  <->  E. x E. z ( ( ( x  e.  ( J `
 X )  /\  z  e.  ( J `  Y ) )  /\  F  =  ( x
( +g  `  V ) z ) )  /\  S  =  O )
)
98 19.41vv 1926 . . . 4  |-  ( E. x E. z ( ( ( x  e.  ( J `  X
)  /\  z  e.  ( J `  Y ) )  /\  F  =  ( x ( +g  `  V ) z ) )  /\  S  =  O )  <->  ( E. x E. z ( ( x  e.  ( J `
 X )  /\  z  e.  ( J `  Y ) )  /\  F  =  ( x
( +g  `  V ) z ) )  /\  S  =  O )
)
9997, 98bitri 242 . . 3  |-  ( E. x E. z ( ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y ) )  /\  ( F  =  ( x ( +g  `  V ) z )  /\  S  =  O ) )  <->  ( E. x E. z ( ( x  e.  ( J `
 X )  /\  z  e.  ( J `  Y ) )  /\  F  =  ( x
( +g  `  V ) z ) )  /\  S  =  O )
)
1005, 72dvalvec 31826 . . . . . . . . 9  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  V  e.  LVec )
101 lveclmod 16180 . . . . . . . . 9  |-  ( V  e.  LVec  ->  V  e. 
LMod )
102 eqid 2438 . . . . . . . . . 10  |-  ( LSubSp `  V )  =  (
LSubSp `  V )
103102lsssssubg 16036 . . . . . . . . 9  |-  ( V  e.  LMod  ->  ( LSubSp `  V )  C_  (SubGrp `  V ) )
1041, 100, 101, 1034syl 20 . . . . . . . 8  |-  ( ph  ->  ( LSubSp `  V )  C_  (SubGrp `  V )
)
1053, 4, 5, 72, 21, 102dialss 31846 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W ) )  ->  ( J `  X )  e.  ( LSubSp `  V )
)
1061, 2, 105syl2anc 644 . . . . . . . 8  |-  ( ph  ->  ( J `  X
)  e.  ( LSubSp `  V ) )
107104, 106sseldd 3351 . . . . . . 7  |-  ( ph  ->  ( J `  X
)  e.  (SubGrp `  V ) )
1083, 4, 5, 72, 21, 102dialss 31846 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( Y  e.  B  /\  Y  .<_  W ) )  ->  ( J `  Y )  e.  ( LSubSp `  V )
)
1091, 11, 108syl2anc 644 . . . . . . . 8  |-  ( ph  ->  ( J `  Y
)  e.  ( LSubSp `  V ) )
110104, 109sseldd 3351 . . . . . . 7  |-  ( ph  ->  ( J `  Y
)  e.  (SubGrp `  V ) )
111 diblsmopel.q . . . . . . . 8  |-  .(+)  =  (
LSSum `  V )
11273, 111lsmelval 15285 . . . . . . 7  |-  ( ( ( J `  X
)  e.  (SubGrp `  V )  /\  ( J `  Y )  e.  (SubGrp `  V )
)  ->  ( F  e.  ( ( J `  X )  .(+)  ( J `
 Y ) )  <->  E. x  e.  ( J `  X ) E. z  e.  ( J `  Y ) F  =  ( x
( +g  `  V ) z ) ) )
113107, 110, 112syl2anc 644 . . . . . 6  |-  ( ph  ->  ( F  e.  ( ( J `  X
)  .(+)  ( J `  Y ) )  <->  E. x  e.  ( J `  X
) E. z  e.  ( J `  Y
) F  =  ( x ( +g  `  V
) z ) ) )
114 r2ex 2745 . . . . . 6  |-  ( E. x  e.  ( J `
 X ) E. z  e.  ( J `
 Y ) F  =  ( x ( +g  `  V ) z )  <->  E. x E. z ( ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y
) )  /\  F  =  ( x ( +g  `  V ) z ) ) )
115113, 114syl6bb 254 . . . . 5  |-  ( ph  ->  ( F  e.  ( ( J `  X
)  .(+)  ( J `  Y ) )  <->  E. x E. z ( ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y
) )  /\  F  =  ( x ( +g  `  V ) z ) ) ) )
116115anbi1d 687 . . . 4  |-  ( ph  ->  ( ( F  e.  ( ( J `  X )  .(+)  ( J `
 Y ) )  /\  S  =  O )  <->  ( E. x E. z ( ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y
) )  /\  F  =  ( x ( +g  `  V ) z ) )  /\  S  =  O )
) )
117116bicomd 194 . . 3  |-  ( ph  ->  ( ( E. x E. z ( ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y
) )  /\  F  =  ( x ( +g  `  V ) z ) )  /\  S  =  O )  <->  ( F  e.  ( ( J `  X ) 
.(+)  ( J `  Y ) )  /\  S  =  O )
) )
11899, 117syl5bb 250 . 2  |-  ( ph  ->  ( E. x E. z ( ( x  e.  ( J `  X )  /\  z  e.  ( J `  Y
) )  /\  ( F  =  ( x
( +g  `  V ) z )  /\  S  =  O ) )  <->  ( F  e.  ( ( J `  X )  .(+)  ( J `
 Y ) )  /\  S  =  O ) ) )
11917, 94, 1183bitrd 272 1  |-  ( ph  ->  ( <. F ,  S >.  e.  ( ( I `
 X )  .+b  ( I `  Y
) )  <->  ( F  e.  ( ( J `  X )  .(+)  ( J `
 Y ) )  /\  S  =  O ) ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 178    /\ wa 360    /\ w3a 937   E.wex 1551    = wceq 1653    e. wcel 1726   E.wrex 2708   _Vcvv 2958    C_ wss 3322   <.cop 3819   class class class wbr 4214    e. cmpt 4268    _I cid 4495    |` cres 4882    o. ccom 4884   ` cfv 5456  (class class class)co 6083    e. cmpt2 6085   Basecbs 13471   +g cplusg 13531  Scalarcsca 13534   lecple 13538  SubGrpcsubg 14940   LSSumclsm 15270   LModclmod 15952   LSubSpclss 16010   LVecclvec 16176   HLchlt 30150   LHypclh 30783   LTrncltrn 30900   TEndoctendo 31551   DVecAcdveca 31801   DIsoAcdia 31828   DVecHcdvh 31878   DIsoBcdib 31938
This theorem is referenced by:  dib2dim  32043  dih2dimbALTN  32045
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1556  ax-5 1567  ax-17 1627  ax-9 1667  ax-8 1688  ax-13 1728  ax-14 1730  ax-6 1745  ax-7 1750  ax-11 1762  ax-12 1951  ax-ext 2419  ax-rep 4322  ax-sep 4332  ax-nul 4340  ax-pow 4379  ax-pr 4405  ax-un 4703  ax-cnex 9048  ax-resscn 9049  ax-1cn 9050  ax-icn 9051  ax-addcl 9052  ax-addrcl 9053  ax-mulcl 9054  ax-mulrcl 9055  ax-mulcom 9056  ax-addass 9057  ax-mulass 9058  ax-distr 9059  ax-i2m1 9060  ax-1ne0 9061  ax-1rid 9062  ax-rnegex 9063  ax-rrecex 9064  ax-cnre 9065  ax-pre-lttri 9066  ax-pre-lttrn 9067  ax-pre-ltadd 9068  ax-pre-mulgt0 9069
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3or 938  df-3an 939  df-tru 1329  df-fal 1330  df-ex 1552  df-nf 1555  df-sb 1660  df-eu 2287  df-mo 2288  df-clab 2425  df-cleq 2431  df-clel 2434  df-nfc 2563  df-ne 2603  df-nel 2604  df-ral 2712  df-rex 2713  df-reu 2714  df-rmo 2715  df-rab 2716  df-v 2960  df-sbc 3164  df-csb 3254  df-dif 3325  df-un 3327  df-in 3329  df-ss 3336  df-pss 3338  df-nul 3631  df-if 3742  df-pw 3803  df-sn 3822  df-pr 3823  df-tp 3824  df-op 3825  df-uni 4018  df-int 4053  df-iun 4097  df-iin 4098  df-br 4215  df-opab 4269  df-mpt 4270  df-tr 4305  df-eprel 4496  df-id 4500  df-po 4505  df-so 4506  df-fr 4543  df-we 4545  df-ord 4586  df-on 4587  df-lim 4588  df-suc 4589  df-om 4848  df-xp 4886  df-rel 4887  df-cnv 4888  df-co 4889  df-dm 4890  df-rn 4891  df-res 4892  df-ima 4893  df-iota 5420  df-fun 5458  df-fn 5459  df-f 5460  df-f1 5461  df-fo 5462  df-f1o 5463  df-fv 5464  df-ov 6086  df-oprab 6087  df-mpt2 6088  df-1st 6351  df-2nd 6352  df-tpos 6481  df-undef 6545  df-riota 6551  df-recs 6635  df-rdg 6670  df-1o 6726  df-oadd 6730  df-er 6907  df-map 7022  df-en 7112  df-dom 7113  df-sdom 7114  df-fin 7115  df-pnf 9124  df-mnf 9125  df-xr 9126  df-ltxr 9127  df-le 9128  df-sub 9295  df-neg 9296  df-nn 10003  df-2 10060  df-3 10061  df-4 10062  df-5 10063  df-6 10064  df-n0 10224  df-z 10285  df-uz 10491  df-fz 11046  df-struct 13473  df-ndx 13474  df-slot 13475  df-base 13476  df-sets 13477  df-ress 13478  df-plusg 13544  df-mulr 13545  df-sca 13547  df-vsca 13548  df-0g 13729  df-poset 14405  df-plt 14417  df-lub 14433  df-glb 14434  df-join 14435  df-meet 14436  df-p0 14470  df-p1 14471  df-lat 14477  df-clat 14539  df-mnd 14692  df-grp 14814  df-minusg 14815  df-sbg 14816  df-subg 14943  df-lsm 15272  df-cmn 15416  df-abl 15417  df-mgp 15651  df-rng 15665  df-ur 15667  df-oppr 15730  df-dvdsr 15748  df-unit 15749  df-invr 15779  df-dvr 15790  df-drng 15839  df-lmod 15954  df-lss 16011  df-lvec 16177  df-oposet 29976  df-ol 29978  df-oml 29979  df-covers 30066  df-ats 30067  df-atl 30098  df-cvlat 30122  df-hlat 30151  df-llines 30297  df-lplanes 30298  df-lvols 30299  df-lines 30300  df-psubsp 30302  df-pmap 30303  df-padd 30595  df-lhyp 30787  df-laut 30788  df-ldil 30903  df-ltrn 30904  df-trl 30958  df-tgrp 31542  df-tendo 31554  df-edring 31556  df-dveca 31802  df-disoa 31829  df-dvech 31879  df-dib 31939
  Copyright terms: Public domain W3C validator