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

Theorem ipcau2 18768
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 5953 . . . . . . 7  |-  ( Y  =  ( 0g `  W )  ->  ( X  .,  Y )  =  ( X  .,  ( 0g `  W ) ) )
21oveq1d 5960 . . . . . 6  |-  ( Y  =  ( 0g `  W )  ->  (
( X  .,  Y
)  x.  ( Y 
.,  X ) )  =  ( ( X 
.,  ( 0g `  W ) )  x.  ( Y  .,  X
) ) )
32breq1d 4114 . . . . 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 18766 . . . . . . . . . . . 12  |-  ( ph  ->  W  e. CMod )
10 tchcph.k . . . . . . . . . . . . 13  |-  K  =  ( Base `  F
)
116, 10clmsscn 18681 . . . . . . . . . . . 12  |-  ( W  e. CMod  ->  K  C_  CC )
129, 11syl 15 . . . . . . . . . . 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 16643 . . . . . . . . . . . 12  |-  ( ( W  e.  PreHil  /\  X  e.  V  /\  Y  e.  V )  ->  ( X  .,  Y )  e.  K )
177, 13, 14, 16syl3anc 1182 . . . . . . . . . . 11  |-  ( ph  ->  ( X  .,  Y
)  e.  K )
1812, 17sseldd 3257 . . . . . . . . . 10  |-  ( ph  ->  ( X  .,  Y
)  e.  CC )
1918adantr 451 . . . . . . . . 9  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  Y )  e.  CC )
206, 15, 5, 10ipcl 16643 . . . . . . . . . . . 12  |-  ( ( W  e.  PreHil  /\  Y  e.  V  /\  X  e.  V )  ->  ( Y  .,  X )  e.  K )
217, 14, 13, 20syl3anc 1182 . . . . . . . . . . 11  |-  ( ph  ->  ( Y  .,  X
)  e.  K )
2212, 21sseldd 3257 . . . . . . . . . 10  |-  ( ph  ->  ( Y  .,  X
)  e.  CC )
2322adantr 451 . . . . . . . . 9  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  X )  e.  CC )
244, 5, 6, 7, 8, 15tchcphlem3 18767 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  e.  V )  ->  ( Y  .,  Y )  e.  RR )
2514, 24mpdan 649 . . . . . . . . . . 11  |-  ( ph  ->  ( Y  .,  Y
)  e.  RR )
2625recnd 8951 . . . . . . . . . 10  |-  ( ph  ->  ( Y  .,  Y
)  e.  CC )
2726adantr 451 . . . . . . . . 9  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  Y )  e.  CC )
286clm0 18674 . . . . . . . . . . . . . 14  |-  ( W  e. CMod  ->  0  =  ( 0g `  F ) )
299, 28syl 15 . . . . . . . . . . . . 13  |-  ( ph  ->  0  =  ( 0g
`  F ) )
3029eqeq2d 2369 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( Y  .,  Y )  =  0  <-> 
( Y  .,  Y
)  =  ( 0g
`  F ) ) )
31 eqid 2358 . . . . . . . . . . . . . 14  |-  ( 0g
`  F )  =  ( 0g `  F
)
32 eqid 2358 . . . . . . . . . . . . . 14  |-  ( 0g
`  W )  =  ( 0g `  W
)
336, 15, 5, 31, 32ipeq0 16648 . . . . . . . . . . . . 13  |-  ( ( W  e.  PreHil  /\  Y  e.  V )  ->  (
( Y  .,  Y
)  =  ( 0g
`  F )  <->  Y  =  ( 0g `  W ) ) )
347, 14, 33syl2anc 642 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( Y  .,  Y )  =  ( 0g `  F )  <-> 
Y  =  ( 0g
`  W ) ) )
3530, 34bitrd 244 . . . . . . . . . . 11  |-  ( ph  ->  ( ( Y  .,  Y )  =  0  <-> 
Y  =  ( 0g
`  W ) ) )
3635necon3bid 2556 . . . . . . . . . 10  |-  ( ph  ->  ( ( Y  .,  Y )  =/=  0  <->  Y  =/=  ( 0g `  W ) ) )
3736biimpar 471 . . . . . . . . 9  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  Y )  =/=  0
)
3819, 23, 27, 37divassd 9661 . . . . . . . 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 5956 . . . . . . . 8  |-  ( ( X  .,  Y )  x.  C )  =  ( ( X  .,  Y )  x.  (
( Y  .,  X
)  /  ( Y 
.,  Y ) ) )
4138, 40syl6eqr 2408 . . . . . . 7  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( X  .,  Y
)  x.  ( Y 
.,  X ) )  /  ( Y  .,  Y ) )  =  ( ( X  .,  Y )  x.  C
) )
42 phllmod 16640 . . . . . . . . . . . . 13  |-  ( W  e.  PreHil  ->  W  e.  LMod )
437, 42syl 15 . . . . . . . . . . . 12  |-  ( ph  ->  W  e.  LMod )
4443adantr 451 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  W  e.  LMod )
4513adantr 451 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  X  e.  V )
4639fveq2i 5611 . . . . . . . . . . . . . . 15  |-  ( * `
 C )  =  ( * `  (
( Y  .,  X
)  /  ( Y 
.,  Y ) ) )
4723, 27, 37cjdivd 11804 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  ( ( Y  .,  X )  /  ( Y  .,  Y ) ) )  =  ( ( * `  ( Y 
.,  X ) )  /  ( * `  ( Y  .,  Y ) ) ) )
4846, 47syl5eq 2402 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  C )  =  ( ( * `  ( Y  .,  X ) )  /  ( * `  ( Y  .,  Y ) ) ) )
498fveq2d 5612 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( * r `  F )  =  ( * r `  (flds  K )
) )
50 fvex 5622 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( Base `  F )  e.  _V
5110, 50eqeltri 2428 . . . . . . . . . . . . . . . . . . . . . 22  |-  K  e. 
_V
52 eqid 2358 . . . . . . . . . . . . . . . . . . . . . . 23  |-  (flds  K )  =  (flds  K )
53 cnfldcj 16489 . . . . . . . . . . . . . . . . . . . . . . 23  |-  *  =  ( * r ` fld )
5452, 53ressstarv 13359 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( K  e.  _V  ->  *  =  ( * r `
 (flds  K ) ) )
5551, 54ax-mp 8 . . . . . . . . . . . . . . . . . . . . 21  |-  *  =  ( * r `  (flds  K
) )
5649, 55syl6eqr 2408 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( * r `  F )  =  * )
5756fveq1d 5610 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( * r `
 F ) `  ( X  .,  Y ) )  =  ( * `
 ( X  .,  Y ) ) )
58 eqid 2358 . . . . . . . . . . . . . . . . . . . . 21  |-  ( * r `  F )  =  ( * r `
 F )
596, 15, 5, 58ipcj 16644 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( W  e.  PreHil  /\  X  e.  V  /\  Y  e.  V )  ->  (
( * r `  F ) `  ( X  .,  Y ) )  =  ( Y  .,  X ) )
607, 13, 14, 59syl3anc 1182 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( * r `
 F ) `  ( X  .,  Y ) )  =  ( Y 
.,  X ) )
6157, 60eqtr3d 2392 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( * `  ( X  .,  Y ) )  =  ( Y  .,  X ) )
6261adantr 451 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  ( X  .,  Y
) )  =  ( Y  .,  X ) )
6362fveq2d 5612 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  ( * `  ( X  .,  Y ) ) )  =  ( * `
 ( Y  .,  X ) ) )
6419cjcjd 11780 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  ( * `  ( X  .,  Y ) ) )  =  ( X 
.,  Y ) )
6563, 64eqtr3d 2392 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  ( Y  .,  X
) )  =  ( X  .,  Y ) )
6625adantr 451 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  Y )  e.  RR )
6766cjred 11807 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  ( Y  .,  Y
) )  =  ( Y  .,  Y ) )
6865, 67oveq12d 5963 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* `  ( Y  .,  X ) )  / 
( * `  ( Y  .,  Y ) ) )  =  ( ( X  .,  Y )  /  ( Y  .,  Y ) ) )
6919, 27, 37divrecd 9629 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  / 
( Y  .,  Y
) )  =  ( ( X  .,  Y
)  x.  ( 1  /  ( Y  .,  Y ) ) ) )
7048, 68, 693eqtrd 2394 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  C )  =  ( ( X  .,  Y
)  x.  ( 1  /  ( Y  .,  Y ) ) ) )
719adantr 451 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  W  e. CMod )
7217adantr 451 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  Y )  e.  K
)
736, 15, 5, 10ipcl 16643 . . . . . . . . . . . . . . . . 17  |-  ( ( W  e.  PreHil  /\  Y  e.  V  /\  Y  e.  V )  ->  ( Y  .,  Y )  e.  K )
747, 14, 14, 73syl3anc 1182 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( Y  .,  Y
)  e.  K )
7574adantr 451 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  Y )  e.  K
)
768adantr 451 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  F  =  (flds  K
) )
77 phllvec 16639 . . . . . . . . . . . . . . . . . . 19  |-  ( W  e.  PreHil  ->  W  e.  LVec )
787, 77syl 15 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  W  e.  LVec )
796lvecdrng 15957 . . . . . . . . . . . . . . . . . 18  |-  ( W  e.  LVec  ->  F  e.  DivRing )
8078, 79syl 15 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  F  e.  DivRing )
8180adantr 451 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  F  e.  DivRing )
8210, 76, 81cphreccllem 18718 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  Y  =/=  ( 0g `  W
) )  /\  ( Y  .,  Y )  e.  K  /\  ( Y 
.,  Y )  =/=  0 )  ->  (
1  /  ( Y 
.,  Y ) )  e.  K )
8375, 37, 82mpd3an23 1279 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( 1  /  ( Y  .,  Y ) )  e.  K )
846, 10clmmcl 18686 . . . . . . . . . . . . . 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 1182 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  ( 1  /  ( Y  .,  Y ) ) )  e.  K )
8670, 85eqeltrd 2432 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  C )  e.  K
)
8714adantr 451 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  Y  e.  V )
88 eqid 2358 . . . . . . . . . . . . 13  |-  ( .s
`  W )  =  ( .s `  W
)
895, 6, 88, 10lmodvscl 15743 . . . . . . . . . . . 12  |-  ( ( W  e.  LMod  /\  (
* `  C )  e.  K  /\  Y  e.  V )  ->  (
( * `  C
) ( .s `  W ) Y )  e.  V )
9044, 86, 87, 89syl3anc 1182 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* `  C )
( .s `  W
) Y )  e.  V )
91 eqid 2358 . . . . . . . . . . . 12  |-  ( -g `  W )  =  (
-g `  W )
925, 91lmodvsubcl 15769 . . . . . . . . . . 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 1182 . . . . . . . . . 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 2702 . . . . . . . . . . 11  |-  ( ph  ->  A. x  e.  V 
0  <_  ( x  .,  x ) )
9695adantr 451 . . . . . . . . . 10  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  A. x  e.  V  0  <_  ( x  .,  x ) )
97 oveq12 5954 . . . . . . . . . . . . 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 626 . . . . . . . . . . . 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 4116 . . . . . . . . . . 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 2956 . . . . . . . . . 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 56 . . . . . . . . 9  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  0  <_  ( ( X ( -g `  W ) ( ( * `  C ) ( .s `  W
) Y ) ) 
.,  ( X (
-g `  W )
( ( * `  C ) ( .s
`  W ) Y ) ) ) )
102 eqid 2358 . . . . . . . . . . 11  |-  ( -g `  F )  =  (
-g `  F )
103 eqid 2358 . . . . . . . . . . 11  |-  ( +g  `  F )  =  ( +g  `  F )
1047adantr 451 . . . . . . . . . . 11  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  W  e.  PreHil )
1056, 15, 5, 91, 102, 103, 104, 45, 90, 45, 90ip2subdi 16654 . . . . . . . . . 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 5612 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( +g  `  F )  =  ( +g  `  (flds  K ) ) )
107 cnfldadd 16487 . . . . . . . . . . . . . . 15  |-  +  =  ( +g  ` fld )
10852, 107ressplusg 13347 . . . . . . . . . . . . . 14  |-  ( K  e.  _V  ->  +  =  ( +g  `  (flds  K )
) )
10951, 108ax-mp 8 . . . . . . . . . . . . 13  |-  +  =  ( +g  `  (flds  K ) )
110106, 109syl6eqr 2408 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( +g  `  F )  =  +  )
111 eqidd 2359 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  X )  =  ( X  .,  X ) )
112 eqid 2358 . . . . . . . . . . . . . . 15  |-  ( .r
`  F )  =  ( .r `  F
)
1136, 15, 5, 10, 88, 112ipass 16655 . . . . . . . . . . . . . 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 1184 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( * `  C
) ( .s `  W ) Y ) 
.,  ( ( * `
 C ) ( .s `  W ) Y ) )  =  ( ( * `  C ) ( .r
`  F ) ( Y  .,  ( ( * `  C ) ( .s `  W
) Y ) ) ) )
11576fveq2d 5612 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( .r `  F )  =  ( .r `  (flds  K ) ) )
116 cnfldmul 16488 . . . . . . . . . . . . . . . . 17  |-  x.  =  ( .r ` fld )
11752, 116ressmulr 13358 . . . . . . . . . . . . . . . 16  |-  ( K  e.  _V  ->  x.  =  ( .r `  (flds  K
) ) )
11851, 117ax-mp 8 . . . . . . . . . . . . . . 15  |-  x.  =  ( .r `  (flds  K ) )
119115, 118syl6eqr 2408 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( .r `  F )  =  x.  )
120 eqidd 2359 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * `  C )  =  ( * `  C ) )
12123, 27, 37divrecd 9629 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  X )  / 
( Y  .,  Y
) )  =  ( ( Y  .,  X
)  x.  ( 1  /  ( Y  .,  Y ) ) ) )
12239, 121syl5eq 2402 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  C  =  ( ( Y  .,  X )  x.  (
1  /  ( Y 
.,  Y ) ) ) )
12321adantr 451 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  X )  e.  K
)
1246, 10clmmcl 18686 . . . . . . . . . . . . . . . . . 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 1182 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  X )  x.  ( 1  /  ( Y  .,  Y ) ) )  e.  K )
126122, 125eqeltrd 2432 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  C  e.  K )
1276, 15, 5, 10, 88, 112, 58ipassr2 16657 . . . . . . . . . . . . . . . 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 1184 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  Y ) ( .r `  F ) C )  =  ( Y  .,  ( ( ( * r `  F ) `  C
) ( .s `  W ) Y ) ) )
129119oveqd 5962 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  Y ) ( .r `  F ) C )  =  ( ( Y  .,  Y
)  x.  C ) )
13039oveq2i 5956 . . . . . . . . . . . . . . . . 17  |-  ( ( Y  .,  Y )  x.  C )  =  ( ( Y  .,  Y )  x.  (
( Y  .,  X
)  /  ( Y 
.,  Y ) ) )
13123, 27, 37divcan2d 9628 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  Y )  x.  ( ( Y  .,  X )  /  ( Y  .,  Y ) ) )  =  ( Y 
.,  X ) )
132130, 131syl5eq 2402 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  Y )  x.  C )  =  ( Y  .,  X ) )
133129, 132eqtrd 2390 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( Y  .,  Y ) ( .r `  F ) C )  =  ( Y  .,  X ) )
13456adantr 451 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( * r `  F )  =  * )
135134fveq1d 5610 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* r `  F
) `  C )  =  ( * `  C ) )
136135oveq1d 5960 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( * r `  F ) `  C
) ( .s `  W ) Y )  =  ( ( * `
 C ) ( .s `  W ) Y ) )
137136oveq2d 5961 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  ( ( ( * r `  F ) `
 C ) ( .s `  W ) Y ) )  =  ( Y  .,  (
( * `  C
) ( .s `  W ) Y ) ) )
138128, 133, 1373eqtr3rd 2399 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( Y  .,  ( ( * `  C ) ( .s
`  W ) Y ) )  =  ( Y  .,  X ) )
139119, 120, 138oveq123d 5966 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* `  C )
( .r `  F
) ( Y  .,  ( ( * `  C ) ( .s
`  W ) Y ) ) )  =  ( ( * `  C )  x.  ( Y  .,  X ) ) )
140114, 139eqtrd 2390 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( * `  C
) ( .s `  W ) Y ) 
.,  ( ( * `
 C ) ( .s `  W ) Y ) )  =  ( ( * `  C )  x.  ( Y  .,  X ) ) )
141110, 111, 140oveq123d 5966 . . . . . . . . . . 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 16657 . . . . . . . . . . . . . 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 1184 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y ) ( .r `  F ) C )  =  ( X  .,  ( ( ( * r `  F ) `  C
) ( .s `  W ) Y ) ) )
144119oveqd 5962 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y ) ( .r `  F ) C )  =  ( ( X  .,  Y
)  x.  C ) )
145136oveq2d 5961 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  ( ( ( * r `  F ) `
 C ) ( .s `  W ) Y ) )  =  ( X  .,  (
( * `  C
) ( .s `  W ) Y ) ) )
146143, 144, 1453eqtr3rd 2399 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  ( ( * `  C ) ( .s
`  W ) Y ) )  =  ( ( X  .,  Y
)  x.  C ) )
1476, 15, 5, 10, 88, 112ipass 16655 . . . . . . . . . . . . . 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 1184 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( * `  C
) ( .s `  W ) Y ) 
.,  X )  =  ( ( * `  C ) ( .r
`  F ) ( Y  .,  X ) ) )
149119oveqd 5962 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* `  C )
( .r `  F
) ( Y  .,  X ) )  =  ( ( * `  C )  x.  ( Y  .,  X ) ) )
150148, 149eqtrd 2390 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( * `  C
) ( .s `  W ) Y ) 
.,  X )  =  ( ( * `  C )  x.  ( Y  .,  X ) ) )
151110, 146, 150oveq123d 5966 . . . . . . . . . . 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 5963 . . . . . . . . . 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 16643 . . . . . . . . . . . . . 14  |-  ( ( W  e.  PreHil  /\  X  e.  V  /\  X  e.  V )  ->  ( X  .,  X )  e.  K )
154104, 45, 45, 153syl3anc 1182 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  X )  e.  K
)
1556, 10clmmcl 18686 . . . . . . . . . . . . . 14  |-  ( ( W  e. CMod  /\  (
* `  C )  e.  K  /\  ( Y  .,  X )  e.  K )  ->  (
( * `  C
)  x.  ( Y 
.,  X ) )  e.  K )
15671, 86, 123, 155syl3anc 1182 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* `  C )  x.  ( Y  .,  X
) )  e.  K
)
1576, 10clmacl 18685 . . . . . . . . . . . . 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 1182 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  X )  +  ( ( * `  C )  x.  ( Y  .,  X ) ) )  e.  K )
1596, 10clmmcl 18686 . . . . . . . . . . . . . 14  |-  ( ( W  e. CMod  /\  ( X  .,  Y )  e.  K  /\  C  e.  K )  ->  (
( X  .,  Y
)  x.  C )  e.  K )
16071, 72, 126, 159syl3anc 1182 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  C )  e.  K
)
1616, 10clmacl 18685 . . . . . . . . . . . . 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 1182 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( X  .,  Y
)  x.  C )  +  ( ( * `
 C )  x.  ( Y  .,  X
) ) )  e.  K )
1636, 10clmsub 18682 . . . . . . . . . . . 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 1182 . . . . . . . . . . 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 18767 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  X  e.  V )  ->  ( X  .,  X )  e.  RR )
16613, 165mpdan 649 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( X  .,  X
)  e.  RR )
167166recnd 8951 . . . . . . . . . . . . 13  |-  ( ph  ->  ( X  .,  X
)  e.  CC )
168167adantr 451 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  X )  e.  CC )
16918absvalsqd 12020 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( abs `  ( X  .,  Y ) ) ^ 2 )  =  ( ( X  .,  Y )  x.  (
* `  ( X  .,  Y ) ) ) )
17061oveq2d 5961 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( X  .,  Y )  x.  (
* `  ( X  .,  Y ) ) )  =  ( ( X 
.,  Y )  x.  ( Y  .,  X
) ) )
171169, 170eqtrd 2390 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( abs `  ( X  .,  Y ) ) ^ 2 )  =  ( ( X  .,  Y )  x.  ( Y  .,  X ) ) )
17218abscld 12014 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( abs `  ( X  .,  Y ) )  e.  RR )
173172resqcld 11364 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( abs `  ( X  .,  Y ) ) ^ 2 )  e.  RR )
174171, 173eqeltrrd 2433 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( X  .,  Y )  x.  ( Y  .,  X ) )  e.  RR )
175174adantr 451 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  ( Y  .,  X
) )  e.  RR )
176175, 66, 37redivcld 9678 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( X  .,  Y
)  x.  ( Y 
.,  X ) )  /  ( Y  .,  Y ) )  e.  RR )
17741, 176eqeltrrd 2433 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  C )  e.  RR )
178177recnd 8951 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  C )  e.  CC )
17971, 11syl 15 . . . . . . . . . . . . 13  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  K  C_  CC )
180179, 156sseldd 3257 . . . . . . . . . . . 12  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
* `  C )  x.  ( Y  .,  X
) )  e.  CC )
181168, 178, 180pnpcan2d 9285 . . . . . . . . . . 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 2392 . . . . . . . . . 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 2394 . . . . . . . . 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 4128 . . . . . . . 8  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  0  <_  ( ( X  .,  X
)  -  ( ( X  .,  Y )  x.  C ) ) )
185166adantr 451 . . . . . . . . 9  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( X  .,  X )  e.  RR )
186185, 177subge0d 9452 . . . . . . . 8  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( 0  <_  ( ( X 
.,  X )  -  ( ( X  .,  Y )  x.  C
) )  <->  ( ( X  .,  Y )  x.  C )  <_  ( X  .,  X ) ) )
187184, 186mpbid 201 . . . . . . 7  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  C )  <_  ( X  .,  X ) )
18841, 187eqbrtrd 4124 . . . . . 6  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( (
( X  .,  Y
)  x.  ( Y 
.,  X ) )  /  ( Y  .,  Y ) )  <_ 
( X  .,  X
) )
189 oveq12 5954 . . . . . . . . . . . . 13  |-  ( ( x  =  Y  /\  x  =  Y )  ->  ( x  .,  x
)  =  ( Y 
.,  Y ) )
190189anidms 626 . . . . . . . . . . . 12  |-  ( x  =  Y  ->  (
x  .,  x )  =  ( Y  .,  Y ) )
191190breq2d 4116 . . . . . . . . . . 11  |-  ( x  =  Y  ->  (
0  <_  ( x  .,  x )  <->  0  <_  ( Y  .,  Y ) ) )
192191rspcv 2956 . . . . . . . . . 10  |-  ( Y  e.  V  ->  ( A. x  e.  V 
0  <_  ( x  .,  x )  ->  0  <_  ( Y  .,  Y
) ) )
19314, 95, 192sylc 56 . . . . . . . . 9  |-  ( ph  ->  0  <_  ( Y  .,  Y ) )
194193adantr 451 . . . . . . . 8  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  0  <_  ( Y  .,  Y ) )
19566, 194, 37ne0gt0d 9046 . . . . . . 7  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  0  <  ( Y  .,  Y ) )
196 ledivmul2 9723 . . . . . . 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 1186 . . . . . 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 201 . . . . 5  |-  ( (
ph  /\  Y  =/=  ( 0g `  W ) )  ->  ( ( X  .,  Y )  x.  ( Y  .,  X
) )  <_  (
( X  .,  X
)  x.  ( Y 
.,  Y ) ) )
1996, 15, 5, 31, 32ip0r 16647 . . . . . . . . . 10  |-  ( ( W  e.  PreHil  /\  X  e.  V )  ->  ( X  .,  ( 0g `  W ) )  =  ( 0g `  F
) )
2007, 13, 199syl2anc 642 . . . . . . . . 9  |-  ( ph  ->  ( X  .,  ( 0g `  W ) )  =  ( 0g `  F ) )
201200, 29eqtr4d 2393 . . . . . . . 8  |-  ( ph  ->  ( X  .,  ( 0g `  W ) )  =  0 )
202201oveq1d 5960 . . . . . . 7  |-  ( ph  ->  ( ( X  .,  ( 0g `  W ) )  x.  ( Y 
.,  X ) )  =  ( 0  x.  ( Y  .,  X
) ) )
20322mul02d 9100 . . . . . . 7  |-  ( ph  ->  ( 0  x.  ( Y  .,  X ) )  =  0 )
204202, 203eqtrd 2390 . . . . . 6  |-  ( ph  ->  ( ( X  .,  ( 0g `  W ) )  x.  ( Y 
.,  X ) )  =  0 )
205 oveq12 5954 . . . . . . . . . . 11  |-  ( ( x  =  X  /\  x  =  X )  ->  ( x  .,  x
)  =  ( X 
.,  X ) )
206205anidms 626 . . . . . . . . . 10  |-  ( x  =  X  ->  (
x  .,  x )  =  ( X  .,  X ) )
207206breq2d 4116 . . . . . . . . 9  |-  ( x  =  X  ->  (
0  <_  ( x  .,  x )  <->  0  <_  ( X  .,  X ) ) )
208207rspcv 2956 . . . . . . . 8  |-  ( X  e.  V  ->  ( A. x  e.  V 
0  <_  ( x  .,  x )  ->  0  <_  ( X  .,  X
) ) )
20913, 95, 208sylc 56 . . . . . . 7  |-  ( ph  ->  0  <_  ( X  .,  X ) )
210166, 25, 209, 193mulge0d 9439 . . . . . 6  |-  ( ph  ->  0  <_  ( ( X  .,  X )  x.  ( Y  .,  Y
) ) )
211204, 210eqbrtrd 4124 . . . . 5  |-  ( ph  ->  ( ( X  .,  ( 0g `  W ) )  x.  ( Y 
.,  X ) )  <_  ( ( X 
.,  X )  x.  ( Y  .,  Y
) ) )
2123, 198, 211pm2.61ne 2596 . . . 4  |-  ( ph  ->  ( ( X  .,  Y )  x.  ( Y  .,  X ) )  <_  ( ( X 
.,  X )  x.  ( Y  .,  Y
) ) )
213166, 209resqrcld 11996 . . . . . . 7  |-  ( ph  ->  ( sqr `  ( X  .,  X ) )  e.  RR )
214213recnd 8951 . . . . . 6  |-  ( ph  ->  ( sqr `  ( X  .,  X ) )  e.  CC )
21525, 193resqrcld 11996 . . . . . . 7  |-  ( ph  ->  ( sqr `  ( Y  .,  Y ) )  e.  RR )
216215recnd 8951 . . . . . 6  |-  ( ph  ->  ( sqr `  ( Y  .,  Y ) )  e.  CC )
217214, 216sqmuld 11350 . . . . 5  |-  ( ph  ->  ( ( ( sqr `  ( X  .,  X
) )  x.  ( sqr `  ( Y  .,  Y ) ) ) ^ 2 )  =  ( ( ( sqr `  ( X  .,  X
) ) ^ 2 )  x.  ( ( sqr `  ( Y 
.,  Y ) ) ^ 2 ) ) )
218167sqsqrd 12017 . . . . . 6  |-  ( ph  ->  ( ( sqr `  ( X  .,  X ) ) ^ 2 )  =  ( X  .,  X
) )
21926sqsqrd 12017 . . . . . 6  |-  ( ph  ->  ( ( sqr `  ( Y  .,  Y ) ) ^ 2 )  =  ( Y  .,  Y
) )
220218, 219oveq12d 5963 . . . . 5  |-  ( ph  ->  ( ( ( sqr `  ( X  .,  X
) ) ^ 2 )  x.  ( ( sqr `  ( Y 
.,  Y ) ) ^ 2 ) )  =  ( ( X 
.,  X )  x.  ( Y  .,  Y
) ) )
221217, 220eqtrd 2390 . . . 4  |-  ( ph  ->  ( ( ( sqr `  ( X  .,  X
) )  x.  ( sqr `  ( Y  .,  Y ) ) ) ^ 2 )  =  ( ( X  .,  X )  x.  ( Y  .,  Y ) ) )
222212, 171, 2213brtr4d 4134 . . 3  |-  ( ph  ->  ( ( abs `  ( X  .,  Y ) ) ^ 2 )  <_ 
( ( ( sqr `  ( X  .,  X
) )  x.  ( sqr `  ( Y  .,  Y ) ) ) ^ 2 ) )
223213, 215remulcld 8953 . . . 4  |-  ( ph  ->  ( ( sqr `  ( X  .,  X ) )  x.  ( sqr `  ( Y  .,  Y ) ) )  e.  RR )
22418absge0d 12022 . . . 4  |-  ( ph  ->  0  <_  ( abs `  ( X  .,  Y
) ) )
225166, 209sqrge0d 11999 . . . . 5  |-  ( ph  ->  0  <_  ( sqr `  ( X  .,  X
) ) )
22625, 193sqrge0d 11999 . . . . 5  |-  ( ph  ->  0  <_  ( sqr `  ( Y  .,  Y
) ) )
227213, 215, 225, 226mulge0d 9439 . . . 4  |-  ( ph  ->  0  <_  ( ( sqr `  ( X  .,  X ) )  x.  ( sqr `  ( Y  .,  Y ) ) ) )
228172, 223, 224, 227le2sqd 11373 . . 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 223 . 2  |-  ( ph  ->  ( abs `  ( X  .,  Y ) )  <_  ( ( sqr `  ( X  .,  X
) )  x.  ( sqr `  ( Y  .,  Y ) ) ) )
230 lmodgrp 15733 . . . . 5  |-  ( W  e.  LMod  ->  W  e. 
Grp )
23143, 230syl 15 . . . 4  |-  ( ph  ->  W  e.  Grp )
232 ipcau2.n . . . . 5  |-  N  =  ( norm `  G
)
2334, 232, 5, 15tchnmval 18764 . . . 4  |-  ( ( W  e.  Grp  /\  X  e.  V )  ->  ( N `  X
)  =  ( sqr `  ( X  .,  X
) ) )
234231, 13, 233syl2anc 642 . . 3  |-  ( ph  ->  ( N `  X
)  =  ( sqr `  ( X  .,  X
) ) )
2354, 232, 5, 15tchnmval 18764 . . . 4  |-  ( ( W  e.  Grp  /\  Y  e.  V )  ->  ( N `  Y
)  =  ( sqr `  ( Y  .,  Y
) ) )
236231, 14, 235syl2anc 642 . . 3  |-  ( ph  ->  ( N `  Y
)  =  ( sqr `  ( Y  .,  Y
) ) )
237234, 236oveq12d 5963 . 2  |-  ( ph  ->  ( ( N `  X )  x.  ( N `  Y )
)  =  ( ( sqr `  ( X 
.,  X ) )  x.  ( sqr `  ( Y  .,  Y ) ) ) )
238229, 237breqtrrd 4130 1  |-  ( ph  ->  ( abs `  ( X  .,  Y ) )  <_  ( ( N `
 X )  x.  ( N `  Y
) ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 176    /\ wa 358    /\ w3a 934    = wceq 1642    e. wcel 1710    =/= wne 2521   A.wral 2619   _Vcvv 2864    C_ wss 3228   class class class wbr 4104   ` cfv 5337  (class class class)co 5945   CCcc 8825   RRcr 8826   0cc0 8827   1c1 8828    + caddc 8830    x. cmul 8832    < clt 8957    <_ cle 8958    - cmin 9127    / cdiv 9513   2c2 9885   ^cexp 11197   *ccj 11677   sqrcsqr 11814   abscabs 11815   Basecbs 13245   ↾s cress 13246   +g cplusg 13305   .rcmulr 13306   * rcstv 13307  Scalarcsca 13308   .scvsca 13309   .icip 13310   0gc0g 13499   Grpcgrp 14461   -gcsg 14464   DivRingcdr 15611   LModclmod 15726   LVecclvec 15954  ℂfldccnfld 16482   PreHilcphl 16634   normcnm 18201  CModcclm 18664  toCHilctch 18707
This theorem is referenced by:  tchcphlem1  18769  ipcau  18772
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1546  ax-5 1557  ax-17 1616  ax-9 1654  ax-8 1675  ax-13 1712  ax-14 1714  ax-6 1729  ax-7 1734  ax-11 1746  ax-12 1930  ax-ext 2339  ax-rep 4212  ax-sep 4222  ax-nul 4230  ax-pow 4269  ax-pr 4295  ax-un 4594  ax-cnex 8883  ax-resscn 8884  ax-1cn 8885  ax-icn 8886  ax-addcl 8887  ax-addrcl 8888  ax-mulcl 8889  ax-mulrcl 8890  ax-mulcom 8891  ax-addass 8892  ax-mulass 8893  ax-distr 8894  ax-i2m1 8895  ax-1ne0 8896  ax-1rid 8897  ax-rnegex 8898  ax-rrecex 8899  ax-cnre 8900  ax-pre-lttri 8901  ax-pre-lttrn 8902  ax-pre-ltadd 8903  ax-pre-mulgt0 8904  ax-pre-sup 8905  ax-addf 8906  ax-mulf 8907
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3or 935  df-3an 936  df-tru 1319  df-ex 1542  df-nf 1545  df-sb 1649  df-eu 2213  df-mo 2214  df-clab 2345  df-cleq 2351  df-clel 2354  df-nfc 2483  df-ne 2523  df-nel 2524  df-ral 2624  df-rex 2625  df-reu 2626  df-rmo 2627  df-rab 2628  df-v 2866  df-sbc 3068  df-csb 3158  df-dif 3231  df-un 3233  df-in 3235  df-ss 3242  df-pss 3244  df-nul 3532  df-if 3642  df-pw 3703  df-sn 3722  df-pr 3723  df-tp 3724  df-op 3725  df-uni 3909  df-int 3944  df-iun 3988  df-br 4105  df-opab 4159  df-mpt 4160  df-tr 4195  df-eprel 4387  df-id 4391  df-po 4396  df-so 4397  df-fr 4434  df-we 4436  df-ord 4477  df-on 4478  df-lim 4479  df-suc 4480  df-om 4739  df-xp 4777  df-rel 4778  df-cnv 4779  df-co 4780  df-dm 4781  df-rn 4782  df-res 4783  df-ima 4784  df-iota 5301  df-fun 5339  df-fn 5340  df-f 5341  df-f1 5342  df-fo 5343  df-f1o 5344  df-fv 5345  df-ov 5948  df-oprab 5949  df-mpt2 5950  df-1st 6209  df-2nd 6210  df-tpos 6321  df-riota 6391  df-recs 6475  df-rdg 6510  df-1o 6566  df-oadd 6570  df-er 6747  df-map 6862  df-en 6952  df-dom 6953  df-sdom 6954  df-fin 6955  df-sup 7284  df-pnf 8959  df-mnf 8960  df-xr 8961  df-ltxr 8962  df-le 8963  df-sub 9129  df-neg 9130  df-div 9514  df-nn 9837  df-2 9894  df-3 9895  df-4 9896  df-5 9897  df-6 9898  df-7 9899  df-8 9900  df-9 9901  df-10 9902  df-n0 10058  df-z 10117  df-dec 10217  df-uz 10323  df-rp 10447  df-fz 10875  df-seq 11139  df-exp 11198  df-cj 11680  df-re 11681  df-im 11682  df-sqr 11816  df-abs 11817  df-struct 13247  df-ndx 13248  df-slot 13249  df-base 13250  df-sets 13251  df-ress 13252  df-plusg 13318  df-mulr 13319  df-starv 13320  df-sca 13321  df-vsca 13322  df-tset 13324  df-ple 13325  df-ds 13327  df-unif 13328  df-0g 13503  df-mnd 14466  df-mhm 14514  df-grp 14588  df-minusg 14589  df-sbg 14590  df-subg 14717  df-ghm 14780  df-cmn 15190  df-abl 15191  df-mgp 15425  df-rng 15439  df-cring 15440  df-ur 15441  df-oppr 15504  df-dvdsr 15522  df-unit 15523  df-invr 15553  df-dvr 15564  df-rnghom 15595  df-drng 15613  df-subrg 15642  df-staf 15709  df-srng 15710  df-lmod 15728  df-lmhm 15878  df-lvec 15955  df-sra 16024  df-rgmod 16025  df-cnfld 16483  df-phl 16636  df-nm 18207  df-tng 18209  df-clm 18665  df-tch 18709
  Copyright terms: Public domain W3C validator