pjthlem1 - Metamath Proof Explorer

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

Theorem pjthlem1 24041

Description: Lemma for pjth 24043. (Contributed by NM, 10-Oct-1999.) (Revised by Mario Carneiro, 17-Oct-2015.) (Proof shortened by AV, 10-Jul-2022.)

**Hypotheses**
Ref	Expression
pjthlem.v	⊢ 𝑉 = (Base‘𝑊)
pjthlem.n	⊢ 𝑁 = (norm‘𝑊)
pjthlem.p	⊢ + = (+_g‘𝑊)
pjthlem.m	⊢ − = (-_g‘𝑊)
pjthlem.h	⊢ , = (·_𝑖‘𝑊)
pjthlem.l	⊢ 𝐿 = (LSubSp‘𝑊)
pjthlem.1	⊢ (𝜑 → 𝑊 ∈ ℂHil)
pjthlem.2	⊢ (𝜑 → 𝑈 ∈ 𝐿)
pjthlem.4	⊢ (𝜑 → 𝐴 ∈ 𝑉)
pjthlem.5	⊢ (𝜑 → 𝐵 ∈ 𝑈)
pjthlem.7	⊢ (𝜑 → ∀𝑥 ∈ 𝑈 (𝑁‘𝐴) ≤ (𝑁‘(𝐴 − 𝑥)))
pjthlem.8	⊢ 𝑇 = ((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))

**Assertion**
Ref	Expression
pjthlem1	⊢ (𝜑 → (𝐴 , 𝐵) = 0)

Distinct variable groups: 𝑥, − 𝑥,𝐴 𝑥,𝐵 𝑥,𝑁 𝜑,𝑥 𝑥,𝑈 𝑥,𝑉 𝑥,𝑇 𝑥,𝑊 Allowed substitution hints: + (𝑥) , (𝑥) 𝐿(𝑥)

**Proof of Theorem pjthlem1**
Step	Hyp	Ref	Expression
1		pjthlem.1	. . . 4 ⊢ (𝜑 → 𝑊 ∈ ℂHil)
2		hlcph 23968	. . . 4 ⊢ (𝑊 ∈ ℂHil → 𝑊 ∈ ℂPreHil)
3	1, 2	syl 17	. . 3 ⊢ (𝜑 → 𝑊 ∈ ℂPreHil)
4		pjthlem.4	. . 3 ⊢ (𝜑 → 𝐴 ∈ 𝑉)
5		pjthlem.2	. . . . 5 ⊢ (𝜑 → 𝑈 ∈ 𝐿)
6		pjthlem.v	. . . . . 6 ⊢ 𝑉 = (Base‘𝑊)
7		pjthlem.l	. . . . . 6 ⊢ 𝐿 = (LSubSp‘𝑊)
8	6, 7	lssss 19701	. . . . 5 ⊢ (𝑈 ∈ 𝐿 → 𝑈 ⊆ 𝑉)
9	5, 8	syl 17	. . . 4 ⊢ (𝜑 → 𝑈 ⊆ 𝑉)
10		pjthlem.5	. . . 4 ⊢ (𝜑 → 𝐵 ∈ 𝑈)
11	9, 10	sseldd 3916	. . 3 ⊢ (𝜑 → 𝐵 ∈ 𝑉)
12		pjthlem.h	. . . 4 ⊢ , = (·_𝑖‘𝑊)
13	6, 12	cphipcl 23796	. . 3 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑉) → (𝐴 , 𝐵) ∈ ℂ)
14	3, 4, 11, 13	syl3anc 1368	. 2 ⊢ (𝜑 → (𝐴 , 𝐵) ∈ ℂ)
15	14	abscld 14788	. . . 4 ⊢ (𝜑 → (abs‘(𝐴 , 𝐵)) ∈ ℝ)
16	15	recnd 10658	. . 3 ⊢ (𝜑 → (abs‘(𝐴 , 𝐵)) ∈ ℂ)
17	15	resqcld 13607	. . . . . . 7 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵))↑2) ∈ ℝ)
18	17	renegcld 11056	. . . . . 6 ⊢ (𝜑 → -((abs‘(𝐴 , 𝐵))↑2) ∈ ℝ)
19	6, 12	reipcl 23802	. . . . . . . . 9 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐵 ∈ 𝑉) → (𝐵 , 𝐵) ∈ ℝ)
20	3, 11, 19	syl2anc 587	. . . . . . . 8 ⊢ (𝜑 → (𝐵 , 𝐵) ∈ ℝ)
21		2re 11699	. . . . . . . 8 ⊢ 2 ∈ ℝ
22		readdcl 10609	. . . . . . . 8 ⊢ (((𝐵 , 𝐵) ∈ ℝ ∧ 2 ∈ ℝ) → ((𝐵 , 𝐵) + 2) ∈ ℝ)
23	20, 21, 22	sylancl 589	. . . . . . 7 ⊢ (𝜑 → ((𝐵 , 𝐵) + 2) ∈ ℝ)
24		0red 10633	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ ℝ)
25		peano2re 10802	. . . . . . . . 9 ⊢ ((𝐵 , 𝐵) ∈ ℝ → ((𝐵 , 𝐵) + 1) ∈ ℝ)
26	20, 25	syl 17	. . . . . . . 8 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ∈ ℝ)
27	6, 12	ipge0 23803	. . . . . . . . . 10 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐵 ∈ 𝑉) → 0 ≤ (𝐵 , 𝐵))
28	3, 11, 27	syl2anc 587	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (𝐵 , 𝐵))
29	20	ltp1d 11559	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 , 𝐵) < ((𝐵 , 𝐵) + 1))
30	24, 20, 26, 28, 29	lelttrd 10787	. . . . . . . 8 ⊢ (𝜑 → 0 < ((𝐵 , 𝐵) + 1))
31	26	ltp1d 11559	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) < (((𝐵 , 𝐵) + 1) + 1))
32		df-2 11688	. . . . . . . . . . 11 ⊢ 2 = (1 + 1)
33	32	oveq2i 7146	. . . . . . . . . 10 ⊢ ((𝐵 , 𝐵) + 2) = ((𝐵 , 𝐵) + (1 + 1))
34	20	recnd 10658	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐵 , 𝐵) ∈ ℂ)
35		ax-1cn 10584	. . . . . . . . . . . 12 ⊢ 1 ∈ ℂ
36		addass 10613	. . . . . . . . . . . 12 ⊢ (((𝐵 , 𝐵) ∈ ℂ ∧ 1 ∈ ℂ ∧ 1 ∈ ℂ) → (((𝐵 , 𝐵) + 1) + 1) = ((𝐵 , 𝐵) + (1 + 1)))
37	35, 35, 36	mp3an23 1450	. . . . . . . . . . 11 ⊢ ((𝐵 , 𝐵) ∈ ℂ → (((𝐵 , 𝐵) + 1) + 1) = ((𝐵 , 𝐵) + (1 + 1)))
38	34, 37	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1) + 1) = ((𝐵 , 𝐵) + (1 + 1)))
39	33, 38	eqtr4id 2852	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 , 𝐵) + 2) = (((𝐵 , 𝐵) + 1) + 1))
40	31, 39	breqtrrd 5058	. . . . . . . 8 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) < ((𝐵 , 𝐵) + 2))
41	24, 26, 23, 30, 40	lttrd 10790	. . . . . . 7 ⊢ (𝜑 → 0 < ((𝐵 , 𝐵) + 2))
42	23, 41	elrpd 12416	. . . . . 6 ⊢ (𝜑 → ((𝐵 , 𝐵) + 2) ∈ ℝ⁺)
43		oveq2 7143	. . . . . . . . . . . . . 14 ⊢ (𝑥 = (𝑇( ·_𝑠 ‘𝑊)𝐵) → (𝐴 − 𝑥) = (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))
44	43	fveq2d 6649	. . . . . . . . . . . . 13 ⊢ (𝑥 = (𝑇( ·_𝑠 ‘𝑊)𝐵) → (𝑁‘(𝐴 − 𝑥)) = (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
45	44	breq2d 5042	. . . . . . . . . . . 12 ⊢ (𝑥 = (𝑇( ·_𝑠 ‘𝑊)𝐵) → ((𝑁‘𝐴) ≤ (𝑁‘(𝐴 − 𝑥)) ↔ (𝑁‘𝐴) ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))))
46		pjthlem.7	. . . . . . . . . . . 12 ⊢ (𝜑 → ∀𝑥 ∈ 𝑈 (𝑁‘𝐴) ≤ (𝑁‘(𝐴 − 𝑥)))
47		cphlmod 23779	. . . . . . . . . . . . . 14 ⊢ (𝑊 ∈ ℂPreHil → 𝑊 ∈ LMod)
48	3, 47	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑊 ∈ LMod)
49		pjthlem.8	. . . . . . . . . . . . . 14 ⊢ 𝑇 = ((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))
50		hlphl 23969	. . . . . . . . . . . . . . . . 17 ⊢ (𝑊 ∈ ℂHil → 𝑊 ∈ PreHil)
51	1, 50	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑊 ∈ PreHil)
52		eqid 2798	. . . . . . . . . . . . . . . . 17 ⊢ (Scalar‘𝑊) = (Scalar‘𝑊)
53		eqid 2798	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘(Scalar‘𝑊)) = (Base‘(Scalar‘𝑊))
54	52, 12, 6, 53	ipcl 20322	. . . . . . . . . . . . . . . 16 ⊢ ((𝑊 ∈ PreHil ∧ 𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑉) → (𝐴 , 𝐵) ∈ (Base‘(Scalar‘𝑊)))
55	51, 4, 11, 54	syl3anc 1368	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴 , 𝐵) ∈ (Base‘(Scalar‘𝑊)))
56	52, 53	hlress 23972	. . . . . . . . . . . . . . . . 17 ⊢ (𝑊 ∈ ℂHil → ℝ ⊆ (Base‘(Scalar‘𝑊)))
57	1, 56	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ℝ ⊆ (Base‘(Scalar‘𝑊)))
58	57, 26	sseldd 3916	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ∈ (Base‘(Scalar‘𝑊)))
59	20, 28	ge0p1rpd 12449	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ∈ ℝ⁺)
60	59	rpne0d 12424	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ≠ 0)
61	52, 53	cphdivcl 23787	. . . . . . . . . . . . . . 15 ⊢ ((𝑊 ∈ ℂPreHil ∧ ((𝐴 , 𝐵) ∈ (Base‘(Scalar‘𝑊)) ∧ ((𝐵 , 𝐵) + 1) ∈ (Base‘(Scalar‘𝑊)) ∧ ((𝐵 , 𝐵) + 1) ≠ 0)) → ((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1)) ∈ (Base‘(Scalar‘𝑊)))
62	3, 55, 58, 60, 61	syl13anc 1369	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1)) ∈ (Base‘(Scalar‘𝑊)))
63	49, 62	eqeltrid 2894	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑇 ∈ (Base‘(Scalar‘𝑊)))
64		eqid 2798	. . . . . . . . . . . . . 14 ⊢ ( ·_𝑠 ‘𝑊) = ( ·_𝑠 ‘𝑊)
65	52, 64, 53, 7	lssvscl 19720	. . . . . . . . . . . . 13 ⊢ (((𝑊 ∈ LMod ∧ 𝑈 ∈ 𝐿) ∧ (𝑇 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝐵 ∈ 𝑈)) → (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑈)
66	48, 5, 63, 10, 65	syl22anc 837	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑈)
67	45, 46, 66	rspcdva 3573	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑁‘𝐴) ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
68		cphngp 23778	. . . . . . . . . . . . . 14 ⊢ (𝑊 ∈ ℂPreHil → 𝑊 ∈ NrmGrp)
69	3, 68	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑊 ∈ NrmGrp)
70		pjthlem.n	. . . . . . . . . . . . . 14 ⊢ 𝑁 = (norm‘𝑊)
71	6, 70	nmcl 23222	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ NrmGrp ∧ 𝐴 ∈ 𝑉) → (𝑁‘𝐴) ∈ ℝ)
72	69, 4, 71	syl2anc 587	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑁‘𝐴) ∈ ℝ)
73	6, 52, 64, 53	lmodvscl 19644	. . . . . . . . . . . . . . 15 ⊢ ((𝑊 ∈ LMod ∧ 𝑇 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝐵 ∈ 𝑉) → (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉)
74	48, 63, 11, 73	syl3anc 1368	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉)
75		pjthlem.m	. . . . . . . . . . . . . . 15 ⊢ − = (-_g‘𝑊)
76	6, 75	lmodvsubcl 19672	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ LMod ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉) → (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉)
77	48, 4, 74, 76	syl3anc 1368	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉)
78	6, 70	nmcl 23222	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ NrmGrp ∧ (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉) → (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) ∈ ℝ)
79	69, 77, 78	syl2anc 587	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) ∈ ℝ)
80	6, 70	nmge0 23223	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ NrmGrp ∧ 𝐴 ∈ 𝑉) → 0 ≤ (𝑁‘𝐴))
81	69, 4, 80	syl2anc 587	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝑁‘𝐴))
82	6, 70	nmge0 23223	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ NrmGrp ∧ (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉) → 0 ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
83	69, 77, 82	syl2anc 587	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
84	72, 79, 81, 83	le2sqd 13616	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘𝐴) ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) ↔ ((𝑁‘𝐴)↑2) ≤ ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2)))
85	67, 84	mpbid 235	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑁‘𝐴)↑2) ≤ ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2))
86	79	resqcld 13607	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) ∈ ℝ)
87	72	resqcld 13607	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘𝐴)↑2) ∈ ℝ)
88	86, 87	subge0d 11219	. . . . . . . . . 10 ⊢ (𝜑 → (0 ≤ (((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) − ((𝑁‘𝐴)↑2)) ↔ ((𝑁‘𝐴)↑2) ≤ ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2)))
89	85, 88	mpbird 260	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) − ((𝑁‘𝐴)↑2)))
90		2z 12002	. . . . . . . . . . . . . . . 16 ⊢ 2 ∈ ℤ
91		rpexpcl 13444	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐵 , 𝐵) + 1) ∈ ℝ⁺ ∧ 2 ∈ ℤ) → (((𝐵 , 𝐵) + 1)↑2) ∈ ℝ⁺)
92	59, 90, 91	sylancl 589	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1)↑2) ∈ ℝ⁺)
93	17, 92	rerpdivcld 12450	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) ∈ ℝ)
94	93, 23	remulcld 10660	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) ∈ ℝ)
95	94	recnd 10658	. . . . . . . . . . . 12 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) ∈ ℂ)
96	95	negcld 10973	. . . . . . . . . . 11 ⊢ (𝜑 → -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) ∈ ℂ)
97	6, 12	cphipcl 23796	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉 ∧ 𝐴 ∈ 𝑉) → (𝐴 , 𝐴) ∈ ℂ)
98	3, 4, 4, 97	syl3anc 1368	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 , 𝐴) ∈ ℂ)
99	96, 98	pncand 10987	. . . . . . . . . 10 ⊢ (𝜑 → ((-((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) + (𝐴 , 𝐴)) − (𝐴 , 𝐴)) = -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)))
100	6, 12, 70	nmsq 23799	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉) → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) = ((𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
101	3, 77, 100	syl2anc 587	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) = ((𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
102	12, 6, 75	cphsubdir 23813	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉 ∧ (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉)) → ((𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))))
103	3, 4, 74, 77, 102	syl13anc 1369	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))))
104	12, 6, 75	cphsubdi 23814	. . . . . . . . . . . . . . . 16 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝐴 ∈ 𝑉 ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉)) → (𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝐴 , 𝐴) − (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))))
105	3, 4, 4, 74, 104	syl13anc 1369	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝐴 , 𝐴) − (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))))
106	105	oveq1d 7150	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = (((𝐴 , 𝐴) − (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))))
107	6, 12	cphipcl 23796	. . . . . . . . . . . . . . . 16 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉) → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℂ)
108	3, 4, 74, 107	syl3anc 1368	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℂ)
109	12, 6, 75	cphsubdi 23814	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑊 ∈ ℂPreHil ∧ ((𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉 ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉)) → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = (((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵))))
110	3, 74, 4, 74, 109	syl13anc 1369	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = (((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵))))
111	6, 12	cphipcl 23796	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉 ∧ 𝐴 ∈ 𝑉) → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) ∈ ℂ)
112	3, 74, 4, 111	syl3anc 1368	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) ∈ ℂ)
113	6, 12	cphipcl 23796	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉) → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℂ)
114	3, 74, 74, 113	syl3anc 1368	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℂ)
115	112, 114	subcld 10986	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵))) ∈ ℂ)
116	110, 115	eqeltrd 2890	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) ∈ ℂ)
117	98, 108, 116	subsub4d 11017	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((𝐴 , 𝐴) − (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = ((𝐴 , 𝐴) − ((𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) + ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))))
118	93	recnd 10658	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) ∈ ℂ)
119	26	recnd 10658	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ∈ ℂ)
120		1cnd 10625	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 1 ∈ ℂ)
121	118, 119, 120	adddid 10654	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (((𝐵 , 𝐵) + 1) + 1)) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) + ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1)))
122	39	oveq2d 7151	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (((𝐵 , 𝐵) + 1) + 1)))
123	12, 6, 52, 53, 64	cphassr 23817	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝑇 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑉)) → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((∗‘𝑇) · (𝐴 , 𝐵)))
124	3, 63, 4, 11, 123	syl13anc 1369	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((∗‘𝑇) · (𝐴 , 𝐵)))
125	14, 119, 60	divcld 11405	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1)) ∈ ℂ)
126	49, 125	eqeltrid 2894	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑇 ∈ ℂ)
127	126	cjcld 14547	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (∗‘𝑇) ∈ ℂ)
128	127, 14	mulcomd 10651	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((∗‘𝑇) · (𝐴 , 𝐵)) = ((𝐴 , 𝐵) · (∗‘𝑇)))
129	14	cjcld 14547	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (∗‘(𝐴 , 𝐵)) ∈ ℂ)
130	14, 129, 119, 60	divassd 11440	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐴 , 𝐵) · (∗‘(𝐴 , 𝐵))) / ((𝐵 , 𝐵) + 1)) = ((𝐴 , 𝐵) · ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1))))
131	14	absvalsqd 14794	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵))↑2) = ((𝐴 , 𝐵) · (∗‘(𝐴 , 𝐵))))
132	131	oveq1d 7150	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)) = (((𝐴 , 𝐵) · (∗‘(𝐴 , 𝐵))) / ((𝐵 , 𝐵) + 1)))
133	49	fveq2i 6648	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (∗‘𝑇) = (∗‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1)))
134	14, 119, 60	cjdivd 14574	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (∗‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))) = ((∗‘(𝐴 , 𝐵)) / (∗‘((𝐵 , 𝐵) + 1))))
135	26	cjred 14577	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (∗‘((𝐵 , 𝐵) + 1)) = ((𝐵 , 𝐵) + 1))
136	135	oveq2d 7151	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((∗‘(𝐴 , 𝐵)) / (∗‘((𝐵 , 𝐵) + 1))) = ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
137	134, 136	eqtrd 2833	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (∗‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))) = ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
138	133, 137	syl5eq 2845	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (∗‘𝑇) = ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
139	138	oveq2d 7151	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝐴 , 𝐵) · (∗‘𝑇)) = ((𝐴 , 𝐵) · ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1))))
140	130, 132, 139	3eqtr4rd 2844	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝐴 , 𝐵) · (∗‘𝑇)) = (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)))
141	124, 128, 140	3eqtrd 2837	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)))
142	17	recnd 10658	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵))↑2) ∈ ℂ)
143	142, 119	mulcomd 10651	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 1)) = (((𝐵 , 𝐵) + 1) · ((abs‘(𝐴 , 𝐵))↑2)))
144	119	sqvald 13503	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1)↑2) = (((𝐵 , 𝐵) + 1) · ((𝐵 , 𝐵) + 1)))
145	143, 144	oveq12d 7153	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 1)) / (((𝐵 , 𝐵) + 1)↑2)) = ((((𝐵 , 𝐵) + 1) · ((abs‘(𝐴 , 𝐵))↑2)) / (((𝐵 , 𝐵) + 1) · ((𝐵 , 𝐵) + 1))))
146	142, 119, 119, 60, 60	divcan5d 11431	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((((𝐵 , 𝐵) + 1) · ((abs‘(𝐴 , 𝐵))↑2)) / (((𝐵 , 𝐵) + 1) · ((𝐵 , 𝐵) + 1))) = (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)))
147	145, 146	eqtr2d 2834	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)) = ((((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 1)) / (((𝐵 , 𝐵) + 1)↑2)))
148	92	rpcnd 12421	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1)↑2) ∈ ℂ)
149	92	rpne0d 12424	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1)↑2) ≠ 0)
150	142, 119, 148, 149	div23d 11442	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 1)) / (((𝐵 , 𝐵) + 1)↑2)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)))
151	141, 147, 150	3eqtrd 2837	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)))
152	93, 26	remulcld 10660	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) ∈ ℝ)
153	151, 152	eqeltrd 2890	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℝ)
154	153	cjred 14577	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (∗‘(𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) = (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)))
155	12, 6	cphipcj 23804	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉) → (∗‘(𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴))
156	3, 4, 74, 155	syl3anc 1368	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (∗‘(𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴))
157	154, 156, 151	3eqtr3d 2841	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)))
158	12, 6, 52, 53, 64	cph2ass 23818	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝑇 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝑇 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝐵 ∈ 𝑉 ∧ 𝐵 ∈ 𝑉)) → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((𝑇 · (∗‘𝑇)) · (𝐵 , 𝐵)))
159	3, 63, 63, 11, 11, 158	syl122anc 1376	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((𝑇 · (∗‘𝑇)) · (𝐵 , 𝐵)))
160	49	fveq2i 6648	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (abs‘𝑇) = (abs‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1)))
161	14, 119, 60	absdivd 14807	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → (abs‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))) = ((abs‘(𝐴 , 𝐵)) / (abs‘((𝐵 , 𝐵) + 1))))
162	59	rpge0d 12423	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 0 ≤ ((𝐵 , 𝐵) + 1))
163	26, 162	absidd 14774	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (abs‘((𝐵 , 𝐵) + 1)) = ((𝐵 , 𝐵) + 1))
164	163	oveq2d 7151	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵)) / (abs‘((𝐵 , 𝐵) + 1))) = ((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
165	161, 164	eqtrd 2833	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (abs‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))) = ((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
166	160, 165	syl5eq 2845	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (abs‘𝑇) = ((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
167	166	oveq1d 7150	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((abs‘𝑇)↑2) = (((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1))↑2))
168	126	absvalsqd 14794	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((abs‘𝑇)↑2) = (𝑇 · (∗‘𝑇)))
169	16, 119, 60	sqdivd 13519	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1))↑2) = (((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)))
170	167, 168, 169	3eqtr3d 2841	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (𝑇 · (∗‘𝑇)) = (((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)))
171	170	oveq1d 7150	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝑇 · (∗‘𝑇)) · (𝐵 , 𝐵)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵)))
172	159, 171	eqtrd 2833	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵)))
173	157, 172	oveq12d 7153	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵))) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵))))
174		pncan2 10882	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝐵 , 𝐵) ∈ ℂ ∧ 1 ∈ ℂ) → (((𝐵 , 𝐵) + 1) − (𝐵 , 𝐵)) = 1)
175	34, 35, 174	sylancl 589	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1) − (𝐵 , 𝐵)) = 1)
176	175	oveq2d 7151	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (((𝐵 , 𝐵) + 1) − (𝐵 , 𝐵))) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1))
177	118, 119, 34	subdid 11085	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (((𝐵 , 𝐵) + 1) − (𝐵 , 𝐵))) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵))))
178	176, 177	eqtr3d 2835	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵))))
179	173, 110, 178	3eqtr4d 2843	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1))
180	151, 179	oveq12d 7153	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) + ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) + ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1)))
181	121, 122, 180	3eqtr4rd 2844	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) + ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)))
182	181	oveq2d 7151	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐴 , 𝐴) − ((𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) + ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))) = ((𝐴 , 𝐴) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))))
183	106, 117, 182	3eqtrd 2837	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = ((𝐴 , 𝐴) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))))
184	101, 103, 183	3eqtrd 2837	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) = ((𝐴 , 𝐴) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))))
185	98, 95	negsubd 10992	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐴 , 𝐴) + -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))) = ((𝐴 , 𝐴) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))))
186	98, 96	addcomd 10831	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐴 , 𝐴) + -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))) = (-((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) + (𝐴 , 𝐴)))
187	184, 185, 186	3eqtr2d 2839	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) = (-((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) + (𝐴 , 𝐴)))
188	6, 12, 70	nmsq 23799	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉) → ((𝑁‘𝐴)↑2) = (𝐴 , 𝐴))
189	3, 4, 188	syl2anc 587	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘𝐴)↑2) = (𝐴 , 𝐴))
190	187, 189	oveq12d 7153	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) − ((𝑁‘𝐴)↑2)) = ((-((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) + (𝐴 , 𝐴)) − (𝐴 , 𝐴)))
191	23	renegcld 11056	. . . . . . . . . . . . 13 ⊢ (𝜑 → -((𝐵 , 𝐵) + 2) ∈ ℝ)
192	191	recnd 10658	. . . . . . . . . . . 12 ⊢ (𝜑 → -((𝐵 , 𝐵) + 2) ∈ ℂ)
193	142, 192, 148, 149	div23d 11442	. . . . . . . . . . 11 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · -((𝐵 , 𝐵) + 2)))
194	23	recnd 10658	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐵 , 𝐵) + 2) ∈ ℂ)
195	118, 194	mulneg2d 11083	. . . . . . . . . . 11 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · -((𝐵 , 𝐵) + 2)) = -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)))
196	193, 195	eqtrd 2833	. . . . . . . . . 10 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2)) = -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)))
197	99, 190, 196	3eqtr4rd 2844	. . . . . . . . 9 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2)) = (((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) − ((𝑁‘𝐴)↑2)))
198	89, 197	breqtrrd 5058	. . . . . . . 8 ⊢ (𝜑 → 0 ≤ ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2)))
199	17, 191	remulcld 10660	. . . . . . . . 9 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) ∈ ℝ)
200	199, 92	ge0divd 12457	. . . . . . . 8 ⊢ (𝜑 → (0 ≤ (((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) ↔ 0 ≤ ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2))))
201	198, 200	mpbird 260	. . . . . . 7 ⊢ (𝜑 → 0 ≤ (((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)))
202		mulneg12 11067	. . . . . . . 8 ⊢ ((((abs‘(𝐴 , 𝐵))↑2) ∈ ℂ ∧ ((𝐵 , 𝐵) + 2) ∈ ℂ) → (-((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 2)) = (((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)))
203	142, 194, 202	syl2anc 587	. . . . . . 7 ⊢ (𝜑 → (-((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 2)) = (((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)))
204	201, 203	breqtrrd 5058	. . . . . 6 ⊢ (𝜑 → 0 ≤ (-((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 2)))
205	18, 42, 204	prodge0ld 12485	. . . . 5 ⊢ (𝜑 → 0 ≤ -((abs‘(𝐴 , 𝐵))↑2))
206	17	le0neg1d 11200	. . . . 5 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) ≤ 0 ↔ 0 ≤ -((abs‘(𝐴 , 𝐵))↑2)))
207	205, 206	mpbird 260	. . . 4 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵))↑2) ≤ 0)
208	15	sqge0d 13608	. . . 4 ⊢ (𝜑 → 0 ≤ ((abs‘(𝐴 , 𝐵))↑2))
209		0re 10632	. . . . 5 ⊢ 0 ∈ ℝ
210		letri3 10715	. . . . 5 ⊢ ((((abs‘(𝐴 , 𝐵))↑2) ∈ ℝ ∧ 0 ∈ ℝ) → (((abs‘(𝐴 , 𝐵))↑2) = 0 ↔ (((abs‘(𝐴 , 𝐵))↑2) ≤ 0 ∧ 0 ≤ ((abs‘(𝐴 , 𝐵))↑2))))
211	17, 209, 210	sylancl 589	. . . 4 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) = 0 ↔ (((abs‘(𝐴 , 𝐵))↑2) ≤ 0 ∧ 0 ≤ ((abs‘(𝐴 , 𝐵))↑2))))
212	207, 208, 211	mpbir2and 712	. . 3 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵))↑2) = 0)
213	16, 212	sqeq0d 13505	. 2 ⊢ (𝜑 → (abs‘(𝐴 , 𝐵)) = 0)
214	14, 213	abs00d 14798	1 ⊢ (𝜑 → (𝐴 , 𝐵) = 0)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 209 ∧ wa 399 = wceq 1538 ∈ wcel 2111 ≠ wne 2987 ∀wral 3106 ⊆ wss 3881 class class class wbr 5030 ‘cfv 6324 (class class class)co 7135 ℂcc 10524 ℝcr 10525 0cc0 10526 1c1 10527 + caddc 10529 · cmul 10531 < clt 10664 ≤ cle 10665 − cmin 10859 -cneg 10860 / cdiv 11286 2c2 11680 ℤcz 11969 ℝ⁺crp 12377 ↑cexp 13425 ∗ccj 14447 abscabs 14585 Basecbs 16475 +_gcplusg 16557 Scalarcsca 16560 ·_𝑠 cvsca 16561 ·_𝑖cip 16562 -_gcsg 18097 LModclmod 19627 LSubSpclss 19696 PreHilcphl 20313 normcnm 23183 NrmGrpcngp 23184 ℂPreHilccph 23771 ℂHilchl 23938

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1911 ax-6 1970 ax-7 2015 ax-8 2113 ax-9 2121 ax-10 2142 ax-11 2158 ax-12 2175 ax-ext 2770 ax-rep 5154 ax-sep 5167 ax-nul 5174 ax-pow 5231 ax-pr 5295 ax-un 7441 ax-cnex 10582 ax-resscn 10583 ax-1cn 10584 ax-icn 10585 ax-addcl 10586 ax-addrcl 10587 ax-mulcl 10588 ax-mulrcl 10589 ax-mulcom 10590 ax-addass 10591 ax-mulass 10592 ax-distr 10593 ax-i2m1 10594 ax-1ne0 10595 ax-1rid 10596 ax-rnegex 10597 ax-rrecex 10598 ax-cnre 10599 ax-pre-lttri 10600 ax-pre-lttrn 10601 ax-pre-ltadd 10602 ax-pre-mulgt0 10603 ax-pre-sup 10604 ax-addf 10605 ax-mulf 10606

This theorem depends on definitions: df-bi 210 df-an 400 df-or 845 df-3or 1085 df-3an 1086 df-tru 1541 df-ex 1782 df-nf 1786 df-sb 2070 df-mo 2598 df-eu 2629 df-clab 2777 df-cleq 2791 df-clel 2870 df-nfc 2938 df-ne 2988 df-nel 3092 df-ral 3111 df-rex 3112 df-reu 3113 df-rmo 3114 df-rab 3115 df-v 3443 df-sbc 3721 df-csb 3829 df-dif 3884 df-un 3886 df-in 3888 df-ss 3898 df-pss 3900 df-nul 4244 df-if 4426 df-pw 4499 df-sn 4526 df-pr 4528 df-tp 4530 df-op 4532 df-uni 4801 df-int 4839 df-iun 4883 df-iin 4884 df-br 5031 df-opab 5093 df-mpt 5111 df-tr 5137 df-id 5425 df-eprel 5430 df-po 5438 df-so 5439 df-fr 5478 df-se 5479 df-we 5480 df-xp 5525 df-rel 5526 df-cnv 5527 df-co 5528 df-dm 5529 df-rn 5530 df-res 5531 df-ima 5532 df-pred 6116 df-ord 6162 df-on 6163 df-lim 6164 df-suc 6165 df-iota 6283 df-fun 6326 df-fn 6327 df-f 6328 df-f1 6329 df-fo 6330 df-f1o 6331 df-fv 6332 df-isom 6333 df-riota 7093 df-ov 7138 df-oprab 7139 df-mpo 7140 df-of 7389 df-om 7561 df-1st 7671 df-2nd 7672 df-supp 7814 df-tpos 7875 df-wrecs 7930 df-recs 7991 df-rdg 8029 df-1o 8085 df-2o 8086 df-oadd 8089 df-er 8272 df-map 8391 df-ixp 8445 df-en 8493 df-dom 8494 df-sdom 8495 df-fin 8496 df-fsupp 8818 df-fi 8859 df-sup 8890 df-inf 8891 df-oi 8958 df-card 9352 df-pnf 10666 df-mnf 10667 df-xr 10668 df-ltxr 10669 df-le 10670 df-sub 10861 df-neg 10862 df-div 11287 df-nn 11626 df-2 11688 df-3 11689 df-4 11690 df-5 11691 df-6 11692 df-7 11693 df-8 11694 df-9 11695 df-n0 11886 df-z 11970 df-dec 12087 df-uz 12232 df-q 12337 df-rp 12378 df-xneg 12495 df-xadd 12496 df-xmul 12497 df-ioo 12730 df-ico 12732 df-icc 12733 df-fz 12886 df-fzo 13029 df-seq 13365 df-exp 13426 df-hash 13687 df-cj 14450 df-re 14451 df-im 14452 df-sqrt 14586 df-abs 14587 df-struct 16477 df-ndx 16478 df-slot 16479 df-base 16481 df-sets 16482 df-ress 16483 df-plusg 16570 df-mulr 16571 df-starv 16572 df-sca 16573 df-vsca 16574 df-ip 16575 df-tset 16576 df-ple 16577 df-ds 16579 df-unif 16580 df-hom 16581 df-cco 16582 df-rest 16688 df-topn 16689 df-0g 16707 df-gsum 16708 df-topgen 16709 df-pt 16710 df-prds 16713 df-xrs 16767 df-qtop 16772 df-imas 16773 df-xps 16775 df-mre 16849 df-mrc 16850 df-acs 16852 df-mgm 17844 df-sgrp 17893 df-mnd 17904 df-mhm 17948 df-submnd 17949 df-grp 18098 df-minusg 18099 df-sbg 18100 df-mulg 18217 df-subg 18268 df-ghm 18348 df-cntz 18439 df-cmn 18900 df-mgp 19233 df-ur 19245 df-ring 19292 df-cring 19293 df-oppr 19369 df-dvdsr 19387 df-unit 19388 df-invr 19418 df-dvr 19429 df-rnghom 19463 df-drng 19497 df-subrg 19526 df-staf 19609 df-srng 19610 df-lmod 19629 df-lss 19697 df-lmhm 19787 df-lvec 19868 df-sra 19937 df-rgmod 19938 df-psmet 20083 df-xmet 20084 df-met 20085 df-bl 20086 df-mopn 20087 df-fbas 20088 df-fg 20089 df-cnfld 20092 df-phl 20315 df-top 21499 df-topon 21516 df-topsp 21538 df-bases 21551 df-cld 21624 df-ntr 21625 df-cls 21626 df-nei 21703 df-cn 21832 df-cnp 21833 df-haus 21920 df-cmp 21992 df-tx 22167 df-hmeo 22360 df-fil 22451 df-flim 22544 df-fcls 22546 df-xms 22927 df-ms 22928 df-tms 22929 df-nm 23189 df-ngp 23190 df-nlm 23193 df-cncf 23483 df-clm 23668 df-cph 23773 df-cfil 23859 df-cmet 23861 df-cms 23939 df-bn 23940 df-hl 23941

This theorem is referenced by: pjthlem2 24042

W3C validator