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 24040

Description: Lemma for pjth 24042. (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 23967	. . . 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 19708	. . . . 5 ⊢ (𝑈 ∈ 𝐿 → 𝑈 ⊆ 𝑉)
9	5, 8	syl 17	. . . 4 ⊢ (𝜑 → 𝑈 ⊆ 𝑉)
10		pjthlem.5	. . . 4 ⊢ (𝜑 → 𝐵 ∈ 𝑈)
11	9, 10	sseldd 3968	. . 3 ⊢ (𝜑 → 𝐵 ∈ 𝑉)
12		pjthlem.h	. . . 4 ⊢ , = (·_𝑖‘𝑊)
13	6, 12	cphipcl 23795	. . 3 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑉) → (𝐴 , 𝐵) ∈ ℂ)
14	3, 4, 11, 13	syl3anc 1367	. 2 ⊢ (𝜑 → (𝐴 , 𝐵) ∈ ℂ)
15	14	abscld 14796	. . . 4 ⊢ (𝜑 → (abs‘(𝐴 , 𝐵)) ∈ ℝ)
16	15	recnd 10669	. . 3 ⊢ (𝜑 → (abs‘(𝐴 , 𝐵)) ∈ ℂ)
17	15	resqcld 13612	. . . . . . 7 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵))↑2) ∈ ℝ)
18	17	renegcld 11067	. . . . . 6 ⊢ (𝜑 → -((abs‘(𝐴 , 𝐵))↑2) ∈ ℝ)
19	6, 12	reipcl 23801	. . . . . . . . 9 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐵 ∈ 𝑉) → (𝐵 , 𝐵) ∈ ℝ)
20	3, 11, 19	syl2anc 586	. . . . . . . 8 ⊢ (𝜑 → (𝐵 , 𝐵) ∈ ℝ)
21		2re 11712	. . . . . . . 8 ⊢ 2 ∈ ℝ
22		readdcl 10620	. . . . . . . 8 ⊢ (((𝐵 , 𝐵) ∈ ℝ ∧ 2 ∈ ℝ) → ((𝐵 , 𝐵) + 2) ∈ ℝ)
23	20, 21, 22	sylancl 588	. . . . . . 7 ⊢ (𝜑 → ((𝐵 , 𝐵) + 2) ∈ ℝ)
24		0red 10644	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ ℝ)
25		peano2re 10813	. . . . . . . . 9 ⊢ ((𝐵 , 𝐵) ∈ ℝ → ((𝐵 , 𝐵) + 1) ∈ ℝ)
26	20, 25	syl 17	. . . . . . . 8 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ∈ ℝ)
27	6, 12	ipge0 23802	. . . . . . . . . 10 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐵 ∈ 𝑉) → 0 ≤ (𝐵 , 𝐵))
28	3, 11, 27	syl2anc 586	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (𝐵 , 𝐵))
29	20	ltp1d 11570	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 , 𝐵) < ((𝐵 , 𝐵) + 1))
30	24, 20, 26, 28, 29	lelttrd 10798	. . . . . . . 8 ⊢ (𝜑 → 0 < ((𝐵 , 𝐵) + 1))
31	26	ltp1d 11570	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) < (((𝐵 , 𝐵) + 1) + 1))
32	20	recnd 10669	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐵 , 𝐵) ∈ ℂ)
33		ax-1cn 10595	. . . . . . . . . . . 12 ⊢ 1 ∈ ℂ
34		addass 10624	. . . . . . . . . . . 12 ⊢ (((𝐵 , 𝐵) ∈ ℂ ∧ 1 ∈ ℂ ∧ 1 ∈ ℂ) → (((𝐵 , 𝐵) + 1) + 1) = ((𝐵 , 𝐵) + (1 + 1)))
35	33, 33, 34	mp3an23 1449	. . . . . . . . . . 11 ⊢ ((𝐵 , 𝐵) ∈ ℂ → (((𝐵 , 𝐵) + 1) + 1) = ((𝐵 , 𝐵) + (1 + 1)))
36	32, 35	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1) + 1) = ((𝐵 , 𝐵) + (1 + 1)))
37		df-2 11701	. . . . . . . . . . 11 ⊢ 2 = (1 + 1)
38	37	oveq2i 7167	. . . . . . . . . 10 ⊢ ((𝐵 , 𝐵) + 2) = ((𝐵 , 𝐵) + (1 + 1))
39	36, 38	syl6reqr 2875	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 , 𝐵) + 2) = (((𝐵 , 𝐵) + 1) + 1))
40	31, 39	breqtrrd 5094	. . . . . . . 8 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) < ((𝐵 , 𝐵) + 2))
41	24, 26, 23, 30, 40	lttrd 10801	. . . . . . 7 ⊢ (𝜑 → 0 < ((𝐵 , 𝐵) + 2))
42	23, 41	elrpd 12429	. . . . . 6 ⊢ (𝜑 → ((𝐵 , 𝐵) + 2) ∈ ℝ⁺)
43		oveq2 7164	. . . . . . . . . . . . . 14 ⊢ (𝑥 = (𝑇( ·_𝑠 ‘𝑊)𝐵) → (𝐴 − 𝑥) = (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))
44	43	fveq2d 6674	. . . . . . . . . . . . 13 ⊢ (𝑥 = (𝑇( ·_𝑠 ‘𝑊)𝐵) → (𝑁‘(𝐴 − 𝑥)) = (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
45	44	breq2d 5078	. . . . . . . . . . . 12 ⊢ (𝑥 = (𝑇( ·_𝑠 ‘𝑊)𝐵) → ((𝑁‘𝐴) ≤ (𝑁‘(𝐴 − 𝑥)) ↔ (𝑁‘𝐴) ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))))
46		pjthlem.7	. . . . . . . . . . . 12 ⊢ (𝜑 → ∀𝑥 ∈ 𝑈 (𝑁‘𝐴) ≤ (𝑁‘(𝐴 − 𝑥)))
47		cphlmod 23778	. . . . . . . . . . . . . 14 ⊢ (𝑊 ∈ ℂPreHil → 𝑊 ∈ LMod)
48	3, 47	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑊 ∈ LMod)
49		pjthlem.8	. . . . . . . . . . . . . 14 ⊢ 𝑇 = ((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))
50		hlphl 23968	. . . . . . . . . . . . . . . . 17 ⊢ (𝑊 ∈ ℂHil → 𝑊 ∈ PreHil)
51	1, 50	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑊 ∈ PreHil)
52		eqid 2821	. . . . . . . . . . . . . . . . 17 ⊢ (Scalar‘𝑊) = (Scalar‘𝑊)
53		eqid 2821	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘(Scalar‘𝑊)) = (Base‘(Scalar‘𝑊))
54	52, 12, 6, 53	ipcl 20777	. . . . . . . . . . . . . . . 16 ⊢ ((𝑊 ∈ PreHil ∧ 𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑉) → (𝐴 , 𝐵) ∈ (Base‘(Scalar‘𝑊)))
55	51, 4, 11, 54	syl3anc 1367	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴 , 𝐵) ∈ (Base‘(Scalar‘𝑊)))
56	52, 53	hlress 23971	. . . . . . . . . . . . . . . . 17 ⊢ (𝑊 ∈ ℂHil → ℝ ⊆ (Base‘(Scalar‘𝑊)))
57	1, 56	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ℝ ⊆ (Base‘(Scalar‘𝑊)))
58	57, 26	sseldd 3968	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ∈ (Base‘(Scalar‘𝑊)))
59	20, 28	ge0p1rpd 12462	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ∈ ℝ⁺)
60	59	rpne0d 12437	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ≠ 0)
61	52, 53	cphdivcl 23786	. . . . . . . . . . . . . . 15 ⊢ ((𝑊 ∈ ℂPreHil ∧ ((𝐴 , 𝐵) ∈ (Base‘(Scalar‘𝑊)) ∧ ((𝐵 , 𝐵) + 1) ∈ (Base‘(Scalar‘𝑊)) ∧ ((𝐵 , 𝐵) + 1) ≠ 0)) → ((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1)) ∈ (Base‘(Scalar‘𝑊)))
62	3, 55, 58, 60, 61	syl13anc 1368	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1)) ∈ (Base‘(Scalar‘𝑊)))
63	49, 62	eqeltrid 2917	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑇 ∈ (Base‘(Scalar‘𝑊)))
64		eqid 2821	. . . . . . . . . . . . . 14 ⊢ ( ·_𝑠 ‘𝑊) = ( ·_𝑠 ‘𝑊)
65	52, 64, 53, 7	lssvscl 19727	. . . . . . . . . . . . 13 ⊢ (((𝑊 ∈ LMod ∧ 𝑈 ∈ 𝐿) ∧ (𝑇 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝐵 ∈ 𝑈)) → (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑈)
66	48, 5, 63, 10, 65	syl22anc 836	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑈)
67	45, 46, 66	rspcdva 3625	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑁‘𝐴) ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
68		cphngp 23777	. . . . . . . . . . . . . 14 ⊢ (𝑊 ∈ ℂPreHil → 𝑊 ∈ NrmGrp)
69	3, 68	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑊 ∈ NrmGrp)
70		pjthlem.n	. . . . . . . . . . . . . 14 ⊢ 𝑁 = (norm‘𝑊)
71	6, 70	nmcl 23225	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ NrmGrp ∧ 𝐴 ∈ 𝑉) → (𝑁‘𝐴) ∈ ℝ)
72	69, 4, 71	syl2anc 586	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑁‘𝐴) ∈ ℝ)
73	6, 52, 64, 53	lmodvscl 19651	. . . . . . . . . . . . . . 15 ⊢ ((𝑊 ∈ LMod ∧ 𝑇 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝐵 ∈ 𝑉) → (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉)
74	48, 63, 11, 73	syl3anc 1367	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉)
75		pjthlem.m	. . . . . . . . . . . . . . 15 ⊢ − = (-_g‘𝑊)
76	6, 75	lmodvsubcl 19679	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ LMod ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉) → (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉)
77	48, 4, 74, 76	syl3anc 1367	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉)
78	6, 70	nmcl 23225	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ NrmGrp ∧ (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉) → (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) ∈ ℝ)
79	69, 77, 78	syl2anc 586	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) ∈ ℝ)
80	6, 70	nmge0 23226	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ NrmGrp ∧ 𝐴 ∈ 𝑉) → 0 ≤ (𝑁‘𝐴))
81	69, 4, 80	syl2anc 586	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝑁‘𝐴))
82	6, 70	nmge0 23226	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ NrmGrp ∧ (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉) → 0 ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
83	69, 77, 82	syl2anc 586	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
84	72, 79, 81, 83	le2sqd 13621	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘𝐴) ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) ↔ ((𝑁‘𝐴)↑2) ≤ ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2)))
85	67, 84	mpbid 234	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑁‘𝐴)↑2) ≤ ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2))
86	79	resqcld 13612	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) ∈ ℝ)
87	72	resqcld 13612	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘𝐴)↑2) ∈ ℝ)
88	86, 87	subge0d 11230	. . . . . . . . . 10 ⊢ (𝜑 → (0 ≤ (((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) − ((𝑁‘𝐴)↑2)) ↔ ((𝑁‘𝐴)↑2) ≤ ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2)))
89	85, 88	mpbird 259	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) − ((𝑁‘𝐴)↑2)))
90		2z 12015	. . . . . . . . . . . . . . . 16 ⊢ 2 ∈ ℤ
91		rpexpcl 13449	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐵 , 𝐵) + 1) ∈ ℝ⁺ ∧ 2 ∈ ℤ) → (((𝐵 , 𝐵) + 1)↑2) ∈ ℝ⁺)
92	59, 90, 91	sylancl 588	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1)↑2) ∈ ℝ⁺)
93	17, 92	rerpdivcld 12463	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) ∈ ℝ)
94	93, 23	remulcld 10671	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) ∈ ℝ)
95	94	recnd 10669	. . . . . . . . . . . 12 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) ∈ ℂ)
96	95	negcld 10984	. . . . . . . . . . 11 ⊢ (𝜑 → -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) ∈ ℂ)
97	6, 12	cphipcl 23795	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉 ∧ 𝐴 ∈ 𝑉) → (𝐴 , 𝐴) ∈ ℂ)
98	3, 4, 4, 97	syl3anc 1367	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 , 𝐴) ∈ ℂ)
99	96, 98	pncand 10998	. . . . . . . . . 10 ⊢ (𝜑 → ((-((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) + (𝐴 , 𝐴)) − (𝐴 , 𝐴)) = -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)))
100	6, 12, 70	nmsq 23798	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉) → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) = ((𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
101	3, 77, 100	syl2anc 586	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) = ((𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
102	12, 6, 75	cphsubdir 23812	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉 ∧ (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉)) → ((𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))))
103	3, 4, 74, 77, 102	syl13anc 1368	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))))
104	12, 6, 75	cphsubdi 23813	. . . . . . . . . . . . . . . 16 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝐴 ∈ 𝑉 ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉)) → (𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝐴 , 𝐴) − (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))))
105	3, 4, 4, 74, 104	syl13anc 1368	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝐴 , 𝐴) − (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))))
106	105	oveq1d 7171	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = (((𝐴 , 𝐴) − (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))))
107	6, 12	cphipcl 23795	. . . . . . . . . . . . . . . 16 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉) → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℂ)
108	3, 4, 74, 107	syl3anc 1367	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℂ)
109	12, 6, 75	cphsubdi 23813	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑊 ∈ ℂPreHil ∧ ((𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉 ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉)) → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = (((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵))))
110	3, 74, 4, 74, 109	syl13anc 1368	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = (((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵))))
111	6, 12	cphipcl 23795	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉 ∧ 𝐴 ∈ 𝑉) → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) ∈ ℂ)
112	3, 74, 4, 111	syl3anc 1367	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) ∈ ℂ)
113	6, 12	cphipcl 23795	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉) → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℂ)
114	3, 74, 74, 113	syl3anc 1367	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℂ)
115	112, 114	subcld 10997	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵))) ∈ ℂ)
116	110, 115	eqeltrd 2913	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) ∈ ℂ)
117	98, 108, 116	subsub4d 11028	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((𝐴 , 𝐴) − (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = ((𝐴 , 𝐴) − ((𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) + ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))))
118	93	recnd 10669	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) ∈ ℂ)
119	26	recnd 10669	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ∈ ℂ)
120		1cnd 10636	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 1 ∈ ℂ)
121	118, 119, 120	adddid 10665	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (((𝐵 , 𝐵) + 1) + 1)) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) + ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1)))
122	39	oveq2d 7172	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (((𝐵 , 𝐵) + 1) + 1)))
123	12, 6, 52, 53, 64	cphassr 23816	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝑇 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑉)) → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((∗‘𝑇) · (𝐴 , 𝐵)))
124	3, 63, 4, 11, 123	syl13anc 1368	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((∗‘𝑇) · (𝐴 , 𝐵)))
125	14, 119, 60	divcld 11416	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1)) ∈ ℂ)
126	49, 125	eqeltrid 2917	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑇 ∈ ℂ)
127	126	cjcld 14555	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (∗‘𝑇) ∈ ℂ)
128	127, 14	mulcomd 10662	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((∗‘𝑇) · (𝐴 , 𝐵)) = ((𝐴 , 𝐵) · (∗‘𝑇)))
129	14	cjcld 14555	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (∗‘(𝐴 , 𝐵)) ∈ ℂ)
130	14, 129, 119, 60	divassd 11451	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐴 , 𝐵) · (∗‘(𝐴 , 𝐵))) / ((𝐵 , 𝐵) + 1)) = ((𝐴 , 𝐵) · ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1))))
131	14	absvalsqd 14802	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵))↑2) = ((𝐴 , 𝐵) · (∗‘(𝐴 , 𝐵))))
132	131	oveq1d 7171	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)) = (((𝐴 , 𝐵) · (∗‘(𝐴 , 𝐵))) / ((𝐵 , 𝐵) + 1)))
133	49	fveq2i 6673	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (∗‘𝑇) = (∗‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1)))
134	14, 119, 60	cjdivd 14582	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (∗‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))) = ((∗‘(𝐴 , 𝐵)) / (∗‘((𝐵 , 𝐵) + 1))))
135	26	cjred 14585	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (∗‘((𝐵 , 𝐵) + 1)) = ((𝐵 , 𝐵) + 1))
136	135	oveq2d 7172	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((∗‘(𝐴 , 𝐵)) / (∗‘((𝐵 , 𝐵) + 1))) = ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
137	134, 136	eqtrd 2856	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (∗‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))) = ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
138	133, 137	syl5eq 2868	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (∗‘𝑇) = ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
139	138	oveq2d 7172	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝐴 , 𝐵) · (∗‘𝑇)) = ((𝐴 , 𝐵) · ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1))))
140	130, 132, 139	3eqtr4rd 2867	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝐴 , 𝐵) · (∗‘𝑇)) = (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)))
141	124, 128, 140	3eqtrd 2860	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)))
142	17	recnd 10669	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵))↑2) ∈ ℂ)
143	142, 119	mulcomd 10662	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 1)) = (((𝐵 , 𝐵) + 1) · ((abs‘(𝐴 , 𝐵))↑2)))
144	119	sqvald 13508	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1)↑2) = (((𝐵 , 𝐵) + 1) · ((𝐵 , 𝐵) + 1)))
145	143, 144	oveq12d 7174	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 1)) / (((𝐵 , 𝐵) + 1)↑2)) = ((((𝐵 , 𝐵) + 1) · ((abs‘(𝐴 , 𝐵))↑2)) / (((𝐵 , 𝐵) + 1) · ((𝐵 , 𝐵) + 1))))
146	142, 119, 119, 60, 60	divcan5d 11442	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((((𝐵 , 𝐵) + 1) · ((abs‘(𝐴 , 𝐵))↑2)) / (((𝐵 , 𝐵) + 1) · ((𝐵 , 𝐵) + 1))) = (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)))
147	145, 146	eqtr2d 2857	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)) = ((((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 1)) / (((𝐵 , 𝐵) + 1)↑2)))
148	92	rpcnd 12434	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1)↑2) ∈ ℂ)
149	92	rpne0d 12437	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1)↑2) ≠ 0)
150	142, 119, 148, 149	div23d 11453	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 1)) / (((𝐵 , 𝐵) + 1)↑2)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)))
151	141, 147, 150	3eqtrd 2860	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)))
152	93, 26	remulcld 10671	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) ∈ ℝ)
153	151, 152	eqeltrd 2913	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℝ)
154	153	cjred 14585	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (∗‘(𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) = (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)))
155	12, 6	cphipcj 23803	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉) → (∗‘(𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴))
156	3, 4, 74, 155	syl3anc 1367	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (∗‘(𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴))
157	154, 156, 151	3eqtr3d 2864	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)))
158	12, 6, 52, 53, 64	cph2ass 23817	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝑇 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝑇 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝐵 ∈ 𝑉 ∧ 𝐵 ∈ 𝑉)) → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((𝑇 · (∗‘𝑇)) · (𝐵 , 𝐵)))
159	3, 63, 63, 11, 11, 158	syl122anc 1375	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((𝑇 · (∗‘𝑇)) · (𝐵 , 𝐵)))
160	49	fveq2i 6673	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (abs‘𝑇) = (abs‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1)))
161	14, 119, 60	absdivd 14815	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → (abs‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))) = ((abs‘(𝐴 , 𝐵)) / (abs‘((𝐵 , 𝐵) + 1))))
162	59	rpge0d 12436	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 0 ≤ ((𝐵 , 𝐵) + 1))
163	26, 162	absidd 14782	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (abs‘((𝐵 , 𝐵) + 1)) = ((𝐵 , 𝐵) + 1))
164	163	oveq2d 7172	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵)) / (abs‘((𝐵 , 𝐵) + 1))) = ((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
165	161, 164	eqtrd 2856	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (abs‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))) = ((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
166	160, 165	syl5eq 2868	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (abs‘𝑇) = ((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
167	166	oveq1d 7171	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((abs‘𝑇)↑2) = (((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1))↑2))
168	126	absvalsqd 14802	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((abs‘𝑇)↑2) = (𝑇 · (∗‘𝑇)))
169	16, 119, 60	sqdivd 13524	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1))↑2) = (((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)))
170	167, 168, 169	3eqtr3d 2864	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (𝑇 · (∗‘𝑇)) = (((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)))
171	170	oveq1d 7171	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝑇 · (∗‘𝑇)) · (𝐵 , 𝐵)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵)))
172	159, 171	eqtrd 2856	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵)))
173	157, 172	oveq12d 7174	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵))) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵))))
174		pncan2 10893	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝐵 , 𝐵) ∈ ℂ ∧ 1 ∈ ℂ) → (((𝐵 , 𝐵) + 1) − (𝐵 , 𝐵)) = 1)
175	32, 33, 174	sylancl 588	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1) − (𝐵 , 𝐵)) = 1)
176	175	oveq2d 7172	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (((𝐵 , 𝐵) + 1) − (𝐵 , 𝐵))) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1))
177	118, 119, 32	subdid 11096	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (((𝐵 , 𝐵) + 1) − (𝐵 , 𝐵))) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵))))
178	176, 177	eqtr3d 2858	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵))))
179	173, 110, 178	3eqtr4d 2866	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1))
180	151, 179	oveq12d 7174	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) + ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) + ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1)))
181	121, 122, 180	3eqtr4rd 2867	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) + ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)))
182	181	oveq2d 7172	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐴 , 𝐴) − ((𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) + ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))) = ((𝐴 , 𝐴) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))))
183	106, 117, 182	3eqtrd 2860	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = ((𝐴 , 𝐴) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))))
184	101, 103, 183	3eqtrd 2860	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) = ((𝐴 , 𝐴) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))))
185	98, 95	negsubd 11003	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐴 , 𝐴) + -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))) = ((𝐴 , 𝐴) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))))
186	98, 96	addcomd 10842	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐴 , 𝐴) + -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))) = (-((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) + (𝐴 , 𝐴)))
187	184, 185, 186	3eqtr2d 2862	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) = (-((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) + (𝐴 , 𝐴)))
188	6, 12, 70	nmsq 23798	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉) → ((𝑁‘𝐴)↑2) = (𝐴 , 𝐴))
189	3, 4, 188	syl2anc 586	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘𝐴)↑2) = (𝐴 , 𝐴))
190	187, 189	oveq12d 7174	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) − ((𝑁‘𝐴)↑2)) = ((-((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) + (𝐴 , 𝐴)) − (𝐴 , 𝐴)))
191	23	renegcld 11067	. . . . . . . . . . . . 13 ⊢ (𝜑 → -((𝐵 , 𝐵) + 2) ∈ ℝ)
192	191	recnd 10669	. . . . . . . . . . . 12 ⊢ (𝜑 → -((𝐵 , 𝐵) + 2) ∈ ℂ)
193	142, 192, 148, 149	div23d 11453	. . . . . . . . . . 11 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · -((𝐵 , 𝐵) + 2)))
194	23	recnd 10669	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐵 , 𝐵) + 2) ∈ ℂ)
195	118, 194	mulneg2d 11094	. . . . . . . . . . 11 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · -((𝐵 , 𝐵) + 2)) = -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)))
196	193, 195	eqtrd 2856	. . . . . . . . . 10 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2)) = -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)))
197	99, 190, 196	3eqtr4rd 2867	. . . . . . . . 9 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2)) = (((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) − ((𝑁‘𝐴)↑2)))
198	89, 197	breqtrrd 5094	. . . . . . . 8 ⊢ (𝜑 → 0 ≤ ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2)))
199	17, 191	remulcld 10671	. . . . . . . . 9 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) ∈ ℝ)
200	199, 92	ge0divd 12470	. . . . . . . 8 ⊢ (𝜑 → (0 ≤ (((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) ↔ 0 ≤ ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2))))
201	198, 200	mpbird 259	. . . . . . 7 ⊢ (𝜑 → 0 ≤ (((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)))
202		mulneg12 11078	. . . . . . . 8 ⊢ ((((abs‘(𝐴 , 𝐵))↑2) ∈ ℂ ∧ ((𝐵 , 𝐵) + 2) ∈ ℂ) → (-((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 2)) = (((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)))
203	142, 194, 202	syl2anc 586	. . . . . . 7 ⊢ (𝜑 → (-((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 2)) = (((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)))
204	201, 203	breqtrrd 5094	. . . . . 6 ⊢ (𝜑 → 0 ≤ (-((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 2)))
205	18, 42, 204	prodge0ld 12498	. . . . 5 ⊢ (𝜑 → 0 ≤ -((abs‘(𝐴 , 𝐵))↑2))
206	17	le0neg1d 11211	. . . . 5 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) ≤ 0 ↔ 0 ≤ -((abs‘(𝐴 , 𝐵))↑2)))
207	205, 206	mpbird 259	. . . 4 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵))↑2) ≤ 0)
208	15	sqge0d 13613	. . . 4 ⊢ (𝜑 → 0 ≤ ((abs‘(𝐴 , 𝐵))↑2))
209		0re 10643	. . . . 5 ⊢ 0 ∈ ℝ
210		letri3 10726	. . . . 5 ⊢ ((((abs‘(𝐴 , 𝐵))↑2) ∈ ℝ ∧ 0 ∈ ℝ) → (((abs‘(𝐴 , 𝐵))↑2) = 0 ↔ (((abs‘(𝐴 , 𝐵))↑2) ≤ 0 ∧ 0 ≤ ((abs‘(𝐴 , 𝐵))↑2))))
211	17, 209, 210	sylancl 588	. . . 4 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) = 0 ↔ (((abs‘(𝐴 , 𝐵))↑2) ≤ 0 ∧ 0 ≤ ((abs‘(𝐴 , 𝐵))↑2))))
212	207, 208, 211	mpbir2and 711	. . 3 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵))↑2) = 0)
213	16, 212	sqeq0d 13510	. 2 ⊢ (𝜑 → (abs‘(𝐴 , 𝐵)) = 0)
214	14, 213	abs00d 14806	1 ⊢ (𝜑 → (𝐴 , 𝐵) = 0)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 208 ∧ wa 398 = wceq 1537 ∈ wcel 2114 ≠ wne 3016 ∀wral 3138 ⊆ wss 3936 class class class wbr 5066 ‘cfv 6355 (class class class)co 7156 ℂcc 10535 ℝcr 10536 0cc0 10537 1c1 10538 + caddc 10540 · cmul 10542 < clt 10675 ≤ cle 10676 − cmin 10870 -cneg 10871 / cdiv 11297 2c2 11693 ℤcz 11982 ℝ⁺crp 12390 ↑cexp 13430 ∗ccj 14455 abscabs 14593 Basecbs 16483 +_gcplusg 16565 Scalarcsca 16568 ·_𝑠 cvsca 16569 ·_𝑖cip 16570 -_gcsg 18105 LModclmod 19634 LSubSpclss 19703 PreHilcphl 20768 normcnm 23186 NrmGrpcngp 23187 ℂPreHilccph 23770 ℂHilchl 23937

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1970 ax-7 2015 ax-8 2116 ax-9 2124 ax-10 2145 ax-11 2161 ax-12 2177 ax-ext 2793 ax-rep 5190 ax-sep 5203 ax-nul 5210 ax-pow 5266 ax-pr 5330 ax-un 7461 ax-cnex 10593 ax-resscn 10594 ax-1cn 10595 ax-icn 10596 ax-addcl 10597 ax-addrcl 10598 ax-mulcl 10599 ax-mulrcl 10600 ax-mulcom 10601 ax-addass 10602 ax-mulass 10603 ax-distr 10604 ax-i2m1 10605 ax-1ne0 10606 ax-1rid 10607 ax-rnegex 10608 ax-rrecex 10609 ax-cnre 10610 ax-pre-lttri 10611 ax-pre-lttrn 10612 ax-pre-ltadd 10613 ax-pre-mulgt0 10614 ax-pre-sup 10615 ax-addf 10616 ax-mulf 10617

This theorem depends on definitions: df-bi 209 df-an 399 df-or 844 df-3or 1084 df-3an 1085 df-tru 1540 df-ex 1781 df-nf 1785 df-sb 2070 df-mo 2622 df-eu 2654 df-clab 2800 df-cleq 2814 df-clel 2893 df-nfc 2963 df-ne 3017 df-nel 3124 df-ral 3143 df-rex 3144 df-reu 3145 df-rmo 3146 df-rab 3147 df-v 3496 df-sbc 3773 df-csb 3884 df-dif 3939 df-un 3941 df-in 3943 df-ss 3952 df-pss 3954 df-nul 4292 df-if 4468 df-pw 4541 df-sn 4568 df-pr 4570 df-tp 4572 df-op 4574 df-uni 4839 df-int 4877 df-iun 4921 df-iin 4922 df-br 5067 df-opab 5129 df-mpt 5147 df-tr 5173 df-id 5460 df-eprel 5465 df-po 5474 df-so 5475 df-fr 5514 df-se 5515 df-we 5516 df-xp 5561 df-rel 5562 df-cnv 5563 df-co 5564 df-dm 5565 df-rn 5566 df-res 5567 df-ima 5568 df-pred 6148 df-ord 6194 df-on 6195 df-lim 6196 df-suc 6197 df-iota 6314 df-fun 6357 df-fn 6358 df-f 6359 df-f1 6360 df-fo 6361 df-f1o 6362 df-fv 6363 df-isom 6364 df-riota 7114 df-ov 7159 df-oprab 7160 df-mpo 7161 df-of 7409 df-om 7581 df-1st 7689 df-2nd 7690 df-supp 7831 df-tpos 7892 df-wrecs 7947 df-recs 8008 df-rdg 8046 df-1o 8102 df-2o 8103 df-oadd 8106 df-er 8289 df-map 8408 df-ixp 8462 df-en 8510 df-dom 8511 df-sdom 8512 df-fin 8513 df-fsupp 8834 df-fi 8875 df-sup 8906 df-inf 8907 df-oi 8974 df-card 9368 df-pnf 10677 df-mnf 10678 df-xr 10679 df-ltxr 10680 df-le 10681 df-sub 10872 df-neg 10873 df-div 11298 df-nn 11639 df-2 11701 df-3 11702 df-4 11703 df-5 11704 df-6 11705 df-7 11706 df-8 11707 df-9 11708 df-n0 11899 df-z 11983 df-dec 12100 df-uz 12245 df-q 12350 df-rp 12391 df-xneg 12508 df-xadd 12509 df-xmul 12510 df-ioo 12743 df-ico 12745 df-icc 12746 df-fz 12894 df-fzo 13035 df-seq 13371 df-exp 13431 df-hash 13692 df-cj 14458 df-re 14459 df-im 14460 df-sqrt 14594 df-abs 14595 df-struct 16485 df-ndx 16486 df-slot 16487 df-base 16489 df-sets 16490 df-ress 16491 df-plusg 16578 df-mulr 16579 df-starv 16580 df-sca 16581 df-vsca 16582 df-ip 16583 df-tset 16584 df-ple 16585 df-ds 16587 df-unif 16588 df-hom 16589 df-cco 16590 df-rest 16696 df-topn 16697 df-0g 16715 df-gsum 16716 df-topgen 16717 df-pt 16718 df-prds 16721 df-xrs 16775 df-qtop 16780 df-imas 16781 df-xps 16783 df-mre 16857 df-mrc 16858 df-acs 16860 df-mgm 17852 df-sgrp 17901 df-mnd 17912 df-mhm 17956 df-submnd 17957 df-grp 18106 df-minusg 18107 df-sbg 18108 df-mulg 18225 df-subg 18276 df-ghm 18356 df-cntz 18447 df-cmn 18908 df-mgp 19240 df-ur 19252 df-ring 19299 df-cring 19300 df-oppr 19373 df-dvdsr 19391 df-unit 19392 df-invr 19422 df-dvr 19433 df-rnghom 19467 df-drng 19504 df-subrg 19533 df-staf 19616 df-srng 19617 df-lmod 19636 df-lss 19704 df-lmhm 19794 df-lvec 19875 df-sra 19944 df-rgmod 19945 df-psmet 20537 df-xmet 20538 df-met 20539 df-bl 20540 df-mopn 20541 df-fbas 20542 df-fg 20543 df-cnfld 20546 df-phl 20770 df-top 21502 df-topon 21519 df-topsp 21541 df-bases 21554 df-cld 21627 df-ntr 21628 df-cls 21629 df-nei 21706 df-cn 21835 df-cnp 21836 df-haus 21923 df-cmp 21995 df-tx 22170 df-hmeo 22363 df-fil 22454 df-flim 22547 df-fcls 22549 df-xms 22930 df-ms 22931 df-tms 22932 df-nm 23192 df-ngp 23193 df-nlm 23196 df-cncf 23486 df-clm 23667 df-cph 23772 df-cfil 23858 df-cmet 23860 df-cms 23938 df-bn 23939 df-hl 23940

This theorem is referenced by: pjthlem2 24041

W3C validator