Theorem minveclem2 25479

Description: Lemma for minvec 25489. Any two points 𝐾 and 𝐿 in 𝑌 are close to each other if they are close to the infimum of distance to 𝐴. (Contributed by Mario Carneiro, 9-May-2014.) (Revised by Mario Carneiro, 15-Oct-2015.) (Revised by AV, 3-Oct-2020.)

Hypotheses

Ref	Expression
minvec.x	⊢ 𝑋 = (Base‘𝑈)
minvec.m	⊢ − = (-g‘𝑈)
minvec.n	⊢ 𝑁 = (norm‘𝑈)
minvec.u	⊢ (𝜑 → 𝑈 ∈ ℂPreHil)
minvec.y	⊢ (𝜑 → 𝑌 ∈ (LSubSp‘𝑈))
minvec.w	⊢ (𝜑 → (𝑈 ↾s 𝑌) ∈ CMetSp)
minvec.a	⊢ (𝜑 → 𝐴 ∈ 𝑋)
minvec.j	⊢ 𝐽 = (TopOpen‘𝑈)
minvec.r	⊢ 𝑅 = ran (𝑦 ∈ 𝑌 ↦ (𝑁‘(𝐴 − 𝑦)))
minvec.s	⊢ 𝑆 = inf(𝑅, ℝ, < )
minvec.d	⊢ 𝐷 = ((dist‘𝑈) ↾ (𝑋 × 𝑋))
minveclem2.1	⊢ (𝜑 → 𝐵 ∈ ℝ)
minveclem2.2	⊢ (𝜑 → 0 ≤ 𝐵)
minveclem2.3	⊢ (𝜑 → 𝐾 ∈ 𝑌)
minveclem2.4	⊢ (𝜑 → 𝐿 ∈ 𝑌)
minveclem2.5	⊢ (𝜑 → ((𝐴𝐷𝐾)↑2) ≤ ((𝑆↑2) + 𝐵))
minveclem2.6	⊢ (𝜑 → ((𝐴𝐷𝐿)↑2) ≤ ((𝑆↑2) + 𝐵))

Assertion

Ref	Expression
minveclem2	⊢ (𝜑 → ((𝐾𝐷𝐿)↑2) ≤ (4 · 𝐵))

Distinct variable groups:   𝑦, −   𝑦,𝐴   𝑦,𝐽   𝑦,𝐾   𝑦,𝑁   𝜑,𝑦   𝑦,𝑅   𝑦,𝑈   𝑦,𝑋   𝑦,𝑌   𝑦,𝐷   𝑦,𝑆   𝑦,𝐿

Allowed substitution hint:   𝐵(𝑦)

Proof of Theorem minveclem2

Dummy variables 𝑤 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		4re 12377	. . . . . 6 ⊢ 4 ∈ ℝ
2		minvec.x	. . . . . . . 8 ⊢ 𝑋 = (Base‘𝑈)
3		minvec.m	. . . . . . . 8 ⊢ − = (-g‘𝑈)
4		minvec.n	. . . . . . . 8 ⊢ 𝑁 = (norm‘𝑈)
5		minvec.u	. . . . . . . 8 ⊢ (𝜑 → 𝑈 ∈ ℂPreHil)
6		minvec.y	. . . . . . . 8 ⊢ (𝜑 → 𝑌 ∈ (LSubSp‘𝑈))
7		minvec.w	. . . . . . . 8 ⊢ (𝜑 → (𝑈 ↾s 𝑌) ∈ CMetSp)
8		minvec.a	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ∈ 𝑋)
9		minvec.j	. . . . . . . 8 ⊢ 𝐽 = (TopOpen‘𝑈)
10		minvec.r	. . . . . . . 8 ⊢ 𝑅 = ran (𝑦 ∈ 𝑌 ↦ (𝑁‘(𝐴 − 𝑦)))
11		minvec.s	. . . . . . . 8 ⊢ 𝑆 = inf(𝑅, ℝ, < )
12	2, 3, 4, 5, 6, 7, 8, 9, 10, 11	minveclem4c 25478	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ ℝ)
13	12	resqcld 14175	. . . . . 6 ⊢ (𝜑 → (𝑆↑2) ∈ ℝ)
14		remulcl 11269	. . . . . 6 ⊢ ((4 ∈ ℝ ∧ (𝑆↑2) ∈ ℝ) → (4 · (𝑆↑2)) ∈ ℝ)
15	1, 13, 14	sylancr 586	. . . . 5 ⊢ (𝜑 → (4 · (𝑆↑2)) ∈ ℝ)
16		cphngp 25226	. . . . . . . . . 10 ⊢ (𝑈 ∈ ℂPreHil → 𝑈 ∈ NrmGrp)
17	5, 16	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝑈 ∈ NrmGrp)
18		ngpms 24634	. . . . . . . . 9 ⊢ (𝑈 ∈ NrmGrp → 𝑈 ∈ MetSp)
19	17, 18	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑈 ∈ MetSp)
20		minvec.d	. . . . . . . . 9 ⊢ 𝐷 = ((dist‘𝑈) ↾ (𝑋 × 𝑋))
21	2, 20	msmet 24488	. . . . . . . 8 ⊢ (𝑈 ∈ MetSp → 𝐷 ∈ (Met‘𝑋))
22	19, 21	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝐷 ∈ (Met‘𝑋))
23		eqid 2740	. . . . . . . . . 10 ⊢ (LSubSp‘𝑈) = (LSubSp‘𝑈)
24	2, 23	lssss 20957	. . . . . . . . 9 ⊢ (𝑌 ∈ (LSubSp‘𝑈) → 𝑌 ⊆ 𝑋)
25	6, 24	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑌 ⊆ 𝑋)
26		minveclem2.3	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ 𝑌)
27	25, 26	sseldd 4009	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ 𝑋)
28		minveclem2.4	. . . . . . . 8 ⊢ (𝜑 → 𝐿 ∈ 𝑌)
29	25, 28	sseldd 4009	. . . . . . 7 ⊢ (𝜑 → 𝐿 ∈ 𝑋)
30		metcl 24363	. . . . . . 7 ⊢ ((𝐷 ∈ (Met‘𝑋) ∧ 𝐾 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋) → (𝐾𝐷𝐿) ∈ ℝ)
31	22, 27, 29, 30	syl3anc 1371	. . . . . 6 ⊢ (𝜑 → (𝐾𝐷𝐿) ∈ ℝ)
32	31	resqcld 14175	. . . . 5 ⊢ (𝜑 → ((𝐾𝐷𝐿)↑2) ∈ ℝ)
33	15, 32	readdcld 11319	. . . 4 ⊢ (𝜑 → ((4 · (𝑆↑2)) + ((𝐾𝐷𝐿)↑2)) ∈ ℝ)
34		cphlmod 25227	. . . . . . . . . 10 ⊢ (𝑈 ∈ ℂPreHil → 𝑈 ∈ LMod)
35	5, 34	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝑈 ∈ LMod)
36		cphclm 25242	. . . . . . . . . . . . . . 15 ⊢ (𝑈 ∈ ℂPreHil → 𝑈 ∈ ℂMod)
37	5, 36	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑈 ∈ ℂMod)
38		eqid 2740	. . . . . . . . . . . . . . 15 ⊢ (Scalar‘𝑈) = (Scalar‘𝑈)
39		eqid 2740	. . . . . . . . . . . . . . 15 ⊢ (Base‘(Scalar‘𝑈)) = (Base‘(Scalar‘𝑈))
40	38, 39	clmzss 25130	. . . . . . . . . . . . . 14 ⊢ (𝑈 ∈ ℂMod → ℤ ⊆ (Base‘(Scalar‘𝑈)))
41	37, 40	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ℤ ⊆ (Base‘(Scalar‘𝑈)))
42		2z 12675	. . . . . . . . . . . . . 14 ⊢ 2 ∈ ℤ
43	42	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 2 ∈ ℤ)
44	41, 43	sseldd 4009	. . . . . . . . . . . 12 ⊢ (𝜑 → 2 ∈ (Base‘(Scalar‘𝑈)))
45		2ne0 12397	. . . . . . . . . . . . 13 ⊢ 2 ≠ 0
46	45	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 2 ≠ 0)
47	38, 39	cphreccl 25234	. . . . . . . . . . . 12 ⊢ ((𝑈 ∈ ℂPreHil ∧ 2 ∈ (Base‘(Scalar‘𝑈)) ∧ 2 ≠ 0) → (1 / 2) ∈ (Base‘(Scalar‘𝑈)))
48	5, 44, 46, 47	syl3anc 1371	. . . . . . . . . . 11 ⊢ (𝜑 → (1 / 2) ∈ (Base‘(Scalar‘𝑈)))
49		eqid 2740	. . . . . . . . . . . . 13 ⊢ (+g‘𝑈) = (+g‘𝑈)
50	49, 23	lssvacl 20964	. . . . . . . . . . . 12 ⊢ (((𝑈 ∈ LMod ∧ 𝑌 ∈ (LSubSp‘𝑈)) ∧ (𝐾 ∈ 𝑌 ∧ 𝐿 ∈ 𝑌)) → (𝐾(+g‘𝑈)𝐿) ∈ 𝑌)
51	35, 6, 26, 28, 50	syl22anc 838	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐾(+g‘𝑈)𝐿) ∈ 𝑌)
52		eqid 2740	. . . . . . . . . . . 12 ⊢ ( ·𝑠 ‘𝑈) = ( ·𝑠 ‘𝑈)
53	38, 52, 39, 23	lssvscl 20976	. . . . . . . . . . 11 ⊢ (((𝑈 ∈ LMod ∧ 𝑌 ∈ (LSubSp‘𝑈)) ∧ ((1 / 2) ∈ (Base‘(Scalar‘𝑈)) ∧ (𝐾(+g‘𝑈)𝐿) ∈ 𝑌)) → ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) ∈ 𝑌)
54	35, 6, 48, 51, 53	syl22anc 838	. . . . . . . . . 10 ⊢ (𝜑 → ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) ∈ 𝑌)
55	25, 54	sseldd 4009	. . . . . . . . 9 ⊢ (𝜑 → ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) ∈ 𝑋)
56	2, 3	lmodvsubcl 20927	. . . . . . . . 9 ⊢ ((𝑈 ∈ LMod ∧ 𝐴 ∈ 𝑋 ∧ ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) ∈ 𝑋) → (𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))) ∈ 𝑋)
57	35, 8, 55, 56	syl3anc 1371	. . . . . . . 8 ⊢ (𝜑 → (𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))) ∈ 𝑋)
58	2, 4	nmcl 24650	. . . . . . . 8 ⊢ ((𝑈 ∈ NrmGrp ∧ (𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))) ∈ 𝑋) → (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ ℝ)
59	17, 57, 58	syl2anc 583	. . . . . . 7 ⊢ (𝜑 → (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ ℝ)
60	59	resqcld 14175	. . . . . 6 ⊢ (𝜑 → ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2) ∈ ℝ)
61		remulcl 11269	. . . . . 6 ⊢ ((4 ∈ ℝ ∧ ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2) ∈ ℝ) → (4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) ∈ ℝ)
62	1, 60, 61	sylancr 586	. . . . 5 ⊢ (𝜑 → (4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) ∈ ℝ)
63	62, 32	readdcld 11319	. . . 4 ⊢ (𝜑 → ((4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) + ((𝐾𝐷𝐿)↑2)) ∈ ℝ)
64		minveclem2.1	. . . . . 6 ⊢ (𝜑 → 𝐵 ∈ ℝ)
65	13, 64	readdcld 11319	. . . . 5 ⊢ (𝜑 → ((𝑆↑2) + 𝐵) ∈ ℝ)
66		remulcl 11269	. . . . 5 ⊢ ((4 ∈ ℝ ∧ ((𝑆↑2) + 𝐵) ∈ ℝ) → (4 · ((𝑆↑2) + 𝐵)) ∈ ℝ)
67	1, 65, 66	sylancr 586	. . . 4 ⊢ (𝜑 → (4 · ((𝑆↑2) + 𝐵)) ∈ ℝ)
68	2, 3, 4, 5, 6, 7, 8, 9, 10	minveclem1 25477	. . . . . . . . . 10 ⊢ (𝜑 → (𝑅 ⊆ ℝ ∧ 𝑅 ≠ ∅ ∧ ∀𝑤 ∈ 𝑅 0 ≤ 𝑤))
69	68	simp3d 1144	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑤 ∈ 𝑅 0 ≤ 𝑤)
70	68	simp1d 1142	. . . . . . . . . 10 ⊢ (𝜑 → 𝑅 ⊆ ℝ)
71	68	simp2d 1143	. . . . . . . . . 10 ⊢ (𝜑 → 𝑅 ≠ ∅)
72		0re 11292	. . . . . . . . . . 11 ⊢ 0 ∈ ℝ
73		breq1 5169	. . . . . . . . . . . . 13 ⊢ (𝑥 = 0 → (𝑥 ≤ 𝑤 ↔ 0 ≤ 𝑤))
74	73	ralbidv 3184	. . . . . . . . . . . 12 ⊢ (𝑥 = 0 → (∀𝑤 ∈ 𝑅 𝑥 ≤ 𝑤 ↔ ∀𝑤 ∈ 𝑅 0 ≤ 𝑤))
75	74	rspcev 3635	. . . . . . . . . . 11 ⊢ ((0 ∈ ℝ ∧ ∀𝑤 ∈ 𝑅 0 ≤ 𝑤) → ∃𝑥 ∈ ℝ ∀𝑤 ∈ 𝑅 𝑥 ≤ 𝑤)
76	72, 69, 75	sylancr 586	. . . . . . . . . 10 ⊢ (𝜑 → ∃𝑥 ∈ ℝ ∀𝑤 ∈ 𝑅 𝑥 ≤ 𝑤)
77	72	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → 0 ∈ ℝ)
78		infregelb 12279	. . . . . . . . . 10 ⊢ (((𝑅 ⊆ ℝ ∧ 𝑅 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑤 ∈ 𝑅 𝑥 ≤ 𝑤) ∧ 0 ∈ ℝ) → (0 ≤ inf(𝑅, ℝ, < ) ↔ ∀𝑤 ∈ 𝑅 0 ≤ 𝑤))
79	70, 71, 76, 77, 78	syl31anc 1373	. . . . . . . . 9 ⊢ (𝜑 → (0 ≤ inf(𝑅, ℝ, < ) ↔ ∀𝑤 ∈ 𝑅 0 ≤ 𝑤))
80	69, 79	mpbird 257	. . . . . . . 8 ⊢ (𝜑 → 0 ≤ inf(𝑅, ℝ, < ))
81	80, 11	breqtrrdi 5208	. . . . . . 7 ⊢ (𝜑 → 0 ≤ 𝑆)
82		eqid 2740	. . . . . . . . . . . 12 ⊢ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) = (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))
83		oveq2 7456	. . . . . . . . . . . . . 14 ⊢ (𝑦 = ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) → (𝐴 − 𝑦) = (𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))
84	83	fveq2d 6924	. . . . . . . . . . . . 13 ⊢ (𝑦 = ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) → (𝑁‘(𝐴 − 𝑦)) = (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
85	84	rspceeqv 3658	. . . . . . . . . . . 12 ⊢ ((((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) ∈ 𝑌 ∧ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) = (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))) → ∃𝑦 ∈ 𝑌 (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) = (𝑁‘(𝐴 − 𝑦)))
86	54, 82, 85	sylancl 585	. . . . . . . . . . 11 ⊢ (𝜑 → ∃𝑦 ∈ 𝑌 (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) = (𝑁‘(𝐴 − 𝑦)))
87		eqid 2740	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ 𝑌 ↦ (𝑁‘(𝐴 − 𝑦))) = (𝑦 ∈ 𝑌 ↦ (𝑁‘(𝐴 − 𝑦)))
88		fvex 6933	. . . . . . . . . . . 12 ⊢ (𝑁‘(𝐴 − 𝑦)) ∈ V
89	87, 88	elrnmpti 5985	. . . . . . . . . . 11 ⊢ ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ ran (𝑦 ∈ 𝑌 ↦ (𝑁‘(𝐴 − 𝑦))) ↔ ∃𝑦 ∈ 𝑌 (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) = (𝑁‘(𝐴 − 𝑦)))
90	86, 89	sylibr 234	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ ran (𝑦 ∈ 𝑌 ↦ (𝑁‘(𝐴 − 𝑦))))
91	90, 10	eleqtrrdi 2855	. . . . . . . . 9 ⊢ (𝜑 → (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ 𝑅)
92		infrelb 12280	. . . . . . . . 9 ⊢ ((𝑅 ⊆ ℝ ∧ ∃𝑥 ∈ ℝ ∀𝑤 ∈ 𝑅 𝑥 ≤ 𝑤 ∧ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ 𝑅) → inf(𝑅, ℝ, < ) ≤ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
93	70, 76, 91, 92	syl3anc 1371	. . . . . . . 8 ⊢ (𝜑 → inf(𝑅, ℝ, < ) ≤ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
94	11, 93	eqbrtrid 5201	. . . . . . 7 ⊢ (𝜑 → 𝑆 ≤ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
95		le2sq2 14185	. . . . . . 7 ⊢ (((𝑆 ∈ ℝ ∧ 0 ≤ 𝑆) ∧ ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ ℝ ∧ 𝑆 ≤ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))) → (𝑆↑2) ≤ ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2))
96	12, 81, 59, 94, 95	syl22anc 838	. . . . . 6 ⊢ (𝜑 → (𝑆↑2) ≤ ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2))
97		4pos 12400	. . . . . . . . 9 ⊢ 0 < 4
98	1, 97	pm3.2i 470	. . . . . . . 8 ⊢ (4 ∈ ℝ ∧ 0 < 4)
99		lemul2 12147	. . . . . . . 8 ⊢ (((𝑆↑2) ∈ ℝ ∧ ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2) ∈ ℝ ∧ (4 ∈ ℝ ∧ 0 < 4)) → ((𝑆↑2) ≤ ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2) ↔ (4 · (𝑆↑2)) ≤ (4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2))))
100	98, 99	mp3an3 1450	. . . . . . 7 ⊢ (((𝑆↑2) ∈ ℝ ∧ ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2) ∈ ℝ) → ((𝑆↑2) ≤ ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2) ↔ (4 · (𝑆↑2)) ≤ (4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2))))
101	13, 60, 100	syl2anc 583	. . . . . 6 ⊢ (𝜑 → ((𝑆↑2) ≤ ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2) ↔ (4 · (𝑆↑2)) ≤ (4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2))))
102	96, 101	mpbid 232	. . . . 5 ⊢ (𝜑 → (4 · (𝑆↑2)) ≤ (4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)))
103	15, 62, 32, 102	leadd1dd 11904	. . . 4 ⊢ (𝜑 → ((4 · (𝑆↑2)) + ((𝐾𝐷𝐿)↑2)) ≤ ((4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) + ((𝐾𝐷𝐿)↑2)))
104		metcl 24363	. . . . . . . . . 10 ⊢ ((𝐷 ∈ (Met‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐾 ∈ 𝑋) → (𝐴𝐷𝐾) ∈ ℝ)
105	22, 8, 27, 104	syl3anc 1371	. . . . . . . . 9 ⊢ (𝜑 → (𝐴𝐷𝐾) ∈ ℝ)
106	105	resqcld 14175	. . . . . . . 8 ⊢ (𝜑 → ((𝐴𝐷𝐾)↑2) ∈ ℝ)
107		metcl 24363	. . . . . . . . . 10 ⊢ ((𝐷 ∈ (Met‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋) → (𝐴𝐷𝐿) ∈ ℝ)
108	22, 8, 29, 107	syl3anc 1371	. . . . . . . . 9 ⊢ (𝜑 → (𝐴𝐷𝐿) ∈ ℝ)
109	108	resqcld 14175	. . . . . . . 8 ⊢ (𝜑 → ((𝐴𝐷𝐿)↑2) ∈ ℝ)
110		minveclem2.5	. . . . . . . 8 ⊢ (𝜑 → ((𝐴𝐷𝐾)↑2) ≤ ((𝑆↑2) + 𝐵))
111		minveclem2.6	. . . . . . . 8 ⊢ (𝜑 → ((𝐴𝐷𝐿)↑2) ≤ ((𝑆↑2) + 𝐵))
112	106, 109, 65, 65, 110, 111	le2addd 11909	. . . . . . 7 ⊢ (𝜑 → (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) ≤ (((𝑆↑2) + 𝐵) + ((𝑆↑2) + 𝐵)))
113	65	recnd 11318	. . . . . . . 8 ⊢ (𝜑 → ((𝑆↑2) + 𝐵) ∈ ℂ)
114	113	2timesd 12536	. . . . . . 7 ⊢ (𝜑 → (2 · ((𝑆↑2) + 𝐵)) = (((𝑆↑2) + 𝐵) + ((𝑆↑2) + 𝐵)))
115	112, 114	breqtrrd 5194	. . . . . 6 ⊢ (𝜑 → (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) ≤ (2 · ((𝑆↑2) + 𝐵)))
116	106, 109	readdcld 11319	. . . . . . 7 ⊢ (𝜑 → (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) ∈ ℝ)
117		2re 12367	. . . . . . . 8 ⊢ 2 ∈ ℝ
118		remulcl 11269	. . . . . . . 8 ⊢ ((2 ∈ ℝ ∧ ((𝑆↑2) + 𝐵) ∈ ℝ) → (2 · ((𝑆↑2) + 𝐵)) ∈ ℝ)
119	117, 65, 118	sylancr 586	. . . . . . 7 ⊢ (𝜑 → (2 · ((𝑆↑2) + 𝐵)) ∈ ℝ)
120		2pos 12396	. . . . . . . . 9 ⊢ 0 < 2
121	117, 120	pm3.2i 470	. . . . . . . 8 ⊢ (2 ∈ ℝ ∧ 0 < 2)
122		lemul2 12147	. . . . . . . 8 ⊢ (((((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) ∈ ℝ ∧ (2 · ((𝑆↑2) + 𝐵)) ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) → ((((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) ≤ (2 · ((𝑆↑2) + 𝐵)) ↔ (2 · (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2))) ≤ (2 · (2 · ((𝑆↑2) + 𝐵)))))
123	121, 122	mp3an3 1450	. . . . . . 7 ⊢ (((((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) ∈ ℝ ∧ (2 · ((𝑆↑2) + 𝐵)) ∈ ℝ) → ((((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) ≤ (2 · ((𝑆↑2) + 𝐵)) ↔ (2 · (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2))) ≤ (2 · (2 · ((𝑆↑2) + 𝐵)))))
124	116, 119, 123	syl2anc 583	. . . . . 6 ⊢ (𝜑 → ((((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) ≤ (2 · ((𝑆↑2) + 𝐵)) ↔ (2 · (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2))) ≤ (2 · (2 · ((𝑆↑2) + 𝐵)))))
125	115, 124	mpbid 232	. . . . 5 ⊢ (𝜑 → (2 · (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2))) ≤ (2 · (2 · ((𝑆↑2) + 𝐵))))
126	2, 3	lmodvsubcl 20927	. . . . . . . 8 ⊢ ((𝑈 ∈ LMod ∧ 𝐴 ∈ 𝑋 ∧ 𝐾 ∈ 𝑋) → (𝐴 − 𝐾) ∈ 𝑋)
127	35, 8, 27, 126	syl3anc 1371	. . . . . . 7 ⊢ (𝜑 → (𝐴 − 𝐾) ∈ 𝑋)
128	2, 3	lmodvsubcl 20927	. . . . . . . 8 ⊢ ((𝑈 ∈ LMod ∧ 𝐴 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋) → (𝐴 − 𝐿) ∈ 𝑋)
129	35, 8, 29, 128	syl3anc 1371	. . . . . . 7 ⊢ (𝜑 → (𝐴 − 𝐿) ∈ 𝑋)
130	2, 49, 3, 4	nmpar 25293	. . . . . . 7 ⊢ ((𝑈 ∈ ℂPreHil ∧ (𝐴 − 𝐾) ∈ 𝑋 ∧ (𝐴 − 𝐿) ∈ 𝑋) → (((𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))↑2) + ((𝑁‘((𝐴 − 𝐾) − (𝐴 − 𝐿)))↑2)) = (2 · (((𝑁‘(𝐴 − 𝐾))↑2) + ((𝑁‘(𝐴 − 𝐿))↑2))))
131	5, 127, 129, 130	syl3anc 1371	. . . . . 6 ⊢ (𝜑 → (((𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))↑2) + ((𝑁‘((𝐴 − 𝐾) − (𝐴 − 𝐿)))↑2)) = (2 · (((𝑁‘(𝐴 − 𝐾))↑2) + ((𝑁‘(𝐴 − 𝐿))↑2))))
132		2cn 12368	. . . . . . . . . 10 ⊢ 2 ∈ ℂ
133	59	recnd 11318	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ ℂ)
134		sqmul 14169	. . . . . . . . . 10 ⊢ ((2 ∈ ℂ ∧ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ ℂ) → ((2 · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))↑2) = ((2↑2) · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)))
135	132, 133, 134	sylancr 586	. . . . . . . . 9 ⊢ (𝜑 → ((2 · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))↑2) = ((2↑2) · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)))
136		sq2 14246	. . . . . . . . . 10 ⊢ (2↑2) = 4
137	136	oveq1i 7458	. . . . . . . . 9 ⊢ ((2↑2) · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) = (4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2))
138	135, 137	eqtrdi 2796	. . . . . . . 8 ⊢ (𝜑 → ((2 · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))↑2) = (4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)))
139	2, 4, 52, 38, 39	cphnmvs 25243	. . . . . . . . . . . 12 ⊢ ((𝑈 ∈ ℂPreHil ∧ 2 ∈ (Base‘(Scalar‘𝑈)) ∧ (𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))) ∈ 𝑋) → (𝑁‘(2( ·𝑠 ‘𝑈)(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))) = ((abs‘2) · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))))
140	5, 44, 57, 139	syl3anc 1371	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑁‘(2( ·𝑠 ‘𝑈)(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))) = ((abs‘2) · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))))
141		0le2 12395	. . . . . . . . . . . . 13 ⊢ 0 ≤ 2
142		absid 15345	. . . . . . . . . . . . 13 ⊢ ((2 ∈ ℝ ∧ 0 ≤ 2) → (abs‘2) = 2)
143	117, 141, 142	mp2an 691	. . . . . . . . . . . 12 ⊢ (abs‘2) = 2
144	143	oveq1i 7458	. . . . . . . . . . 11 ⊢ ((abs‘2) · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))) = (2 · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
145	140, 144	eqtrdi 2796	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁‘(2( ·𝑠 ‘𝑈)(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))) = (2 · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))))
146	2, 52, 38, 39, 3, 35, 44, 8, 55	lmodsubdi 20939	. . . . . . . . . . . 12 ⊢ (𝜑 → (2( ·𝑠 ‘𝑈)(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) = ((2( ·𝑠 ‘𝑈)𝐴) − (2( ·𝑠 ‘𝑈)((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
147		eqid 2740	. . . . . . . . . . . . . . . 16 ⊢ (.g‘𝑈) = (.g‘𝑈)
148	2, 147, 49	mulg2 19123	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ 𝑋 → (2(.g‘𝑈)𝐴) = (𝐴(+g‘𝑈)𝐴))
149	8, 148	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (2(.g‘𝑈)𝐴) = (𝐴(+g‘𝑈)𝐴))
150	2, 147, 52	clmmulg 25153	. . . . . . . . . . . . . . 15 ⊢ ((𝑈 ∈ ℂMod ∧ 2 ∈ ℤ ∧ 𝐴 ∈ 𝑋) → (2(.g‘𝑈)𝐴) = (2( ·𝑠 ‘𝑈)𝐴))
151	37, 43, 8, 150	syl3anc 1371	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (2(.g‘𝑈)𝐴) = (2( ·𝑠 ‘𝑈)𝐴))
152	149, 151	eqtr3d 2782	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐴(+g‘𝑈)𝐴) = (2( ·𝑠 ‘𝑈)𝐴))
153	2, 49	lmodvacl 20895	. . . . . . . . . . . . . . . 16 ⊢ ((𝑈 ∈ LMod ∧ 𝐾 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋) → (𝐾(+g‘𝑈)𝐿) ∈ 𝑋)
154	35, 27, 29, 153	syl3anc 1371	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐾(+g‘𝑈)𝐿) ∈ 𝑋)
155	2, 52	clmvs1 25145	. . . . . . . . . . . . . . 15 ⊢ ((𝑈 ∈ ℂMod ∧ (𝐾(+g‘𝑈)𝐿) ∈ 𝑋) → (1( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) = (𝐾(+g‘𝑈)𝐿))
156	37, 154, 155	syl2anc 583	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (1( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) = (𝐾(+g‘𝑈)𝐿))
157	132, 45	recidi 12025	. . . . . . . . . . . . . . . 16 ⊢ (2 · (1 / 2)) = 1
158	157	oveq1i 7458	. . . . . . . . . . . . . . 15 ⊢ ((2 · (1 / 2))( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) = (1( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))
159	2, 38, 52, 39	clmvsass 25141	. . . . . . . . . . . . . . . 16 ⊢ ((𝑈 ∈ ℂMod ∧ (2 ∈ (Base‘(Scalar‘𝑈)) ∧ (1 / 2) ∈ (Base‘(Scalar‘𝑈)) ∧ (𝐾(+g‘𝑈)𝐿) ∈ 𝑋)) → ((2 · (1 / 2))( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) = (2( ·𝑠 ‘𝑈)((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))
160	37, 44, 48, 154, 159	syl13anc 1372	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2 · (1 / 2))( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) = (2( ·𝑠 ‘𝑈)((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))
161	158, 160	eqtr3id 2794	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (1( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) = (2( ·𝑠 ‘𝑈)((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))
162	156, 161	eqtr3d 2782	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐾(+g‘𝑈)𝐿) = (2( ·𝑠 ‘𝑈)((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))
163	152, 162	oveq12d 7466	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐴(+g‘𝑈)𝐴) − (𝐾(+g‘𝑈)𝐿)) = ((2( ·𝑠 ‘𝑈)𝐴) − (2( ·𝑠 ‘𝑈)((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
164		lmodabl 20929	. . . . . . . . . . . . . 14 ⊢ (𝑈 ∈ LMod → 𝑈 ∈ Abel)
165	35, 164	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑈 ∈ Abel)
166	2, 49, 3	ablsub4 19852	. . . . . . . . . . . . 13 ⊢ ((𝑈 ∈ Abel ∧ (𝐴 ∈ 𝑋 ∧ 𝐴 ∈ 𝑋) ∧ (𝐾 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋)) → ((𝐴(+g‘𝑈)𝐴) − (𝐾(+g‘𝑈)𝐿)) = ((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))
167	165, 8, 8, 27, 29, 166	syl122anc 1379	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐴(+g‘𝑈)𝐴) − (𝐾(+g‘𝑈)𝐿)) = ((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))
168	146, 163, 167	3eqtr2d 2786	. . . . . . . . . . 11 ⊢ (𝜑 → (2( ·𝑠 ‘𝑈)(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) = ((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))
169	168	fveq2d 6924	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁‘(2( ·𝑠 ‘𝑈)(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))) = (𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿))))
170	145, 169	eqtr3d 2782	. . . . . . . . 9 ⊢ (𝜑 → (2 · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))) = (𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿))))
171	170	oveq1d 7463	. . . . . . . 8 ⊢ (𝜑 → ((2 · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))↑2) = ((𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))↑2))
172	138, 171	eqtr3d 2782	. . . . . . 7 ⊢ (𝜑 → (4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) = ((𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))↑2))
173		eqid 2740	. . . . . . . . . . 11 ⊢ (dist‘𝑈) = (dist‘𝑈)
174	4, 2, 3, 173	ngpdsr 24639	. . . . . . . . . 10 ⊢ ((𝑈 ∈ NrmGrp ∧ 𝐾 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋) → (𝐾(dist‘𝑈)𝐿) = (𝑁‘(𝐿 − 𝐾)))
175	17, 27, 29, 174	syl3anc 1371	. . . . . . . . 9 ⊢ (𝜑 → (𝐾(dist‘𝑈)𝐿) = (𝑁‘(𝐿 − 𝐾)))
176	20	oveqi 7461	. . . . . . . . . 10 ⊢ (𝐾𝐷𝐿) = (𝐾((dist‘𝑈) ↾ (𝑋 × 𝑋))𝐿)
177	27, 29	ovresd 7617	. . . . . . . . . 10 ⊢ (𝜑 → (𝐾((dist‘𝑈) ↾ (𝑋 × 𝑋))𝐿) = (𝐾(dist‘𝑈)𝐿))
178	176, 177	eqtrid 2792	. . . . . . . . 9 ⊢ (𝜑 → (𝐾𝐷𝐿) = (𝐾(dist‘𝑈)𝐿))
179	2, 3, 165, 8, 27, 29	ablnnncan1 19865	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐴 − 𝐾) − (𝐴 − 𝐿)) = (𝐿 − 𝐾))
180	179	fveq2d 6924	. . . . . . . . 9 ⊢ (𝜑 → (𝑁‘((𝐴 − 𝐾) − (𝐴 − 𝐿))) = (𝑁‘(𝐿 − 𝐾)))
181	175, 178, 180	3eqtr4d 2790	. . . . . . . 8 ⊢ (𝜑 → (𝐾𝐷𝐿) = (𝑁‘((𝐴 − 𝐾) − (𝐴 − 𝐿))))
182	181	oveq1d 7463	. . . . . . 7 ⊢ (𝜑 → ((𝐾𝐷𝐿)↑2) = ((𝑁‘((𝐴 − 𝐾) − (𝐴 − 𝐿)))↑2))
183	172, 182	oveq12d 7466	. . . . . 6 ⊢ (𝜑 → ((4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) + ((𝐾𝐷𝐿)↑2)) = (((𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))↑2) + ((𝑁‘((𝐴 − 𝐾) − (𝐴 − 𝐿)))↑2)))
184	20	oveqi 7461	. . . . . . . . . . 11 ⊢ (𝐴𝐷𝐾) = (𝐴((dist‘𝑈) ↾ (𝑋 × 𝑋))𝐾)
185	8, 27	ovresd 7617	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴((dist‘𝑈) ↾ (𝑋 × 𝑋))𝐾) = (𝐴(dist‘𝑈)𝐾))
186	184, 185	eqtrid 2792	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴𝐷𝐾) = (𝐴(dist‘𝑈)𝐾))
187	4, 2, 3, 173	ngpds 24638	. . . . . . . . . . 11 ⊢ ((𝑈 ∈ NrmGrp ∧ 𝐴 ∈ 𝑋 ∧ 𝐾 ∈ 𝑋) → (𝐴(dist‘𝑈)𝐾) = (𝑁‘(𝐴 − 𝐾)))
188	17, 8, 27, 187	syl3anc 1371	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴(dist‘𝑈)𝐾) = (𝑁‘(𝐴 − 𝐾)))
189	186, 188	eqtrd 2780	. . . . . . . . 9 ⊢ (𝜑 → (𝐴𝐷𝐾) = (𝑁‘(𝐴 − 𝐾)))
190	189	oveq1d 7463	. . . . . . . 8 ⊢ (𝜑 → ((𝐴𝐷𝐾)↑2) = ((𝑁‘(𝐴 − 𝐾))↑2))
191	20	oveqi 7461	. . . . . . . . . . 11 ⊢ (𝐴𝐷𝐿) = (𝐴((dist‘𝑈) ↾ (𝑋 × 𝑋))𝐿)
192	8, 29	ovresd 7617	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴((dist‘𝑈) ↾ (𝑋 × 𝑋))𝐿) = (𝐴(dist‘𝑈)𝐿))
193	191, 192	eqtrid 2792	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴𝐷𝐿) = (𝐴(dist‘𝑈)𝐿))
194	4, 2, 3, 173	ngpds 24638	. . . . . . . . . . 11 ⊢ ((𝑈 ∈ NrmGrp ∧ 𝐴 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋) → (𝐴(dist‘𝑈)𝐿) = (𝑁‘(𝐴 − 𝐿)))
195	17, 8, 29, 194	syl3anc 1371	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴(dist‘𝑈)𝐿) = (𝑁‘(𝐴 − 𝐿)))
196	193, 195	eqtrd 2780	. . . . . . . . 9 ⊢ (𝜑 → (𝐴𝐷𝐿) = (𝑁‘(𝐴 − 𝐿)))
197	196	oveq1d 7463	. . . . . . . 8 ⊢ (𝜑 → ((𝐴𝐷𝐿)↑2) = ((𝑁‘(𝐴 − 𝐿))↑2))
198	190, 197	oveq12d 7466	. . . . . . 7 ⊢ (𝜑 → (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) = (((𝑁‘(𝐴 − 𝐾))↑2) + ((𝑁‘(𝐴 − 𝐿))↑2)))
199	198	oveq2d 7464	. . . . . 6 ⊢ (𝜑 → (2 · (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2))) = (2 · (((𝑁‘(𝐴 − 𝐾))↑2) + ((𝑁‘(𝐴 − 𝐿))↑2))))
200	131, 183, 199	3eqtr4d 2790	. . . . 5 ⊢ (𝜑 → ((4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) + ((𝐾𝐷𝐿)↑2)) = (2 · (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2))))
201		2t2e4 12457	. . . . . . 7 ⊢ (2 · 2) = 4
202	201	oveq1i 7458	. . . . . 6 ⊢ ((2 · 2) · ((𝑆↑2) + 𝐵)) = (4 · ((𝑆↑2) + 𝐵))
203		2cnd 12371	. . . . . . 7 ⊢ (𝜑 → 2 ∈ ℂ)
204	203, 203, 113	mulassd 11313	. . . . . 6 ⊢ (𝜑 → ((2 · 2) · ((𝑆↑2) + 𝐵)) = (2 · (2 · ((𝑆↑2) + 𝐵))))
205	202, 204	eqtr3id 2794	. . . . 5 ⊢ (𝜑 → (4 · ((𝑆↑2) + 𝐵)) = (2 · (2 · ((𝑆↑2) + 𝐵))))
206	125, 200, 205	3brtr4d 5198	. . . 4 ⊢ (𝜑 → ((4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) + ((𝐾𝐷𝐿)↑2)) ≤ (4 · ((𝑆↑2) + 𝐵)))
207	33, 63, 67, 103, 206	letrd 11447	. . 3 ⊢ (𝜑 → ((4 · (𝑆↑2)) + ((𝐾𝐷𝐿)↑2)) ≤ (4 · ((𝑆↑2) + 𝐵)))
208		4cn 12378	. . . . 5 ⊢ 4 ∈ ℂ
209	208	a1i 11	. . . 4 ⊢ (𝜑 → 4 ∈ ℂ)
210	13	recnd 11318	. . . 4 ⊢ (𝜑 → (𝑆↑2) ∈ ℂ)
211	64	recnd 11318	. . . 4 ⊢ (𝜑 → 𝐵 ∈ ℂ)
212	209, 210, 211	adddid 11314	. . 3 ⊢ (𝜑 → (4 · ((𝑆↑2) + 𝐵)) = ((4 · (𝑆↑2)) + (4 · 𝐵)))
213	207, 212	breqtrd 5192	. 2 ⊢ (𝜑 → ((4 · (𝑆↑2)) + ((𝐾𝐷𝐿)↑2)) ≤ ((4 · (𝑆↑2)) + (4 · 𝐵)))
214		remulcl 11269	. . . 4 ⊢ ((4 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (4 · 𝐵) ∈ ℝ)
215	1, 64, 214	sylancr 586	. . 3 ⊢ (𝜑 → (4 · 𝐵) ∈ ℝ)
216	32, 215, 15	leadd2d 11885	. 2 ⊢ (𝜑 → (((𝐾𝐷𝐿)↑2) ≤ (4 · 𝐵) ↔ ((4 · (𝑆↑2)) + ((𝐾𝐷𝐿)↑2)) ≤ ((4 · (𝑆↑2)) + (4 · 𝐵))))
217	213, 216	mpbird 257	1 ⊢ (𝜑 → ((𝐾𝐷𝐿)↑2) ≤ (4 · 𝐵))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1537   ∈ wcel 2108   ≠ wne 2946  ∀wral 3067  ∃wrex 3076   ⊆ wss 3976  ∅c0 4352   class class class wbr 5166   ↦ cmpt 5249   × cxp 5698  ran crn 5701   ↾ cres 5702  ‘cfv 6573  (class class class)co 7448  infcinf 9510  ℂcc 11182  ℝcr 11183  0cc0 11184  1c1 11185   + caddc 11187   · cmul 11189   < clt 11324   ≤ cle 11325   / cdiv 11947  2c2 12348  4c4 12350  ℤcz 12639  ↑cexp 14112  abscabs 15283  Basecbs 17258   ↾_s cress 17287  +_gcplusg 17311  Scalarcsca 17314   ·_𝑠 cvsca 17315  distcds 17320  TopOpenctopn 17481  -_gcsg 18975  ._gcmg 19107  Abelcabl 19823  LModclmod 20880  LSubSpclss 20952  Metcmet 21373  MetSpcms 24349  normcnm 24610  NrmGrpcngp 24611  ℂModcclm 25114  ℂPreHilccph 25219  CMetSpccms 25385

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-cnex 11240  ax-resscn 11241  ax-1cn 11242  ax-icn 11243  ax-addcl 11244  ax-addrcl 11245  ax-mulcl 11246  ax-mulrcl 11247  ax-mulcom 11248  ax-addass 11249  ax-mulass 11250  ax-distr 11251  ax-i2m1 11252  ax-1ne0 11253  ax-1rid 11254  ax-rnegex 11255  ax-rrecex 11256  ax-cnre 11257  ax-pre-lttri 11258  ax-pre-lttrn 11259  ax-pre-ltadd 11260  ax-pre-mulgt0 11261  ax-pre-sup 11262  ax-addf 11263  ax-mulf 11264

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-nel 3053  df-ral 3068  df-rex 3077  df-rmo 3388  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-tp 4653  df-op 4655  df-uni 4932  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-om 7904  df-1st 8030  df-2nd 8031  df-tpos 8267  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-1o 8522  df-er 8763  df-map 8886  df-en 9004  df-dom 9005  df-sdom 9006  df-fin 9007  df-sup 9511  df-inf 9512  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11522  df-neg 11523  df-div 11948  df-nn 12294  df-2 12356  df-3 12357  df-4 12358  df-5 12359  df-6 12360  df-7 12361  df-8 12362  df-9 12363  df-n0 12554  df-z 12640  df-dec 12759  df-uz 12904  df-q 13014  df-rp 13058  df-xneg 13175  df-xadd 13176  df-xmul 13177  df-fz 13568  df-seq 14053  df-exp 14113  df-cj 15148  df-re 15149  df-im 15150  df-sqrt 15284  df-abs 15285  df-struct 17194  df-sets 17211  df-slot 17229  df-ndx 17241  df-base 17259  df-ress 17288  df-plusg 17324  df-mulr 17325  df-starv 17326  df-sca 17327  df-vsca 17328  df-ip 17329  df-tset 17330  df-ple 17331  df-ds 17333  df-unif 17334  df-0g 17501  df-topgen 17503  df-mgm 18678  df-sgrp 18757  df-mnd 18773  df-mhm 18818  df-grp 18976  df-minusg 18977  df-sbg 18978  df-mulg 19108  df-subg 19163  df-ghm 19253  df-cmn 19824  df-abl 19825  df-mgp 20162  df-rng 20180  df-ur 20209  df-ring 20262  df-cring 20263  df-oppr 20360  df-dvdsr 20383  df-unit 20384  df-invr 20414  df-dvr 20427  df-rhm 20498  df-subrg 20597  df-drng 20753  df-staf 20862  df-srng 20863  df-lmod 20882  df-lss 20953  df-lmhm 21044  df-lvec 21125  df-sra 21195  df-rgmod 21196  df-psmet 21379  df-xmet 21380  df-met 21381  df-bl 21382  df-mopn 21383  df-cnfld 21388  df-phl 21667  df-top 22921  df-topon 22938  df-topsp 22960  df-bases 22974  df-xms 24351  df-ms 24352  df-nm 24616  df-ngp 24617  df-nlm 24620  df-clm 25115  df-cph 25221

This theorem is referenced by:  minveclem3  25482  minveclem7  25488