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

Theorem ipasslem10 25892
Description: Lemma for ipassi 25894. Show the inner product associative law for the imaginary number  _i. (Contributed by NM, 24-Aug-2007.) (New usage is discouraged.)
Hypotheses
Ref Expression
ip1i.1  |-  X  =  ( BaseSet `  U )
ip1i.2  |-  G  =  ( +v `  U
)
ip1i.4  |-  S  =  ( .sOLD `  U )
ip1i.7  |-  P  =  ( .iOLD `  U )
ip1i.9  |-  U  e.  CPreHil
OLD
ipasslem10.a  |-  A  e.  X
ipasslem10.b  |-  B  e.  X
ipasslem10.6  |-  N  =  ( normCV `  U )
Assertion
Ref Expression
ipasslem10  |-  ( ( _i S A ) P B )  =  ( _i  x.  ( A P B ) )

Proof of Theorem ipasslem10
StepHypRef Expression
1 ip1i.9 . . . . . . 7  |-  U  e.  CPreHil
OLD
21phnvi 25869 . . . . . 6  |-  U  e.  NrmCVec
3 ipasslem10.b . . . . . 6  |-  B  e.  X
4 ax-icn 9480 . . . . . . 7  |-  _i  e.  CC
5 ipasslem10.a . . . . . . 7  |-  A  e.  X
6 ip1i.1 . . . . . . . 8  |-  X  =  ( BaseSet `  U )
7 ip1i.4 . . . . . . . 8  |-  S  =  ( .sOLD `  U )
86, 7nvscl 25659 . . . . . . 7  |-  ( ( U  e.  NrmCVec  /\  _i  e.  CC  /\  A  e.  X )  ->  (
_i S A )  e.  X )
92, 4, 5, 8mp3an 1322 . . . . . 6  |-  ( _i S A )  e.  X
10 ip1i.2 . . . . . . 7  |-  G  =  ( +v `  U
)
11 ipasslem10.6 . . . . . . 7  |-  N  =  ( normCV `  U )
12 ip1i.7 . . . . . . 7  |-  P  =  ( .iOLD `  U )
136, 10, 7, 11, 124ipval2 25756 . . . . . 6  |-  ( ( U  e.  NrmCVec  /\  B  e.  X  /\  (
_i S A )  e.  X )  -> 
( 4  x.  ( B P ( _i S A ) ) )  =  ( ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S ( _i S A ) ) ) ) ^ 2 ) )  +  ( _i  x.  ( ( ( N `  ( B G ( _i S
( _i S A ) ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S ( _i S A ) ) ) ) ^ 2 ) ) ) ) )
142, 3, 9, 13mp3an 1322 . . . . 5  |-  ( 4  x.  ( B P ( _i S A ) ) )  =  ( ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S ( _i S A ) ) ) ) ^ 2 ) )  +  ( _i  x.  ( ( ( N `  ( B G ( _i S
( _i S A ) ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S ( _i S A ) ) ) ) ^ 2 ) ) ) )
15 4cn 10548 . . . . . . 7  |-  4  e.  CC
16 negicn 9752 . . . . . . 7  |-  -u _i  e.  CC
176, 12dipcl 25763 . . . . . . . 8  |-  ( ( U  e.  NrmCVec  /\  B  e.  X  /\  A  e.  X )  ->  ( B P A )  e.  CC )
182, 3, 5, 17mp3an 1322 . . . . . . 7  |-  ( B P A )  e.  CC
1915, 16, 18mul12i 9704 . . . . . 6  |-  ( 4  x.  ( -u _i  x.  ( B P A ) ) )  =  ( -u _i  x.  ( 4  x.  ( B P A ) ) )
206, 10nvgcl 25651 . . . . . . . . . . . . . 14  |-  ( ( U  e.  NrmCVec  /\  B  e.  X  /\  (
_i S A )  e.  X )  -> 
( B G ( _i S A ) )  e.  X )
212, 3, 9, 20mp3an 1322 . . . . . . . . . . . . 13  |-  ( B G ( _i S A ) )  e.  X
226, 11, 2, 21nvcli 25701 . . . . . . . . . . . 12  |-  ( N `
 ( B G ( _i S A ) ) )  e.  RR
2322recni 9537 . . . . . . . . . . 11  |-  ( N `
 ( B G ( _i S A ) ) )  e.  CC
2423sqcli 12170 . . . . . . . . . 10  |-  ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  e.  CC
25 neg1cn 10574 . . . . . . . . . . . . . . 15  |-  -u 1  e.  CC
266, 7nvscl 25659 . . . . . . . . . . . . . . 15  |-  ( ( U  e.  NrmCVec  /\  -u 1  e.  CC  /\  ( _i S A )  e.  X )  ->  ( -u 1 S ( _i S A ) )  e.  X )
272, 25, 9, 26mp3an 1322 . . . . . . . . . . . . . 14  |-  ( -u
1 S ( _i S A ) )  e.  X
286, 10nvgcl 25651 . . . . . . . . . . . . . 14  |-  ( ( U  e.  NrmCVec  /\  B  e.  X  /\  ( -u 1 S ( _i S A ) )  e.  X )  -> 
( B G (
-u 1 S ( _i S A ) ) )  e.  X
)
292, 3, 27, 28mp3an 1322 . . . . . . . . . . . . 13  |-  ( B G ( -u 1 S ( _i S A ) ) )  e.  X
306, 11, 2, 29nvcli 25701 . . . . . . . . . . . 12  |-  ( N `
 ( B G ( -u 1 S ( _i S A ) ) ) )  e.  RR
3130recni 9537 . . . . . . . . . . 11  |-  ( N `
 ( B G ( -u 1 S ( _i S A ) ) ) )  e.  CC
3231sqcli 12170 . . . . . . . . . 10  |-  ( ( N `  ( B G ( -u 1 S ( _i S A ) ) ) ) ^ 2 )  e.  CC
3324, 32subcli 9826 . . . . . . . . 9  |-  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S ( _i S A ) ) ) ) ^ 2 ) )  e.  CC
346, 7nvscl 25659 . . . . . . . . . . . . . . . 16  |-  ( ( U  e.  NrmCVec  /\  _i  e.  CC  /\  ( _i S A )  e.  X )  ->  (
_i S ( _i S A ) )  e.  X )
352, 4, 9, 34mp3an 1322 . . . . . . . . . . . . . . 15  |-  ( _i S ( _i S A ) )  e.  X
366, 10nvgcl 25651 . . . . . . . . . . . . . . 15  |-  ( ( U  e.  NrmCVec  /\  B  e.  X  /\  (
_i S ( _i S A ) )  e.  X )  -> 
( B G ( _i S ( _i S A ) ) )  e.  X )
372, 3, 35, 36mp3an 1322 . . . . . . . . . . . . . 14  |-  ( B G ( _i S
( _i S A ) ) )  e.  X
386, 11, 2, 37nvcli 25701 . . . . . . . . . . . . 13  |-  ( N `
 ( B G ( _i S ( _i S A ) ) ) )  e.  RR
3938recni 9537 . . . . . . . . . . . 12  |-  ( N `
 ( B G ( _i S ( _i S A ) ) ) )  e.  CC
4039sqcli 12170 . . . . . . . . . . 11  |-  ( ( N `  ( B G ( _i S
( _i S A ) ) ) ) ^ 2 )  e.  CC
416, 7nvscl 25659 . . . . . . . . . . . . . . . 16  |-  ( ( U  e.  NrmCVec  /\  -u _i  e.  CC  /\  ( _i S A )  e.  X )  ->  ( -u _i S ( _i S A ) )  e.  X )
422, 16, 9, 41mp3an 1322 . . . . . . . . . . . . . . 15  |-  ( -u _i S ( _i S A ) )  e.  X
436, 10nvgcl 25651 . . . . . . . . . . . . . . 15  |-  ( ( U  e.  NrmCVec  /\  B  e.  X  /\  ( -u _i S ( _i S A ) )  e.  X )  -> 
( B G (
-u _i S ( _i S A ) ) )  e.  X
)
442, 3, 42, 43mp3an 1322 . . . . . . . . . . . . . 14  |-  ( B G ( -u _i S ( _i S A ) ) )  e.  X
456, 11, 2, 44nvcli 25701 . . . . . . . . . . . . 13  |-  ( N `
 ( B G ( -u _i S
( _i S A ) ) ) )  e.  RR
4645recni 9537 . . . . . . . . . . . 12  |-  ( N `
 ( B G ( -u _i S
( _i S A ) ) ) )  e.  CC
4746sqcli 12170 . . . . . . . . . . 11  |-  ( ( N `  ( B G ( -u _i S ( _i S A ) ) ) ) ^ 2 )  e.  CC
4840, 47subcli 9826 . . . . . . . . . 10  |-  ( ( ( N `  ( B G ( _i S
( _i S A ) ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S ( _i S A ) ) ) ) ^ 2 ) )  e.  CC
494, 48mulcli 9530 . . . . . . . . 9  |-  ( _i  x.  ( ( ( N `  ( B G ( _i S
( _i S A ) ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S ( _i S A ) ) ) ) ^ 2 ) ) )  e.  CC
5033, 49addcomi 9700 . . . . . . . 8  |-  ( ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `
 ( B G ( -u 1 S ( _i S A ) ) ) ) ^ 2 ) )  +  ( _i  x.  ( ( ( N `
 ( B G ( _i S ( _i S A ) ) ) ) ^
2 )  -  (
( N `  ( B G ( -u _i S ( _i S A ) ) ) ) ^ 2 ) ) ) )  =  ( ( _i  x.  ( ( ( N `
 ( B G ( _i S ( _i S A ) ) ) ) ^
2 )  -  (
( N `  ( B G ( -u _i S ( _i S A ) ) ) ) ^ 2 ) ) )  +  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `
 ( B G ( -u 1 S ( _i S A ) ) ) ) ^ 2 ) ) )
516, 10nvgcl 25651 . . . . . . . . . . . . . . 15  |-  ( ( U  e.  NrmCVec  /\  B  e.  X  /\  A  e.  X )  ->  ( B G A )  e.  X )
522, 3, 5, 51mp3an 1322 . . . . . . . . . . . . . 14  |-  ( B G A )  e.  X
536, 11, 2, 52nvcli 25701 . . . . . . . . . . . . 13  |-  ( N `
 ( B G A ) )  e.  RR
5453recni 9537 . . . . . . . . . . . 12  |-  ( N `
 ( B G A ) )  e.  CC
5554sqcli 12170 . . . . . . . . . . 11  |-  ( ( N `  ( B G A ) ) ^ 2 )  e.  CC
566, 7nvscl 25659 . . . . . . . . . . . . . . . 16  |-  ( ( U  e.  NrmCVec  /\  -u 1  e.  CC  /\  A  e.  X )  ->  ( -u 1 S A )  e.  X )
572, 25, 5, 56mp3an 1322 . . . . . . . . . . . . . . 15  |-  ( -u
1 S A )  e.  X
586, 10nvgcl 25651 . . . . . . . . . . . . . . 15  |-  ( ( U  e.  NrmCVec  /\  B  e.  X  /\  ( -u 1 S A )  e.  X )  -> 
( B G (
-u 1 S A ) )  e.  X
)
592, 3, 57, 58mp3an 1322 . . . . . . . . . . . . . 14  |-  ( B G ( -u 1 S A ) )  e.  X
606, 11, 2, 59nvcli 25701 . . . . . . . . . . . . 13  |-  ( N `
 ( B G ( -u 1 S A ) ) )  e.  RR
6160recni 9537 . . . . . . . . . . . 12  |-  ( N `
 ( B G ( -u 1 S A ) ) )  e.  CC
6261sqcli 12170 . . . . . . . . . . 11  |-  ( ( N `  ( B G ( -u 1 S A ) ) ) ^ 2 )  e.  CC
6355, 62subcli 9826 . . . . . . . . . 10  |-  ( ( ( N `  ( B G A ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S A ) ) ) ^ 2 ) )  e.  CC
646, 7nvscl 25659 . . . . . . . . . . . . . . . . 17  |-  ( ( U  e.  NrmCVec  /\  -u _i  e.  CC  /\  A  e.  X )  ->  ( -u _i S A )  e.  X )
652, 16, 5, 64mp3an 1322 . . . . . . . . . . . . . . . 16  |-  ( -u _i S A )  e.  X
666, 10nvgcl 25651 . . . . . . . . . . . . . . . 16  |-  ( ( U  e.  NrmCVec  /\  B  e.  X  /\  ( -u _i S A )  e.  X )  -> 
( B G (
-u _i S A ) )  e.  X
)
672, 3, 65, 66mp3an 1322 . . . . . . . . . . . . . . 15  |-  ( B G ( -u _i S A ) )  e.  X
686, 11, 2, 67nvcli 25701 . . . . . . . . . . . . . 14  |-  ( N `
 ( B G ( -u _i S A ) ) )  e.  RR
6968recni 9537 . . . . . . . . . . . . 13  |-  ( N `
 ( B G ( -u _i S A ) ) )  e.  CC
7069sqcli 12170 . . . . . . . . . . . 12  |-  ( ( N `  ( B G ( -u _i S A ) ) ) ^ 2 )  e.  CC
7124, 70subcli 9826 . . . . . . . . . . 11  |-  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S A ) ) ) ^ 2 ) )  e.  CC
724, 71mulcli 9530 . . . . . . . . . 10  |-  ( _i  x.  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S A ) ) ) ^ 2 ) ) )  e.  CC
7316, 63, 72adddii 9535 . . . . . . . . 9  |-  ( -u _i  x.  ( ( ( ( N `  ( B G A ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S A ) ) ) ^ 2 ) )  +  ( _i  x.  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S A ) ) ) ^ 2 ) ) ) ) )  =  ( ( -u _i  x.  ( ( ( N `  ( B G A ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S A ) ) ) ^ 2 ) ) )  +  ( -u _i  x.  ( _i  x.  (
( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `
 ( B G ( -u _i S A ) ) ) ^ 2 ) ) ) ) )
744, 4, 53pm3.2i 1172 . . . . . . . . . . . . . . . . . 18  |-  ( _i  e.  CC  /\  _i  e.  CC  /\  A  e.  X )
756, 7nvsass 25661 . . . . . . . . . . . . . . . . . 18  |-  ( ( U  e.  NrmCVec  /\  (
_i  e.  CC  /\  _i  e.  CC  /\  A  e.  X ) )  -> 
( ( _i  x.  _i ) S A )  =  ( _i S
( _i S A ) ) )
762, 74, 75mp2an 670 . . . . . . . . . . . . . . . . 17  |-  ( ( _i  x.  _i ) S A )  =  ( _i S ( _i S A ) )
77 ixi 10113 . . . . . . . . . . . . . . . . . 18  |-  ( _i  x.  _i )  = 
-u 1
7877oveq1i 6224 . . . . . . . . . . . . . . . . 17  |-  ( ( _i  x.  _i ) S A )  =  ( -u 1 S A )
7976, 78eqtr3i 2423 . . . . . . . . . . . . . . . 16  |-  ( _i S ( _i S A ) )  =  ( -u 1 S A )
8079oveq2i 6225 . . . . . . . . . . . . . . 15  |-  ( B G ( _i S
( _i S A ) ) )  =  ( B G (
-u 1 S A ) )
8180fveq2i 5790 . . . . . . . . . . . . . 14  |-  ( N `
 ( B G ( _i S ( _i S A ) ) ) )  =  ( N `  ( B G ( -u 1 S A ) ) )
8281oveq1i 6224 . . . . . . . . . . . . 13  |-  ( ( N `  ( B G ( _i S
( _i S A ) ) ) ) ^ 2 )  =  ( ( N `  ( B G ( -u
1 S A ) ) ) ^ 2 )
834, 4mulneg1i 9938 . . . . . . . . . . . . . . . . . . 19  |-  ( -u _i  x.  _i )  = 
-u ( _i  x.  _i )
8477negeqi 9744 . . . . . . . . . . . . . . . . . . 19  |-  -u (
_i  x.  _i )  =  -u -u 1
85 negneg1e1 10578 . . . . . . . . . . . . . . . . . . 19  |-  -u -u 1  =  1
8683, 84, 853eqtri 2425 . . . . . . . . . . . . . . . . . 18  |-  ( -u _i  x.  _i )  =  1
8786oveq1i 6224 . . . . . . . . . . . . . . . . 17  |-  ( (
-u _i  x.  _i ) S A )  =  ( 1 S A )
8816, 4, 53pm3.2i 1172 . . . . . . . . . . . . . . . . . 18  |-  ( -u _i  e.  CC  /\  _i  e.  CC  /\  A  e.  X )
896, 7nvsass 25661 . . . . . . . . . . . . . . . . . 18  |-  ( ( U  e.  NrmCVec  /\  ( -u _i  e.  CC  /\  _i  e.  CC  /\  A  e.  X ) )  -> 
( ( -u _i  x.  _i ) S A )  =  ( -u _i S ( _i S A ) ) )
902, 88, 89mp2an 670 . . . . . . . . . . . . . . . . 17  |-  ( (
-u _i  x.  _i ) S A )  =  ( -u _i S
( _i S A ) )
916, 7nvsid 25660 . . . . . . . . . . . . . . . . . 18  |-  ( ( U  e.  NrmCVec  /\  A  e.  X )  ->  (
1 S A )  =  A )
922, 5, 91mp2an 670 . . . . . . . . . . . . . . . . 17  |-  ( 1 S A )  =  A
9387, 90, 923eqtr3i 2429 . . . . . . . . . . . . . . . 16  |-  ( -u _i S ( _i S A ) )  =  A
9493oveq2i 6225 . . . . . . . . . . . . . . 15  |-  ( B G ( -u _i S ( _i S A ) ) )  =  ( B G A )
9594fveq2i 5790 . . . . . . . . . . . . . 14  |-  ( N `
 ( B G ( -u _i S
( _i S A ) ) ) )  =  ( N `  ( B G A ) )
9695oveq1i 6224 . . . . . . . . . . . . 13  |-  ( ( N `  ( B G ( -u _i S ( _i S A ) ) ) ) ^ 2 )  =  ( ( N `
 ( B G A ) ) ^
2 )
9782, 96oveq12i 6226 . . . . . . . . . . . 12  |-  ( ( ( N `  ( B G ( _i S
( _i S A ) ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S ( _i S A ) ) ) ) ^ 2 ) )  =  ( ( ( N `  ( B G ( -u 1 S A ) ) ) ^ 2 )  -  ( ( N `  ( B G A ) ) ^ 2 ) )
9897oveq2i 6225 . . . . . . . . . . 11  |-  ( _i  x.  ( ( ( N `  ( B G ( _i S
( _i S A ) ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S ( _i S A ) ) ) ) ^ 2 ) ) )  =  ( _i  x.  ( ( ( N `  ( B G ( -u 1 S A ) ) ) ^ 2 )  -  ( ( N `  ( B G A ) ) ^ 2 ) ) )
9963mulm1i 9937 . . . . . . . . . . . . . 14  |-  ( -u
1  x.  ( ( ( N `  ( B G A ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S A ) ) ) ^ 2 ) ) )  = 
-u ( ( ( N `  ( B G A ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S A ) ) ) ^ 2 ) )
10055, 62negsubdi2i 9837 . . . . . . . . . . . . . 14  |-  -u (
( ( N `  ( B G A ) ) ^ 2 )  -  ( ( N `
 ( B G ( -u 1 S A ) ) ) ^ 2 ) )  =  ( ( ( N `  ( B G ( -u 1 S A ) ) ) ^ 2 )  -  ( ( N `  ( B G A ) ) ^ 2 ) )
10199, 100eqtr2i 2422 . . . . . . . . . . . . 13  |-  ( ( ( N `  ( B G ( -u 1 S A ) ) ) ^ 2 )  -  ( ( N `  ( B G A ) ) ^ 2 ) )  =  ( -u
1  x.  ( ( ( N `  ( B G A ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S A ) ) ) ^ 2 ) ) )
102101oveq2i 6225 . . . . . . . . . . . 12  |-  ( _i  x.  ( ( ( N `  ( B G ( -u 1 S A ) ) ) ^ 2 )  -  ( ( N `  ( B G A ) ) ^ 2 ) ) )  =  ( _i  x.  ( -u
1  x.  ( ( ( N `  ( B G A ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S A ) ) ) ^ 2 ) ) ) )
1034, 25, 63mulassi 9534 . . . . . . . . . . . 12  |-  ( ( _i  x.  -u 1
)  x.  ( ( ( N `  ( B G A ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S A ) ) ) ^ 2 ) ) )  =  ( _i  x.  ( -u 1  x.  ( ( ( N `  ( B G A ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S A ) ) ) ^ 2 ) ) ) )
104102, 103eqtr4i 2424 . . . . . . . . . . 11  |-  ( _i  x.  ( ( ( N `  ( B G ( -u 1 S A ) ) ) ^ 2 )  -  ( ( N `  ( B G A ) ) ^ 2 ) ) )  =  ( ( _i  x.  -u 1
)  x.  ( ( ( N `  ( B G A ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S A ) ) ) ^ 2 ) ) )
1054mulm1i 9937 . . . . . . . . . . . . 13  |-  ( -u
1  x.  _i )  =  -u _i
10625, 4, 105mulcomli 9532 . . . . . . . . . . . 12  |-  ( _i  x.  -u 1 )  = 
-u _i
107106oveq1i 6224 . . . . . . . . . . 11  |-  ( ( _i  x.  -u 1
)  x.  ( ( ( N `  ( B G A ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S A ) ) ) ^ 2 ) ) )  =  ( -u _i  x.  ( ( ( N `
 ( B G A ) ) ^
2 )  -  (
( N `  ( B G ( -u 1 S A ) ) ) ^ 2 ) ) )
10898, 104, 1073eqtri 2425 . . . . . . . . . 10  |-  ( _i  x.  ( ( ( N `  ( B G ( _i S
( _i S A ) ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S ( _i S A ) ) ) ) ^ 2 ) ) )  =  (
-u _i  x.  (
( ( N `  ( B G A ) ) ^ 2 )  -  ( ( N `
 ( B G ( -u 1 S A ) ) ) ^ 2 ) ) )
10925, 4, 53pm3.2i 1172 . . . . . . . . . . . . . . . . . . 19  |-  ( -u
1  e.  CC  /\  _i  e.  CC  /\  A  e.  X )
1106, 7nvsass 25661 . . . . . . . . . . . . . . . . . . 19  |-  ( ( U  e.  NrmCVec  /\  ( -u 1  e.  CC  /\  _i  e.  CC  /\  A  e.  X ) )  -> 
( ( -u 1  x.  _i ) S A )  =  ( -u
1 S ( _i S A ) ) )
1112, 109, 110mp2an 670 . . . . . . . . . . . . . . . . . 18  |-  ( (
-u 1  x.  _i ) S A )  =  ( -u 1 S ( _i S A ) )
112105oveq1i 6224 . . . . . . . . . . . . . . . . . 18  |-  ( (
-u 1  x.  _i ) S A )  =  ( -u _i S A )
113111, 112eqtr3i 2423 . . . . . . . . . . . . . . . . 17  |-  ( -u
1 S ( _i S A ) )  =  ( -u _i S A )
114113oveq2i 6225 . . . . . . . . . . . . . . . 16  |-  ( B G ( -u 1 S ( _i S A ) ) )  =  ( B G ( -u _i S A ) )
115114fveq2i 5790 . . . . . . . . . . . . . . 15  |-  ( N `
 ( B G ( -u 1 S ( _i S A ) ) ) )  =  ( N `  ( B G ( -u _i S A ) ) )
116115oveq1i 6224 . . . . . . . . . . . . . 14  |-  ( ( N `  ( B G ( -u 1 S ( _i S A ) ) ) ) ^ 2 )  =  ( ( N `
 ( B G ( -u _i S A ) ) ) ^ 2 )
117116oveq2i 6225 . . . . . . . . . . . . 13  |-  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S ( _i S A ) ) ) ) ^ 2 ) )  =  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `
 ( B G ( -u _i S A ) ) ) ^ 2 ) )
11871mulid2i 9528 . . . . . . . . . . . . 13  |-  ( 1  x.  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S A ) ) ) ^ 2 ) ) )  =  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `
 ( B G ( -u _i S A ) ) ) ^ 2 ) )
119117, 118eqtr4i 2424 . . . . . . . . . . . 12  |-  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S ( _i S A ) ) ) ) ^ 2 ) )  =  ( 1  x.  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S A ) ) ) ^ 2 ) ) )
12086oveq1i 6224 . . . . . . . . . . . 12  |-  ( (
-u _i  x.  _i )  x.  ( (
( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S A ) ) ) ^ 2 ) ) )  =  ( 1  x.  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S A ) ) ) ^ 2 ) ) )
121119, 120eqtr4i 2424 . . . . . . . . . . 11  |-  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S ( _i S A ) ) ) ) ^ 2 ) )  =  ( ( -u _i  x.  _i )  x.  (
( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `
 ( B G ( -u _i S A ) ) ) ^ 2 ) ) )
12216, 4, 71mulassi 9534 . . . . . . . . . . 11  |-  ( (
-u _i  x.  _i )  x.  ( (
( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S A ) ) ) ^ 2 ) ) )  =  (
-u _i  x.  (
_i  x.  ( (
( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S A ) ) ) ^ 2 ) ) ) )
123121, 122eqtri 2421 . . . . . . . . . 10  |-  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S ( _i S A ) ) ) ) ^ 2 ) )  =  (
-u _i  x.  (
_i  x.  ( (
( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S A ) ) ) ^ 2 ) ) ) )
124108, 123oveq12i 6226 . . . . . . . . 9  |-  ( ( _i  x.  ( ( ( N `  ( B G ( _i S
( _i S A ) ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S ( _i S A ) ) ) ) ^ 2 ) ) )  +  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `
 ( B G ( -u 1 S ( _i S A ) ) ) ) ^ 2 ) ) )  =  ( (
-u _i  x.  (
( ( N `  ( B G A ) ) ^ 2 )  -  ( ( N `
 ( B G ( -u 1 S A ) ) ) ^ 2 ) ) )  +  ( -u _i  x.  ( _i  x.  ( ( ( N `
 ( B G ( _i S A ) ) ) ^
2 )  -  (
( N `  ( B G ( -u _i S A ) ) ) ^ 2 ) ) ) ) )
12573, 124eqtr4i 2424 . . . . . . . 8  |-  ( -u _i  x.  ( ( ( ( N `  ( B G A ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S A ) ) ) ^ 2 ) )  +  ( _i  x.  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S A ) ) ) ^ 2 ) ) ) ) )  =  ( ( _i  x.  ( ( ( N `  ( B G ( _i S
( _i S A ) ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S ( _i S A ) ) ) ) ^ 2 ) ) )  +  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `
 ( B G ( -u 1 S ( _i S A ) ) ) ) ^ 2 ) ) )
12650, 125eqtr4i 2424 . . . . . . 7  |-  ( ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `
 ( B G ( -u 1 S ( _i S A ) ) ) ) ^ 2 ) )  +  ( _i  x.  ( ( ( N `
 ( B G ( _i S ( _i S A ) ) ) ) ^
2 )  -  (
( N `  ( B G ( -u _i S ( _i S A ) ) ) ) ^ 2 ) ) ) )  =  ( -u _i  x.  ( ( ( ( N `  ( B G A ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S A ) ) ) ^ 2 ) )  +  ( _i  x.  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S A ) ) ) ^ 2 ) ) ) ) )
1276, 10, 7, 11, 124ipval2 25756 . . . . . . . . 9  |-  ( ( U  e.  NrmCVec  /\  B  e.  X  /\  A  e.  X )  ->  (
4  x.  ( B P A ) )  =  ( ( ( ( N `  ( B G A ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S A ) ) ) ^ 2 ) )  +  ( _i  x.  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S A ) ) ) ^ 2 ) ) ) ) )
1282, 3, 5, 127mp3an 1322 . . . . . . . 8  |-  ( 4  x.  ( B P A ) )  =  ( ( ( ( N `  ( B G A ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S A ) ) ) ^ 2 ) )  +  ( _i  x.  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S A ) ) ) ^ 2 ) ) ) )
129128oveq2i 6225 . . . . . . 7  |-  ( -u _i  x.  ( 4  x.  ( B P A ) ) )  =  ( -u _i  x.  ( ( ( ( N `  ( B G A ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S A ) ) ) ^ 2 ) )  +  ( _i  x.  ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S A ) ) ) ^ 2 ) ) ) ) )
130126, 129eqtr4i 2424 . . . . . 6  |-  ( ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `
 ( B G ( -u 1 S ( _i S A ) ) ) ) ^ 2 ) )  +  ( _i  x.  ( ( ( N `
 ( B G ( _i S ( _i S A ) ) ) ) ^
2 )  -  (
( N `  ( B G ( -u _i S ( _i S A ) ) ) ) ^ 2 ) ) ) )  =  ( -u _i  x.  ( 4  x.  ( B P A ) ) )
13119, 130eqtr4i 2424 . . . . 5  |-  ( 4  x.  ( -u _i  x.  ( B P A ) ) )  =  ( ( ( ( N `  ( B G ( _i S A ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u
1 S ( _i S A ) ) ) ) ^ 2 ) )  +  ( _i  x.  ( ( ( N `  ( B G ( _i S
( _i S A ) ) ) ) ^ 2 )  -  ( ( N `  ( B G ( -u _i S ( _i S A ) ) ) ) ^ 2 ) ) ) )
13214, 131eqtr4i 2424 . . . 4  |-  ( 4  x.  ( B P ( _i S A ) ) )  =  ( 4  x.  ( -u _i  x.  ( B P A ) ) )
1336, 12dipcl 25763 . . . . . 6  |-  ( ( U  e.  NrmCVec  /\  B  e.  X  /\  (
_i S A )  e.  X )  -> 
( B P ( _i S A ) )  e.  CC )
1342, 3, 9, 133mp3an 1322 . . . . 5  |-  ( B P ( _i S A ) )  e.  CC
13516, 18mulcli 9530 . . . . 5  |-  ( -u _i  x.  ( B P A ) )  e.  CC
136 4ne0 10567 . . . . 5  |-  4  =/=  0
137134, 135, 15, 136mulcani 10123 . . . 4  |-  ( ( 4  x.  ( B P ( _i S A ) ) )  =  ( 4  x.  ( -u _i  x.  ( B P A ) ) )  <->  ( B P ( _i S A ) )  =  ( -u _i  x.  ( B P A ) ) )
138132, 137mpbi 208 . . 3  |-  ( B P ( _i S A ) )  =  ( -u _i  x.  ( B P A ) )
139138fveq2i 5790 . 2  |-  ( * `
 ( B P ( _i S A ) ) )  =  ( * `  ( -u _i  x.  ( B P A ) ) )
1406, 12dipcj 25765 . . 3  |-  ( ( U  e.  NrmCVec  /\  B  e.  X  /\  (
_i S A )  e.  X )  -> 
( * `  ( B P ( _i S A ) ) )  =  ( ( _i S A ) P B ) )
1412, 3, 9, 140mp3an 1322 . 2  |-  ( * `
 ( B P ( _i S A ) ) )  =  ( ( _i S A ) P B )
14216, 18cjmuli 13043 . . 3  |-  ( * `
 ( -u _i  x.  ( B P A ) ) )  =  ( ( * `  -u _i )  x.  (
* `  ( B P A ) ) )
14325, 4cjmuli 13043 . . . . 5  |-  ( * `
 ( -u 1  x.  _i ) )  =  ( ( * `  -u 1 )  x.  (
* `  _i )
)
144105fveq2i 5790 . . . . 5  |-  ( * `
 ( -u 1  x.  _i ) )  =  ( * `  -u _i )
145 neg1rr 10575 . . . . . . . 8  |-  -u 1  e.  RR
14625cjrebi 13028 . . . . . . . 8  |-  ( -u
1  e.  RR  <->  ( * `  -u 1 )  = 
-u 1 )
147145, 146mpbi 208 . . . . . . 7  |-  ( * `
 -u 1 )  = 
-u 1
148 cji 13013 . . . . . . 7  |-  ( * `
 _i )  = 
-u _i
149147, 148oveq12i 6226 . . . . . 6  |-  ( ( * `  -u 1
)  x.  ( * `
 _i ) )  =  ( -u 1  x.  -u _i )
150 ax-1cn 9479 . . . . . . 7  |-  1  e.  CC
151150, 4mul2negi 9940 . . . . . 6  |-  ( -u
1  x.  -u _i )  =  ( 1  x.  _i )
1524mulid2i 9528 . . . . . 6  |-  ( 1  x.  _i )  =  _i
153149, 151, 1523eqtri 2425 . . . . 5  |-  ( ( * `  -u 1
)  x.  ( * `
 _i ) )  =  _i
154143, 144, 1533eqtr3i 2429 . . . 4  |-  ( * `
 -u _i )  =  _i
1556, 12dipcj 25765 . . . . 5  |-  ( ( U  e.  NrmCVec  /\  B  e.  X  /\  A  e.  X )  ->  (
* `  ( B P A ) )  =  ( A P B ) )
1562, 3, 5, 155mp3an 1322 . . . 4  |-  ( * `
 ( B P A ) )  =  ( A P B )
157154, 156oveq12i 6226 . . 3  |-  ( ( * `  -u _i )  x.  ( * `  ( B P A ) ) )  =  ( _i  x.  ( A P B ) )
158142, 157eqtri 2421 . 2  |-  ( * `
 ( -u _i  x.  ( B P A ) ) )  =  ( _i  x.  ( A P B ) )
159139, 141, 1583eqtr3i 2429 1  |-  ( ( _i S A ) P B )  =  ( _i  x.  ( A P B ) )
Colors of variables: wff setvar class
Syntax hints:    /\ w3a 971    = wceq 1399    e. wcel 1836   ` cfv 5509  (class class class)co 6214   CCcc 9419   RRcr 9420   1c1 9422   _ici 9423    + caddc 9424    x. cmul 9426    - cmin 9736   -ucneg 9737   2c2 10520   4c4 10522   ^cexp 12088   *ccj 12950   NrmCVeccnv 25615   +vcpv 25616   BaseSetcba 25617   .sOLDcns 25618   normCVcnmcv 25621   .iOLDcdip 25748   CPreHil OLDccphlo 25865
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1633  ax-4 1646  ax-5 1719  ax-6 1765  ax-7 1808  ax-8 1838  ax-9 1840  ax-10 1855  ax-11 1860  ax-12 1872  ax-13 2016  ax-ext 2370  ax-rep 4491  ax-sep 4501  ax-nul 4509  ax-pow 4556  ax-pr 4614  ax-un 6509  ax-inf2 7990  ax-cnex 9477  ax-resscn 9478  ax-1cn 9479  ax-icn 9480  ax-addcl 9481  ax-addrcl 9482  ax-mulcl 9483  ax-mulrcl 9484  ax-mulcom 9485  ax-addass 9486  ax-mulass 9487  ax-distr 9488  ax-i2m1 9489  ax-1ne0 9490  ax-1rid 9491  ax-rnegex 9492  ax-rrecex 9493  ax-cnre 9494  ax-pre-lttri 9495  ax-pre-lttrn 9496  ax-pre-ltadd 9497  ax-pre-mulgt0 9498  ax-pre-sup 9499
This theorem depends on definitions:  df-bi 185  df-or 368  df-an 369  df-3or 972  df-3an 973  df-tru 1402  df-fal 1405  df-ex 1628  df-nf 1632  df-sb 1758  df-eu 2232  df-mo 2233  df-clab 2378  df-cleq 2384  df-clel 2387  df-nfc 2542  df-ne 2589  df-nel 2590  df-ral 2747  df-rex 2748  df-reu 2749  df-rmo 2750  df-rab 2751  df-v 3049  df-sbc 3266  df-csb 3362  df-dif 3405  df-un 3407  df-in 3409  df-ss 3416  df-pss 3418  df-nul 3725  df-if 3871  df-pw 3942  df-sn 3958  df-pr 3960  df-tp 3962  df-op 3964  df-uni 4177  df-int 4213  df-iun 4258  df-br 4381  df-opab 4439  df-mpt 4440  df-tr 4474  df-eprel 4718  df-id 4722  df-po 4727  df-so 4728  df-fr 4765  df-se 4766  df-we 4767  df-ord 4808  df-on 4809  df-lim 4810  df-suc 4811  df-xp 4932  df-rel 4933  df-cnv 4934  df-co 4935  df-dm 4936  df-rn 4937  df-res 4938  df-ima 4939  df-iota 5473  df-fun 5511  df-fn 5512  df-f 5513  df-f1 5514  df-fo 5515  df-f1o 5516  df-fv 5517  df-isom 5518  df-riota 6176  df-ov 6217  df-oprab 6218  df-mpt2 6219  df-om 6618  df-1st 6717  df-2nd 6718  df-recs 6978  df-rdg 7012  df-1o 7066  df-oadd 7070  df-er 7247  df-en 7454  df-dom 7455  df-sdom 7456  df-fin 7457  df-sup 7834  df-oi 7868  df-card 8251  df-pnf 9559  df-mnf 9560  df-xr 9561  df-ltxr 9562  df-le 9563  df-sub 9738  df-neg 9739  df-div 10142  df-nn 10471  df-2 10529  df-3 10530  df-4 10531  df-n0 10731  df-z 10800  df-uz 11020  df-rp 11158  df-fz 11612  df-fzo 11736  df-seq 12030  df-exp 12089  df-hash 12327  df-cj 12953  df-re 12954  df-im 12955  df-sqrt 13089  df-abs 13090  df-clim 13332  df-sum 13530  df-grpo 25331  df-gid 25332  df-ginv 25333  df-ablo 25422  df-vc 25577  df-nv 25623  df-va 25626  df-ba 25627  df-sm 25628  df-0v 25629  df-nmcv 25631  df-dip 25749  df-ph 25866
This theorem is referenced by:  ipasslem11  25893
  Copyright terms: Public domain W3C validator