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

Theorem ipcau2 21543
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 6285 . . . . . . 7  |-  ( Y  =  ( 0g `  W )  ->  ( X  .,  Y )  =  ( X  .,  ( 0g `  W ) ) )
21oveq1d 6292 . . . . . 6  |-  ( Y  =  ( 0g `  W )  ->  (
( X  .,  Y
)  x.  ( Y 
.,  X ) )  =  ( ( X 
.,  ( 0g `  W ) )  x.  ( Y  .,  X
) ) )
32breq1d 4443 . . . . 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 21541 . . . . . . . . . . . 12  |-  ( ph  ->  W  e. CMod )
10 tchcph.k . . . . . . . . . . . . 13  |-  K  =  ( Base `  F
)
116, 10clmsscn 21445 . . . . . . . . . . . 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 18535 . . . . . . . . . . . 12  |-  ( ( W  e.  PreHil  /\  X  e.  V  /\  Y  e.  V )  ->  ( X  .,  Y )  e.  K )
177, 13, 14, 16syl3anc 1227 . . . . . . . . . . 11  |-  ( ph  ->  ( X  .,  Y
)  e.  K )
1812, 17sseldd 3487 . . . . . . . . . 10  |-  ( ph  ->  ( X  .,  Y
)  e.  CC )
1918adantr 465 . . . . . . . . 9  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  Y )  e.  CC )
206, 15, 5, 10ipcl 18535 . . . . . . . . . . . 12  |-  ( ( W  e.  PreHil  /\  Y  e.  V  /\  X  e.  V )  ->  ( Y  .,  X )  e.  K )
217, 14, 13, 20syl3anc 1227 . . . . . . . . . . 11  |-  ( ph  ->  ( Y  .,  X
)  e.  K )
2212, 21sseldd 3487 . . . . . . . . . 10  |-  ( ph  ->  ( Y  .,  X
)  e.  CC )
2322adantr 465 . . . . . . . . 9  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  X )  e.  CC )
244, 5, 6, 7, 8, 15tchcphlem3 21542 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  e.  V )  ->  ( Y  .,  Y )  e.  RR )
2514, 24mpdan 668 . . . . . . . . . . 11  |-  ( ph  ->  ( Y  .,  Y
)  e.  RR )
2625recnd 9620 . . . . . . . . . 10  |-  ( ph  ->  ( Y  .,  Y
)  e.  CC )
2726adantr 465 . . . . . . . . 9  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  Y )  e.  CC )
286clm0 21438 . . . . . . . . . . . . . 14  |-  ( W  e. CMod  ->  0  =  ( 0g `  F ) )
299, 28syl 16 . . . . . . . . . . . . 13  |-  ( ph  ->  0  =  ( 0g
`  F ) )
3029eqeq2d 2455 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( Y  .,  Y )  =  0  <-> 
( Y  .,  Y
)  =  ( 0g
`  F ) ) )
31 eqid 2441 . . . . . . . . . . . . . 14  |-  ( 0g
`  F )  =  ( 0g `  F
)
32 eqid 2441 . . . . . . . . . . . . . 14  |-  ( 0g
`  W )  =  ( 0g `  W
)
336, 15, 5, 31, 32ipeq0 18540 . . . . . . . . . . . . 13  |-  ( ( W  e.  PreHil  /\  Y  e.  V )  ->  (
( Y  .,  Y
)  =  ( 0g
`  F )  <->  Y  =  ( 0g `  W ) ) )
347, 14, 33syl2anc 661 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( Y  .,  Y )  =  ( 0g `  F )  <-> 
Y  =  ( 0g
`  W ) ) )
3530, 34bitrd 253 . . . . . . . . . . 11  |-  ( ph  ->  ( ( Y  .,  Y )  =  0  <-> 
Y  =  ( 0g
`  W ) ) )
3635necon3bid 2699 . . . . . . . . . 10  |-  ( ph  ->  ( ( Y  .,  Y )  =/=  0  <->  Y  =/=  ( 0g `  W ) ) )
3736biimpar 485 . . . . . . . . 9  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  Y )  =/=  0
)
3819, 23, 27, 37divassd 10356 . . . . . . . 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 6288 . . . . . . . 8  |-  ( ( X  .,  Y )  x.  C )  =  ( ( X  .,  Y )  x.  (
( Y  .,  X
)  /  ( Y 
.,  Y ) ) )
4138, 40syl6eqr 2500 . . . . . . 7  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( X  .,  Y
)  x.  ( Y 
.,  X ) )  /  ( Y  .,  Y ) )  =  ( ( X  .,  Y )  x.  C
) )
42 phllmod 18532 . . . . . . . . . . . . 13  |-  ( W  e.  PreHil  ->  W  e.  LMod )
437, 42syl 16 . . . . . . . . . . . 12  |-  ( ph  ->  W  e.  LMod )
4443adantr 465 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  W  e.  LMod )
4513adantr 465 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  X  e.  V )
4639fveq2i 5855 . . . . . . . . . . . . . . 15  |-  ( * `
 C )  =  ( * `  (
( Y  .,  X
)  /  ( Y 
.,  Y ) ) )
4723, 27, 37cjdivd 13030 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  ( ( Y  .,  X )  /  ( Y  .,  Y ) ) )  =  ( ( * `  ( Y 
.,  X ) )  /  ( * `  ( Y  .,  Y ) ) ) )
4846, 47syl5eq 2494 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  C )  =  ( ( * `  ( Y  .,  X ) )  /  ( * `  ( Y  .,  Y ) ) ) )
498fveq2d 5856 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( *r `  F )  =  ( *r `  (flds  K )
) )
50 fvex 5862 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( Base `  F )  e.  _V
5110, 50eqeltri 2525 . . . . . . . . . . . . . . . . . . . . . 22  |-  K  e. 
_V
52 eqid 2441 . . . . . . . . . . . . . . . . . . . . . . 23  |-  (flds  K )  =  (flds  K )
53 cnfldcj 18295 . . . . . . . . . . . . . . . . . . . . . . 23  |-  *  =  ( *r ` fld )
5452, 53ressstarv 14623 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( K  e.  _V  ->  *  =  ( *r `  (flds  K ) ) )
5551, 54ax-mp 5 . . . . . . . . . . . . . . . . . . . . 21  |-  *  =  ( *r `  (flds  K
) )
5649, 55syl6eqr 2500 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( *r `  F )  =  * )
5756fveq1d 5854 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( *r `  F ) `  ( X  .,  Y ) )  =  ( * `
 ( X  .,  Y ) ) )
58 eqid 2441 . . . . . . . . . . . . . . . . . . . . 21  |-  ( *r `  F )  =  ( *r `  F )
596, 15, 5, 58ipcj 18536 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( W  e.  PreHil  /\  X  e.  V  /\  Y  e.  V )  ->  (
( *r `  F ) `  ( X  .,  Y ) )  =  ( Y  .,  X ) )
607, 13, 14, 59syl3anc 1227 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( *r `  F ) `  ( X  .,  Y ) )  =  ( Y 
.,  X ) )
6157, 60eqtr3d 2484 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( * `  ( X  .,  Y ) )  =  ( Y  .,  X ) )
6261adantr 465 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  ( X  .,  Y
) )  =  ( Y  .,  X ) )
6362fveq2d 5856 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  ( * `  ( X  .,  Y ) ) )  =  ( * `
 ( Y  .,  X ) ) )
6419cjcjd 13006 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  ( * `  ( X  .,  Y ) ) )  =  ( X 
.,  Y ) )
6563, 64eqtr3d 2484 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  ( Y  .,  X
) )  =  ( X  .,  Y ) )
6625adantr 465 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  Y )  e.  RR )
6766cjred 13033 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  ( Y  .,  Y
) )  =  ( Y  .,  Y ) )
6865, 67oveq12d 6295 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* `  ( Y  .,  X ) )  / 
( * `  ( Y  .,  Y ) ) )  =  ( ( X  .,  Y )  /  ( Y  .,  Y ) ) )
6919, 27, 37divrecd 10324 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  / 
( Y  .,  Y
) )  =  ( ( X  .,  Y
)  x.  ( 1  /  ( Y  .,  Y ) ) ) )
7048, 68, 693eqtrd 2486 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  C )  =  ( ( X  .,  Y
)  x.  ( 1  /  ( Y  .,  Y ) ) ) )
719adantr 465 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  W  e. CMod )
7217adantr 465 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  Y )  e.  K
)
736, 15, 5, 10ipcl 18535 . . . . . . . . . . . . . . . . 17  |-  ( ( W  e.  PreHil  /\  Y  e.  V  /\  Y  e.  V )  ->  ( Y  .,  Y )  e.  K )
747, 14, 14, 73syl3anc 1227 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( Y  .,  Y
)  e.  K )
7574adantr 465 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  Y )  e.  K
)
768adantr 465 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  F  =  (flds  K
) )
77 phllvec 18531 . . . . . . . . . . . . . . . . . . 19  |-  ( W  e.  PreHil  ->  W  e.  LVec )
787, 77syl 16 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  W  e.  LVec )
796lvecdrng 17619 . . . . . . . . . . . . . . . . . 18  |-  ( W  e.  LVec  ->  F  e.  DivRing )
8078, 79syl 16 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  F  e.  DivRing )
8180adantr 465 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  F  e.  DivRing )
8210, 76, 81cphreccllem 21491 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  Y  =/=  ( 0g `  W
) )  /\  ( Y  .,  Y )  e.  K  /\  ( Y 
.,  Y )  =/=  0 )  ->  (
1  /  ( Y 
.,  Y ) )  e.  K )
8375, 37, 82mpd3an23 1325 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( 1  /  ( Y  .,  Y ) )  e.  K )
846, 10clmmcl 21450 . . . . . . . . . . . . . 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 1227 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  ( 1  /  ( Y  .,  Y ) ) )  e.  K )
8670, 85eqeltrd 2529 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  C )  e.  K
)
8714adantr 465 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  Y  e.  V )
88 eqid 2441 . . . . . . . . . . . . 13  |-  ( .s
`  W )  =  ( .s `  W
)
895, 6, 88, 10lmodvscl 17397 . . . . . . . . . . . 12  |-  ( ( W  e.  LMod  /\  (
* `  C )  e.  K  /\  Y  e.  V )  ->  (
( * `  C
) ( .s `  W ) Y )  e.  V )
9044, 86, 87, 89syl3anc 1227 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* `  C )
( .s `  W
) Y )  e.  V )
91 eqid 2441 . . . . . . . . . . . 12  |-  ( -g `  W )  =  (
-g `  W )
925, 91lmodvsubcl 17423 . . . . . . . . . . 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 1227 . . . . . . . . . 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 2855 . . . . . . . . . . 11  |-  ( ph  ->  A. x  e.  V 
0  <_  ( x  .,  x ) )
9695adantr 465 . . . . . . . . . 10  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  A. x  e.  V  0  <_  ( x  .,  x ) )
97 oveq12 6286 . . . . . . . . . . . . 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 645 . . . . . . . . . . . 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 4445 . . . . . . . . . . 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 3190 . . . . . . . . . 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 60 . . . . . . . . 9  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  0  <_  ( ( X ( -g `  W ) ( ( * `  C ) ( .s `  W
) Y ) ) 
.,  ( X (
-g `  W )
( ( * `  C ) ( .s
`  W ) Y ) ) ) )
102 eqid 2441 . . . . . . . . . . 11  |-  ( -g `  F )  =  (
-g `  F )
103 eqid 2441 . . . . . . . . . . 11  |-  ( +g  `  F )  =  ( +g  `  F )
1047adantr 465 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  W  e.  PreHil )
1056, 15, 5, 91, 102, 103, 104, 45, 90, 45, 90ip2subdi 18546 . . . . . . . . . 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 5856 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( +g  `  F )  =  ( +g  `  (flds  K ) ) )
107 cnfldadd 18293 . . . . . . . . . . . . . . 15  |-  +  =  ( +g  ` fld )
10852, 107ressplusg 14611 . . . . . . . . . . . . . 14  |-  ( K  e.  _V  ->  +  =  ( +g  `  (flds  K )
) )
10951, 108ax-mp 5 . . . . . . . . . . . . 13  |-  +  =  ( +g  `  (flds  K ) )
110106, 109syl6eqr 2500 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( +g  `  F )  =  +  )
111 eqidd 2442 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  X )  =  ( X  .,  X ) )
112 eqid 2441 . . . . . . . . . . . . . . 15  |-  ( .r
`  F )  =  ( .r `  F
)
1136, 15, 5, 10, 88, 112ipass 18547 . . . . . . . . . . . . . 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 1229 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( * `  C
) ( .s `  W ) Y ) 
.,  ( ( * `
 C ) ( .s `  W ) Y ) )  =  ( ( * `  C ) ( .r
`  F ) ( Y  .,  ( ( * `  C ) ( .s `  W
) Y ) ) ) )
11576fveq2d 5856 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( .r `  F )  =  ( .r `  (flds  K ) ) )
116 cnfldmul 18294 . . . . . . . . . . . . . . . . 17  |-  x.  =  ( .r ` fld )
11752, 116ressmulr 14622 . . . . . . . . . . . . . . . 16  |-  ( K  e.  _V  ->  x.  =  ( .r `  (flds  K
) ) )
11851, 117ax-mp 5 . . . . . . . . . . . . . . 15  |-  x.  =  ( .r `  (flds  K ) )
119115, 118syl6eqr 2500 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( .r `  F )  =  x.  )
120 eqidd 2442 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  C )  =  ( * `  C ) )
12123, 27, 37divrecd 10324 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  X )  / 
( Y  .,  Y
) )  =  ( ( Y  .,  X
)  x.  ( 1  /  ( Y  .,  Y ) ) ) )
12239, 121syl5eq 2494 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  C  =  ( ( Y  .,  X )  x.  (
1  /  ( Y 
.,  Y ) ) ) )
12321adantr 465 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  X )  e.  K
)
1246, 10clmmcl 21450 . . . . . . . . . . . . . . . . . 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 1227 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  X )  x.  ( 1  /  ( Y  .,  Y ) ) )  e.  K )
126122, 125eqeltrd 2529 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  C  e.  K )
1276, 15, 5, 10, 88, 112, 58ipassr2 18549 . . . . . . . . . . . . . . . 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 1229 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  Y ) ( .r `  F ) C )  =  ( Y  .,  ( ( ( *r `  F ) `  C
) ( .s `  W ) Y ) ) )
129119oveqd 6294 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  Y ) ( .r `  F ) C )  =  ( ( Y  .,  Y
)  x.  C ) )
13039oveq2i 6288 . . . . . . . . . . . . . . . . 17  |-  ( ( Y  .,  Y )  x.  C )  =  ( ( Y  .,  Y )  x.  (
( Y  .,  X
)  /  ( Y 
.,  Y ) ) )
13123, 27, 37divcan2d 10323 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  Y )  x.  ( ( Y  .,  X )  /  ( Y  .,  Y ) ) )  =  ( Y 
.,  X ) )
132130, 131syl5eq 2494 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  Y )  x.  C )  =  ( Y  .,  X ) )
133129, 132eqtrd 2482 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  Y ) ( .r `  F ) C )  =  ( Y  .,  X ) )
13456adantr 465 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( *r `  F )  =  * )
135134fveq1d 5854 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
*r `  F
) `  C )  =  ( * `  C ) )
136135oveq1d 6292 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( *r `  F ) `  C
) ( .s `  W ) Y )  =  ( ( * `
 C ) ( .s `  W ) Y ) )
137136oveq2d 6293 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  ( ( ( *r `  F ) `
 C ) ( .s `  W ) Y ) )  =  ( Y  .,  (
( * `  C
) ( .s `  W ) Y ) ) )
138128, 133, 1373eqtr3rd 2491 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  ( ( * `  C ) ( .s
`  W ) Y ) )  =  ( Y  .,  X ) )
139119, 120, 138oveq123d 6298 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* `  C )
( .r `  F
) ( Y  .,  ( ( * `  C ) ( .s
`  W ) Y ) ) )  =  ( ( * `  C )  x.  ( Y  .,  X ) ) )
140114, 139eqtrd 2482 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( * `  C
) ( .s `  W ) Y ) 
.,  ( ( * `
 C ) ( .s `  W ) Y ) )  =  ( ( * `  C )  x.  ( Y  .,  X ) ) )
141110, 111, 140oveq123d 6298 . . . . . . . . . . 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 18549 . . . . . . . . . . . . . 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 1229 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y ) ( .r `  F ) C )  =  ( X  .,  ( ( ( *r `  F ) `  C
) ( .s `  W ) Y ) ) )
144119oveqd 6294 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y ) ( .r `  F ) C )  =  ( ( X  .,  Y
)  x.  C ) )
145136oveq2d 6293 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  ( ( ( *r `  F ) `
 C ) ( .s `  W ) Y ) )  =  ( X  .,  (
( * `  C
) ( .s `  W ) Y ) ) )
146143, 144, 1453eqtr3rd 2491 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  ( ( * `  C ) ( .s
`  W ) Y ) )  =  ( ( X  .,  Y
)  x.  C ) )
1476, 15, 5, 10, 88, 112ipass 18547 . . . . . . . . . . . . . 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 1229 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( * `  C
) ( .s `  W ) Y ) 
.,  X )  =  ( ( * `  C ) ( .r
`  F ) ( Y  .,  X ) ) )
149119oveqd 6294 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* `  C )
( .r `  F
) ( Y  .,  X ) )  =  ( ( * `  C )  x.  ( Y  .,  X ) ) )
150148, 149eqtrd 2482 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( * `  C
) ( .s `  W ) Y ) 
.,  X )  =  ( ( * `  C )  x.  ( Y  .,  X ) ) )
151110, 146, 150oveq123d 6298 . . . . . . . . . . 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 6295 . . . . . . . . . 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 18535 . . . . . . . . . . . . . 14  |-  ( ( W  e.  PreHil  /\  X  e.  V  /\  X  e.  V )  ->  ( X  .,  X )  e.  K )
154104, 45, 45, 153syl3anc 1227 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  X )  e.  K
)
1556, 10clmmcl 21450 . . . . . . . . . . . . . 14  |-  ( ( W  e. CMod  /\  (
* `  C )  e.  K  /\  ( Y  .,  X )  e.  K )  ->  (
( * `  C
)  x.  ( Y 
.,  X ) )  e.  K )
15671, 86, 123, 155syl3anc 1227 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* `  C )  x.  ( Y  .,  X
) )  e.  K
)
1576, 10clmacl 21449 . . . . . . . . . . . . 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 1227 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  X )  +  ( ( * `  C )  x.  ( Y  .,  X ) ) )  e.  K )
1596, 10clmmcl 21450 . . . . . . . . . . . . . 14  |-  ( ( W  e. CMod  /\  ( X  .,  Y )  e.  K  /\  C  e.  K )  ->  (
( X  .,  Y
)  x.  C )  e.  K )
16071, 72, 126, 159syl3anc 1227 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  C )  e.  K
)
1616, 10clmacl 21449 . . . . . . . . . . . . 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 1227 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( X  .,  Y
)  x.  C )  +  ( ( * `
 C )  x.  ( Y  .,  X
) ) )  e.  K )
1636, 10clmsub 21446 . . . . . . . . . . . 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 1227 . . . . . . . . . . 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 21542 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  X  e.  V )  ->  ( X  .,  X )  e.  RR )
16613, 165mpdan 668 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( X  .,  X
)  e.  RR )
167166recnd 9620 . . . . . . . . . . . . 13  |-  ( ph  ->  ( X  .,  X
)  e.  CC )
168167adantr 465 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  X )  e.  CC )
16918absvalsqd 13247 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( abs `  ( X  .,  Y ) ) ^ 2 )  =  ( ( X  .,  Y )  x.  (
* `  ( X  .,  Y ) ) ) )
17061oveq2d 6293 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( X  .,  Y )  x.  (
* `  ( X  .,  Y ) ) )  =  ( ( X 
.,  Y )  x.  ( Y  .,  X
) ) )
171169, 170eqtrd 2482 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( abs `  ( X  .,  Y ) ) ^ 2 )  =  ( ( X  .,  Y )  x.  ( Y  .,  X ) ) )
17218abscld 13241 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( abs `  ( X  .,  Y ) )  e.  RR )
173172resqcld 12310 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( abs `  ( X  .,  Y ) ) ^ 2 )  e.  RR )
174171, 173eqeltrrd 2530 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( X  .,  Y )  x.  ( Y  .,  X ) )  e.  RR )
175174adantr 465 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  ( Y  .,  X
) )  e.  RR )
176175, 66, 37redivcld 10373 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( X  .,  Y
)  x.  ( Y 
.,  X ) )  /  ( Y  .,  Y ) )  e.  RR )
17741, 176eqeltrrd 2530 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  C )  e.  RR )
178177recnd 9620 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  C )  e.  CC )
17971, 11syl 16 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  K  C_  CC )
180179, 156sseldd 3487 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* `  C )  x.  ( Y  .,  X
) )  e.  CC )
181168, 178, 180pnpcan2d 9969 . . . . . . . . . . 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 2484 . . . . . . . . . 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 2486 . . . . . . . . 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 4457 . . . . . . . 8  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  0  <_  ( ( X  .,  X
)  -  ( ( X  .,  Y )  x.  C ) ) )
185166adantr 465 . . . . . . . . 9  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  X )  e.  RR )
186185, 177subge0d 10143 . . . . . . . 8  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( 0  <_  ( ( X 
.,  X )  -  ( ( X  .,  Y )  x.  C
) )  <->  ( ( X  .,  Y )  x.  C )  <_  ( X  .,  X ) ) )
187184, 186mpbid 210 . . . . . . 7  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  C )  <_  ( X  .,  X ) )
18841, 187eqbrtrd 4453 . . . . . 6  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( X  .,  Y
)  x.  ( Y 
.,  X ) )  /  ( Y  .,  Y ) )  <_ 
( X  .,  X
) )
189 oveq12 6286 . . . . . . . . . . . . 13  |-  ( ( x  =  Y  /\  x  =  Y )  ->  ( x  .,  x
)  =  ( Y 
.,  Y ) )
190189anidms 645 . . . . . . . . . . . 12  |-  ( x  =  Y  ->  (
x  .,  x )  =  ( Y  .,  Y ) )
191190breq2d 4445 . . . . . . . . . . 11  |-  ( x  =  Y  ->  (
0  <_  ( x  .,  x )  <->  0  <_  ( Y  .,  Y ) ) )
192191rspcv 3190 . . . . . . . . . 10  |-  ( Y  e.  V  ->  ( A. x  e.  V 
0  <_  ( x  .,  x )  ->  0  <_  ( Y  .,  Y
) ) )
19314, 95, 192sylc 60 . . . . . . . . 9  |-  ( ph  ->  0  <_  ( Y  .,  Y ) )
194193adantr 465 . . . . . . . 8  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  0  <_  ( Y  .,  Y ) )
19566, 194, 37ne0gt0d 9720 . . . . . . 7  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  0  <  ( Y  .,  Y ) )
196 ledivmul2 10423 . . . . . . 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 1231 . . . . . 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 210 . . . . 5  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  ( Y  .,  X
) )  <_  (
( X  .,  X
)  x.  ( Y 
.,  Y ) ) )
1996, 15, 5, 31, 32ip0r 18539 . . . . . . . . . 10  |-  ( ( W  e.  PreHil  /\  X  e.  V )  ->  ( X  .,  ( 0g `  W ) )  =  ( 0g `  F
) )
2007, 13, 199syl2anc 661 . . . . . . . . 9  |-  ( ph  ->  ( X  .,  ( 0g `  W ) )  =  ( 0g `  F ) )
201200, 29eqtr4d 2485 . . . . . . . 8  |-  ( ph  ->  ( X  .,  ( 0g `  W ) )  =  0 )
202201oveq1d 6292 . . . . . . 7  |-  ( ph  ->  ( ( X  .,  ( 0g `  W ) )  x.  ( Y 
.,  X ) )  =  ( 0  x.  ( Y  .,  X
) ) )
20322mul02d 9776 . . . . . . 7  |-  ( ph  ->  ( 0  x.  ( Y  .,  X ) )  =  0 )
204202, 203eqtrd 2482 . . . . . 6  |-  ( ph  ->  ( ( X  .,  ( 0g `  W ) )  x.  ( Y 
.,  X ) )  =  0 )
205 oveq12 6286 . . . . . . . . . . 11  |-  ( ( x  =  X  /\  x  =  X )  ->  ( x  .,  x
)  =  ( X 
.,  X ) )
206205anidms 645 . . . . . . . . . 10  |-  ( x  =  X  ->  (
x  .,  x )  =  ( X  .,  X ) )
207206breq2d 4445 . . . . . . . . 9  |-  ( x  =  X  ->  (
0  <_  ( x  .,  x )  <->  0  <_  ( X  .,  X ) ) )
208207rspcv 3190 . . . . . . . 8  |-  ( X  e.  V  ->  ( A. x  e.  V 
0  <_  ( x  .,  x )  ->  0  <_  ( X  .,  X
) ) )
20913, 95, 208sylc 60 . . . . . . 7  |-  ( ph  ->  0  <_  ( X  .,  X ) )
210166, 25, 209, 193mulge0d 10130 . . . . . 6  |-  ( ph  ->  0  <_  ( ( X  .,  X )  x.  ( Y  .,  Y
) ) )
211204, 210eqbrtrd 4453 . . . . 5  |-  ( ph  ->  ( ( X  .,  ( 0g `  W ) )  x.  ( Y 
.,  X ) )  <_  ( ( X 
.,  X )  x.  ( Y  .,  Y
) ) )
2123, 198, 211pm2.61ne 2756 . . . 4  |-  ( ph  ->  ( ( X  .,  Y )  x.  ( Y  .,  X ) )  <_  ( ( X 
.,  X )  x.  ( Y  .,  Y
) ) )
213166, 209resqrtcld 13223 . . . . . . 7  |-  ( ph  ->  ( sqr `  ( X  .,  X ) )  e.  RR )
214213recnd 9620 . . . . . 6  |-  ( ph  ->  ( sqr `  ( X  .,  X ) )  e.  CC )
21525, 193resqrtcld 13223 . . . . . . 7  |-  ( ph  ->  ( sqr `  ( Y  .,  Y ) )  e.  RR )
216215recnd 9620 . . . . . 6  |-  ( ph  ->  ( sqr `  ( Y  .,  Y ) )  e.  CC )
217214, 216sqmuld 12296 . . . . 5  |-  ( ph  ->  ( ( ( sqr `  ( X  .,  X
) )  x.  ( sqr `  ( Y  .,  Y ) ) ) ^ 2 )  =  ( ( ( sqr `  ( X  .,  X
) ) ^ 2 )  x.  ( ( sqr `  ( Y 
.,  Y ) ) ^ 2 ) ) )
218167sqsqrtd 13244 . . . . . 6  |-  ( ph  ->  ( ( sqr `  ( X  .,  X ) ) ^ 2 )  =  ( X  .,  X
) )
21926sqsqrtd 13244 . . . . . 6  |-  ( ph  ->  ( ( sqr `  ( Y  .,  Y ) ) ^ 2 )  =  ( Y  .,  Y
) )
220218, 219oveq12d 6295 . . . . 5  |-  ( ph  ->  ( ( ( sqr `  ( X  .,  X
) ) ^ 2 )  x.  ( ( sqr `  ( Y 
.,  Y ) ) ^ 2 ) )  =  ( ( X 
.,  X )  x.  ( Y  .,  Y
) ) )
221217, 220eqtrd 2482 . . . 4  |-  ( ph  ->  ( ( ( sqr `  ( X  .,  X
) )  x.  ( sqr `  ( Y  .,  Y ) ) ) ^ 2 )  =  ( ( X  .,  X )  x.  ( Y  .,  Y ) ) )
222212, 171, 2213brtr4d 4463 . . 3  |-  ( ph  ->  ( ( abs `  ( X  .,  Y ) ) ^ 2 )  <_ 
( ( ( sqr `  ( X  .,  X
) )  x.  ( sqr `  ( Y  .,  Y ) ) ) ^ 2 ) )
223213, 215remulcld 9622 . . . 4  |-  ( ph  ->  ( ( sqr `  ( X  .,  X ) )  x.  ( sqr `  ( Y  .,  Y ) ) )  e.  RR )
22418absge0d 13249 . . . 4  |-  ( ph  ->  0  <_  ( abs `  ( X  .,  Y
) ) )
225166, 209sqrtge0d 13226 . . . . 5  |-  ( ph  ->  0  <_  ( sqr `  ( X  .,  X
) ) )
22625, 193sqrtge0d 13226 . . . . 5  |-  ( ph  ->  0  <_  ( sqr `  ( Y  .,  Y
) ) )
227213, 215, 225, 226mulge0d 10130 . . . 4  |-  ( ph  ->  0  <_  ( ( sqr `  ( X  .,  X ) )  x.  ( sqr `  ( Y  .,  Y ) ) ) )
228172, 223, 224, 227le2sqd 12319 . . 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 232 . 2  |-  ( ph  ->  ( abs `  ( X  .,  Y ) )  <_  ( ( sqr `  ( X  .,  X
) )  x.  ( sqr `  ( Y  .,  Y ) ) ) )
230 lmodgrp 17387 . . . . 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 21538 . . . 4  |-  ( ( W  e.  Grp  /\  X  e.  V )  ->  ( N `  X
)  =  ( sqr `  ( X  .,  X
) ) )
234231, 13, 233syl2anc 661 . . 3  |-  ( ph  ->  ( N `  X
)  =  ( sqr `  ( X  .,  X
) ) )
2354, 232, 5, 15tchnmval 21538 . . . 4  |-  ( ( W  e.  Grp  /\  Y  e.  V )  ->  ( N `  Y
)  =  ( sqr `  ( Y  .,  Y
) ) )
236231, 14, 235syl2anc 661 . . 3  |-  ( ph  ->  ( N `  Y
)  =  ( sqr `  ( Y  .,  Y
) ) )
237234, 236oveq12d 6295 . 2  |-  ( ph  ->  ( ( N `  X )  x.  ( N `  Y )
)  =  ( ( sqr `  ( X 
.,  X ) )  x.  ( sqr `  ( Y  .,  Y ) ) ) )
238229, 237breqtrrd 4459 1  |-  ( ph  ->  ( abs `  ( X  .,  Y ) )  <_  ( ( N `
 X )  x.  ( N `  Y
) ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 184    /\ wa 369    /\ w3a 972    = wceq 1381    e. wcel 1802    =/= wne 2636   A.wral 2791   _Vcvv 3093    C_ wss 3458   class class class wbr 4433   ` cfv 5574  (class class class)co 6277   CCcc 9488   RRcr 9489   0cc0 9490   1c1 9491    + caddc 9493    x. cmul 9495    < clt 9626    <_ cle 9627    - cmin 9805    / cdiv 10207   2c2 10586   ^cexp 12140   *ccj 12903   sqrcsqrt 13040   abscabs 13041   Basecbs 14504   ↾s cress 14505   +g cplusg 14569   .rcmulr 14570   *rcstv 14571  Scalarcsca 14572   .scvsca 14573   .icip 14574   0gc0g 14709   Grpcgrp 15922   -gcsg 15924   DivRingcdr 17264   LModclmod 17380   LVecclvec 17616  ℂfldccnfld 18288   PreHilcphl 18526   normcnm 20963  CModcclm 21428  toCHilctch 21480
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1603  ax-4 1616  ax-5 1689  ax-6 1732  ax-7 1774  ax-8 1804  ax-9 1806  ax-10 1821  ax-11 1826  ax-12 1838  ax-13 1983  ax-ext 2419  ax-rep 4544  ax-sep 4554  ax-nul 4562  ax-pow 4611  ax-pr 4672  ax-un 6573  ax-cnex 9546  ax-resscn 9547  ax-1cn 9548  ax-icn 9549  ax-addcl 9550  ax-addrcl 9551  ax-mulcl 9552  ax-mulrcl 9553  ax-mulcom 9554  ax-addass 9555  ax-mulass 9556  ax-distr 9557  ax-i2m1 9558  ax-1ne0 9559  ax-1rid 9560  ax-rnegex 9561  ax-rrecex 9562  ax-cnre 9563  ax-pre-lttri 9564  ax-pre-lttrn 9565  ax-pre-ltadd 9566  ax-pre-mulgt0 9567  ax-pre-sup 9568  ax-addf 9569  ax-mulf 9570
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 973  df-3an 974  df-tru 1384  df-ex 1598  df-nf 1602  df-sb 1725  df-eu 2270  df-mo 2271  df-clab 2427  df-cleq 2433  df-clel 2436  df-nfc 2591  df-ne 2638  df-nel 2639  df-ral 2796  df-rex 2797  df-reu 2798  df-rmo 2799  df-rab 2800  df-v 3095  df-sbc 3312  df-csb 3418  df-dif 3461  df-un 3463  df-in 3465  df-ss 3472  df-pss 3474  df-nul 3768  df-if 3923  df-pw 3995  df-sn 4011  df-pr 4013  df-tp 4015  df-op 4017  df-uni 4231  df-int 4268  df-iun 4313  df-br 4434  df-opab 4492  df-mpt 4493  df-tr 4527  df-eprel 4777  df-id 4781  df-po 4786  df-so 4787  df-fr 4824  df-we 4826  df-ord 4867  df-on 4868  df-lim 4869  df-suc 4870  df-xp 4991  df-rel 4992  df-cnv 4993  df-co 4994  df-dm 4995  df-rn 4996  df-res 4997  df-ima 4998  df-iota 5537  df-fun 5576  df-fn 5577  df-f 5578  df-f1 5579  df-fo 5580  df-f1o 5581  df-fv 5582  df-riota 6238  df-ov 6280  df-oprab 6281  df-mpt2 6282  df-om 6682  df-1st 6781  df-2nd 6782  df-tpos 6953  df-recs 7040  df-rdg 7074  df-1o 7128  df-oadd 7132  df-er 7309  df-map 7420  df-en 7515  df-dom 7516  df-sdom 7517  df-fin 7518  df-sup 7899  df-pnf 9628  df-mnf 9629  df-xr 9630  df-ltxr 9631  df-le 9632  df-sub 9807  df-neg 9808  df-div 10208  df-nn 10538  df-2 10595  df-3 10596  df-4 10597  df-5 10598  df-6 10599  df-7 10600  df-8 10601  df-9 10602  df-10 10603  df-n0 10797  df-z 10866  df-dec 10980  df-uz 11086  df-rp 11225  df-fz 11677  df-seq 12082  df-exp 12141  df-cj 12906  df-re 12907  df-im 12908  df-sqrt 13042  df-abs 13043  df-struct 14506  df-ndx 14507  df-slot 14508  df-base 14509  df-sets 14510  df-ress 14511  df-plusg 14582  df-mulr 14583  df-starv 14584  df-sca 14585  df-vsca 14586  df-ip 14587  df-tset 14588  df-ple 14589  df-ds 14591  df-unif 14592  df-0g 14711  df-mgm 15741  df-sgrp 15780  df-mnd 15790  df-mhm 15835  df-grp 15926  df-minusg 15927  df-sbg 15928  df-subg 16067  df-ghm 16134  df-cmn 16669  df-abl 16670  df-mgp 17010  df-ur 17022  df-ring 17068  df-cring 17069  df-oppr 17140  df-dvdsr 17158  df-unit 17159  df-invr 17189  df-dvr 17200  df-rnghom 17232  df-drng 17266  df-subrg 17295  df-staf 17362  df-srng 17363  df-lmod 17382  df-lmhm 17536  df-lvec 17617  df-sra 17686  df-rgmod 17687  df-cnfld 18289  df-phl 18528  df-nm 20969  df-tng 20971  df-clm 21429  df-tch 21482
This theorem is referenced by:  tchcphlem1  21544  ipcau  21547
  Copyright terms: Public domain W3C validator