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 24961

Description: Lemma for pjth 24963. (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 24888	. . . 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 20552	. . . . 5 ⊢ (𝑈 ∈ 𝐿 → 𝑈 ⊆ 𝑉)
9	5, 8	syl 17	. . . 4 ⊢ (𝜑 → 𝑈 ⊆ 𝑉)
10		pjthlem.5	. . . 4 ⊢ (𝜑 → 𝐵 ∈ 𝑈)
11	9, 10	sseldd 3983	. . 3 ⊢ (𝜑 → 𝐵 ∈ 𝑉)
12		pjthlem.h	. . . 4 ⊢ , = (·_𝑖‘𝑊)
13	6, 12	cphipcl 24715	. . 3 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑉) → (𝐴 , 𝐵) ∈ ℂ)
14	3, 4, 11, 13	syl3anc 1371	. 2 ⊢ (𝜑 → (𝐴 , 𝐵) ∈ ℂ)
15	14	abscld 15385	. . . 4 ⊢ (𝜑 → (abs‘(𝐴 , 𝐵)) ∈ ℝ)
16	15	recnd 11244	. . 3 ⊢ (𝜑 → (abs‘(𝐴 , 𝐵)) ∈ ℂ)
17	15	resqcld 14092	. . . . . . 7 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵))↑2) ∈ ℝ)
18	17	renegcld 11643	. . . . . 6 ⊢ (𝜑 → -((abs‘(𝐴 , 𝐵))↑2) ∈ ℝ)
19	6, 12	reipcl 24721	. . . . . . . . 9 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐵 ∈ 𝑉) → (𝐵 , 𝐵) ∈ ℝ)
20	3, 11, 19	syl2anc 584	. . . . . . . 8 ⊢ (𝜑 → (𝐵 , 𝐵) ∈ ℝ)
21		2re 12288	. . . . . . . 8 ⊢ 2 ∈ ℝ
22		readdcl 11195	. . . . . . . 8 ⊢ (((𝐵 , 𝐵) ∈ ℝ ∧ 2 ∈ ℝ) → ((𝐵 , 𝐵) + 2) ∈ ℝ)
23	20, 21, 22	sylancl 586	. . . . . . 7 ⊢ (𝜑 → ((𝐵 , 𝐵) + 2) ∈ ℝ)
24		0red 11219	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ ℝ)
25		peano2re 11389	. . . . . . . . 9 ⊢ ((𝐵 , 𝐵) ∈ ℝ → ((𝐵 , 𝐵) + 1) ∈ ℝ)
26	20, 25	syl 17	. . . . . . . 8 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ∈ ℝ)
27	6, 12	ipge0 24722	. . . . . . . . . 10 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐵 ∈ 𝑉) → 0 ≤ (𝐵 , 𝐵))
28	3, 11, 27	syl2anc 584	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (𝐵 , 𝐵))
29	20	ltp1d 12146	. . . . . . . . 9 ⊢ (𝜑 → (𝐵 , 𝐵) < ((𝐵 , 𝐵) + 1))
30	24, 20, 26, 28, 29	lelttrd 11374	. . . . . . . 8 ⊢ (𝜑 → 0 < ((𝐵 , 𝐵) + 1))
31	26	ltp1d 12146	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) < (((𝐵 , 𝐵) + 1) + 1))
32		df-2 12277	. . . . . . . . . . 11 ⊢ 2 = (1 + 1)
33	32	oveq2i 7422	. . . . . . . . . 10 ⊢ ((𝐵 , 𝐵) + 2) = ((𝐵 , 𝐵) + (1 + 1))
34	20	recnd 11244	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐵 , 𝐵) ∈ ℂ)
35		ax-1cn 11170	. . . . . . . . . . . 12 ⊢ 1 ∈ ℂ
36		addass 11199	. . . . . . . . . . . 12 ⊢ (((𝐵 , 𝐵) ∈ ℂ ∧ 1 ∈ ℂ ∧ 1 ∈ ℂ) → (((𝐵 , 𝐵) + 1) + 1) = ((𝐵 , 𝐵) + (1 + 1)))
37	35, 35, 36	mp3an23 1453	. . . . . . . . . . 11 ⊢ ((𝐵 , 𝐵) ∈ ℂ → (((𝐵 , 𝐵) + 1) + 1) = ((𝐵 , 𝐵) + (1 + 1)))
38	34, 37	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1) + 1) = ((𝐵 , 𝐵) + (1 + 1)))
39	33, 38	eqtr4id 2791	. . . . . . . . 9 ⊢ (𝜑 → ((𝐵 , 𝐵) + 2) = (((𝐵 , 𝐵) + 1) + 1))
40	31, 39	breqtrrd 5176	. . . . . . . 8 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) < ((𝐵 , 𝐵) + 2))
41	24, 26, 23, 30, 40	lttrd 11377	. . . . . . 7 ⊢ (𝜑 → 0 < ((𝐵 , 𝐵) + 2))
42	23, 41	elrpd 13015	. . . . . 6 ⊢ (𝜑 → ((𝐵 , 𝐵) + 2) ∈ ℝ⁺)
43		oveq2 7419	. . . . . . . . . . . . . 14 ⊢ (𝑥 = (𝑇( ·_𝑠 ‘𝑊)𝐵) → (𝐴 − 𝑥) = (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))
44	43	fveq2d 6895	. . . . . . . . . . . . 13 ⊢ (𝑥 = (𝑇( ·_𝑠 ‘𝑊)𝐵) → (𝑁‘(𝐴 − 𝑥)) = (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
45	44	breq2d 5160	. . . . . . . . . . . 12 ⊢ (𝑥 = (𝑇( ·_𝑠 ‘𝑊)𝐵) → ((𝑁‘𝐴) ≤ (𝑁‘(𝐴 − 𝑥)) ↔ (𝑁‘𝐴) ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))))
46		pjthlem.7	. . . . . . . . . . . 12 ⊢ (𝜑 → ∀𝑥 ∈ 𝑈 (𝑁‘𝐴) ≤ (𝑁‘(𝐴 − 𝑥)))
47		cphlmod 24698	. . . . . . . . . . . . . 14 ⊢ (𝑊 ∈ ℂPreHil → 𝑊 ∈ LMod)
48	3, 47	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑊 ∈ LMod)
49		pjthlem.8	. . . . . . . . . . . . . 14 ⊢ 𝑇 = ((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))
50		hlphl 24889	. . . . . . . . . . . . . . . . 17 ⊢ (𝑊 ∈ ℂHil → 𝑊 ∈ PreHil)
51	1, 50	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑊 ∈ PreHil)
52		eqid 2732	. . . . . . . . . . . . . . . . 17 ⊢ (Scalar‘𝑊) = (Scalar‘𝑊)
53		eqid 2732	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘(Scalar‘𝑊)) = (Base‘(Scalar‘𝑊))
54	52, 12, 6, 53	ipcl 21192	. . . . . . . . . . . . . . . 16 ⊢ ((𝑊 ∈ PreHil ∧ 𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑉) → (𝐴 , 𝐵) ∈ (Base‘(Scalar‘𝑊)))
55	51, 4, 11, 54	syl3anc 1371	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴 , 𝐵) ∈ (Base‘(Scalar‘𝑊)))
56	52, 53	hlress 24892	. . . . . . . . . . . . . . . . 17 ⊢ (𝑊 ∈ ℂHil → ℝ ⊆ (Base‘(Scalar‘𝑊)))
57	1, 56	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ℝ ⊆ (Base‘(Scalar‘𝑊)))
58	57, 26	sseldd 3983	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ∈ (Base‘(Scalar‘𝑊)))
59	20, 28	ge0p1rpd 13048	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ∈ ℝ⁺)
60	59	rpne0d 13023	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ≠ 0)
61	52, 53	cphdivcl 24706	. . . . . . . . . . . . . . 15 ⊢ ((𝑊 ∈ ℂPreHil ∧ ((𝐴 , 𝐵) ∈ (Base‘(Scalar‘𝑊)) ∧ ((𝐵 , 𝐵) + 1) ∈ (Base‘(Scalar‘𝑊)) ∧ ((𝐵 , 𝐵) + 1) ≠ 0)) → ((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1)) ∈ (Base‘(Scalar‘𝑊)))
62	3, 55, 58, 60, 61	syl13anc 1372	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1)) ∈ (Base‘(Scalar‘𝑊)))
63	49, 62	eqeltrid 2837	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑇 ∈ (Base‘(Scalar‘𝑊)))
64		eqid 2732	. . . . . . . . . . . . . 14 ⊢ ( ·_𝑠 ‘𝑊) = ( ·_𝑠 ‘𝑊)
65	52, 64, 53, 7	lssvscl 20571	. . . . . . . . . . . . 13 ⊢ (((𝑊 ∈ LMod ∧ 𝑈 ∈ 𝐿) ∧ (𝑇 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝐵 ∈ 𝑈)) → (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑈)
66	48, 5, 63, 10, 65	syl22anc 837	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑈)
67	45, 46, 66	rspcdva 3613	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑁‘𝐴) ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
68		cphngp 24697	. . . . . . . . . . . . . 14 ⊢ (𝑊 ∈ ℂPreHil → 𝑊 ∈ NrmGrp)
69	3, 68	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑊 ∈ NrmGrp)
70		pjthlem.n	. . . . . . . . . . . . . 14 ⊢ 𝑁 = (norm‘𝑊)
71	6, 70	nmcl 24132	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ NrmGrp ∧ 𝐴 ∈ 𝑉) → (𝑁‘𝐴) ∈ ℝ)
72	69, 4, 71	syl2anc 584	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑁‘𝐴) ∈ ℝ)
73	6, 52, 64, 53	lmodvscl 20493	. . . . . . . . . . . . . . 15 ⊢ ((𝑊 ∈ LMod ∧ 𝑇 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝐵 ∈ 𝑉) → (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉)
74	48, 63, 11, 73	syl3anc 1371	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉)
75		pjthlem.m	. . . . . . . . . . . . . . 15 ⊢ − = (-_g‘𝑊)
76	6, 75	lmodvsubcl 20522	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ LMod ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉) → (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉)
77	48, 4, 74, 76	syl3anc 1371	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉)
78	6, 70	nmcl 24132	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ NrmGrp ∧ (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉) → (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) ∈ ℝ)
79	69, 77, 78	syl2anc 584	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) ∈ ℝ)
80	6, 70	nmge0 24133	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ NrmGrp ∧ 𝐴 ∈ 𝑉) → 0 ≤ (𝑁‘𝐴))
81	69, 4, 80	syl2anc 584	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝑁‘𝐴))
82	6, 70	nmge0 24133	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ NrmGrp ∧ (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉) → 0 ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
83	69, 77, 82	syl2anc 584	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
84	72, 79, 81, 83	le2sqd 14222	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘𝐴) ≤ (𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) ↔ ((𝑁‘𝐴)↑2) ≤ ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2)))
85	67, 84	mpbid 231	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑁‘𝐴)↑2) ≤ ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2))
86	79	resqcld 14092	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) ∈ ℝ)
87	72	resqcld 14092	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘𝐴)↑2) ∈ ℝ)
88	86, 87	subge0d 11806	. . . . . . . . . 10 ⊢ (𝜑 → (0 ≤ (((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) − ((𝑁‘𝐴)↑2)) ↔ ((𝑁‘𝐴)↑2) ≤ ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2)))
89	85, 88	mpbird 256	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) − ((𝑁‘𝐴)↑2)))
90		2z 12596	. . . . . . . . . . . . . . . 16 ⊢ 2 ∈ ℤ
91		rpexpcl 14048	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐵 , 𝐵) + 1) ∈ ℝ⁺ ∧ 2 ∈ ℤ) → (((𝐵 , 𝐵) + 1)↑2) ∈ ℝ⁺)
92	59, 90, 91	sylancl 586	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1)↑2) ∈ ℝ⁺)
93	17, 92	rerpdivcld 13049	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) ∈ ℝ)
94	93, 23	remulcld 11246	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) ∈ ℝ)
95	94	recnd 11244	. . . . . . . . . . . 12 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) ∈ ℂ)
96	95	negcld 11560	. . . . . . . . . . 11 ⊢ (𝜑 → -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) ∈ ℂ)
97	6, 12	cphipcl 24715	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉 ∧ 𝐴 ∈ 𝑉) → (𝐴 , 𝐴) ∈ ℂ)
98	3, 4, 4, 97	syl3anc 1371	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 , 𝐴) ∈ ℂ)
99	96, 98	pncand 11574	. . . . . . . . . 10 ⊢ (𝜑 → ((-((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) + (𝐴 , 𝐴)) − (𝐴 , 𝐴)) = -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)))
100	6, 12, 70	nmsq 24718	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉) → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) = ((𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
101	3, 77, 100	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) = ((𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))
102	12, 6, 75	cphsubdir 24732	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉 ∧ (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ 𝑉)) → ((𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))))
103	3, 4, 74, 77, 102	syl13anc 1372	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))))
104	12, 6, 75	cphsubdi 24733	. . . . . . . . . . . . . . . 16 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝐴 ∈ 𝑉 ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉)) → (𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝐴 , 𝐴) − (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))))
105	3, 4, 4, 74, 104	syl13anc 1372	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝐴 , 𝐴) − (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))))
106	105	oveq1d 7426	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = (((𝐴 , 𝐴) − (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))))
107	6, 12	cphipcl 24715	. . . . . . . . . . . . . . . 16 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉) → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℂ)
108	3, 4, 74, 107	syl3anc 1371	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℂ)
109	12, 6, 75	cphsubdi 24733	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑊 ∈ ℂPreHil ∧ ((𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉 ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉)) → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = (((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵))))
110	3, 74, 4, 74, 109	syl13anc 1372	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = (((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵))))
111	6, 12	cphipcl 24715	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉 ∧ 𝐴 ∈ 𝑉) → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) ∈ ℂ)
112	3, 74, 4, 111	syl3anc 1371	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) ∈ ℂ)
113	6, 12	cphipcl 24715	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉) → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℂ)
114	3, 74, 74, 113	syl3anc 1371	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℂ)
115	112, 114	subcld 11573	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵))) ∈ ℂ)
116	110, 115	eqeltrd 2833	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) ∈ ℂ)
117	98, 108, 116	subsub4d 11604	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((𝐴 , 𝐴) − (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = ((𝐴 , 𝐴) − ((𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) + ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))))
118	93	recnd 11244	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) ∈ ℂ)
119	26	recnd 11244	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝐵 , 𝐵) + 1) ∈ ℂ)
120		1cnd 11211	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 1 ∈ ℂ)
121	118, 119, 120	adddid 11240	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (((𝐵 , 𝐵) + 1) + 1)) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) + ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1)))
122	39	oveq2d 7427	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (((𝐵 , 𝐵) + 1) + 1)))
123	12, 6, 52, 53, 64	cphassr 24736	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝑇 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝐴 ∈ 𝑉 ∧ 𝐵 ∈ 𝑉)) → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((∗‘𝑇) · (𝐴 , 𝐵)))
124	3, 63, 4, 11, 123	syl13anc 1372	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((∗‘𝑇) · (𝐴 , 𝐵)))
125	14, 119, 60	divcld 11992	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1)) ∈ ℂ)
126	49, 125	eqeltrid 2837	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑇 ∈ ℂ)
127	126	cjcld 15145	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (∗‘𝑇) ∈ ℂ)
128	127, 14	mulcomd 11237	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((∗‘𝑇) · (𝐴 , 𝐵)) = ((𝐴 , 𝐵) · (∗‘𝑇)))
129	14	cjcld 15145	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (∗‘(𝐴 , 𝐵)) ∈ ℂ)
130	14, 129, 119, 60	divassd 12027	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐴 , 𝐵) · (∗‘(𝐴 , 𝐵))) / ((𝐵 , 𝐵) + 1)) = ((𝐴 , 𝐵) · ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1))))
131	14	absvalsqd 15391	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵))↑2) = ((𝐴 , 𝐵) · (∗‘(𝐴 , 𝐵))))
132	131	oveq1d 7426	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)) = (((𝐴 , 𝐵) · (∗‘(𝐴 , 𝐵))) / ((𝐵 , 𝐵) + 1)))
133	49	fveq2i 6894	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (∗‘𝑇) = (∗‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1)))
134	14, 119, 60	cjdivd 15172	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (∗‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))) = ((∗‘(𝐴 , 𝐵)) / (∗‘((𝐵 , 𝐵) + 1))))
135	26	cjred 15175	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (∗‘((𝐵 , 𝐵) + 1)) = ((𝐵 , 𝐵) + 1))
136	135	oveq2d 7427	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ((∗‘(𝐴 , 𝐵)) / (∗‘((𝐵 , 𝐵) + 1))) = ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
137	134, 136	eqtrd 2772	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (∗‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))) = ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
138	133, 137	eqtrid 2784	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (∗‘𝑇) = ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
139	138	oveq2d 7427	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝐴 , 𝐵) · (∗‘𝑇)) = ((𝐴 , 𝐵) · ((∗‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1))))
140	130, 132, 139	3eqtr4rd 2783	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝐴 , 𝐵) · (∗‘𝑇)) = (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)))
141	124, 128, 140	3eqtrd 2776	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)))
142	17	recnd 11244	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵))↑2) ∈ ℂ)
143	142, 119	mulcomd 11237	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 1)) = (((𝐵 , 𝐵) + 1) · ((abs‘(𝐴 , 𝐵))↑2)))
144	119	sqvald 14110	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1)↑2) = (((𝐵 , 𝐵) + 1) · ((𝐵 , 𝐵) + 1)))
145	143, 144	oveq12d 7429	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 1)) / (((𝐵 , 𝐵) + 1)↑2)) = ((((𝐵 , 𝐵) + 1) · ((abs‘(𝐴 , 𝐵))↑2)) / (((𝐵 , 𝐵) + 1) · ((𝐵 , 𝐵) + 1))))
146	142, 119, 119, 60, 60	divcan5d 12018	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((((𝐵 , 𝐵) + 1) · ((abs‘(𝐴 , 𝐵))↑2)) / (((𝐵 , 𝐵) + 1) · ((𝐵 , 𝐵) + 1))) = (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)))
147	145, 146	eqtr2d 2773	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) / ((𝐵 , 𝐵) + 1)) = ((((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 1)) / (((𝐵 , 𝐵) + 1)↑2)))
148	92	rpcnd 13020	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1)↑2) ∈ ℂ)
149	92	rpne0d 13023	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1)↑2) ≠ 0)
150	142, 119, 148, 149	div23d 12029	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 1)) / (((𝐵 , 𝐵) + 1)↑2)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)))
151	141, 147, 150	3eqtrd 2776	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)))
152	93, 26	remulcld 11246	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) ∈ ℝ)
153	151, 152	eqeltrd 2833	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) ∈ ℝ)
154	153	cjred 15175	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (∗‘(𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) = (𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)))
155	12, 6	cphipcj 24723	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉 ∧ (𝑇( ·_𝑠 ‘𝑊)𝐵) ∈ 𝑉) → (∗‘(𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴))
156	3, 4, 74, 155	syl3anc 1371	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (∗‘(𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴))
157	154, 156, 151	3eqtr3d 2780	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)))
158	12, 6, 52, 53, 64	cph2ass 24737	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑊 ∈ ℂPreHil ∧ (𝑇 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝑇 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝐵 ∈ 𝑉 ∧ 𝐵 ∈ 𝑉)) → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((𝑇 · (∗‘𝑇)) · (𝐵 , 𝐵)))
159	3, 63, 63, 11, 11, 158	syl122anc 1379	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((𝑇 · (∗‘𝑇)) · (𝐵 , 𝐵)))
160	49	fveq2i 6894	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (abs‘𝑇) = (abs‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1)))
161	14, 119, 60	absdivd 15404	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → (abs‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))) = ((abs‘(𝐴 , 𝐵)) / (abs‘((𝐵 , 𝐵) + 1))))
162	59	rpge0d 13022	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝜑 → 0 ≤ ((𝐵 , 𝐵) + 1))
163	26, 162	absidd 15371	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝜑 → (abs‘((𝐵 , 𝐵) + 1)) = ((𝐵 , 𝐵) + 1))
164	163	oveq2d 7427	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵)) / (abs‘((𝐵 , 𝐵) + 1))) = ((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
165	161, 164	eqtrd 2772	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝜑 → (abs‘((𝐴 , 𝐵) / ((𝐵 , 𝐵) + 1))) = ((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
166	160, 165	eqtrid 2784	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → (abs‘𝑇) = ((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1)))
167	166	oveq1d 7426	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((abs‘𝑇)↑2) = (((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1))↑2))
168	126	absvalsqd 15391	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → ((abs‘𝑇)↑2) = (𝑇 · (∗‘𝑇)))
169	16, 119, 60	sqdivd 14126	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵)) / ((𝐵 , 𝐵) + 1))↑2) = (((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)))
170	167, 168, 169	3eqtr3d 2780	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (𝑇 · (∗‘𝑇)) = (((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)))
171	170	oveq1d 7426	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝑇 · (∗‘𝑇)) · (𝐵 , 𝐵)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵)))
172	159, 171	eqtrd 2772	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵)))
173	157, 172	oveq12d 7429	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((𝑇( ·_𝑠 ‘𝑊)𝐵) , 𝐴) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝑇( ·_𝑠 ‘𝑊)𝐵))) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵))))
174		pncan2 11469	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝐵 , 𝐵) ∈ ℂ ∧ 1 ∈ ℂ) → (((𝐵 , 𝐵) + 1) − (𝐵 , 𝐵)) = 1)
175	34, 35, 174	sylancl 586	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (((𝐵 , 𝐵) + 1) − (𝐵 , 𝐵)) = 1)
176	175	oveq2d 7427	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (((𝐵 , 𝐵) + 1) − (𝐵 , 𝐵))) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1))
177	118, 119, 34	subdid 11672	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (((𝐵 , 𝐵) + 1) − (𝐵 , 𝐵))) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵))))
178	176, 177	eqtr3d 2774	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · (𝐵 , 𝐵))))
179	173, 110, 178	3eqtr4d 2782	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1))
180	151, 179	oveq12d 7429	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) + ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = (((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 1)) + ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · 1)))
181	121, 122, 180	3eqtr4rd 2783	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) + ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)))
182	181	oveq2d 7427	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐴 , 𝐴) − ((𝐴 , (𝑇( ·_𝑠 ‘𝑊)𝐵)) + ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))))) = ((𝐴 , 𝐴) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))))
183	106, 117, 182	3eqtrd 2776	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐴 , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵))) − ((𝑇( ·_𝑠 ‘𝑊)𝐵) , (𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))) = ((𝐴 , 𝐴) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))))
184	101, 103, 183	3eqtrd 2776	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) = ((𝐴 , 𝐴) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))))
185	98, 95	negsubd 11579	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐴 , 𝐴) + -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))) = ((𝐴 , 𝐴) − ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))))
186	98, 96	addcomd 11418	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐴 , 𝐴) + -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2))) = (-((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) + (𝐴 , 𝐴)))
187	184, 185, 186	3eqtr2d 2778	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) = (-((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) + (𝐴 , 𝐴)))
188	6, 12, 70	nmsq 24718	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ ℂPreHil ∧ 𝐴 ∈ 𝑉) → ((𝑁‘𝐴)↑2) = (𝐴 , 𝐴))
189	3, 4, 188	syl2anc 584	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘𝐴)↑2) = (𝐴 , 𝐴))
190	187, 189	oveq12d 7429	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) − ((𝑁‘𝐴)↑2)) = ((-((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)) + (𝐴 , 𝐴)) − (𝐴 , 𝐴)))
191	23	renegcld 11643	. . . . . . . . . . . . 13 ⊢ (𝜑 → -((𝐵 , 𝐵) + 2) ∈ ℝ)
192	191	recnd 11244	. . . . . . . . . . . 12 ⊢ (𝜑 → -((𝐵 , 𝐵) + 2) ∈ ℂ)
193	142, 192, 148, 149	div23d 12029	. . . . . . . . . . 11 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2)) = ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · -((𝐵 , 𝐵) + 2)))
194	23	recnd 11244	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐵 , 𝐵) + 2) ∈ ℂ)
195	118, 194	mulneg2d 11670	. . . . . . . . . . 11 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · -((𝐵 , 𝐵) + 2)) = -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)))
196	193, 195	eqtrd 2772	. . . . . . . . . 10 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2)) = -((((abs‘(𝐴 , 𝐵))↑2) / (((𝐵 , 𝐵) + 1)↑2)) · ((𝐵 , 𝐵) + 2)))
197	99, 190, 196	3eqtr4rd 2783	. . . . . . . . 9 ⊢ (𝜑 → ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2)) = (((𝑁‘(𝐴 − (𝑇( ·_𝑠 ‘𝑊)𝐵)))↑2) − ((𝑁‘𝐴)↑2)))
198	89, 197	breqtrrd 5176	. . . . . . . 8 ⊢ (𝜑 → 0 ≤ ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2)))
199	17, 191	remulcld 11246	. . . . . . . . 9 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) ∈ ℝ)
200	199, 92	ge0divd 13056	. . . . . . . 8 ⊢ (𝜑 → (0 ≤ (((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) ↔ 0 ≤ ((((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)) / (((𝐵 , 𝐵) + 1)↑2))))
201	198, 200	mpbird 256	. . . . . . 7 ⊢ (𝜑 → 0 ≤ (((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)))
202		mulneg12 11654	. . . . . . . 8 ⊢ ((((abs‘(𝐴 , 𝐵))↑2) ∈ ℂ ∧ ((𝐵 , 𝐵) + 2) ∈ ℂ) → (-((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 2)) = (((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)))
203	142, 194, 202	syl2anc 584	. . . . . . 7 ⊢ (𝜑 → (-((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 2)) = (((abs‘(𝐴 , 𝐵))↑2) · -((𝐵 , 𝐵) + 2)))
204	201, 203	breqtrrd 5176	. . . . . 6 ⊢ (𝜑 → 0 ≤ (-((abs‘(𝐴 , 𝐵))↑2) · ((𝐵 , 𝐵) + 2)))
205	18, 42, 204	prodge0ld 13084	. . . . 5 ⊢ (𝜑 → 0 ≤ -((abs‘(𝐴 , 𝐵))↑2))
206	17	le0neg1d 11787	. . . . 5 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) ≤ 0 ↔ 0 ≤ -((abs‘(𝐴 , 𝐵))↑2)))
207	205, 206	mpbird 256	. . . 4 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵))↑2) ≤ 0)
208	15	sqge0d 14104	. . . 4 ⊢ (𝜑 → 0 ≤ ((abs‘(𝐴 , 𝐵))↑2))
209		0re 11218	. . . . 5 ⊢ 0 ∈ ℝ
210		letri3 11301	. . . . 5 ⊢ ((((abs‘(𝐴 , 𝐵))↑2) ∈ ℝ ∧ 0 ∈ ℝ) → (((abs‘(𝐴 , 𝐵))↑2) = 0 ↔ (((abs‘(𝐴 , 𝐵))↑2) ≤ 0 ∧ 0 ≤ ((abs‘(𝐴 , 𝐵))↑2))))
211	17, 209, 210	sylancl 586	. . . 4 ⊢ (𝜑 → (((abs‘(𝐴 , 𝐵))↑2) = 0 ↔ (((abs‘(𝐴 , 𝐵))↑2) ≤ 0 ∧ 0 ≤ ((abs‘(𝐴 , 𝐵))↑2))))
212	207, 208, 211	mpbir2and 711	. . 3 ⊢ (𝜑 → ((abs‘(𝐴 , 𝐵))↑2) = 0)
213	16, 212	sqeq0d 14112	. 2 ⊢ (𝜑 → (abs‘(𝐴 , 𝐵)) = 0)
214	14, 213	abs00d 15395	1 ⊢ (𝜑 → (𝐴 , 𝐵) = 0)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 396 = wceq 1541 ∈ wcel 2106 ≠ wne 2940 ∀wral 3061 ⊆ wss 3948 class class class wbr 5148 ‘cfv 6543 (class class class)co 7411 ℂcc 11110 ℝcr 11111 0cc0 11112 1c1 11113 + caddc 11115 · cmul 11117 < clt 11250 ≤ cle 11251 − cmin 11446 -cneg 11447 / cdiv 11873 2c2 12269 ℤcz 12560 ℝ⁺crp 12976 ↑cexp 14029 ∗ccj 15045 abscabs 15183 Basecbs 17146 +_gcplusg 17199 Scalarcsca 17202 ·_𝑠 cvsca 17203 ·_𝑖cip 17204 -_gcsg 18823 LModclmod 20475 LSubSpclss 20547 PreHilcphl 21183 normcnm 24092 NrmGrpcngp 24093 ℂPreHilccph 24690 ℂHilchl 24858

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 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2703 ax-rep 5285 ax-sep 5299 ax-nul 5306 ax-pow 5363 ax-pr 5427 ax-un 7727 ax-cnex 11168 ax-resscn 11169 ax-1cn 11170 ax-icn 11171 ax-addcl 11172 ax-addrcl 11173 ax-mulcl 11174 ax-mulrcl 11175 ax-mulcom 11176 ax-addass 11177 ax-mulass 11178 ax-distr 11179 ax-i2m1 11180 ax-1ne0 11181 ax-1rid 11182 ax-rnegex 11183 ax-rrecex 11184 ax-cnre 11185 ax-pre-lttri 11186 ax-pre-lttrn 11187 ax-pre-ltadd 11188 ax-pre-mulgt0 11189 ax-pre-sup 11190 ax-addf 11191 ax-mulf 11192

This theorem depends on definitions: df-bi 206 df-an 397 df-or 846 df-3or 1088 df-3an 1089 df-tru 1544 df-fal 1554 df-ex 1782 df-nf 1786 df-sb 2068 df-mo 2534 df-eu 2563 df-clab 2710 df-cleq 2724 df-clel 2810 df-nfc 2885 df-ne 2941 df-nel 3047 df-ral 3062 df-rex 3071 df-rmo 3376 df-reu 3377 df-rab 3433 df-v 3476 df-sbc 3778 df-csb 3894 df-dif 3951 df-un 3953 df-in 3955 df-ss 3965 df-pss 3967 df-nul 4323 df-if 4529 df-pw 4604 df-sn 4629 df-pr 4631 df-tp 4633 df-op 4635 df-uni 4909 df-int 4951 df-iun 4999 df-iin 5000 df-br 5149 df-opab 5211 df-mpt 5232 df-tr 5266 df-id 5574 df-eprel 5580 df-po 5588 df-so 5589 df-fr 5631 df-se 5632 df-we 5633 df-xp 5682 df-rel 5683 df-cnv 5684 df-co 5685 df-dm 5686 df-rn 5687 df-res 5688 df-ima 5689 df-pred 6300 df-ord 6367 df-on 6368 df-lim 6369 df-suc 6370 df-iota 6495 df-fun 6545 df-fn 6546 df-f 6547 df-f1 6548 df-fo 6549 df-f1o 6550 df-fv 6551 df-isom 6552 df-riota 7367 df-ov 7414 df-oprab 7415 df-mpo 7416 df-of 7672 df-om 7858 df-1st 7977 df-2nd 7978 df-supp 8149 df-tpos 8213 df-frecs 8268 df-wrecs 8299 df-recs 8373 df-rdg 8412 df-1o 8468 df-2o 8469 df-er 8705 df-map 8824 df-ixp 8894 df-en 8942 df-dom 8943 df-sdom 8944 df-fin 8945 df-fsupp 9364 df-fi 9408 df-sup 9439 df-inf 9440 df-oi 9507 df-card 9936 df-pnf 11252 df-mnf 11253 df-xr 11254 df-ltxr 11255 df-le 11256 df-sub 11448 df-neg 11449 df-div 11874 df-nn 12215 df-2 12277 df-3 12278 df-4 12279 df-5 12280 df-6 12281 df-7 12282 df-8 12283 df-9 12284 df-n0 12475 df-z 12561 df-dec 12680 df-uz 12825 df-q 12935 df-rp 12977 df-xneg 13094 df-xadd 13095 df-xmul 13096 df-ioo 13330 df-ico 13332 df-icc 13333 df-fz 13487 df-fzo 13630 df-seq 13969 df-exp 14030 df-hash 14293 df-cj 15048 df-re 15049 df-im 15050 df-sqrt 15184 df-abs 15185 df-struct 17082 df-sets 17099 df-slot 17117 df-ndx 17129 df-base 17147 df-ress 17176 df-plusg 17212 df-mulr 17213 df-starv 17214 df-sca 17215 df-vsca 17216 df-ip 17217 df-tset 17218 df-ple 17219 df-ds 17221 df-unif 17222 df-hom 17223 df-cco 17224 df-rest 17370 df-topn 17371 df-0g 17389 df-gsum 17390 df-topgen 17391 df-pt 17392 df-prds 17395 df-xrs 17450 df-qtop 17455 df-imas 17456 df-xps 17458 df-mre 17532 df-mrc 17533 df-acs 17535 df-mgm 18563 df-sgrp 18612 df-mnd 18628 df-mhm 18673 df-submnd 18674 df-grp 18824 df-minusg 18825 df-sbg 18826 df-mulg 18953 df-subg 19005 df-ghm 19092 df-cntz 19183 df-cmn 19652 df-mgp 19990 df-ur 20007 df-ring 20060 df-cring 20061 df-oppr 20154 df-dvdsr 20175 df-unit 20176 df-invr 20206 df-dvr 20219 df-rnghom 20255 df-subrg 20321 df-drng 20363 df-staf 20457 df-srng 20458 df-lmod 20477 df-lss 20548 df-lmhm 20638 df-lvec 20719 df-sra 20791 df-rgmod 20792 df-psmet 20942 df-xmet 20943 df-met 20944 df-bl 20945 df-mopn 20946 df-fbas 20947 df-fg 20948 df-cnfld 20951 df-phl 21185 df-top 22403 df-topon 22420 df-topsp 22442 df-bases 22456 df-cld 22530 df-ntr 22531 df-cls 22532 df-nei 22609 df-cn 22738 df-cnp 22739 df-haus 22826 df-cmp 22898 df-tx 23073 df-hmeo 23266 df-fil 23357 df-flim 23450 df-fcls 23452 df-xms 23833 df-ms 23834 df-tms 23835 df-nm 24098 df-ngp 24099 df-nlm 24102 df-cncf 24401 df-clm 24586 df-cph 24692 df-cfil 24779 df-cmet 24781 df-cms 24859 df-bn 24860 df-hl 24861

This theorem is referenced by: pjthlem2 24962

W3C validator