HomeHome Metamath Proof Explorer < Previous   Next >
Related theorems
Unicode version

Theorem ipval2 8291
Description: Expansion of the inner product value ipval 8287. Warning: The HTML proof page is 0.5MB in size.
Hypotheses
Ref Expression
ipfval.1 |- X = (Base` U)
ipfval.2 |- G = (+v` U)
ipfval.4 |- S = (.s` U)
ipfval.6 |- N = (norm` U)
ipfval.7 |- P = (.i` U)
Assertion
Ref Expression
ipval2 |- ((U e. NrmCVec /\ A e. X /\ B e. X) -> (APB) = (((((N` (AGB))^2) - ((N` (AG(-u1SB)))^2)) + (i x. (((N` (AG(iSB)))^2) - ((N` (AG(-uiSB)))^2)))) / 4))

Proof of Theorem ipval2
StepHypRef Expression
1 ipfval.1 . . 3 |- X = (Base` U)
2 ipfval.2 . . 3 |- G = (+v` U)
3 ipfval.4 . . 3 |- S = (.s` U)
4 ipfval.6 . . 3 |- N = (norm` U)
5 ipfval.7 . . 3 |- P = (.i` U)
61, 2, 3, 4, 5ipval 8287 . 2 |- ((U e. NrmCVec /\ A e. X /\ B e. X) -> (APB) = (sum_k e. (1...4)((i^k) x. ((N` (AG((i^k)SB)))^2)) / 4))
7 negsubt 5354 . . . . . . 7 |- ((((i x. ((N` (AG(iSB)))^2)) - ((N` (AG(-u1SB)))^2)) e. CC /\ (i x. ((N` (AG(-uiSB)))^2)) e. CC) -> (((i x. ((N` (AG(iSB)))^2)) - ((N` (AG(-u1SB)))^2)) + -u(i x. ((N` (AG(-uiSB)))^2))) = (((i x. ((N` (AG(iSB)))^2)) - ((N` (AG(-u1SB)))^2)) - (i x. ((N` (AG(-uiSB)))^2))))
8 subclt 5339 . . . . . . . 8 |- (((i x. ((N` (AG(iSB)))^2)) e. CC /\ ((N` (AG(-u1SB)))^2) e. CC) -> ((i x. ((N` (AG(iSB)))^2)) - ((N` (AG(-u1SB)))^2)) e. CC)
9 axicn 5242 . . . . . . . . . 10 |- i e. CC
101, 2, 3, 4, 5ipval2lem4 8290 . . . . . . . . . 10 |- (((U e. NrmCVec /\ A e. X /\ B e. X) /\ i e. CC) -> ((N` (AG(iSB)))^2) e. CC)
119, 10mpan2 694 . . . . . . . . 9 |- ((U e. NrmCVec /\ A e. X /\ B e. X) -> ((N` (AG(iSB)))^2) e. CC)
12 axmulcl 5245 . . . . . . . . . 10 |- ((i e. CC /\ ((N` (AG(iSB)))^2) e. CC) -> (i x. ((N` (AG(iSB)))^2)) e. CC)
139, 12mpan 693 . . . . . . . . 9 |- (((N` (AG(iSB)))^2) e. CC -> (i x. ((N` (AG(iSB)))^2)) e. CC)
1411, 13syl 10 . . . . . . . 8 |- ((U e. NrmCVec /\ A e. X /\ B e. X) -> (i x. ((N` (AG(iSB)))^2)) e. CC)
15 ax1cn 5241 . . . . . . . . . 10 |- 1 e. CC
1615negcl 5341 . . . . . . . . 9 |- -u1 e. CC
171, 2, 3, 4, 5ipval2lem4 8290 . . . . . . . . 9 |- (((U e. NrmCVec /\ A e. X /\ B e. X) /\ -u1 e. CC) -> ((N` (AG(-u1SB)))^2) e. CC)
1816, 17mpan2 694 . . . . . . . 8 |- ((U e. NrmCVec /\ A e. X /\ B e. X) -> ((N` (AG(-u1SB)))^2) e. CC)
198, 14, 18sylanc 471 . . . . . . 7 |- ((U e. NrmCVec /\ A e. X /\ B e. X) -> ((i x. ((N` (AG(iSB)))^2)) - ((N` (AG(-u1SB)))^2)) e. CC)
209negcl 5341 . . . . . . . . 9 |- -ui e. CC
211, 2, 3, 4, 5ipval2lem4 8290 . . . . . . . . 9 |- (((U e. NrmCVec /\ A e. X /\ B e. X) /\ -ui e. CC) -> ((N` (AG(-uiSB)))^2) e. CC)
2220, 21mpan2 694 . . . . . . . 8 |- ((U e. NrmCVec /\ A e. X /\ B e. X) -> ((N` (AG(-uiSB)))^2) e. CC)
23 axmulcl 5245 . . . . . . . . 9 |- ((i e. CC /\ ((N` (AG(-uiSB)))^2) e. CC) -> (i x. ((N` (AG(-uiSB)))^2)) e. CC)
249, 23mpan 693 . . . . . . . 8 |- (((N` (AG(-uiSB)))^2) e. CC -> (i x. ((N` (AG(-uiSB)))^2)) e. CC)
2522, 24syl 10 . . . . . . 7 |- ((U e. NrmCVec /\ A e. X /\ B e. X) -> (i x. ((N` (AG(-uiSB)))^2)) e. CC)
267, 19, 25sylanc 471 . . . . . 6 |- ((U e. NrmCVec /\ A e. X /\ B e. X) -> (((i x. ((N` (AG(iSB)))^2)) - ((N` (AG(-u1SB)))^2)) + -u(i x. ((N` (AG(-uiSB)))^2))) = (((i x. ((N` (AG(iSB)))^2)) - ((N` (AG(-u1SB)))^2)) - (i x. ((N` (AG(-uiSB)))^2))))
27 mulm1t 5443 . . . . . . . . . 10 |- (((N` (AG(-u1SB)))^2) e. CC -> (-u1 x. ((N` (AG(-u1SB)))^2)) = -u((N` (AG(-u1SB)))^2))
2818, 27syl 10 . . . . . . . . 9 |- ((U e. NrmCVec /\ A e. X /\ B e. X) -> (-u1 x. ((N` (AG(-u1SB)))^2)) = -u((N` (AG(-u1SB)))^2))
2928opreq2d 3961 . . . . . . . 8 |- ((U e. NrmCVec /\ A e. X /\ B e. X) -> ((i x. ((N` (AG(iSB)))^2)) + (-u1 x. ((N` (AG(-u1SB)))^2))) = ((i x. ((N` (AG(iSB)))^2)) + -u((N` (AG(-u1SB)))^2)))
30 negsubt 5354 . . . . . . . . 9 |- (((i x. ((N` (AG(iSB)))^2)) e. CC /\ ((N` (AG(-u1SB)))^2) e. CC) -> ((i x. ((N` (AG(iSB)))^2)) + -u((N` (AG(-u1SB)))^2)) = ((i x. ((N` (AG(iSB)))^2)) - ((N` (AG(-u1SB)))^2)))
3130, 14, 18sylanc 471 . . . . . . . 8 |- ((U e. NrmCVec /\ A e. X /\ B e. X) -> ((i x. ((N` (AG(iSB)))^2)) + -u((N` (AG(-u1SB)))^2)) = ((i x. ((N` (AG(iSB)))^2)) - ((N` (AG(-u1SB)))^2)))
3229, 31eqtrd 1499 . . . . . . 7 |- ((U e. NrmCVec /\ A e. X /\ B e. X) -> ((i x. ((N` (AG(iSB)))^2)) + (-u1 x. ((N` (AG(-u1SB)))^2))) = ((i x. ((N` (AG(iSB)))^2)) - ((N` (AG(-u1SB)))^2)))
33 mulneg1t 5423 . . . . . . . . 9 |- ((i e. CC /\ ((N` (AG(-uiSB)))^2) e. CC) -> (-ui x. ((N` (AG(-uiSB)))^2)) = -u(i x. ((N` (AG(-uiSB)))^2)))
349, 33mpan 693 . . . . . . . 8 |- (((N` (AG(-uiSB)))^2) e. CC -> (-ui x. ((N` (AG(-uiSB)))^2)) = -u(i x. ((N` (AG(-uiSB)))^2)))
3522, 34syl 10 . . . . . . 7 |- ((U e. NrmCVec /\ A e. X /\ B e. X) -> (-ui x. ((N` (AG(-uiSB)))^2)) = -u(i x. ((N` (AG(-uiSB)))^2)))
3632, 35opreq12d 3963 . . . . . 6 |- ((U e. NrmCVec /\ A e. X /\ B e. X) -> (((i x. ((N` (AG(iSB)))^2)) + (-u1 x. ((N` (AG(-u1SB)))^2