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 24043

Description: Lemma for pjth 24045. (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 23970	. . . 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 19711	. . . . 5 ⊢ (𝑈 ∈ 𝐿 → 𝑈 ⊆ 𝑉)
9	5, 8	syl 17	. . . 4 ⊢ (𝜑 → 𝑈 ⊆ 𝑉)
10		pjthlem.5	. . . 4 ⊢ (𝜑 → 𝐵 ∈ 𝑈)
11	9, 10	sseldd 3971	. . 3 ⊢ (𝜑 → 𝐵 ∈ 𝑉)
12		pjthlem.h	. . . 4 ⊢ , = (·_𝑖‘𝑊)
13	6, 12	cphipcl 23798	. . 3 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑉) → (𝐴 , 𝐵) ∈ ℂ)
14	3, 4, 11, 13	syl3anc 1367	. 2 ⊢ (𝜑 → (𝐴 , 𝐵) ∈ ℂ)
15	14	abscld 14799	. . . 4 ⊢ (𝜑 → (abs‘(𝐴 , 𝐵)) ∈ ℝ)
16	15	recnd 10672	. . 3 ⊢ (𝜑 → (abs‘(𝐴 , 𝐵)) ∈ ℂ)
17	15	resqcld 13614	. . . . . . 7 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵))↑2) ∈ ℝ)
18	17	renegcld 11070	. . . . . 6 ⊢ (𝜑 → -((abs‘(𝐴 , 𝐵))↑2) ∈ ℝ)
19	6, 12	reipcl 23804	. . . . . . . . 9 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐵 ∈ 𝑉) → (𝐵 , 𝐵) ∈ ℝ)
20	3, 11, 19	syl2anc 586	. . . . . . . 8 ⊢ (𝜑 → (𝐵 , 𝐵) ∈ ℝ)
21		2re 11714	. . . . . . . 8 ⊢ 2 ∈ ℝ
22		readdcl 10623	. . . . . . . 8 ⊢ (((𝐵 , 𝐵) ∈ ℝ ∧ 2 ∈ ℝ) → ((𝐵 , 𝐵) + 2) ∈ ℝ)
23	20, 21, 22	sylancl 588	. . . . . . 7 ⊢ (𝜑 → ((𝐵 , 𝐵) + 2) ∈ ℝ)
24		0red 10647	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ ℝ)
25		peano2re 10816	. . . . . . . . 9 ⊢ ((𝐵 , 𝐵) ∈ ℝ → ((𝐵 , 𝐵) + 1) ∈ ℝ)
26	20, 25	syl 17	. . . . . . . 8 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ∈ ℝ)
27	6, 12	ipge0 23805	. . . . . . . . . 10 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐵 ∈ 𝑉) → 0 ≤ (𝐵 , 𝐵))
28	3, 11, 27	syl2anc 586	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (𝐵 , 𝐵))
29	20	ltp1d 11573	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 , 𝐵) < ((𝐵 , 𝐵) + 1))
30	24, 20, 26, 28, 29	lelttrd 10801	. . . . . . . 8 ⊢ (𝜑 → 0 < ((𝐵 , 𝐵) + 1))
31	26	ltp1d 11573	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) < (((𝐵 , 𝐵) + 1) + 1))
32	20	recnd 10672	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐵 , 𝐵) ∈ ℂ)
33		ax-1cn 10598	. . . . . . . . . . . 12 ⊢ 1 ∈ ℂ
34		addass 10627	. . . . . . . . . . . 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 11703	. . . . . . . . . . 11 ⊢ 2 = (1 + 1)
38	37	oveq2i 7170	. . . . . . . . . 10 ⊢ ((𝐵 , 𝐵) + 2) = ((𝐵 , 𝐵) + (1 + 1))
39	36, 38	syl6reqr 2878	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 , 𝐵) + 2) = (((𝐵 , 𝐵) + 1) + 1))
40	31, 39	breqtrrd 5097	. . . . . . . 8 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) < ((𝐵 , 𝐵) + 2))
41	24, 26, 23, 30, 40	lttrd 10804	. . . . . . 7 ⊢ (𝜑 → 0 < ((𝐵 , 𝐵) + 2))
42	23, 41	elrpd 12431	. . . . . 6 ⊢ (𝜑 → ((𝐵 , 𝐵) + 2) ∈ ℝ⁺)
43		oveq2 7167	. . . . . . . . . . . . . 14 ⊢ (𝑥 = (𝑇( ·_𝑠 ‘𝑊)𝐵) → (𝐴 − 𝑥) = (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))
44	43	fveq2d 6677	. . . . . . . . . . . . 13 ⊢ (𝑥 = (𝑇( ·_𝑠 ‘𝑊)𝐵) → (𝑁‘(𝐴 − 𝑥)) = (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
45	44	breq2d 5081	. . . . . . . . . . . 12 ⊢ (𝑥 = (𝑇( ·_𝑠 ‘𝑊)𝐵) → ((𝑁‘𝐴) ≤ (𝑁‘(𝐴 − 𝑥)) ↔ (𝑁‘𝐴) ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))))
46		pjthlem.7	. . . . . . . . . . . 12 ⊢ (𝜑 → ∀𝑥 ∈ 𝑈 (𝑁‘𝐴) ≤ (𝑁‘(𝐴 − 𝑥)))
47		cphlmod 23781	. . . . . . . . . . . . . 14 ⊢ (𝑊 ∈ ℂPreHil → 𝑊 ∈ LMod)
48	3, 47	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑊 ∈ LMod)
49		pjthlem.8	. . . . . . . . . . . . . 14 ⊢ 𝑇 = ((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))
50		hlphl 23971	. . . . . . . . . . . . . . . . 17 ⊢ (𝑊 ∈ ℂHil → 𝑊 ∈ PreHil)
51	1, 50	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑊 ∈ PreHil)
52		eqid 2824	. . . . . . . . . . . . . . . . 17 ⊢ (Scalar‘𝑊) = (Scalar‘𝑊)
53		eqid 2824	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘(Scalar‘𝑊)) = (Base‘(Scalar‘𝑊))
54	52, 12, 6, 53	ipcl 20780	. . . . . . . . . . . . . . . 16 ⊢ ((𝑊 ∈ PreHil ∧ 𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑉) → (𝐴 , 𝐵) ∈ (Base‘(Scalar‘𝑊)))
55	51, 4, 11, 54	syl3anc 1367	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴 , 𝐵) ∈ (Base‘(Scalar‘𝑊)))
56	52, 53	hlress 23974	. . . . . . . . . . . . . . . . 17 ⊢ (𝑊 ∈ ℂHil → ℝ ⊆ (Base‘(Scalar‘𝑊)))
57	1, 56	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ℝ ⊆ (Base‘(Scalar‘𝑊)))
58	57, 26	sseldd 3971	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ∈ (Base‘(Scalar‘𝑊)))
59	20, 28	ge0p1rpd 12464	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ∈ ℝ⁺)
60	59	rpne0d 12439	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ≠ 0)
61	52, 53	cphdivcl 23789	. . . . . . . . . . . . . . 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 2920	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑇 ∈ (Base‘(Scalar‘𝑊)))
64		eqid 2824	. . . . . . . . . . . . . 14 ⊢ ( ·_𝑠 ‘𝑊) = ( ·_𝑠 ‘𝑊)
65	52, 64, 53, 7	lssvscl 19730	. . . . . . . . . . . . 13 ⊢ (((𝑊 ∈ LMod ∧ 𝑈 ∈ 𝐿) ∧ (𝑇 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝐵 ∈ 𝑈)) → (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑈)
66	48, 5, 63, 10, 65	syl22anc 836	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑈)
67	45, 46, 66	rspcdva 3628	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑁‘𝐴) ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
68		cphngp 23780	. . . . . . . . . . . . . 14 ⊢ (𝑊 ∈ ℂPreHil → 𝑊 ∈ NrmGrp)
69	3, 68	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑊 ∈ NrmGrp)
70		pjthlem.n	. . . . . . . . . . . . . 14 ⊢ 𝑁 = (norm‘𝑊)
71	6, 70	nmcl 23228	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ NrmGrp ∧ 𝐴 ∈ 𝑉) → (𝑁‘𝐴) ∈ ℝ)
72	69, 4, 71	syl2anc 586	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑁‘𝐴) ∈ ℝ)
73	6, 52, 64, 53	lmodvscl 19654	. . . . . . . . . . . . . . 15 ⊢ ((𝑊 ∈ LMod ∧ 𝑇 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝐵 ∈ 𝑉) → (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉)
74	48, 63, 11, 73	syl3anc 1367	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉)
75		pjthlem.m	. . . . . . . . . . . . . . 15 ⊢ − = (-_g‘𝑊)
76	6, 75	lmodvsubcl 19682	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ LMod ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉) → (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉)
77	48, 4, 74, 76	syl3anc 1367	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉)
78	6, 70	nmcl 23228	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ NrmGrp ∧ (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉) → (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) ∈ ℝ)
79	69, 77, 78	syl2anc 586	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) ∈ ℝ)
80	6, 70	nmge0 23229	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ NrmGrp ∧ 𝐴 ∈ 𝑉) → 0 ≤ (𝑁‘𝐴))
81	69, 4, 80	syl2anc 586	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝑁‘𝐴))
82	6, 70	nmge0 23229	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ NrmGrp ∧ (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉) → 0 ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
83	69, 77, 82	syl2anc 586	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
84	72, 79, 81, 83	le2sqd 13623	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘𝐴) ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) ↔ ((𝑁‘𝐴)↑2) ≤ ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2)))
85	67, 84	mpbid 234	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑁‘𝐴)↑2) ≤ ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2))
86	79	resqcld 13614	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) ∈ ℝ)
87	72	resqcld 13614	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘𝐴)↑2) ∈ ℝ)
88	86, 87	subge0d 11233	. . . . . . . . . 10 ⊢ (𝜑 → (0 ≤ (((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) − ((𝑁‘𝐴)↑2)) ↔ ((𝑁‘𝐴)↑2) ≤ ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2)))
89	85, 88	mpbird 259	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) − ((𝑁‘𝐴)↑2)))
90		2z 12017	. . . . . . . . . . . . . . . 16 ⊢ 2 ∈ ℤ
91		rpexpcl 13451	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐵 , 𝐵) + 1) ∈ ℝ⁺ ∧ 2 ∈ ℤ) → (((𝐵 , 𝐵) + 1)↑2) ∈ ℝ⁺)
92	59, 90, 91	sylancl 588	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1)↑2) ∈ ℝ⁺)
93	17, 92	rerpdivcld 12465	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) ∈ ℝ)
94	93, 23	remulcld 10674	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) ∈ ℝ)
95	94	recnd 10672	. . . . . . . . . . . 12 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) ∈ ℂ)
96	95	negcld 10987	. . . . . . . . . . 11 ⊢ (𝜑 → -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) ∈ ℂ)
97	6, 12	cphipcl 23798	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉 ∧ 𝐴 ∈ 𝑉) → (𝐴 , 𝐴) ∈ ℂ)
98	3, 4, 4, 97	syl3anc 1367	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 , 𝐴) ∈ ℂ)
99	96, 98	pncand 11001	. . . . . . . . . 10 ⊢ (𝜑 → ((-((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) + (𝐴 , 𝐴)) − (𝐴 , 𝐴)) = -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)))
100	6, 12, 70	nmsq 23801	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉) → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) = ((𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
101	3, 77, 100	syl2anc 586	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) = ((𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
102	12, 6, 75	cphsubdir 23815	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉 ∧ (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉)) → ((𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))))
103	3, 4, 74, 77, 102	syl13anc 1368	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))))
104	12, 6, 75	cphsubdi 23816	. . . . . . . . . . . . . . . 16 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝐴 ∈ 𝑉 ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉)) → (𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝐴 , 𝐴) − (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))))
105	3, 4, 4, 74, 104	syl13anc 1368	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝐴 , 𝐴) − (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))))
106	105	oveq1d 7174	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = (((𝐴 , 𝐴) − (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))))
107	6, 12	cphipcl 23798	. . . . . . . . . . . . . . . 16 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉) → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℂ)
108	3, 4, 74, 107	syl3anc 1367	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℂ)
109	12, 6, 75	cphsubdi 23816	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑊 ∈ ℂPreHil ∧ ((𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉 ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉)) → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = (((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵))))
110	3, 74, 4, 74, 109	syl13anc 1368	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = (((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵))))
111	6, 12	cphipcl 23798	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉 ∧ 𝐴 ∈ 𝑉) → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) ∈ ℂ)
112	3, 74, 4, 111	syl3anc 1367	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) ∈ ℂ)
113	6, 12	cphipcl 23798	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉) → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℂ)
114	3, 74, 74, 113	syl3anc 1367	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℂ)
115	112, 114	subcld 11000	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵))) ∈ ℂ)
116	110, 115	eqeltrd 2916	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) ∈ ℂ)
117	98, 108, 116	subsub4d 11031	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((𝐴 , 𝐴) − (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = ((𝐴 , 𝐴) − ((𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) + ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))))
118	93	recnd 10672	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) ∈ ℂ)
119	26	recnd 10672	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ∈ ℂ)
120		1cnd 10639	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 1 ∈ ℂ)
121	118, 119, 120	adddid 10668	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (((𝐵 , 𝐵) + 1) + 1)) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) + ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1)))
122	39	oveq2d 7175	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (((𝐵 , 𝐵) + 1) + 1)))
123	12, 6, 52, 53, 64	cphassr 23819	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝑇 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑉)) → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((∗‘𝑇) · (𝐴 , 𝐵)))
124	3, 63, 4, 11, 123	syl13anc 1368	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((∗‘𝑇) · (𝐴 , 𝐵)))
125	14, 119, 60	divcld 11419	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1)) ∈ ℂ)
126	49, 125	eqeltrid 2920	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑇 ∈ ℂ)
127	126	cjcld 14558	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (∗‘𝑇) ∈ ℂ)
128	127, 14	mulcomd 10665	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((∗‘𝑇) · (𝐴 , 𝐵)) = ((𝐴 , 𝐵) · (∗‘𝑇)))
129	14	cjcld 14558	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (∗‘(𝐴 , 𝐵)) ∈ ℂ)
130	14, 129, 119, 60	divassd 11454	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐴 , 𝐵) · (∗‘(𝐴 , 𝐵))) / ((𝐵 , 𝐵) + 1)) = ((𝐴 , 𝐵) · ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1))))
131	14	absvalsqd 14805	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵))↑2) = ((𝐴 , 𝐵) · (∗‘(𝐴 , 𝐵))))
132	131	oveq1d 7174	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)) = (((𝐴 , 𝐵) · (∗‘(𝐴 , 𝐵))) / ((𝐵 , 𝐵) + 1)))
133	49	fveq2i 6676	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (∗‘𝑇) = (∗‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1)))
134	14, 119, 60	cjdivd 14585	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (∗‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))) = ((∗‘(𝐴 , 𝐵)) / (∗‘((𝐵 , 𝐵) + 1))))
135	26	cjred 14588	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (∗‘((𝐵 , 𝐵) + 1)) = ((𝐵 , 𝐵) + 1))
136	135	oveq2d 7175	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((∗‘(𝐴 , 𝐵)) / (∗‘((𝐵 , 𝐵) + 1))) = ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
137	134, 136	eqtrd 2859	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (∗‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))) = ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
138	133, 137	syl5eq 2871	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (∗‘𝑇) = ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
139	138	oveq2d 7175	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝐴 , 𝐵) · (∗‘𝑇)) = ((𝐴 , 𝐵) · ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1))))
140	130, 132, 139	3eqtr4rd 2870	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝐴 , 𝐵) · (∗‘𝑇)) = (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)))
141	124, 128, 140	3eqtrd 2863	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)))
142	17	recnd 10672	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵))↑2) ∈ ℂ)
143	142, 119	mulcomd 10665	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 1)) = (((𝐵 , 𝐵) + 1) · ((abs‘(𝐴 , 𝐵))↑2)))
144	119	sqvald 13510	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1)↑2) = (((𝐵 , 𝐵) + 1) · ((𝐵 , 𝐵) + 1)))
145	143, 144	oveq12d 7177	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 1)) / (((𝐵 , 𝐵) + 1)↑2)) = ((((𝐵 , 𝐵) + 1) · ((abs‘(𝐴 , 𝐵))↑2)) / (((𝐵 , 𝐵) + 1) · ((𝐵 , 𝐵) + 1))))
146	142, 119, 119, 60, 60	divcan5d 11445	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((((𝐵 , 𝐵) + 1) · ((abs‘(𝐴 , 𝐵))↑2)) / (((𝐵 , 𝐵) + 1) · ((𝐵 , 𝐵) + 1))) = (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)))
147	145, 146	eqtr2d 2860	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)) = ((((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 1)) / (((𝐵 , 𝐵) + 1)↑2)))
148	92	rpcnd 12436	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1)↑2) ∈ ℂ)
149	92	rpne0d 12439	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1)↑2) ≠ 0)
150	142, 119, 148, 149	div23d 11456	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 1)) / (((𝐵 , 𝐵) + 1)↑2)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)))
151	141, 147, 150	3eqtrd 2863	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)))
152	93, 26	remulcld 10674	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) ∈ ℝ)
153	151, 152	eqeltrd 2916	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℝ)
154	153	cjred 14588	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (∗‘(𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) = (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)))
155	12, 6	cphipcj 23806	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉) → (∗‘(𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴))
156	3, 4, 74, 155	syl3anc 1367	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (∗‘(𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴))
157	154, 156, 151	3eqtr3d 2867	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)))
158	12, 6, 52, 53, 64	cph2ass 23820	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝑇 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝑇 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝐵 ∈ 𝑉 ∧ 𝐵 ∈ 𝑉)) → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((𝑇 · (∗‘𝑇)) · (𝐵 , 𝐵)))
159	3, 63, 63, 11, 11, 158	syl122anc 1375	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((𝑇 · (∗‘𝑇)) · (𝐵 , 𝐵)))
160	49	fveq2i 6676	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (abs‘𝑇) = (abs‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1)))
161	14, 119, 60	absdivd 14818	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → (abs‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))) = ((abs‘(𝐴 , 𝐵)) / (abs‘((𝐵 , 𝐵) + 1))))
162	59	rpge0d 12438	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 0 ≤ ((𝐵 , 𝐵) + 1))
163	26, 162	absidd 14785	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (abs‘((𝐵 , 𝐵) + 1)) = ((𝐵 , 𝐵) + 1))
164	163	oveq2d 7175	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵)) / (abs‘((𝐵 , 𝐵) + 1))) = ((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
165	161, 164	eqtrd 2859	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (abs‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))) = ((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
166	160, 165	syl5eq 2871	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (abs‘𝑇) = ((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
167	166	oveq1d 7174	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((abs‘𝑇)↑2) = (((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1))↑2))
168	126	absvalsqd 14805	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((abs‘𝑇)↑2) = (𝑇 · (∗‘𝑇)))
169	16, 119, 60	sqdivd 13526	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1))↑2) = (((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)))
170	167, 168, 169	3eqtr3d 2867	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (𝑇 · (∗‘𝑇)) = (((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)))
171	170	oveq1d 7174	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝑇 · (∗‘𝑇)) · (𝐵 , 𝐵)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵)))
172	159, 171	eqtrd 2859	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵)))
173	157, 172	oveq12d 7177	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵))) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵))))
174		pncan2 10896	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝐵 , 𝐵) ∈ ℂ ∧ 1 ∈ ℂ) → (((𝐵 , 𝐵) + 1) − (𝐵 , 𝐵)) = 1)
175	32, 33, 174	sylancl 588	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1) − (𝐵 , 𝐵)) = 1)
176	175	oveq2d 7175	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (((𝐵 , 𝐵) + 1) − (𝐵 , 𝐵))) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1))
177	118, 119, 32	subdid 11099	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (((𝐵 , 𝐵) + 1) − (𝐵 , 𝐵))) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵))))
178	176, 177	eqtr3d 2861	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵))))
179	173, 110, 178	3eqtr4d 2869	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1))
180	151, 179	oveq12d 7177	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) + ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) + ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1)))
181	121, 122, 180	3eqtr4rd 2870	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) + ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)))
182	181	oveq2d 7175	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐴 , 𝐴) − ((𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) + ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))) = ((𝐴 , 𝐴) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))))
183	106, 117, 182	3eqtrd 2863	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = ((𝐴 , 𝐴) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))))
184	101, 103, 183	3eqtrd 2863	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) = ((𝐴 , 𝐴) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))))
185	98, 95	negsubd 11006	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐴 , 𝐴) + -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))) = ((𝐴 , 𝐴) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))))
186	98, 96	addcomd 10845	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐴 , 𝐴) + -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))) = (-((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) + (𝐴 , 𝐴)))
187	184, 185, 186	3eqtr2d 2865	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) = (-((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) + (𝐴 , 𝐴)))
188	6, 12, 70	nmsq 23801	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉) → ((𝑁‘𝐴)↑2) = (𝐴 , 𝐴))
189	3, 4, 188	syl2anc 586	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘𝐴)↑2) = (𝐴 , 𝐴))
190	187, 189	oveq12d 7177	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) − ((𝑁‘𝐴)↑2)) = ((-((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) + (𝐴 , 𝐴)) − (𝐴 , 𝐴)))
191	23	renegcld 11070	. . . . . . . . . . . . 13 ⊢ (𝜑 → -((𝐵 , 𝐵) + 2) ∈ ℝ)
192	191	recnd 10672	. . . . . . . . . . . 12 ⊢ (𝜑 → -((𝐵 , 𝐵) + 2) ∈ ℂ)
193	142, 192, 148, 149	div23d 11456	. . . . . . . . . . 11 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · -((𝐵 , 𝐵) + 2)))
194	23	recnd 10672	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐵 , 𝐵) + 2) ∈ ℂ)
195	118, 194	mulneg2d 11097	. . . . . . . . . . 11 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · -((𝐵 , 𝐵) + 2)) = -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)))
196	193, 195	eqtrd 2859	. . . . . . . . . 10 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2)) = -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)))
197	99, 190, 196	3eqtr4rd 2870	. . . . . . . . 9 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2)) = (((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) − ((𝑁‘𝐴)↑2)))
198	89, 197	breqtrrd 5097	. . . . . . . 8 ⊢ (𝜑 → 0 ≤ ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2)))
199	17, 191	remulcld 10674	. . . . . . . . 9 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) ∈ ℝ)
200	199, 92	ge0divd 12472	. . . . . . . 8 ⊢ (𝜑 → (0 ≤ (((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) ↔ 0 ≤ ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2))))
201	198, 200	mpbird 259	. . . . . . 7 ⊢ (𝜑 → 0 ≤ (((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)))
202		mulneg12 11081	. . . . . . . 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 5097	. . . . . 6 ⊢ (𝜑 → 0 ≤ (-((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 2)))
205	18, 42, 204	prodge0ld 12500	. . . . 5 ⊢ (𝜑 → 0 ≤ -((abs‘(𝐴 , 𝐵))↑2))
206	17	le0neg1d 11214	. . . . 5 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) ≤ 0 ↔ 0 ≤ -((abs‘(𝐴 , 𝐵))↑2)))
207	205, 206	mpbird 259	. . . 4 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵))↑2) ≤ 0)
208	15	sqge0d 13615	. . . 4 ⊢ (𝜑 → 0 ≤ ((abs‘(𝐴 , 𝐵))↑2))
209		0re 10646	. . . . 5 ⊢ 0 ∈ ℝ
210		letri3 10729	. . . . 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 13512	. 2 ⊢ (𝜑 → (abs‘(𝐴 , 𝐵)) = 0)
214	14, 213	abs00d 14809	1 ⊢ (𝜑 → (𝐴 , 𝐵) = 0)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 208 ∧ wa 398 = wceq 1536 ∈ wcel 2113 ≠ wne 3019 ∀wral 3141 ⊆ wss 3939 class class class wbr 5069 ‘cfv 6358 (class class class)co 7159 ℂcc 10538 ℝcr 10539 0cc0 10540 1c1 10541 + caddc 10543 · cmul 10545 < clt 10678 ≤ cle 10679 − cmin 10873 -cneg 10874 / cdiv 11300 2c2 11695 ℤcz 11984 ℝ⁺crp 12392 ↑cexp 13432 ∗ccj 14458 abscabs 14596 Basecbs 16486 +_gcplusg 16568 Scalarcsca 16571 ·_𝑠 cvsca 16572 ·_𝑖cip 16573 -_gcsg 18108 LModclmod 19637 LSubSpclss 19706 PreHilcphl 20771 normcnm 23189 NrmGrpcngp 23190 ℂPreHilccph 23773 ℂHilchl 23940

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1969 ax-7 2014 ax-8 2115 ax-9 2123 ax-10 2144 ax-11 2160 ax-12 2176 ax-ext 2796 ax-rep 5193 ax-sep 5206 ax-nul 5213 ax-pow 5269 ax-pr 5333 ax-un 7464 ax-cnex 10596 ax-resscn 10597 ax-1cn 10598 ax-icn 10599 ax-addcl 10600 ax-addrcl 10601 ax-mulcl 10602 ax-mulrcl 10603 ax-mulcom 10604 ax-addass 10605 ax-mulass 10606 ax-distr 10607 ax-i2m1 10608 ax-1ne0 10609 ax-1rid 10610 ax-rnegex 10611 ax-rrecex 10612 ax-cnre 10613 ax-pre-lttri 10614 ax-pre-lttrn 10615 ax-pre-ltadd 10616 ax-pre-mulgt0 10617 ax-pre-sup 10618 ax-addf 10619 ax-mulf 10620

This theorem depends on definitions: df-bi 209 df-an 399 df-or 844 df-3or 1084 df-3an 1085 df-tru 1539 df-ex 1780 df-nf 1784 df-sb 2069 df-mo 2621 df-eu 2653 df-clab 2803 df-cleq 2817 df-clel 2896 df-nfc 2966 df-ne 3020 df-nel 3127 df-ral 3146 df-rex 3147 df-reu 3148 df-rmo 3149 df-rab 3150 df-v 3499 df-sbc 3776 df-csb 3887 df-dif 3942 df-un 3944 df-in 3946 df-ss 3955 df-pss 3957 df-nul 4295 df-if 4471 df-pw 4544 df-sn 4571 df-pr 4573 df-tp 4575 df-op 4577 df-uni 4842 df-int 4880 df-iun 4924 df-iin 4925 df-br 5070 df-opab 5132 df-mpt 5150 df-tr 5176 df-id 5463 df-eprel 5468 df-po 5477 df-so 5478 df-fr 5517 df-se 5518 df-we 5519 df-xp 5564 df-rel 5565 df-cnv 5566 df-co 5567 df-dm 5568 df-rn 5569 df-res 5570 df-ima 5571 df-pred 6151 df-ord 6197 df-on 6198 df-lim 6199 df-suc 6200 df-iota 6317 df-fun 6360 df-fn 6361 df-f 6362 df-f1 6363 df-fo 6364 df-f1o 6365 df-fv 6366 df-isom 6367 df-riota 7117 df-ov 7162 df-oprab 7163 df-mpo 7164 df-of 7412 df-om 7584 df-1st 7692 df-2nd 7693 df-supp 7834 df-tpos 7895 df-wrecs 7950 df-recs 8011 df-rdg 8049 df-1o 8105 df-2o 8106 df-oadd 8109 df-er 8292 df-map 8411 df-ixp 8465 df-en 8513 df-dom 8514 df-sdom 8515 df-fin 8516 df-fsupp 8837 df-fi 8878 df-sup 8909 df-inf 8910 df-oi 8977 df-card 9371 df-pnf 10680 df-mnf 10681 df-xr 10682 df-ltxr 10683 df-le 10684 df-sub 10875 df-neg 10876 df-div 11301 df-nn 11642 df-2 11703 df-3 11704 df-4 11705 df-5 11706 df-6 11707 df-7 11708 df-8 11709 df-9 11710 df-n0 11901 df-z 11985 df-dec 12102 df-uz 12247 df-q 12352 df-rp 12393 df-xneg 12510 df-xadd 12511 df-xmul 12512 df-ioo 12745 df-ico 12747 df-icc 12748 df-fz 12896 df-fzo 13037 df-seq 13373 df-exp 13433 df-hash 13694 df-cj 14461 df-re 14462 df-im 14463 df-sqrt 14597 df-abs 14598 df-struct 16488 df-ndx 16489 df-slot 16490 df-base 16492 df-sets 16493 df-ress 16494 df-plusg 16581 df-mulr 16582 df-starv 16583 df-sca 16584 df-vsca 16585 df-ip 16586 df-tset 16587 df-ple 16588 df-ds 16590 df-unif 16591 df-hom 16592 df-cco 16593 df-rest 16699 df-topn 16700 df-0g 16718 df-gsum 16719 df-topgen 16720 df-pt 16721 df-prds 16724 df-xrs 16778 df-qtop 16783 df-imas 16784 df-xps 16786 df-mre 16860 df-mrc 16861 df-acs 16863 df-mgm 17855 df-sgrp 17904 df-mnd 17915 df-mhm 17959 df-submnd 17960 df-grp 18109 df-minusg 18110 df-sbg 18111 df-mulg 18228 df-subg 18279 df-ghm 18359 df-cntz 18450 df-cmn 18911 df-mgp 19243 df-ur 19255 df-ring 19302 df-cring 19303 df-oppr 19376 df-dvdsr 19394 df-unit 19395 df-invr 19425 df-dvr 19436 df-rnghom 19470 df-drng 19507 df-subrg 19536 df-staf 19619 df-srng 19620 df-lmod 19639 df-lss 19707 df-lmhm 19797 df-lvec 19878 df-sra 19947 df-rgmod 19948 df-psmet 20540 df-xmet 20541 df-met 20542 df-bl 20543 df-mopn 20544 df-fbas 20545 df-fg 20546 df-cnfld 20549 df-phl 20773 df-top 21505 df-topon 21522 df-topsp 21544 df-bases 21557 df-cld 21630 df-ntr 21631 df-cls 21632 df-nei 21709 df-cn 21838 df-cnp 21839 df-haus 21926 df-cmp 21998 df-tx 22173 df-hmeo 22366 df-fil 22457 df-flim 22550 df-fcls 22552 df-xms 22933 df-ms 22934 df-tms 22935 df-nm 23195 df-ngp 23196 df-nlm 23199 df-cncf 23489 df-clm 23670 df-cph 23775 df-cfil 23861 df-cmet 23863 df-cms 23941 df-bn 23942 df-hl 23943

This theorem is referenced by: pjthlem2 24044

W3C validator