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

Theorem ipcau2 19196
Description: The Cauchy-Schwarz inequality for a complex pre-Hilbert space. (Contributed by Mario Carneiro, 11-Oct-2015.)
Hypotheses
Ref Expression
tchval.n  |-  G  =  (toCHil `  W )
tchcph.v  |-  V  =  ( Base `  W
)
tchcph.f  |-  F  =  (Scalar `  W )
tchcph.1  |-  ( ph  ->  W  e.  PreHil )
tchcph.2  |-  ( ph  ->  F  =  (flds  K ) )
tchcph.h  |-  .,  =  ( .i `  W )
tchcph.3  |-  ( (
ph  /\  ( x  e.  K  /\  x  e.  RR  /\  0  <_  x ) )  -> 
( sqr `  x
)  e.  K )
tchcph.4  |-  ( (
ph  /\  x  e.  V )  ->  0  <_  ( x  .,  x
) )
tchcph.k  |-  K  =  ( Base `  F
)
ipcau2.n  |-  N  =  ( norm `  G
)
ipcau2.c  |-  C  =  ( ( Y  .,  X )  /  ( Y  .,  Y ) )
ipcau2.3  |-  ( ph  ->  X  e.  V )
ipcau2.4  |-  ( ph  ->  Y  e.  V )
Assertion
Ref Expression
ipcau2  |-  ( ph  ->  ( abs `  ( X  .,  Y ) )  <_  ( ( N `
 X )  x.  ( N `  Y
) ) )
Distinct variable groups:    x,  .,    x, F   
x, G    x, V    x, C    ph, x    x, W    x, X    x, Y
Allowed substitution hints:    K( x)    N( x)

Proof of Theorem ipcau2
StepHypRef Expression
1 oveq2 6092 . . . . . . 7  |-  ( Y  =  ( 0g `  W )  ->  ( X  .,  Y )  =  ( X  .,  ( 0g `  W ) ) )
21oveq1d 6099 . . . . . 6  |-  ( Y  =  ( 0g `  W )  ->  (
( X  .,  Y
)  x.  ( Y 
.,  X ) )  =  ( ( X 
.,  ( 0g `  W ) )  x.  ( Y  .,  X
) ) )
32breq1d 4225 . . . . 5  |-  ( Y  =  ( 0g `  W )  ->  (
( ( X  .,  Y )  x.  ( Y  .,  X ) )  <_  ( ( X 
.,  X )  x.  ( Y  .,  Y
) )  <->  ( ( X  .,  ( 0g `  W ) )  x.  ( Y  .,  X
) )  <_  (
( X  .,  X
)  x.  ( Y 
.,  Y ) ) ) )
4 tchval.n . . . . . . . . . . . . 13  |-  G  =  (toCHil `  W )
5 tchcph.v . . . . . . . . . . . . 13  |-  V  =  ( Base `  W
)
6 tchcph.f . . . . . . . . . . . . 13  |-  F  =  (Scalar `  W )
7 tchcph.1 . . . . . . . . . . . . 13  |-  ( ph  ->  W  e.  PreHil )
8 tchcph.2 . . . . . . . . . . . . 13  |-  ( ph  ->  F  =  (flds  K ) )
94, 5, 6, 7, 8tchclm 19194 . . . . . . . . . . . 12  |-  ( ph  ->  W  e. CMod )
10 tchcph.k . . . . . . . . . . . . 13  |-  K  =  ( Base `  F
)
116, 10clmsscn 19109 . . . . . . . . . . . 12  |-  ( W  e. CMod  ->  K  C_  CC )
129, 11syl 16 . . . . . . . . . . 11  |-  ( ph  ->  K  C_  CC )
13 ipcau2.3 . . . . . . . . . . . 12  |-  ( ph  ->  X  e.  V )
14 ipcau2.4 . . . . . . . . . . . 12  |-  ( ph  ->  Y  e.  V )
15 tchcph.h . . . . . . . . . . . . 13  |-  .,  =  ( .i `  W )
166, 15, 5, 10ipcl 16869 . . . . . . . . . . . 12  |-  ( ( W  e.  PreHil  /\  X  e.  V  /\  Y  e.  V )  ->  ( X  .,  Y )  e.  K )
177, 13, 14, 16syl3anc 1185 . . . . . . . . . . 11  |-  ( ph  ->  ( X  .,  Y
)  e.  K )
1812, 17sseldd 3351 . . . . . . . . . 10  |-  ( ph  ->  ( X  .,  Y
)  e.  CC )
1918adantr 453 . . . . . . . . 9  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  Y )  e.  CC )
206, 15, 5, 10ipcl 16869 . . . . . . . . . . . 12  |-  ( ( W  e.  PreHil  /\  Y  e.  V  /\  X  e.  V )  ->  ( Y  .,  X )  e.  K )
217, 14, 13, 20syl3anc 1185 . . . . . . . . . . 11  |-  ( ph  ->  ( Y  .,  X
)  e.  K )
2212, 21sseldd 3351 . . . . . . . . . 10  |-  ( ph  ->  ( Y  .,  X
)  e.  CC )
2322adantr 453 . . . . . . . . 9  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  X )  e.  CC )
244, 5, 6, 7, 8, 15tchcphlem3 19195 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  e.  V )  ->  ( Y  .,  Y )  e.  RR )
2514, 24mpdan 651 . . . . . . . . . . 11  |-  ( ph  ->  ( Y  .,  Y
)  e.  RR )
2625recnd 9119 . . . . . . . . . 10  |-  ( ph  ->  ( Y  .,  Y
)  e.  CC )
2726adantr 453 . . . . . . . . 9  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  Y )  e.  CC )
286clm0 19102 . . . . . . . . . . . . . 14  |-  ( W  e. CMod  ->  0  =  ( 0g `  F ) )
299, 28syl 16 . . . . . . . . . . . . 13  |-  ( ph  ->  0  =  ( 0g
`  F ) )
3029eqeq2d 2449 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( Y  .,  Y )  =  0  <-> 
( Y  .,  Y
)  =  ( 0g
`  F ) ) )
31 eqid 2438 . . . . . . . . . . . . . 14  |-  ( 0g
`  F )  =  ( 0g `  F
)
32 eqid 2438 . . . . . . . . . . . . . 14  |-  ( 0g
`  W )  =  ( 0g `  W
)
336, 15, 5, 31, 32ipeq0 16874 . . . . . . . . . . . . 13  |-  ( ( W  e.  PreHil  /\  Y  e.  V )  ->  (
( Y  .,  Y
)  =  ( 0g
`  F )  <->  Y  =  ( 0g `  W ) ) )
347, 14, 33syl2anc 644 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( Y  .,  Y )  =  ( 0g `  F )  <-> 
Y  =  ( 0g
`  W ) ) )
3530, 34bitrd 246 . . . . . . . . . . 11  |-  ( ph  ->  ( ( Y  .,  Y )  =  0  <-> 
Y  =  ( 0g
`  W ) ) )
3635necon3bid 2638 . . . . . . . . . 10  |-  ( ph  ->  ( ( Y  .,  Y )  =/=  0  <->  Y  =/=  ( 0g `  W ) ) )
3736biimpar 473 . . . . . . . . 9  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  Y )  =/=  0
)
3819, 23, 27, 37divassd 9830 . . . . . . . 8  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( X  .,  Y
)  x.  ( Y 
.,  X ) )  /  ( Y  .,  Y ) )  =  ( ( X  .,  Y )  x.  (
( Y  .,  X
)  /  ( Y 
.,  Y ) ) ) )
39 ipcau2.c . . . . . . . . 9  |-  C  =  ( ( Y  .,  X )  /  ( Y  .,  Y ) )
4039oveq2i 6095 . . . . . . . 8  |-  ( ( X  .,  Y )  x.  C )  =  ( ( X  .,  Y )  x.  (
( Y  .,  X
)  /  ( Y 
.,  Y ) ) )
4138, 40syl6eqr 2488 . . . . . . 7  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( X  .,  Y
)  x.  ( Y 
.,  X ) )  /  ( Y  .,  Y ) )  =  ( ( X  .,  Y )  x.  C
) )
42 phllmod 16866 . . . . . . . . . . . . 13  |-  ( W  e.  PreHil  ->  W  e.  LMod )
437, 42syl 16 . . . . . . . . . . . 12  |-  ( ph  ->  W  e.  LMod )
4443adantr 453 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  W  e.  LMod )
4513adantr 453 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  X  e.  V )
4639fveq2i 5734 . . . . . . . . . . . . . . 15  |-  ( * `
 C )  =  ( * `  (
( Y  .,  X
)  /  ( Y 
.,  Y ) ) )
4723, 27, 37cjdivd 12033 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  ( ( Y  .,  X )  /  ( Y  .,  Y ) ) )  =  ( ( * `  ( Y 
.,  X ) )  /  ( * `  ( Y  .,  Y ) ) ) )
4846, 47syl5eq 2482 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  C )  =  ( ( * `  ( Y  .,  X ) )  /  ( * `  ( Y  .,  Y ) ) ) )
498fveq2d 5735 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( * r `  F )  =  ( * r `  (flds  K )
) )
50 fvex 5745 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( Base `  F )  e.  _V
5110, 50eqeltri 2508 . . . . . . . . . . . . . . . . . . . . . 22  |-  K  e. 
_V
52 eqid 2438 . . . . . . . . . . . . . . . . . . . . . . 23  |-  (flds  K )  =  (flds  K )
53 cnfldcj 16715 . . . . . . . . . . . . . . . . . . . . . . 23  |-  *  =  ( * r ` fld )
5452, 53ressstarv 13588 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( K  e.  _V  ->  *  =  ( * r `
 (flds  K ) ) )
5551, 54ax-mp 5 . . . . . . . . . . . . . . . . . . . . 21  |-  *  =  ( * r `  (flds  K
) )
5649, 55syl6eqr 2488 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( * r `  F )  =  * )
5756fveq1d 5733 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( * r `
 F ) `  ( X  .,  Y ) )  =  ( * `
 ( X  .,  Y ) ) )
58 eqid 2438 . . . . . . . . . . . . . . . . . . . . 21  |-  ( * r `  F )  =  ( * r `
 F )
596, 15, 5, 58ipcj 16870 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( W  e.  PreHil  /\  X  e.  V  /\  Y  e.  V )  ->  (
( * r `  F ) `  ( X  .,  Y ) )  =  ( Y  .,  X ) )
607, 13, 14, 59syl3anc 1185 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( * r `
 F ) `  ( X  .,  Y ) )  =  ( Y 
.,  X ) )
6157, 60eqtr3d 2472 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( * `  ( X  .,  Y ) )  =  ( Y  .,  X ) )
6261adantr 453 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  ( X  .,  Y
) )  =  ( Y  .,  X ) )
6362fveq2d 5735 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  ( * `  ( X  .,  Y ) ) )  =  ( * `
 ( Y  .,  X ) ) )
6419cjcjd 12009 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  ( * `  ( X  .,  Y ) ) )  =  ( X 
.,  Y ) )
6563, 64eqtr3d 2472 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  ( Y  .,  X
) )  =  ( X  .,  Y ) )
6625adantr 453 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  Y )  e.  RR )
6766cjred 12036 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  ( Y  .,  Y
) )  =  ( Y  .,  Y ) )
6865, 67oveq12d 6102 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* `  ( Y  .,  X ) )  / 
( * `  ( Y  .,  Y ) ) )  =  ( ( X  .,  Y )  /  ( Y  .,  Y ) ) )
6919, 27, 37divrecd 9798 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  / 
( Y  .,  Y
) )  =  ( ( X  .,  Y
)  x.  ( 1  /  ( Y  .,  Y ) ) ) )
7048, 68, 693eqtrd 2474 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  C )  =  ( ( X  .,  Y
)  x.  ( 1  /  ( Y  .,  Y ) ) ) )
719adantr 453 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  W  e. CMod )
7217adantr 453 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  Y )  e.  K
)
736, 15, 5, 10ipcl 16869 . . . . . . . . . . . . . . . . 17  |-  ( ( W  e.  PreHil  /\  Y  e.  V  /\  Y  e.  V )  ->  ( Y  .,  Y )  e.  K )
747, 14, 14, 73syl3anc 1185 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( Y  .,  Y
)  e.  K )
7574adantr 453 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  Y )  e.  K
)
768adantr 453 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  F  =  (flds  K
) )
77 phllvec 16865 . . . . . . . . . . . . . . . . . . 19  |-  ( W  e.  PreHil  ->  W  e.  LVec )
787, 77syl 16 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  W  e.  LVec )
796lvecdrng 16182 . . . . . . . . . . . . . . . . . 18  |-  ( W  e.  LVec  ->  F  e.  DivRing )
8078, 79syl 16 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  F  e.  DivRing )
8180adantr 453 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  F  e.  DivRing )
8210, 76, 81cphreccllem 19146 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  Y  =/=  ( 0g `  W
) )  /\  ( Y  .,  Y )  e.  K  /\  ( Y 
.,  Y )  =/=  0 )  ->  (
1  /  ( Y 
.,  Y ) )  e.  K )
8375, 37, 82mpd3an23 1282 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( 1  /  ( Y  .,  Y ) )  e.  K )
846, 10clmmcl 19114 . . . . . . . . . . . . . 14  |-  ( ( W  e. CMod  /\  ( X  .,  Y )  e.  K  /\  ( 1  /  ( Y  .,  Y ) )  e.  K )  ->  (
( X  .,  Y
)  x.  ( 1  /  ( Y  .,  Y ) ) )  e.  K )
8571, 72, 83, 84syl3anc 1185 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  ( 1  /  ( Y  .,  Y ) ) )  e.  K )
8670, 85eqeltrd 2512 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  C )  e.  K
)
8714adantr 453 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  Y  e.  V )
88 eqid 2438 . . . . . . . . . . . . 13  |-  ( .s
`  W )  =  ( .s `  W
)
895, 6, 88, 10lmodvscl 15972 . . . . . . . . . . . 12  |-  ( ( W  e.  LMod  /\  (
* `  C )  e.  K  /\  Y  e.  V )  ->  (
( * `  C
) ( .s `  W ) Y )  e.  V )
9044, 86, 87, 89syl3anc 1185 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* `  C )
( .s `  W
) Y )  e.  V )
91 eqid 2438 . . . . . . . . . . . 12  |-  ( -g `  W )  =  (
-g `  W )
925, 91lmodvsubcl 15994 . . . . . . . . . . 11  |-  ( ( W  e.  LMod  /\  X  e.  V  /\  (
( * `  C
) ( .s `  W ) Y )  e.  V )  -> 
( X ( -g `  W ) ( ( * `  C ) ( .s `  W
) Y ) )  e.  V )
9344, 45, 90, 92syl3anc 1185 . . . . . . . . . 10  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X
( -g `  W ) ( ( * `  C ) ( .s
`  W ) Y ) )  e.  V
)
94 tchcph.4 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  V )  ->  0  <_  ( x  .,  x
) )
9594ralrimiva 2791 . . . . . . . . . . 11  |-  ( ph  ->  A. x  e.  V 
0  <_  ( x  .,  x ) )
9695adantr 453 . . . . . . . . . 10  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  A. x  e.  V  0  <_  ( x  .,  x ) )
97 oveq12 6093 . . . . . . . . . . . . 13  |-  ( ( x  =  ( X ( -g `  W
) ( ( * `
 C ) ( .s `  W ) Y ) )  /\  x  =  ( X
( -g `  W ) ( ( * `  C ) ( .s
`  W ) Y ) ) )  -> 
( x  .,  x
)  =  ( ( X ( -g `  W
) ( ( * `
 C ) ( .s `  W ) Y ) )  .,  ( X ( -g `  W
) ( ( * `
 C ) ( .s `  W ) Y ) ) ) )
9897anidms 628 . . . . . . . . . . . 12  |-  ( x  =  ( X (
-g `  W )
( ( * `  C ) ( .s
`  W ) Y ) )  ->  (
x  .,  x )  =  ( ( X ( -g `  W
) ( ( * `
 C ) ( .s `  W ) Y ) )  .,  ( X ( -g `  W
) ( ( * `
 C ) ( .s `  W ) Y ) ) ) )
9998breq2d 4227 . . . . . . . . . . 11  |-  ( x  =  ( X (
-g `  W )
( ( * `  C ) ( .s
`  W ) Y ) )  ->  (
0  <_  ( x  .,  x )  <->  0  <_  ( ( X ( -g `  W ) ( ( * `  C ) ( .s `  W
) Y ) ) 
.,  ( X (
-g `  W )
( ( * `  C ) ( .s
`  W ) Y ) ) ) ) )
10099rspcv 3050 . . . . . . . . . 10  |-  ( ( X ( -g `  W
) ( ( * `
 C ) ( .s `  W ) Y ) )  e.  V  ->  ( A. x  e.  V  0  <_  ( x  .,  x
)  ->  0  <_  ( ( X ( -g `  W ) ( ( * `  C ) ( .s `  W
) Y ) ) 
.,  ( X (
-g `  W )
( ( * `  C ) ( .s
`  W ) Y ) ) ) ) )
10193, 96, 100sylc 59 . . . . . . . . 9  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  0  <_  ( ( X ( -g `  W ) ( ( * `  C ) ( .s `  W
) Y ) ) 
.,  ( X (
-g `  W )
( ( * `  C ) ( .s
`  W ) Y ) ) ) )
102 eqid 2438 . . . . . . . . . . 11  |-  ( -g `  F )  =  (
-g `  F )
103 eqid 2438 . . . . . . . . . . 11  |-  ( +g  `  F )  =  ( +g  `  F )
1047adantr 453 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  W  e.  PreHil )
1056, 15, 5, 91, 102, 103, 104, 45, 90, 45, 90ip2subdi 16880 . . . . . . . . . 10  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X ( -g `  W
) ( ( * `
 C ) ( .s `  W ) Y ) )  .,  ( X ( -g `  W
) ( ( * `
 C ) ( .s `  W ) Y ) ) )  =  ( ( ( X  .,  X ) ( +g  `  F
) ( ( ( * `  C ) ( .s `  W
) Y )  .,  ( ( * `  C ) ( .s
`  W ) Y ) ) ) (
-g `  F )
( ( X  .,  ( ( * `  C ) ( .s
`  W ) Y ) ) ( +g  `  F ) ( ( ( * `  C
) ( .s `  W ) Y ) 
.,  X ) ) ) )
10676fveq2d 5735 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( +g  `  F )  =  ( +g  `  (flds  K ) ) )
107 cnfldadd 16713 . . . . . . . . . . . . . . 15  |-  +  =  ( +g  ` fld )
10852, 107ressplusg 13576 . . . . . . . . . . . . . 14  |-  ( K  e.  _V  ->  +  =  ( +g  `  (flds  K )
) )
10951, 108ax-mp 5 . . . . . . . . . . . . 13  |-  +  =  ( +g  `  (flds  K ) )
110106, 109syl6eqr 2488 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( +g  `  F )  =  +  )
111 eqidd 2439 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  X )  =  ( X  .,  X ) )
112 eqid 2438 . . . . . . . . . . . . . . 15  |-  ( .r
`  F )  =  ( .r `  F
)
1136, 15, 5, 10, 88, 112ipass 16881 . . . . . . . . . . . . . 14  |-  ( ( W  e.  PreHil  /\  (
( * `  C
)  e.  K  /\  Y  e.  V  /\  ( ( * `  C ) ( .s
`  W ) Y )  e.  V ) )  ->  ( (
( * `  C
) ( .s `  W ) Y ) 
.,  ( ( * `
 C ) ( .s `  W ) Y ) )  =  ( ( * `  C ) ( .r
`  F ) ( Y  .,  ( ( * `  C ) ( .s `  W
) Y ) ) ) )
114104, 86, 87, 90, 113syl13anc 1187 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( * `  C
) ( .s `  W ) Y ) 
.,  ( ( * `
 C ) ( .s `  W ) Y ) )  =  ( ( * `  C ) ( .r
`  F ) ( Y  .,  ( ( * `  C ) ( .s `  W
) Y ) ) ) )
11576fveq2d 5735 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( .r `  F )  =  ( .r `  (flds  K ) ) )
116 cnfldmul 16714 . . . . . . . . . . . . . . . . 17  |-  x.  =  ( .r ` fld )
11752, 116ressmulr 13587 . . . . . . . . . . . . . . . 16  |-  ( K  e.  _V  ->  x.  =  ( .r `  (flds  K
) ) )
11851, 117ax-mp 5 . . . . . . . . . . . . . . 15  |-  x.  =  ( .r `  (flds  K ) )
119115, 118syl6eqr 2488 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( .r `  F )  =  x.  )
120 eqidd 2439 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  C )  =  ( * `  C ) )
12123, 27, 37divrecd 9798 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  X )  / 
( Y  .,  Y
) )  =  ( ( Y  .,  X
)  x.  ( 1  /  ( Y  .,  Y ) ) ) )
12239, 121syl5eq 2482 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  C  =  ( ( Y  .,  X )  x.  (
1  /  ( Y 
.,  Y ) ) ) )
12321adantr 453 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  X )  e.  K
)
1246, 10clmmcl 19114 . . . . . . . . . . . . . . . . . 18  |-  ( ( W  e. CMod  /\  ( Y  .,  X )  e.  K  /\  ( 1  /  ( Y  .,  Y ) )  e.  K )  ->  (
( Y  .,  X
)  x.  ( 1  /  ( Y  .,  Y ) ) )  e.  K )
12571, 123, 83, 124syl3anc 1185 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  X )  x.  ( 1  /  ( Y  .,  Y ) ) )  e.  K )
126122, 125eqeltrd 2512 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  C  e.  K )
1276, 15, 5, 10, 88, 112, 58ipassr2 16883 . . . . . . . . . . . . . . . 16  |-  ( ( W  e.  PreHil  /\  ( Y  e.  V  /\  Y  e.  V  /\  C  e.  K )
)  ->  ( ( Y  .,  Y ) ( .r `  F ) C )  =  ( Y  .,  ( ( ( * r `  F ) `  C
) ( .s `  W ) Y ) ) )
128104, 87, 87, 126, 127syl13anc 1187 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  Y ) ( .r `  F ) C )  =  ( Y  .,  ( ( ( * r `  F ) `  C
) ( .s `  W ) Y ) ) )
129119oveqd 6101 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  Y ) ( .r `  F ) C )  =  ( ( Y  .,  Y
)  x.  C ) )
13039oveq2i 6095 . . . . . . . . . . . . . . . . 17  |-  ( ( Y  .,  Y )  x.  C )  =  ( ( Y  .,  Y )  x.  (
( Y  .,  X
)  /  ( Y 
.,  Y ) ) )
13123, 27, 37divcan2d 9797 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  Y )  x.  ( ( Y  .,  X )  /  ( Y  .,  Y ) ) )  =  ( Y 
.,  X ) )
132130, 131syl5eq 2482 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  Y )  x.  C )  =  ( Y  .,  X ) )
133129, 132eqtrd 2470 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  Y ) ( .r `  F ) C )  =  ( Y  .,  X ) )
13456adantr 453 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * r `  F )  =  * )
135134fveq1d 5733 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* r `  F
) `  C )  =  ( * `  C ) )
136135oveq1d 6099 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( * r `  F ) `  C
) ( .s `  W ) Y )  =  ( ( * `
 C ) ( .s `  W ) Y ) )
137136oveq2d 6100 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  ( ( ( * r `  F ) `
 C ) ( .s `  W ) Y ) )  =  ( Y  .,  (
( * `  C
) ( .s `  W ) Y ) ) )
138128, 133, 1373eqtr3rd 2479 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  ( ( * `  C ) ( .s
`  W ) Y ) )  =  ( Y  .,  X ) )
139119, 120, 138oveq123d 6105 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* `  C )
( .r `  F
) ( Y  .,  ( ( * `  C ) ( .s
`  W ) Y ) ) )  =  ( ( * `  C )  x.  ( Y  .,  X ) ) )
140114, 139eqtrd 2470 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( * `  C
) ( .s `  W ) Y ) 
.,  ( ( * `
 C ) ( .s `  W ) Y ) )  =  ( ( * `  C )  x.  ( Y  .,  X ) ) )
141110, 111, 140oveq123d 6105 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  X ) ( +g  `  F ) ( ( ( * `
 C ) ( .s `  W ) Y )  .,  (
( * `  C
) ( .s `  W ) Y ) ) )  =  ( ( X  .,  X
)  +  ( ( * `  C )  x.  ( Y  .,  X ) ) ) )
1426, 15, 5, 10, 88, 112, 58ipassr2 16883 . . . . . . . . . . . . . 14  |-  ( ( W  e.  PreHil  /\  ( X  e.  V  /\  Y  e.  V  /\  C  e.  K )
)  ->  ( ( X  .,  Y ) ( .r `  F ) C )  =  ( X  .,  ( ( ( * r `  F ) `  C
) ( .s `  W ) Y ) ) )
143104, 45, 87, 126, 142syl13anc 1187 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y ) ( .r `  F ) C )  =  ( X  .,  ( ( ( * r `  F ) `  C
) ( .s `  W ) Y ) ) )
144119oveqd 6101 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y ) ( .r `  F ) C )  =  ( ( X  .,  Y
)  x.  C ) )
145136oveq2d 6100 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  ( ( ( * r `  F ) `
 C ) ( .s `  W ) Y ) )  =  ( X  .,  (
( * `  C
) ( .s `  W ) Y ) ) )
146143, 144, 1453eqtr3rd 2479 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  ( ( * `  C ) ( .s
`  W ) Y ) )  =  ( ( X  .,  Y
)  x.  C ) )
1476, 15, 5, 10, 88, 112ipass 16881 . . . . . . . . . . . . . 14  |-  ( ( W  e.  PreHil  /\  (
( * `  C
)  e.  K  /\  Y  e.  V  /\  X  e.  V )
)  ->  ( (
( * `  C
) ( .s `  W ) Y ) 
.,  X )  =  ( ( * `  C ) ( .r
`  F ) ( Y  .,  X ) ) )
148104, 86, 87, 45, 147syl13anc 1187 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( * `  C
) ( .s `  W ) Y ) 
.,  X )  =  ( ( * `  C ) ( .r
`  F ) ( Y  .,  X ) ) )
149119oveqd 6101 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* `  C )
( .r `  F
) ( Y  .,  X ) )  =  ( ( * `  C )  x.  ( Y  .,  X ) ) )
150148, 149eqtrd 2470 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( * `  C
) ( .s `  W ) Y ) 
.,  X )  =  ( ( * `  C )  x.  ( Y  .,  X ) ) )
151110, 146, 150oveq123d 6105 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  ( ( * `
 C ) ( .s `  W ) Y ) ) ( +g  `  F ) ( ( ( * `
 C ) ( .s `  W ) Y )  .,  X
) )  =  ( ( ( X  .,  Y )  x.  C
)  +  ( ( * `  C )  x.  ( Y  .,  X ) ) ) )
152141, 151oveq12d 6102 . . . . . . . . . 10  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( X  .,  X
) ( +g  `  F
) ( ( ( * `  C ) ( .s `  W
) Y )  .,  ( ( * `  C ) ( .s
`  W ) Y ) ) ) (
-g `  F )
( ( X  .,  ( ( * `  C ) ( .s
`  W ) Y ) ) ( +g  `  F ) ( ( ( * `  C
) ( .s `  W ) Y ) 
.,  X ) ) )  =  ( ( ( X  .,  X
)  +  ( ( * `  C )  x.  ( Y  .,  X ) ) ) ( -g `  F
) ( ( ( X  .,  Y )  x.  C )  +  ( ( * `  C )  x.  ( Y  .,  X ) ) ) ) )
1536, 15, 5, 10ipcl 16869 . . . . . . . . . . . . . 14  |-  ( ( W  e.  PreHil  /\  X  e.  V  /\  X  e.  V )  ->  ( X  .,  X )  e.  K )
154104, 45, 45, 153syl3anc 1185 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  X )  e.  K
)
1556, 10clmmcl 19114 . . . . . . . . . . . . . 14  |-  ( ( W  e. CMod  /\  (
* `  C )  e.  K  /\  ( Y  .,  X )  e.  K )  ->  (
( * `  C
)  x.  ( Y 
.,  X ) )  e.  K )
15671, 86, 123, 155syl3anc 1185 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* `  C )  x.  ( Y  .,  X
) )  e.  K
)
1576, 10clmacl 19113 . . . . . . . . . . . . 13  |-  ( ( W  e. CMod  /\  ( X  .,  X )  e.  K  /\  ( ( * `  C )  x.  ( Y  .,  X ) )  e.  K )  ->  (
( X  .,  X
)  +  ( ( * `  C )  x.  ( Y  .,  X ) ) )  e.  K )
15871, 154, 156, 157syl3anc 1185 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  X )  +  ( ( * `  C )  x.  ( Y  .,  X ) ) )  e.  K )
1596, 10clmmcl 19114 . . . . . . . . . . . . . 14  |-  ( ( W  e. CMod  /\  ( X  .,  Y )  e.  K  /\  C  e.  K )  ->  (
( X  .,  Y
)  x.  C )  e.  K )
16071, 72, 126, 159syl3anc 1185 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  C )  e.  K
)
1616, 10clmacl 19113 . . . . . . . . . . . . 13  |-  ( ( W  e. CMod  /\  (
( X  .,  Y
)  x.  C )  e.  K  /\  (
( * `  C
)  x.  ( Y 
.,  X ) )  e.  K )  -> 
( ( ( X 
.,  Y )  x.  C )  +  ( ( * `  C
)  x.  ( Y 
.,  X ) ) )  e.  K )
16271, 160, 156, 161syl3anc 1185 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( X  .,  Y
)  x.  C )  +  ( ( * `
 C )  x.  ( Y  .,  X
) ) )  e.  K )
1636, 10clmsub 19110 . . . . . . . . . . . 12  |-  ( ( W  e. CMod  /\  (
( X  .,  X
)  +  ( ( * `  C )  x.  ( Y  .,  X ) ) )  e.  K  /\  (
( ( X  .,  Y )  x.  C
)  +  ( ( * `  C )  x.  ( Y  .,  X ) ) )  e.  K )  -> 
( ( ( X 
.,  X )  +  ( ( * `  C )  x.  ( Y  .,  X ) ) )  -  ( ( ( X  .,  Y
)  x.  C )  +  ( ( * `
 C )  x.  ( Y  .,  X
) ) ) )  =  ( ( ( X  .,  X )  +  ( ( * `
 C )  x.  ( Y  .,  X
) ) ) (
-g `  F )
( ( ( X 
.,  Y )  x.  C )  +  ( ( * `  C
)  x.  ( Y 
.,  X ) ) ) ) )
16471, 158, 162, 163syl3anc 1185 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( X  .,  X
)  +  ( ( * `  C )  x.  ( Y  .,  X ) ) )  -  ( ( ( X  .,  Y )  x.  C )  +  ( ( * `  C )  x.  ( Y  .,  X ) ) ) )  =  ( ( ( X  .,  X )  +  ( ( * `  C
)  x.  ( Y 
.,  X ) ) ) ( -g `  F
) ( ( ( X  .,  Y )  x.  C )  +  ( ( * `  C )  x.  ( Y  .,  X ) ) ) ) )
1654, 5, 6, 7, 8, 15tchcphlem3 19195 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  X  e.  V )  ->  ( X  .,  X )  e.  RR )
16613, 165mpdan 651 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( X  .,  X
)  e.  RR )
167166recnd 9119 . . . . . . . . . . . . 13  |-  ( ph  ->  ( X  .,  X
)  e.  CC )
168167adantr 453 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  X )  e.  CC )
16918absvalsqd 12249 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( abs `  ( X  .,  Y ) ) ^ 2 )  =  ( ( X  .,  Y )  x.  (
* `  ( X  .,  Y ) ) ) )
17061oveq2d 6100 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( X  .,  Y )  x.  (
* `  ( X  .,  Y ) ) )  =  ( ( X 
.,  Y )  x.  ( Y  .,  X
) ) )
171169, 170eqtrd 2470 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( abs `  ( X  .,  Y ) ) ^ 2 )  =  ( ( X  .,  Y )  x.  ( Y  .,  X ) ) )
17218abscld 12243 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( abs `  ( X  .,  Y ) )  e.  RR )
173172resqcld 11554 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( abs `  ( X  .,  Y ) ) ^ 2 )  e.  RR )
174171, 173eqeltrrd 2513 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( X  .,  Y )  x.  ( Y  .,  X ) )  e.  RR )
175174adantr 453 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  ( Y  .,  X
) )  e.  RR )
176175, 66, 37redivcld 9847 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( X  .,  Y
)  x.  ( Y 
.,  X ) )  /  ( Y  .,  Y ) )  e.  RR )
17741, 176eqeltrrd 2513 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  C )  e.  RR )
178177recnd 9119 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  C )  e.  CC )
17971, 11syl 16 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  K  C_  CC )
180179, 156sseldd 3351 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* `  C )  x.  ( Y  .,  X
) )  e.  CC )
181168, 178, 180pnpcan2d 9454 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( X  .,  X
)  +  ( ( * `  C )  x.  ( Y  .,  X ) ) )  -  ( ( ( X  .,  Y )  x.  C )  +  ( ( * `  C )  x.  ( Y  .,  X ) ) ) )  =  ( ( X  .,  X
)  -  ( ( X  .,  Y )  x.  C ) ) )
182164, 181eqtr3d 2472 . . . . . . . . . 10  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( X  .,  X
)  +  ( ( * `  C )  x.  ( Y  .,  X ) ) ) ( -g `  F
) ( ( ( X  .,  Y )  x.  C )  +  ( ( * `  C )  x.  ( Y  .,  X ) ) ) )  =  ( ( X  .,  X
)  -  ( ( X  .,  Y )  x.  C ) ) )
183105, 152, 1823eqtrd 2474 . . . . . . . . 9  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X ( -g `  W
) ( ( * `
 C ) ( .s `  W ) Y ) )  .,  ( X ( -g `  W
) ( ( * `
 C ) ( .s `  W ) Y ) ) )  =  ( ( X 
.,  X )  -  ( ( X  .,  Y )  x.  C
) ) )
184101, 183breqtrd 4239 . . . . . . . 8  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  0  <_  ( ( X  .,  X
)  -  ( ( X  .,  Y )  x.  C ) ) )
185166adantr 453 . . . . . . . . 9  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  X )  e.  RR )
186185, 177subge0d 9621 . . . . . . . 8  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( 0  <_  ( ( X 
.,  X )  -  ( ( X  .,  Y )  x.  C
) )  <->  ( ( X  .,  Y )  x.  C )  <_  ( X  .,  X ) ) )
187184, 186mpbid 203 . . . . . . 7  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  C )  <_  ( X  .,  X ) )
18841, 187eqbrtrd 4235 . . . . . 6  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( X  .,  Y
)  x.  ( Y 
.,  X ) )  /  ( Y  .,  Y ) )  <_ 
( X  .,  X
) )
189 oveq12 6093 . . . . . . . . . . . . 13  |-  ( ( x  =  Y  /\  x  =  Y )  ->  ( x  .,  x
)  =  ( Y 
.,  Y ) )
190189anidms 628 . . . . . . . . . . . 12  |-  ( x  =  Y  ->  (
x  .,  x )  =  ( Y  .,  Y ) )
191190breq2d 4227 . . . . . . . . . . 11  |-  ( x  =  Y  ->  (
0  <_  ( x  .,  x )  <->  0  <_  ( Y  .,  Y ) ) )
192191rspcv 3050 . . . . . . . . . 10  |-  ( Y  e.  V  ->  ( A. x  e.  V 
0  <_  ( x  .,  x )  ->  0  <_  ( Y  .,  Y
) ) )
19314, 95, 192sylc 59 . . . . . . . . 9  |-  ( ph  ->  0  <_  ( Y  .,  Y ) )
194193adantr 453 . . . . . . . 8  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  0  <_  ( Y  .,  Y ) )
19566, 194, 37ne0gt0d 9215 . . . . . . 7  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  0  <  ( Y  .,  Y ) )
196 ledivmul2 9892 . . . . . . 7  |-  ( ( ( ( X  .,  Y )  x.  ( Y  .,  X ) )  e.  RR  /\  ( X  .,  X )  e.  RR  /\  ( ( Y  .,  Y )  e.  RR  /\  0  <  ( Y  .,  Y
) ) )  -> 
( ( ( ( X  .,  Y )  x.  ( Y  .,  X ) )  / 
( Y  .,  Y
) )  <_  ( X  .,  X )  <->  ( ( X  .,  Y )  x.  ( Y  .,  X
) )  <_  (
( X  .,  X
)  x.  ( Y 
.,  Y ) ) ) )
197175, 185, 66, 195, 196syl112anc 1189 . . . . . 6  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( ( X  .,  Y )  x.  ( Y  .,  X ) )  /  ( Y  .,  Y ) )  <_ 
( X  .,  X
)  <->  ( ( X 
.,  Y )  x.  ( Y  .,  X
) )  <_  (
( X  .,  X
)  x.  ( Y 
.,  Y ) ) ) )
198188, 197mpbid 203 . . . . 5  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  ( Y  .,  X
) )  <_  (
( X  .,  X
)  x.  ( Y 
.,  Y ) ) )
1996, 15, 5, 31, 32ip0r 16873 . . . . . . . . . 10  |-  ( ( W  e.  PreHil  /\  X  e.  V )  ->  ( X  .,  ( 0g `  W ) )  =  ( 0g `  F
) )
2007, 13, 199syl2anc 644 . . . . . . . . 9  |-  ( ph  ->  ( X  .,  ( 0g `  W ) )  =  ( 0g `  F ) )
201200, 29eqtr4d 2473 . . . . . . . 8  |-  ( ph  ->  ( X  .,  ( 0g `  W ) )  =  0 )
202201oveq1d 6099 . . . . . . 7  |-  ( ph  ->  ( ( X  .,  ( 0g `  W ) )  x.  ( Y 
.,  X ) )  =  ( 0  x.  ( Y  .,  X
) ) )
20322mul02d 9269 . . . . . . 7  |-  ( ph  ->  ( 0  x.  ( Y  .,  X ) )  =  0 )
204202, 203eqtrd 2470 . . . . . 6  |-  ( ph  ->  ( ( X  .,  ( 0g `  W ) )  x.  ( Y 
.,  X ) )  =  0 )
205 oveq12 6093 . . . . . . . . . . 11  |-  ( ( x  =  X  /\  x  =  X )  ->  ( x  .,  x
)  =  ( X 
.,  X ) )
206205anidms 628 . . . . . . . . . 10  |-  ( x  =  X  ->  (
x  .,  x )  =  ( X  .,  X ) )
207206breq2d 4227 . . . . . . . . 9  |-  ( x  =  X  ->  (
0  <_  ( x  .,  x )  <->  0  <_  ( X  .,  X ) ) )
208207rspcv 3050 . . . . . . . 8  |-  ( X  e.  V  ->  ( A. x  e.  V 
0  <_  ( x  .,  x )  ->  0  <_  ( X  .,  X
) ) )
20913, 95, 208sylc 59 . . . . . . 7  |-  ( ph  ->  0  <_  ( X  .,  X ) )
210166, 25, 209, 193mulge0d 9608 . . . . . 6  |-  ( ph  ->  0  <_  ( ( X  .,  X )  x.  ( Y  .,  Y
) ) )
211204, 210eqbrtrd 4235 . . . . 5  |-  ( ph  ->  ( ( X  .,  ( 0g `  W ) )  x.  ( Y 
.,  X ) )  <_  ( ( X 
.,  X )  x.  ( Y  .,  Y
) ) )
2123, 198, 211pm2.61ne 2681 . . . 4  |-  ( ph  ->  ( ( X  .,  Y )  x.  ( Y  .,  X ) )  <_  ( ( X 
.,  X )  x.  ( Y  .,  Y
) ) )
213166, 209resqrcld 12225 . . . . . . 7  |-  ( ph  ->  ( sqr `  ( X  .,  X ) )  e.  RR )
214213recnd 9119 . . . . . 6  |-  ( ph  ->  ( sqr `  ( X  .,  X ) )  e.  CC )
21525, 193resqrcld 12225 . . . . . . 7  |-  ( ph  ->  ( sqr `  ( Y  .,  Y ) )  e.  RR )
216215recnd 9119 . . . . . 6  |-  ( ph  ->  ( sqr `  ( Y  .,  Y ) )  e.  CC )
217214, 216sqmuld 11540 . . . . 5  |-  ( ph  ->  ( ( ( sqr `  ( X  .,  X
) )  x.  ( sqr `  ( Y  .,  Y ) ) ) ^ 2 )  =  ( ( ( sqr `  ( X  .,  X
) ) ^ 2 )  x.  ( ( sqr `  ( Y 
.,  Y ) ) ^ 2 ) ) )
218167sqsqrd 12246 . . . . . 6  |-  ( ph  ->  ( ( sqr `  ( X  .,  X ) ) ^ 2 )  =  ( X  .,  X
) )
21926sqsqrd 12246 . . . . . 6  |-  ( ph  ->  ( ( sqr `  ( Y  .,  Y ) ) ^ 2 )  =  ( Y  .,  Y
) )
220218, 219oveq12d 6102 . . . . 5  |-  ( ph  ->  ( ( ( sqr `  ( X  .,  X
) ) ^ 2 )  x.  ( ( sqr `  ( Y 
.,  Y ) ) ^ 2 ) )  =  ( ( X 
.,  X )  x.  ( Y  .,  Y
) ) )
221217, 220eqtrd 2470 . . . 4  |-  ( ph  ->  ( ( ( sqr `  ( X  .,  X
) )  x.  ( sqr `  ( Y  .,  Y ) ) ) ^ 2 )  =  ( ( X  .,  X )  x.  ( Y  .,  Y ) ) )
222212, 171, 2213brtr4d 4245 . . 3  |-  ( ph  ->  ( ( abs `  ( X  .,  Y ) ) ^ 2 )  <_ 
( ( ( sqr `  ( X  .,  X
) )  x.  ( sqr `  ( Y  .,  Y ) ) ) ^ 2 ) )
223213, 215remulcld 9121 . . . 4  |-  ( ph  ->  ( ( sqr `  ( X  .,  X ) )  x.  ( sqr `  ( Y  .,  Y ) ) )  e.  RR )
22418absge0d 12251 . . . 4  |-  ( ph  ->  0  <_  ( abs `  ( X  .,  Y
) ) )
225166, 209sqrge0d 12228 . . . . 5  |-  ( ph  ->  0  <_  ( sqr `  ( X  .,  X
) ) )
22625, 193sqrge0d 12228 . . . . 5  |-  ( ph  ->  0  <_  ( sqr `  ( Y  .,  Y
) ) )
227213, 215, 225, 226mulge0d 9608 . . . 4  |-  ( ph  ->  0  <_  ( ( sqr `  ( X  .,  X ) )  x.  ( sqr `  ( Y  .,  Y ) ) ) )
228172, 223, 224, 227le2sqd 11563 . . 3  |-  ( ph  ->  ( ( abs `  ( X  .,  Y ) )  <_  ( ( sqr `  ( X  .,  X
) )  x.  ( sqr `  ( Y  .,  Y ) ) )  <-> 
( ( abs `  ( X  .,  Y ) ) ^ 2 )  <_ 
( ( ( sqr `  ( X  .,  X
) )  x.  ( sqr `  ( Y  .,  Y ) ) ) ^ 2 ) ) )
229222, 228mpbird 225 . 2  |-  ( ph  ->  ( abs `  ( X  .,  Y ) )  <_  ( ( sqr `  ( X  .,  X
) )  x.  ( sqr `  ( Y  .,  Y ) ) ) )
230 lmodgrp 15962 . . . . 5  |-  ( W  e.  LMod  ->  W  e. 
Grp )
23143, 230syl 16 . . . 4  |-  ( ph  ->  W  e.  Grp )
232 ipcau2.n . . . . 5  |-  N  =  ( norm `  G
)
2334, 232, 5, 15tchnmval 19192 . . . 4  |-  ( ( W  e.  Grp  /\  X  e.  V )  ->  ( N `  X
)  =  ( sqr `  ( X  .,  X
) ) )
234231, 13, 233syl2anc 644 . . 3  |-  ( ph  ->  ( N `  X
)  =  ( sqr `  ( X  .,  X
) ) )
2354, 232, 5, 15tchnmval 19192 . . . 4  |-  ( ( W  e.  Grp  /\  Y  e.  V )  ->  ( N `  Y
)  =  ( sqr `  ( Y  .,  Y
) ) )
236231, 14, 235syl2anc 644 . . 3  |-  ( ph  ->  ( N `  Y
)  =  ( sqr `  ( Y  .,  Y
) ) )
237234, 236oveq12d 6102 . 2  |-  ( ph  ->  ( ( N `  X )  x.  ( N `  Y )
)  =  ( ( sqr `  ( X 
.,  X ) )  x.  ( sqr `  ( Y  .,  Y ) ) ) )
238229, 237breqtrrd 4241 1  |-  ( ph  ->  ( abs `  ( X  .,  Y ) )  <_  ( ( N `
 X )  x.  ( N `  Y
) ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 178    /\ wa 360    /\ w3a 937    = wceq 1653    e. wcel 1726    =/= wne 2601   A.wral 2707   _Vcvv 2958    C_ wss 3322   class class class wbr 4215   ` cfv 5457  (class class class)co 6084   CCcc 8993   RRcr 8994   0cc0 8995   1c1 8996    + caddc 8998    x. cmul 9000    < clt 9125    <_ cle 9126    - cmin 9296    / cdiv 9682   2c2 10054   ^cexp 11387   *ccj 11906   sqrcsqr 12043   abscabs 12044   Basecbs 13474   ↾s cress 13475   +g cplusg 13534   .rcmulr 13535   * rcstv 13536  Scalarcsca 13537   .scvsca 13538   .icip 13539   0gc0g 13728   Grpcgrp 14690   -gcsg 14693   DivRingcdr 15840   LModclmod 15955   LVecclvec 16179  ℂfldccnfld 16708   PreHilcphl 16860   normcnm 18629  CModcclm 19092  toCHilctch 19135
This theorem is referenced by:  tchcphlem1  19197  ipcau  19200
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 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 4323  ax-sep 4333  ax-nul 4341  ax-pow 4380  ax-pr 4406  ax-un 4704  ax-cnex 9051  ax-resscn 9052  ax-1cn 9053  ax-icn 9054  ax-addcl 9055  ax-addrcl 9056  ax-mulcl 9057  ax-mulrcl 9058  ax-mulcom 9059  ax-addass 9060  ax-mulass 9061  ax-distr 9062  ax-i2m1 9063  ax-1ne0 9064  ax-1rid 9065  ax-rnegex 9066  ax-rrecex 9067  ax-cnre 9068  ax-pre-lttri 9069  ax-pre-lttrn 9070  ax-pre-ltadd 9071  ax-pre-mulgt0 9072  ax-pre-sup 9073  ax-addf 9074  ax-mulf 9075
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3or 938  df-3an 939  df-tru 1329  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-br 4216  df-opab 4270  df-mpt 4271  df-tr 4306  df-eprel 4497  df-id 4501  df-po 4506  df-so 4507  df-fr 4544  df-we 4546  df-ord 4587  df-on 4588  df-lim 4589  df-suc 4590  df-om 4849  df-xp 4887  df-rel 4888  df-cnv 4889  df-co 4890  df-dm 4891  df-rn 4892  df-res 4893  df-ima 4894  df-iota 5421  df-fun 5459  df-fn 5460  df-f 5461  df-f1 5462  df-fo 5463  df-f1o 5464  df-fv 5465  df-ov 6087  df-oprab 6088  df-mpt2 6089  df-1st 6352  df-2nd 6353  df-tpos 6482  df-riota 6552  df-recs 6636  df-rdg 6671  df-1o 6727  df-oadd 6731  df-er 6908  df-map 7023  df-en 7113  df-dom 7114  df-sdom 7115  df-fin 7116  df-sup 7449  df-pnf 9127  df-mnf 9128  df-xr 9129  df-ltxr 9130  df-le 9131  df-sub 9298  df-neg 9299  df-div 9683  df-nn 10006  df-2 10063  df-3 10064  df-4 10065  df-5 10066  df-6 10067  df-7 10068  df-8 10069  df-9 10070  df-10 10071  df-n0 10227  df-z 10288  df-dec 10388  df-uz 10494  df-rp 10618  df-fz 11049  df-seq 11329  df-exp 11388  df-cj 11909  df-re 11910  df-im 11911  df-sqr 12045  df-abs 12046  df-struct 13476  df-ndx 13477  df-slot 13478  df-base 13479  df-sets 13480  df-ress 13481  df-plusg 13547  df-mulr 13548  df-starv 13549  df-sca 13550  df-vsca 13551  df-tset 13553  df-ple 13554  df-ds 13556  df-unif 13557  df-0g 13732  df-mnd 14695  df-mhm 14743  df-grp 14817  df-minusg 14818  df-sbg 14819  df-subg 14946  df-ghm 15009  df-cmn 15419  df-abl 15420  df-mgp 15654  df-rng 15668  df-cring 15669  df-ur 15670  df-oppr 15733  df-dvdsr 15751  df-unit 15752  df-invr 15782  df-dvr 15793  df-rnghom 15824  df-drng 15842  df-subrg 15871  df-staf 15938  df-srng 15939  df-lmod 15957  df-lmhm 16103  df-lvec 16180  df-sra 16249  df-rgmod 16250  df-cnfld 16709  df-phl 16862  df-nm 18635  df-tng 18637  df-clm 19093  df-tch 19137
  Copyright terms: Public domain W3C validator