ipval2 - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > ipval2		Structured version Visualization version GIF version

Theorem ipval2 29069

Description: Expansion of the inner product value ipval 29065. (Contributed by NM, 31-Jan-2007.) (Revised by Mario Carneiro, 5-May-2014.) (New usage is discouraged.)

**Hypotheses**
Ref	Expression
dipfval.1	⊢ 𝑋 = (BaseSet‘𝑈)
dipfval.2	⊢ 𝐺 = ( +_𝑣 ‘𝑈)
dipfval.4	⊢ 𝑆 = ( ·_𝑠OLD ‘𝑈)
dipfval.6	⊢ 𝑁 = (norm_CV‘𝑈)
dipfval.7	⊢ 𝑃 = (·_𝑖OLD‘𝑈)

**Assertion**
Ref	Expression
ipval2	⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝐴𝑃𝐵) = (((((𝑁‘(𝐴𝐺𝐵))↑2) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) + (i · (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2)))) / 4))

Proof of Theorem ipval2 Dummy variable 𝑘 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		dipfval.1	. . 3 ⊢ 𝑋 = (BaseSet‘𝑈)
2		dipfval.2	. . 3 ⊢ 𝐺 = ( +_𝑣 ‘𝑈)
3		dipfval.4	. . 3 ⊢ 𝑆 = ( ·_𝑠OLD ‘𝑈)
4		dipfval.6	. . 3 ⊢ 𝑁 = (norm_CV‘𝑈)
5		dipfval.7	. . 3 ⊢ 𝑃 = (·_𝑖OLD‘𝑈)
6	1, 2, 3, 4, 5	ipval 29065	. 2 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝐴𝑃𝐵) = (Σ𝑘 ∈ (1...4)((i↑𝑘) · ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2)) / 4))
7		ax-icn 10930	. . . . . . . . 9 ⊢ i ∈ ℂ
8	1, 2, 3, 4, 5	ipval2lem4 29068	. . . . . . . . . 10 ⊢ (((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ i ∈ ℂ) → ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) ∈ ℂ)
9	7, 8	mpan2 688	. . . . . . . . 9 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) ∈ ℂ)
10		mulcl 10955	. . . . . . . . 9 ⊢ ((i ∈ ℂ ∧ ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) ∈ ℂ) → (i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) ∈ ℂ)
11	7, 9, 10	sylancr 587	. . . . . . . 8 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) ∈ ℂ)
12		neg1cn 12087	. . . . . . . . 9 ⊢ -1 ∈ ℂ
13	1, 2, 3, 4, 5	ipval2lem4 29068	. . . . . . . . 9 ⊢ (((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ -1 ∈ ℂ) → ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2) ∈ ℂ)
14	12, 13	mpan2 688	. . . . . . . 8 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2) ∈ ℂ)
15	11, 14	subcld 11332	. . . . . . 7 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) ∈ ℂ)
16		negicn 11222	. . . . . . . . 9 ⊢ -i ∈ ℂ
17	1, 2, 3, 4, 5	ipval2lem4 29068	. . . . . . . . 9 ⊢ (((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ -i ∈ ℂ) → ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2) ∈ ℂ)
18	16, 17	mpan2 688	. . . . . . . 8 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2) ∈ ℂ)
19		mulcl 10955	. . . . . . . 8 ⊢ ((i ∈ ℂ ∧ ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2) ∈ ℂ) → (i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2)) ∈ ℂ)
20	7, 18, 19	sylancr 587	. . . . . . 7 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2)) ∈ ℂ)
21	15, 20	negsubd 11338	. . . . . 6 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) + -(i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) = (((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) − (i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))))
22	14	mulm1d 11427	. . . . . . . . 9 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (-1 · ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) = -((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2))
23	22	oveq2d 7291	. . . . . . . 8 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) + (-1 · ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2))) = ((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) + -((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)))
24	11, 14	negsubd 11338	. . . . . . . 8 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) + -((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) = ((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)))
25	23, 24	eqtrd 2778	. . . . . . 7 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) + (-1 · ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2))) = ((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)))
26		mulneg1 11411	. . . . . . . 8 ⊢ ((i ∈ ℂ ∧ ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2) ∈ ℂ) → (-i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2)) = -(i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2)))
27	7, 18, 26	sylancr 587	. . . . . . 7 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (-i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2)) = -(i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2)))
28	25, 27	oveq12d 7293	. . . . . 6 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) + (-1 · ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2))) + (-i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) = (((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) + -(i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))))
29		subdi 11408	. . . . . . . . . 10 ⊢ ((i ∈ ℂ ∧ ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) ∈ ℂ ∧ ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2) ∈ ℂ) → (i · (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) = ((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) − (i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))))
30	7, 29	mp3an1 1447	. . . . . . . . 9 ⊢ ((((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) ∈ ℂ ∧ ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2) ∈ ℂ) → (i · (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) = ((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) − (i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))))
31	9, 18, 30	syl2anc 584	. . . . . . . 8 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (i · (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) = ((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) − (i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))))
32	31	oveq1d 7290	. . . . . . 7 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((i · (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) = (((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) − (i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)))
33	11, 20, 14	sub32d 11364	. . . . . . 7 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) − (i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) = (((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) − (i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))))
34	32, 33	eqtrd 2778	. . . . . 6 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((i · (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) = (((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) − (i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))))
35	21, 28, 34	3eqtr4d 2788	. . . . 5 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) + (-1 · ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2))) + (-i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) = ((i · (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)))
36	1, 3	nvsid 28989	. . . . . . . . . . 11 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐵 ∈ 𝑋) → (1𝑆𝐵) = 𝐵)
37	36	oveq2d 7291	. . . . . . . . . 10 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐵 ∈ 𝑋) → (𝐴𝐺(1𝑆𝐵)) = (𝐴𝐺𝐵))
38	37	fveq2d 6778	. . . . . . . . 9 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐵 ∈ 𝑋) → (𝑁‘(𝐴𝐺(1𝑆𝐵))) = (𝑁‘(𝐴𝐺𝐵)))
39	38	oveq1d 7290	. . . . . . . 8 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐵 ∈ 𝑋) → ((𝑁‘(𝐴𝐺(1𝑆𝐵)))↑2) = ((𝑁‘(𝐴𝐺𝐵))↑2))
40	39	3adant2 1130	. . . . . . 7 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((𝑁‘(𝐴𝐺(1𝑆𝐵)))↑2) = ((𝑁‘(𝐴𝐺𝐵))↑2))
41	40	oveq2d 7291	. . . . . 6 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (1 · ((𝑁‘(𝐴𝐺(1𝑆𝐵)))↑2)) = (1 · ((𝑁‘(𝐴𝐺𝐵))↑2)))
42	1, 2, 3, 4, 5	ipval2lem3 29067	. . . . . . . 8 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((𝑁‘(𝐴𝐺𝐵))↑2) ∈ ℝ)
43	42	recnd 11003	. . . . . . 7 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((𝑁‘(𝐴𝐺𝐵))↑2) ∈ ℂ)
44	43	mulid2d 10993	. . . . . 6 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (1 · ((𝑁‘(𝐴𝐺𝐵))↑2)) = ((𝑁‘(𝐴𝐺𝐵))↑2))
45	41, 44	eqtrd 2778	. . . . 5 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (1 · ((𝑁‘(𝐴𝐺(1𝑆𝐵)))↑2)) = ((𝑁‘(𝐴𝐺𝐵))↑2))
46	35, 45	oveq12d 7293	. . . 4 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) + (-1 · ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2))) + (-i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) + (1 · ((𝑁‘(𝐴𝐺(1𝑆𝐵)))↑2))) = (((i · (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) + ((𝑁‘(𝐴𝐺𝐵))↑2)))
47		nnuz 12621	. . . . . 6 ⊢ ℕ = (ℤ_≥‘1)
48		df-4 12038	. . . . . 6 ⊢ 4 = (3 + 1)
49		oveq2 7283	. . . . . . . 8 ⊢ (𝑘 = 4 → (i↑𝑘) = (i↑4))
50		i4 13921	. . . . . . . 8 ⊢ (i↑4) = 1
51	49, 50	eqtrdi 2794	. . . . . . 7 ⊢ (𝑘 = 4 → (i↑𝑘) = 1)
52	51	oveq1d 7290	. . . . . . . . . 10 ⊢ (𝑘 = 4 → ((i↑𝑘)𝑆𝐵) = (1𝑆𝐵))
53	52	oveq2d 7291	. . . . . . . . 9 ⊢ (𝑘 = 4 → (𝐴𝐺((i↑𝑘)𝑆𝐵)) = (𝐴𝐺(1𝑆𝐵)))
54	53	fveq2d 6778	. . . . . . . 8 ⊢ (𝑘 = 4 → (𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵))) = (𝑁‘(𝐴𝐺(1𝑆𝐵))))
55	54	oveq1d 7290	. . . . . . 7 ⊢ (𝑘 = 4 → ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2) = ((𝑁‘(𝐴𝐺(1𝑆𝐵)))↑2))
56	51, 55	oveq12d 7293	. . . . . 6 ⊢ (𝑘 = 4 → ((i↑𝑘) · ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2)) = (1 · ((𝑁‘(𝐴𝐺(1𝑆𝐵)))↑2)))
57		nnnn0 12240	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℕ₀)
58		expcl 13800	. . . . . . . . 9 ⊢ ((i ∈ ℂ ∧ 𝑘 ∈ ℕ₀) → (i↑𝑘) ∈ ℂ)
59	7, 57, 58	sylancr 587	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (i↑𝑘) ∈ ℂ)
60	59	adantl 482	. . . . . . 7 ⊢ (((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑘 ∈ ℕ) → (i↑𝑘) ∈ ℂ)
61	1, 2, 3, 4, 5	ipval2lem4 29068	. . . . . . . 8 ⊢ (((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ (i↑𝑘) ∈ ℂ) → ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2) ∈ ℂ)
62	59, 61	sylan2 593	. . . . . . 7 ⊢ (((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑘 ∈ ℕ) → ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2) ∈ ℂ)
63	60, 62	mulcld 10995	. . . . . 6 ⊢ (((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) ∧ 𝑘 ∈ ℕ) → ((i↑𝑘) · ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2)) ∈ ℂ)
64		df-3 12037	. . . . . . 7 ⊢ 3 = (2 + 1)
65		oveq2 7283	. . . . . . . . 9 ⊢ (𝑘 = 3 → (i↑𝑘) = (i↑3))
66		i3 13920	. . . . . . . . 9 ⊢ (i↑3) = -i
67	65, 66	eqtrdi 2794	. . . . . . . 8 ⊢ (𝑘 = 3 → (i↑𝑘) = -i)
68	67	oveq1d 7290	. . . . . . . . . . 11 ⊢ (𝑘 = 3 → ((i↑𝑘)𝑆𝐵) = (-i𝑆𝐵))
69	68	oveq2d 7291	. . . . . . . . . 10 ⊢ (𝑘 = 3 → (𝐴𝐺((i↑𝑘)𝑆𝐵)) = (𝐴𝐺(-i𝑆𝐵)))
70	69	fveq2d 6778	. . . . . . . . 9 ⊢ (𝑘 = 3 → (𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵))) = (𝑁‘(𝐴𝐺(-i𝑆𝐵))))
71	70	oveq1d 7290	. . . . . . . 8 ⊢ (𝑘 = 3 → ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2) = ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))
72	67, 71	oveq12d 7293	. . . . . . 7 ⊢ (𝑘 = 3 → ((i↑𝑘) · ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2)) = (-i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2)))
73		df-2 12036	. . . . . . . 8 ⊢ 2 = (1 + 1)
74		oveq2 7283	. . . . . . . . . 10 ⊢ (𝑘 = 2 → (i↑𝑘) = (i↑2))
75		i2 13919	. . . . . . . . . 10 ⊢ (i↑2) = -1
76	74, 75	eqtrdi 2794	. . . . . . . . 9 ⊢ (𝑘 = 2 → (i↑𝑘) = -1)
77	76	oveq1d 7290	. . . . . . . . . . . 12 ⊢ (𝑘 = 2 → ((i↑𝑘)𝑆𝐵) = (-1𝑆𝐵))
78	77	oveq2d 7291	. . . . . . . . . . 11 ⊢ (𝑘 = 2 → (𝐴𝐺((i↑𝑘)𝑆𝐵)) = (𝐴𝐺(-1𝑆𝐵)))
79	78	fveq2d 6778	. . . . . . . . . 10 ⊢ (𝑘 = 2 → (𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵))) = (𝑁‘(𝐴𝐺(-1𝑆𝐵))))
80	79	oveq1d 7290	. . . . . . . . 9 ⊢ (𝑘 = 2 → ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2) = ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2))
81	76, 80	oveq12d 7293	. . . . . . . 8 ⊢ (𝑘 = 2 → ((i↑𝑘) · ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2)) = (-1 · ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)))
82		1z 12350	. . . . . . . . . 10 ⊢ 1 ∈ ℤ
83		oveq2 7283	. . . . . . . . . . . . 13 ⊢ (𝑘 = 1 → (i↑𝑘) = (i↑1))
84		exp1 13788	. . . . . . . . . . . . . 14 ⊢ (i ∈ ℂ → (i↑1) = i)
85	7, 84	ax-mp 5	. . . . . . . . . . . . 13 ⊢ (i↑1) = i
86	83, 85	eqtrdi 2794	. . . . . . . . . . . 12 ⊢ (𝑘 = 1 → (i↑𝑘) = i)
87	86	oveq1d 7290	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 1 → ((i↑𝑘)𝑆𝐵) = (i𝑆𝐵))
88	87	oveq2d 7291	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 1 → (𝐴𝐺((i↑𝑘)𝑆𝐵)) = (𝐴𝐺(i𝑆𝐵)))
89	88	fveq2d 6778	. . . . . . . . . . . . 13 ⊢ (𝑘 = 1 → (𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵))) = (𝑁‘(𝐴𝐺(i𝑆𝐵))))
90	89	oveq1d 7290	. . . . . . . . . . . 12 ⊢ (𝑘 = 1 → ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2) = ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2))
91	86, 90	oveq12d 7293	. . . . . . . . . . 11 ⊢ (𝑘 = 1 → ((i↑𝑘) · ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2)) = (i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)))
92	91	fsum1 15459	. . . . . . . . . 10 ⊢ ((1 ∈ ℤ ∧ (i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) ∈ ℂ) → Σ𝑘 ∈ (1...1)((i↑𝑘) · ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2)) = (i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)))
93	82, 11, 92	sylancr 587	. . . . . . . . 9 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → Σ𝑘 ∈ (1...1)((i↑𝑘) · ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2)) = (i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)))
94		1nn 11984	. . . . . . . . 9 ⊢ 1 ∈ ℕ
95	93, 94	jctil 520	. . . . . . . 8 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (1 ∈ ℕ ∧ Σ𝑘 ∈ (1...1)((i↑𝑘) · ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2)) = (i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2))))
96		eqidd 2739	. . . . . . . 8 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) + (-1 · ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2))) = ((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) + (-1 · ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2))))
97	47, 73, 81, 63, 95, 96	fsump1i 15481	. . . . . . 7 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (2 ∈ ℕ ∧ Σ𝑘 ∈ (1...2)((i↑𝑘) · ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2)) = ((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) + (-1 · ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)))))
98		eqidd 2739	. . . . . . 7 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) + (-1 · ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2))) + (-i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) = (((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) + (-1 · ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2))) + (-i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))))
99	47, 64, 72, 63, 97, 98	fsump1i 15481	. . . . . 6 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (3 ∈ ℕ ∧ Σ𝑘 ∈ (1...3)((i↑𝑘) · ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2)) = (((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) + (-1 · ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2))) + (-i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2)))))
100		eqidd 2739	. . . . . 6 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) + (-1 · ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2))) + (-i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) + (1 · ((𝑁‘(𝐴𝐺(1𝑆𝐵)))↑2))) = ((((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) + (-1 · ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2))) + (-i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) + (1 · ((𝑁‘(𝐴𝐺(1𝑆𝐵)))↑2))))
101	47, 48, 56, 63, 99, 100	fsump1i 15481	. . . . 5 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (4 ∈ ℕ ∧ Σ𝑘 ∈ (1...4)((i↑𝑘) · ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2)) = ((((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) + (-1 · ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2))) + (-i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) + (1 · ((𝑁‘(𝐴𝐺(1𝑆𝐵)))↑2)))))
102	101	simprd 496	. . . 4 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → Σ𝑘 ∈ (1...4)((i↑𝑘) · ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2)) = ((((i · ((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2)) + (-1 · ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2))) + (-i · ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) + (1 · ((𝑁‘(𝐴𝐺(1𝑆𝐵)))↑2))))
103	43, 14	subcld 11332	. . . . . 6 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (((𝑁‘(𝐴𝐺𝐵))↑2) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) ∈ ℂ)
104	9, 18	subcld 11332	. . . . . . 7 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2)) ∈ ℂ)
105		mulcl 10955	. . . . . . 7 ⊢ ((i ∈ ℂ ∧ (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2)) ∈ ℂ) → (i · (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) ∈ ℂ)
106	7, 104, 105	sylancr 587	. . . . . 6 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (i · (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) ∈ ℂ)
107	103, 106	addcomd 11177	. . . . 5 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((((𝑁‘(𝐴𝐺𝐵))↑2) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) + (i · (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2)))) = ((i · (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) + (((𝑁‘(𝐴𝐺𝐵))↑2) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2))))
108	106, 14, 43	subadd23d 11354	. . . . 5 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (((i · (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) + ((𝑁‘(𝐴𝐺𝐵))↑2)) = ((i · (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) + (((𝑁‘(𝐴𝐺𝐵))↑2) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2))))
109	107, 108	eqtr4d 2781	. . . 4 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → ((((𝑁‘(𝐴𝐺𝐵))↑2) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) + (i · (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2)))) = (((i · (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2))) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) + ((𝑁‘(𝐴𝐺𝐵))↑2)))
110	46, 102, 109	3eqtr4d 2788	. . 3 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → Σ𝑘 ∈ (1...4)((i↑𝑘) · ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2)) = ((((𝑁‘(𝐴𝐺𝐵))↑2) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) + (i · (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2)))))
111	110	oveq1d 7290	. 2 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (Σ𝑘 ∈ (1...4)((i↑𝑘) · ((𝑁‘(𝐴𝐺((i↑𝑘)𝑆𝐵)))↑2)) / 4) = (((((𝑁‘(𝐴𝐺𝐵))↑2) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) + (i · (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2)))) / 4))
112	6, 111	eqtrd 2778	1 ⊢ ((𝑈 ∈ NrmCVec ∧ 𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑋) → (𝐴𝑃𝐵) = (((((𝑁‘(𝐴𝐺𝐵))↑2) − ((𝑁‘(𝐴𝐺(-1𝑆𝐵)))↑2)) + (i · (((𝑁‘(𝐴𝐺(i𝑆𝐵)))↑2) − ((𝑁‘(𝐴𝐺(-i𝑆𝐵)))↑2)))) / 4))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 396 ∧ w3a 1086 = wceq 1539 ∈ wcel 2106 ‘cfv 6433 (class class class)co 7275 ℂcc 10869 1c1 10872 ici 10873 + caddc 10874 · cmul 10876 − cmin 11205 -cneg 11206 / cdiv 11632 ℕcn 11973 2c2 12028 3c3 12029 4c4 12030 ℕ₀cn0 12233 ℤcz 12319 ...cfz 13239 ↑cexp 13782 Σcsu 15397 NrmCVeccnv 28946 +_𝑣 cpv 28947 BaseSetcba 28948 ·_𝑠OLD cns 28949 norm_CVcnmcv 28952 ·_𝑖OLDcdip 29062

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 ax-5 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2709 ax-rep 5209 ax-sep 5223 ax-nul 5230 ax-pow 5288 ax-pr 5352 ax-un 7588 ax-inf2 9399 ax-cnex 10927 ax-resscn 10928 ax-1cn 10929 ax-icn 10930 ax-addcl 10931 ax-addrcl 10932 ax-mulcl 10933 ax-mulrcl 10934 ax-mulcom 10935 ax-addass 10936 ax-mulass 10937 ax-distr 10938 ax-i2m1 10939 ax-1ne0 10940 ax-1rid 10941 ax-rnegex 10942 ax-rrecex 10943 ax-cnre 10944 ax-pre-lttri 10945 ax-pre-lttrn 10946 ax-pre-ltadd 10947 ax-pre-mulgt0 10948 ax-pre-sup 10949

This theorem depends on definitions: df-bi 206 df-an 397 df-or 845 df-3or 1087 df-3an 1088 df-tru 1542 df-fal 1552 df-ex 1783 df-nf 1787 df-sb 2068 df-mo 2540 df-eu 2569 df-clab 2716 df-cleq 2730 df-clel 2816 df-nfc 2889 df-ne 2944 df-nel 3050 df-ral 3069 df-rex 3070 df-rmo 3071 df-reu 3072 df-rab 3073 df-v 3434 df-sbc 3717 df-csb 3833 df-dif 3890 df-un 3892 df-in 3894 df-ss 3904 df-pss 3906 df-nul 4257 df-if 4460 df-pw 4535 df-sn 4562 df-pr 4564 df-op 4568 df-uni 4840 df-int 4880 df-iun 4926 df-br 5075 df-opab 5137 df-mpt 5158 df-tr 5192 df-id 5489 df-eprel 5495 df-po 5503 df-so 5504 df-fr 5544 df-se 5545 df-we 5546 df-xp 5595 df-rel 5596 df-cnv 5597 df-co 5598 df-dm 5599 df-rn 5600 df-res 5601 df-ima 5602 df-pred 6202 df-ord 6269 df-on 6270 df-lim 6271 df-suc 6272 df-iota 6391 df-fun 6435 df-fn 6436 df-f 6437 df-f1 6438 df-fo 6439 df-f1o 6440 df-fv 6441 df-isom 6442 df-riota 7232 df-ov 7278 df-oprab 7279 df-mpo 7280 df-om 7713 df-1st 7831 df-2nd 7832 df-frecs 8097 df-wrecs 8128 df-recs 8202 df-rdg 8241 df-1o 8297 df-er 8498 df-en 8734 df-dom 8735 df-sdom 8736 df-fin 8737 df-sup 9201 df-oi 9269 df-card 9697 df-pnf 11011 df-mnf 11012 df-xr 11013 df-ltxr 11014 df-le 11015 df-sub 11207 df-neg 11208 df-div 11633 df-nn 11974 df-2 12036 df-3 12037 df-4 12038 df-n0 12234 df-z 12320 df-uz 12583 df-rp 12731 df-fz 13240 df-fzo 13383 df-seq 13722 df-exp 13783 df-hash 14045 df-cj 14810 df-re 14811 df-im 14812 df-sqrt 14946 df-abs 14947 df-clim 15197 df-sum 15398 df-grpo 28855 df-ablo 28907 df-vc 28921 df-nv 28954 df-va 28957 df-ba 28958 df-sm 28959 df-0v 28960 df-nmcv 28962 df-dip 29063

This theorem is referenced by: 4ipval2 29070 ipval3 29071 ipidsq 29072 dipcj 29076 dip0r 29079

W3C validator