Theorem minveclem2 25333

Description: Lemma for minvec 25343. 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 12277	. . . . . 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 25332	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ ℝ)
13	12	resqcld 14097	. . . . . 6 ⊢ (𝜑 → (𝑆↑2) ∈ ℝ)
14		remulcl 11160	. . . . . 6 ⊢ ((4 ∈ ℝ ∧ (𝑆↑2) ∈ ℝ) → (4 · (𝑆↑2)) ∈ ℝ)
15	1, 13, 14	sylancr 587	. . . . 5 ⊢ (𝜑 → (4 · (𝑆↑2)) ∈ ℝ)
16		cphngp 25080	. . . . . . . . . 10 ⊢ (𝑈 ∈ ℂPreHil → 𝑈 ∈ NrmGrp)
17	5, 16	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝑈 ∈ NrmGrp)
18		ngpms 24495	. . . . . . . . 9 ⊢ (𝑈 ∈ NrmGrp → 𝑈 ∈ MetSp)
19	17, 18	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑈 ∈ MetSp)
20		minvec.d	. . . . . . . . 9 ⊢ 𝐷 = ((dist‘𝑈) ↾ (𝑋 × 𝑋))
21	2, 20	msmet 24352	. . . . . . . 8 ⊢ (𝑈 ∈ MetSp → 𝐷 ∈ (Met‘𝑋))
22	19, 21	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝐷 ∈ (Met‘𝑋))
23		eqid 2730	. . . . . . . . . 10 ⊢ (LSubSp‘𝑈) = (LSubSp‘𝑈)
24	2, 23	lssss 20849	. . . . . . . . 9 ⊢ (𝑌 ∈ (LSubSp‘𝑈) → 𝑌 ⊆ 𝑋)
25	6, 24	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑌 ⊆ 𝑋)
26		minveclem2.3	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ 𝑌)
27	25, 26	sseldd 3950	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ 𝑋)
28		minveclem2.4	. . . . . . . 8 ⊢ (𝜑 → 𝐿 ∈ 𝑌)
29	25, 28	sseldd 3950	. . . . . . 7 ⊢ (𝜑 → 𝐿 ∈ 𝑋)
30		metcl 24227	. . . . . . 7 ⊢ ((𝐷 ∈ (Met‘𝑋) ∧ 𝐾 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋) → (𝐾𝐷𝐿) ∈ ℝ)
31	22, 27, 29, 30	syl3anc 1373	. . . . . 6 ⊢ (𝜑 → (𝐾𝐷𝐿) ∈ ℝ)
32	31	resqcld 14097	. . . . 5 ⊢ (𝜑 → ((𝐾𝐷𝐿)↑2) ∈ ℝ)
33	15, 32	readdcld 11210	. . . 4 ⊢ (𝜑 → ((4 · (𝑆↑2)) + ((𝐾𝐷𝐿)↑2)) ∈ ℝ)
34		cphlmod 25081	. . . . . . . . . 10 ⊢ (𝑈 ∈ ℂPreHil → 𝑈 ∈ LMod)
35	5, 34	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝑈 ∈ LMod)
36		cphclm 25096	. . . . . . . . . . . . . . 15 ⊢ (𝑈 ∈ ℂPreHil → 𝑈 ∈ ℂMod)
37	5, 36	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑈 ∈ ℂMod)
38		eqid 2730	. . . . . . . . . . . . . . 15 ⊢ (Scalar‘𝑈) = (Scalar‘𝑈)
39		eqid 2730	. . . . . . . . . . . . . . 15 ⊢ (Base‘(Scalar‘𝑈)) = (Base‘(Scalar‘𝑈))
40	38, 39	clmzss 24985	. . . . . . . . . . . . . 14 ⊢ (𝑈 ∈ ℂMod → ℤ ⊆ (Base‘(Scalar‘𝑈)))
41	37, 40	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ℤ ⊆ (Base‘(Scalar‘𝑈)))
42		2z 12572	. . . . . . . . . . . . . 14 ⊢ 2 ∈ ℤ
43	42	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 2 ∈ ℤ)
44	41, 43	sseldd 3950	. . . . . . . . . . . 12 ⊢ (𝜑 → 2 ∈ (Base‘(Scalar‘𝑈)))
45		2ne0 12297	. . . . . . . . . . . . 13 ⊢ 2 ≠ 0
46	45	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 2 ≠ 0)
47	38, 39	cphreccl 25088	. . . . . . . . . . . 12 ⊢ ((𝑈 ∈ ℂPreHil ∧ 2 ∈ (Base‘(Scalar‘𝑈)) ∧ 2 ≠ 0) → (1 / 2) ∈ (Base‘(Scalar‘𝑈)))
48	5, 44, 46, 47	syl3anc 1373	. . . . . . . . . . 11 ⊢ (𝜑 → (1 / 2) ∈ (Base‘(Scalar‘𝑈)))
49		eqid 2730	. . . . . . . . . . . . 13 ⊢ (+g‘𝑈) = (+g‘𝑈)
50	49, 23	lssvacl 20856	. . . . . . . . . . . 12 ⊢ (((𝑈 ∈ LMod ∧ 𝑌 ∈ (LSubSp‘𝑈)) ∧ (𝐾 ∈ 𝑌 ∧ 𝐿 ∈ 𝑌)) → (𝐾(+g‘𝑈)𝐿) ∈ 𝑌)
51	35, 6, 26, 28, 50	syl22anc 838	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐾(+g‘𝑈)𝐿) ∈ 𝑌)
52		eqid 2730	. . . . . . . . . . . 12 ⊢ ( ·𝑠 ‘𝑈) = ( ·𝑠 ‘𝑈)
53	38, 52, 39, 23	lssvscl 20868	. . . . . . . . . . 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 3950	. . . . . . . . 9 ⊢ (𝜑 → ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) ∈ 𝑋)
56	2, 3	lmodvsubcl 20820	. . . . . . . . 9 ⊢ ((𝑈 ∈ LMod ∧ 𝐴 ∈ 𝑋 ∧ ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) ∈ 𝑋) → (𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))) ∈ 𝑋)
57	35, 8, 55, 56	syl3anc 1373	. . . . . . . 8 ⊢ (𝜑 → (𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))) ∈ 𝑋)
58	2, 4	nmcl 24511	. . . . . . . 8 ⊢ ((𝑈 ∈ NrmGrp ∧ (𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))) ∈ 𝑋) → (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ ℝ)
59	17, 57, 58	syl2anc 584	. . . . . . 7 ⊢ (𝜑 → (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ ℝ)
60	59	resqcld 14097	. . . . . 6 ⊢ (𝜑 → ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2) ∈ ℝ)
61		remulcl 11160	. . . . . 6 ⊢ ((4 ∈ ℝ ∧ ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2) ∈ ℝ) → (4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) ∈ ℝ)
62	1, 60, 61	sylancr 587	. . . . 5 ⊢ (𝜑 → (4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) ∈ ℝ)
63	62, 32	readdcld 11210	. . . 4 ⊢ (𝜑 → ((4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) + ((𝐾𝐷𝐿)↑2)) ∈ ℝ)
64		minveclem2.1	. . . . . 6 ⊢ (𝜑 → 𝐵 ∈ ℝ)
65	13, 64	readdcld 11210	. . . . 5 ⊢ (𝜑 → ((𝑆↑2) + 𝐵) ∈ ℝ)
66		remulcl 11160	. . . . 5 ⊢ ((4 ∈ ℝ ∧ ((𝑆↑2) + 𝐵) ∈ ℝ) → (4 · ((𝑆↑2) + 𝐵)) ∈ ℝ)
67	1, 65, 66	sylancr 587	. . . 4 ⊢ (𝜑 → (4 · ((𝑆↑2) + 𝐵)) ∈ ℝ)
68	2, 3, 4, 5, 6, 7, 8, 9, 10	minveclem1 25331	. . . . . . . . . 10 ⊢ (𝜑 → (𝑅 ⊆ ℝ ∧ 𝑅 ≠ ∅ ∧ ∀𝑤 ∈ 𝑅 0 ≤ 𝑤))
69	68	simp3d 1144	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑤 ∈ 𝑅 0 ≤ 𝑤)
70	68	simp1d 1142	. . . . . . . . . 10 ⊢ (𝜑 → 𝑅 ⊆ ℝ)
71	68	simp2d 1143	. . . . . . . . . 10 ⊢ (𝜑 → 𝑅 ≠ ∅)
72		0re 11183	. . . . . . . . . . 11 ⊢ 0 ∈ ℝ
73		breq1 5113	. . . . . . . . . . . . 13 ⊢ (𝑥 = 0 → (𝑥 ≤ 𝑤 ↔ 0 ≤ 𝑤))
74	73	ralbidv 3157	. . . . . . . . . . . 12 ⊢ (𝑥 = 0 → (∀𝑤 ∈ 𝑅 𝑥 ≤ 𝑤 ↔ ∀𝑤 ∈ 𝑅 0 ≤ 𝑤))
75	74	rspcev 3591	. . . . . . . . . . 11 ⊢ ((0 ∈ ℝ ∧ ∀𝑤 ∈ 𝑅 0 ≤ 𝑤) → ∃𝑥 ∈ ℝ ∀𝑤 ∈ 𝑅 𝑥 ≤ 𝑤)
76	72, 69, 75	sylancr 587	. . . . . . . . . 10 ⊢ (𝜑 → ∃𝑥 ∈ ℝ ∀𝑤 ∈ 𝑅 𝑥 ≤ 𝑤)
77	72	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → 0 ∈ ℝ)
78		infregelb 12174	. . . . . . . . . 10 ⊢ (((𝑅 ⊆ ℝ ∧ 𝑅 ≠ ∅ ∧ ∃𝑥 ∈ ℝ ∀𝑤 ∈ 𝑅 𝑥 ≤ 𝑤) ∧ 0 ∈ ℝ) → (0 ≤ inf(𝑅, ℝ, < ) ↔ ∀𝑤 ∈ 𝑅 0 ≤ 𝑤))
79	70, 71, 76, 77, 78	syl31anc 1375	. . . . . . . . 9 ⊢ (𝜑 → (0 ≤ inf(𝑅, ℝ, < ) ↔ ∀𝑤 ∈ 𝑅 0 ≤ 𝑤))
80	69, 79	mpbird 257	. . . . . . . 8 ⊢ (𝜑 → 0 ≤ inf(𝑅, ℝ, < ))
81	80, 11	breqtrrdi 5152	. . . . . . 7 ⊢ (𝜑 → 0 ≤ 𝑆)
82		eqid 2730	. . . . . . . . . . . 12 ⊢ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) = (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))
83		oveq2 7398	. . . . . . . . . . . . . 14 ⊢ (𝑦 = ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) → (𝐴 − 𝑦) = (𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))
84	83	fveq2d 6865	. . . . . . . . . . . . 13 ⊢ (𝑦 = ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) → (𝑁‘(𝐴 − 𝑦)) = (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
85	84	rspceeqv 3614	. . . . . . . . . . . 12 ⊢ ((((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) ∈ 𝑌 ∧ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) = (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))) → ∃𝑦 ∈ 𝑌 (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) = (𝑁‘(𝐴 − 𝑦)))
86	54, 82, 85	sylancl 586	. . . . . . . . . . 11 ⊢ (𝜑 → ∃𝑦 ∈ 𝑌 (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) = (𝑁‘(𝐴 − 𝑦)))
87		eqid 2730	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ 𝑌 ↦ (𝑁‘(𝐴 − 𝑦))) = (𝑦 ∈ 𝑌 ↦ (𝑁‘(𝐴 − 𝑦)))
88		fvex 6874	. . . . . . . . . . . 12 ⊢ (𝑁‘(𝐴 − 𝑦)) ∈ V
89	87, 88	elrnmpti 5929	. . . . . . . . . . 11 ⊢ ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ ran (𝑦 ∈ 𝑌 ↦ (𝑁‘(𝐴 − 𝑦))) ↔ ∃𝑦 ∈ 𝑌 (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) = (𝑁‘(𝐴 − 𝑦)))
90	86, 89	sylibr 234	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ ran (𝑦 ∈ 𝑌 ↦ (𝑁‘(𝐴 − 𝑦))))
91	90, 10	eleqtrrdi 2840	. . . . . . . . 9 ⊢ (𝜑 → (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ 𝑅)
92		infrelb 12175	. . . . . . . . 9 ⊢ ((𝑅 ⊆ ℝ ∧ ∃𝑥 ∈ ℝ ∀𝑤 ∈ 𝑅 𝑥 ≤ 𝑤 ∧ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ 𝑅) → inf(𝑅, ℝ, < ) ≤ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
93	70, 76, 91, 92	syl3anc 1373	. . . . . . . 8 ⊢ (𝜑 → inf(𝑅, ℝ, < ) ≤ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
94	11, 93	eqbrtrid 5145	. . . . . . 7 ⊢ (𝜑 → 𝑆 ≤ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
95		le2sq2 14107	. . . . . . 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 12300	. . . . . . . . 9 ⊢ 0 < 4
98	1, 97	pm3.2i 470	. . . . . . . 8 ⊢ (4 ∈ ℝ ∧ 0 < 4)
99		lemul2 12042	. . . . . . . 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 1452	. . . . . . 7 ⊢ (((𝑆↑2) ∈ ℝ ∧ ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2) ∈ ℝ) → ((𝑆↑2) ≤ ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2) ↔ (4 · (𝑆↑2)) ≤ (4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2))))
101	13, 60, 100	syl2anc 584	. . . . . 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 11799	. . . 4 ⊢ (𝜑 → ((4 · (𝑆↑2)) + ((𝐾𝐷𝐿)↑2)) ≤ ((4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) + ((𝐾𝐷𝐿)↑2)))
104		metcl 24227	. . . . . . . . . 10 ⊢ ((𝐷 ∈ (Met‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐾 ∈ 𝑋) → (𝐴𝐷𝐾) ∈ ℝ)
105	22, 8, 27, 104	syl3anc 1373	. . . . . . . . 9 ⊢ (𝜑 → (𝐴𝐷𝐾) ∈ ℝ)
106	105	resqcld 14097	. . . . . . . 8 ⊢ (𝜑 → ((𝐴𝐷𝐾)↑2) ∈ ℝ)
107		metcl 24227	. . . . . . . . . 10 ⊢ ((𝐷 ∈ (Met‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋) → (𝐴𝐷𝐿) ∈ ℝ)
108	22, 8, 29, 107	syl3anc 1373	. . . . . . . . 9 ⊢ (𝜑 → (𝐴𝐷𝐿) ∈ ℝ)
109	108	resqcld 14097	. . . . . . . 8 ⊢ (𝜑 → ((𝐴𝐷𝐿)↑2) ∈ ℝ)
110		minveclem2.5	. . . . . . . 8 ⊢ (𝜑 → ((𝐴𝐷𝐾)↑2) ≤ ((𝑆↑2) + 𝐵))
111		minveclem2.6	. . . . . . . 8 ⊢ (𝜑 → ((𝐴𝐷𝐿)↑2) ≤ ((𝑆↑2) + 𝐵))
112	106, 109, 65, 65, 110, 111	le2addd 11804	. . . . . . 7 ⊢ (𝜑 → (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) ≤ (((𝑆↑2) + 𝐵) + ((𝑆↑2) + 𝐵)))
113	65	recnd 11209	. . . . . . . 8 ⊢ (𝜑 → ((𝑆↑2) + 𝐵) ∈ ℂ)
114	113	2timesd 12432	. . . . . . 7 ⊢ (𝜑 → (2 · ((𝑆↑2) + 𝐵)) = (((𝑆↑2) + 𝐵) + ((𝑆↑2) + 𝐵)))
115	112, 114	breqtrrd 5138	. . . . . 6 ⊢ (𝜑 → (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) ≤ (2 · ((𝑆↑2) + 𝐵)))
116	106, 109	readdcld 11210	. . . . . . 7 ⊢ (𝜑 → (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) ∈ ℝ)
117		2re 12267	. . . . . . . 8 ⊢ 2 ∈ ℝ
118		remulcl 11160	. . . . . . . 8 ⊢ ((2 ∈ ℝ ∧ ((𝑆↑2) + 𝐵) ∈ ℝ) → (2 · ((𝑆↑2) + 𝐵)) ∈ ℝ)
119	117, 65, 118	sylancr 587	. . . . . . 7 ⊢ (𝜑 → (2 · ((𝑆↑2) + 𝐵)) ∈ ℝ)
120		2pos 12296	. . . . . . . . 9 ⊢ 0 < 2
121	117, 120	pm3.2i 470	. . . . . . . 8 ⊢ (2 ∈ ℝ ∧ 0 < 2)
122		lemul2 12042	. . . . . . . 8 ⊢ (((((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) ∈ ℝ ∧ (2 · ((𝑆↑2) + 𝐵)) ∈ ℝ ∧ (2 ∈ ℝ ∧ 0 < 2)) → ((((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) ≤ (2 · ((𝑆↑2) + 𝐵)) ↔ (2 · (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2))) ≤ (2 · (2 · ((𝑆↑2) + 𝐵)))))
123	121, 122	mp3an3 1452	. . . . . . 7 ⊢ (((((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) ∈ ℝ ∧ (2 · ((𝑆↑2) + 𝐵)) ∈ ℝ) → ((((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) ≤ (2 · ((𝑆↑2) + 𝐵)) ↔ (2 · (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2))) ≤ (2 · (2 · ((𝑆↑2) + 𝐵)))))
124	116, 119, 123	syl2anc 584	. . . . . 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 20820	. . . . . . . 8 ⊢ ((𝑈 ∈ LMod ∧ 𝐴 ∈ 𝑋 ∧ 𝐾 ∈ 𝑋) → (𝐴 − 𝐾) ∈ 𝑋)
127	35, 8, 27, 126	syl3anc 1373	. . . . . . 7 ⊢ (𝜑 → (𝐴 − 𝐾) ∈ 𝑋)
128	2, 3	lmodvsubcl 20820	. . . . . . . 8 ⊢ ((𝑈 ∈ LMod ∧ 𝐴 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋) → (𝐴 − 𝐿) ∈ 𝑋)
129	35, 8, 29, 128	syl3anc 1373	. . . . . . 7 ⊢ (𝜑 → (𝐴 − 𝐿) ∈ 𝑋)
130	2, 49, 3, 4	nmpar 25147	. . . . . . 7 ⊢ ((𝑈 ∈ ℂPreHil ∧ (𝐴 − 𝐾) ∈ 𝑋 ∧ (𝐴 − 𝐿) ∈ 𝑋) → (((𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))↑2) + ((𝑁‘((𝐴 − 𝐾) − (𝐴 − 𝐿)))↑2)) = (2 · (((𝑁‘(𝐴 − 𝐾))↑2) + ((𝑁‘(𝐴 − 𝐿))↑2))))
131	5, 127, 129, 130	syl3anc 1373	. . . . . 6 ⊢ (𝜑 → (((𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))↑2) + ((𝑁‘((𝐴 − 𝐾) − (𝐴 − 𝐿)))↑2)) = (2 · (((𝑁‘(𝐴 − 𝐾))↑2) + ((𝑁‘(𝐴 − 𝐿))↑2))))
132		2cn 12268	. . . . . . . . . 10 ⊢ 2 ∈ ℂ
133	59	recnd 11209	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ ℂ)
134		sqmul 14091	. . . . . . . . . 10 ⊢ ((2 ∈ ℂ ∧ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ ℂ) → ((2 · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))↑2) = ((2↑2) · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)))
135	132, 133, 134	sylancr 587	. . . . . . . . 9 ⊢ (𝜑 → ((2 · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))↑2) = ((2↑2) · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)))
136		sq2 14169	. . . . . . . . . 10 ⊢ (2↑2) = 4
137	136	oveq1i 7400	. . . . . . . . 9 ⊢ ((2↑2) · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) = (4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2))
138	135, 137	eqtrdi 2781	. . . . . . . 8 ⊢ (𝜑 → ((2 · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))↑2) = (4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)))
139	2, 4, 52, 38, 39	cphnmvs 25097	. . . . . . . . . . . 12 ⊢ ((𝑈 ∈ ℂPreHil ∧ 2 ∈ (Base‘(Scalar‘𝑈)) ∧ (𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))) ∈ 𝑋) → (𝑁‘(2( ·𝑠 ‘𝑈)(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))) = ((abs‘2) · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))))
140	5, 44, 57, 139	syl3anc 1373	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑁‘(2( ·𝑠 ‘𝑈)(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))) = ((abs‘2) · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))))
141		0le2 12295	. . . . . . . . . . . . 13 ⊢ 0 ≤ 2
142		absid 15269	. . . . . . . . . . . . 13 ⊢ ((2 ∈ ℝ ∧ 0 ≤ 2) → (abs‘2) = 2)
143	117, 141, 142	mp2an 692	. . . . . . . . . . . 12 ⊢ (abs‘2) = 2
144	143	oveq1i 7400	. . . . . . . . . . 11 ⊢ ((abs‘2) · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))) = (2 · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
145	140, 144	eqtrdi 2781	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁‘(2( ·𝑠 ‘𝑈)(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))) = (2 · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))))
146	2, 52, 38, 39, 3, 35, 44, 8, 55	lmodsubdi 20832	. . . . . . . . . . . 12 ⊢ (𝜑 → (2( ·𝑠 ‘𝑈)(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) = ((2( ·𝑠 ‘𝑈)𝐴) − (2( ·𝑠 ‘𝑈)((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
147		eqid 2730	. . . . . . . . . . . . . . . 16 ⊢ (.g‘𝑈) = (.g‘𝑈)
148	2, 147, 49	mulg2 19022	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ 𝑋 → (2(.g‘𝑈)𝐴) = (𝐴(+g‘𝑈)𝐴))
149	8, 148	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (2(.g‘𝑈)𝐴) = (𝐴(+g‘𝑈)𝐴))
150	2, 147, 52	clmmulg 25008	. . . . . . . . . . . . . . 15 ⊢ ((𝑈 ∈ ℂMod ∧ 2 ∈ ℤ ∧ 𝐴 ∈ 𝑋) → (2(.g‘𝑈)𝐴) = (2( ·𝑠 ‘𝑈)𝐴))
151	37, 43, 8, 150	syl3anc 1373	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (2(.g‘𝑈)𝐴) = (2( ·𝑠 ‘𝑈)𝐴))
152	149, 151	eqtr3d 2767	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐴(+g‘𝑈)𝐴) = (2( ·𝑠 ‘𝑈)𝐴))
153	2, 49	lmodvacl 20788	. . . . . . . . . . . . . . . 16 ⊢ ((𝑈 ∈ LMod ∧ 𝐾 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋) → (𝐾(+g‘𝑈)𝐿) ∈ 𝑋)
154	35, 27, 29, 153	syl3anc 1373	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐾(+g‘𝑈)𝐿) ∈ 𝑋)
155	2, 52	clmvs1 25000	. . . . . . . . . . . . . . 15 ⊢ ((𝑈 ∈ ℂMod ∧ (𝐾(+g‘𝑈)𝐿) ∈ 𝑋) → (1( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) = (𝐾(+g‘𝑈)𝐿))
156	37, 154, 155	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (1( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) = (𝐾(+g‘𝑈)𝐿))
157	132, 45	recidi 11920	. . . . . . . . . . . . . . . 16 ⊢ (2 · (1 / 2)) = 1
158	157	oveq1i 7400	. . . . . . . . . . . . . . 15 ⊢ ((2 · (1 / 2))( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) = (1( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))
159	2, 38, 52, 39	clmvsass 24996	. . . . . . . . . . . . . . . 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 1374	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2 · (1 / 2))( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) = (2( ·𝑠 ‘𝑈)((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))
161	158, 160	eqtr3id 2779	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (1( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) = (2( ·𝑠 ‘𝑈)((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))
162	156, 161	eqtr3d 2767	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐾(+g‘𝑈)𝐿) = (2( ·𝑠 ‘𝑈)((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))
163	152, 162	oveq12d 7408	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐴(+g‘𝑈)𝐴) − (𝐾(+g‘𝑈)𝐿)) = ((2( ·𝑠 ‘𝑈)𝐴) − (2( ·𝑠 ‘𝑈)((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
164		lmodabl 20822	. . . . . . . . . . . . . 14 ⊢ (𝑈 ∈ LMod → 𝑈 ∈ Abel)
165	35, 164	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑈 ∈ Abel)
166	2, 49, 3	ablsub4 19747	. . . . . . . . . . . . 13 ⊢ ((𝑈 ∈ Abel ∧ (𝐴 ∈ 𝑋 ∧ 𝐴 ∈ 𝑋) ∧ (𝐾 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋)) → ((𝐴(+g‘𝑈)𝐴) − (𝐾(+g‘𝑈)𝐿)) = ((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))
167	165, 8, 8, 27, 29, 166	syl122anc 1381	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐴(+g‘𝑈)𝐴) − (𝐾(+g‘𝑈)𝐿)) = ((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))
168	146, 163, 167	3eqtr2d 2771	. . . . . . . . . . 11 ⊢ (𝜑 → (2( ·𝑠 ‘𝑈)(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) = ((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))
169	168	fveq2d 6865	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁‘(2( ·𝑠 ‘𝑈)(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))) = (𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿))))
170	145, 169	eqtr3d 2767	. . . . . . . . 9 ⊢ (𝜑 → (2 · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))) = (𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿))))
171	170	oveq1d 7405	. . . . . . . 8 ⊢ (𝜑 → ((2 · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))↑2) = ((𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))↑2))
172	138, 171	eqtr3d 2767	. . . . . . 7 ⊢ (𝜑 → (4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) = ((𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))↑2))
173		eqid 2730	. . . . . . . . . . 11 ⊢ (dist‘𝑈) = (dist‘𝑈)
174	4, 2, 3, 173	ngpdsr 24500	. . . . . . . . . 10 ⊢ ((𝑈 ∈ NrmGrp ∧ 𝐾 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋) → (𝐾(dist‘𝑈)𝐿) = (𝑁‘(𝐿 − 𝐾)))
175	17, 27, 29, 174	syl3anc 1373	. . . . . . . . 9 ⊢ (𝜑 → (𝐾(dist‘𝑈)𝐿) = (𝑁‘(𝐿 − 𝐾)))
176	20	oveqi 7403	. . . . . . . . . 10 ⊢ (𝐾𝐷𝐿) = (𝐾((dist‘𝑈) ↾ (𝑋 × 𝑋))𝐿)
177	27, 29	ovresd 7559	. . . . . . . . . 10 ⊢ (𝜑 → (𝐾((dist‘𝑈) ↾ (𝑋 × 𝑋))𝐿) = (𝐾(dist‘𝑈)𝐿))
178	176, 177	eqtrid 2777	. . . . . . . . 9 ⊢ (𝜑 → (𝐾𝐷𝐿) = (𝐾(dist‘𝑈)𝐿))
179	2, 3, 165, 8, 27, 29	ablnnncan1 19760	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐴 − 𝐾) − (𝐴 − 𝐿)) = (𝐿 − 𝐾))
180	179	fveq2d 6865	. . . . . . . . 9 ⊢ (𝜑 → (𝑁‘((𝐴 − 𝐾) − (𝐴 − 𝐿))) = (𝑁‘(𝐿 − 𝐾)))
181	175, 178, 180	3eqtr4d 2775	. . . . . . . 8 ⊢ (𝜑 → (𝐾𝐷𝐿) = (𝑁‘((𝐴 − 𝐾) − (𝐴 − 𝐿))))
182	181	oveq1d 7405	. . . . . . 7 ⊢ (𝜑 → ((𝐾𝐷𝐿)↑2) = ((𝑁‘((𝐴 − 𝐾) − (𝐴 − 𝐿)))↑2))
183	172, 182	oveq12d 7408	. . . . . 6 ⊢ (𝜑 → ((4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) + ((𝐾𝐷𝐿)↑2)) = (((𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))↑2) + ((𝑁‘((𝐴 − 𝐾) − (𝐴 − 𝐿)))↑2)))
184	20	oveqi 7403	. . . . . . . . . . 11 ⊢ (𝐴𝐷𝐾) = (𝐴((dist‘𝑈) ↾ (𝑋 × 𝑋))𝐾)
185	8, 27	ovresd 7559	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴((dist‘𝑈) ↾ (𝑋 × 𝑋))𝐾) = (𝐴(dist‘𝑈)𝐾))
186	184, 185	eqtrid 2777	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴𝐷𝐾) = (𝐴(dist‘𝑈)𝐾))
187	4, 2, 3, 173	ngpds 24499	. . . . . . . . . . 11 ⊢ ((𝑈 ∈ NrmGrp ∧ 𝐴 ∈ 𝑋 ∧ 𝐾 ∈ 𝑋) → (𝐴(dist‘𝑈)𝐾) = (𝑁‘(𝐴 − 𝐾)))
188	17, 8, 27, 187	syl3anc 1373	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴(dist‘𝑈)𝐾) = (𝑁‘(𝐴 − 𝐾)))
189	186, 188	eqtrd 2765	. . . . . . . . 9 ⊢ (𝜑 → (𝐴𝐷𝐾) = (𝑁‘(𝐴 − 𝐾)))
190	189	oveq1d 7405	. . . . . . . 8 ⊢ (𝜑 → ((𝐴𝐷𝐾)↑2) = ((𝑁‘(𝐴 − 𝐾))↑2))
191	20	oveqi 7403	. . . . . . . . . . 11 ⊢ (𝐴𝐷𝐿) = (𝐴((dist‘𝑈) ↾ (𝑋 × 𝑋))𝐿)
192	8, 29	ovresd 7559	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴((dist‘𝑈) ↾ (𝑋 × 𝑋))𝐿) = (𝐴(dist‘𝑈)𝐿))
193	191, 192	eqtrid 2777	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴𝐷𝐿) = (𝐴(dist‘𝑈)𝐿))
194	4, 2, 3, 173	ngpds 24499	. . . . . . . . . . 11 ⊢ ((𝑈 ∈ NrmGrp ∧ 𝐴 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋) → (𝐴(dist‘𝑈)𝐿) = (𝑁‘(𝐴 − 𝐿)))
195	17, 8, 29, 194	syl3anc 1373	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴(dist‘𝑈)𝐿) = (𝑁‘(𝐴 − 𝐿)))
196	193, 195	eqtrd 2765	. . . . . . . . 9 ⊢ (𝜑 → (𝐴𝐷𝐿) = (𝑁‘(𝐴 − 𝐿)))
197	196	oveq1d 7405	. . . . . . . 8 ⊢ (𝜑 → ((𝐴𝐷𝐿)↑2) = ((𝑁‘(𝐴 − 𝐿))↑2))
198	190, 197	oveq12d 7408	. . . . . . 7 ⊢ (𝜑 → (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) = (((𝑁‘(𝐴 − 𝐾))↑2) + ((𝑁‘(𝐴 − 𝐿))↑2)))
199	198	oveq2d 7406	. . . . . 6 ⊢ (𝜑 → (2 · (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2))) = (2 · (((𝑁‘(𝐴 − 𝐾))↑2) + ((𝑁‘(𝐴 − 𝐿))↑2))))
200	131, 183, 199	3eqtr4d 2775	. . . . 5 ⊢ (𝜑 → ((4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) + ((𝐾𝐷𝐿)↑2)) = (2 · (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2))))
201		2t2e4 12352	. . . . . . 7 ⊢ (2 · 2) = 4
202	201	oveq1i 7400	. . . . . 6 ⊢ ((2 · 2) · ((𝑆↑2) + 𝐵)) = (4 · ((𝑆↑2) + 𝐵))
203		2cnd 12271	. . . . . . 7 ⊢ (𝜑 → 2 ∈ ℂ)
204	203, 203, 113	mulassd 11204	. . . . . 6 ⊢ (𝜑 → ((2 · 2) · ((𝑆↑2) + 𝐵)) = (2 · (2 · ((𝑆↑2) + 𝐵))))
205	202, 204	eqtr3id 2779	. . . . 5 ⊢ (𝜑 → (4 · ((𝑆↑2) + 𝐵)) = (2 · (2 · ((𝑆↑2) + 𝐵))))
206	125, 200, 205	3brtr4d 5142	. . . 4 ⊢ (𝜑 → ((4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) + ((𝐾𝐷𝐿)↑2)) ≤ (4 · ((𝑆↑2) + 𝐵)))
207	33, 63, 67, 103, 206	letrd 11338	. . 3 ⊢ (𝜑 → ((4 · (𝑆↑2)) + ((𝐾𝐷𝐿)↑2)) ≤ (4 · ((𝑆↑2) + 𝐵)))
208		4cn 12278	. . . . 5 ⊢ 4 ∈ ℂ
209	208	a1i 11	. . . 4 ⊢ (𝜑 → 4 ∈ ℂ)
210	13	recnd 11209	. . . 4 ⊢ (𝜑 → (𝑆↑2) ∈ ℂ)
211	64	recnd 11209	. . . 4 ⊢ (𝜑 → 𝐵 ∈ ℂ)
212	209, 210, 211	adddid 11205	. . 3 ⊢ (𝜑 → (4 · ((𝑆↑2) + 𝐵)) = ((4 · (𝑆↑2)) + (4 · 𝐵)))
213	207, 212	breqtrd 5136	. 2 ⊢ (𝜑 → ((4 · (𝑆↑2)) + ((𝐾𝐷𝐿)↑2)) ≤ ((4 · (𝑆↑2)) + (4 · 𝐵)))
214		remulcl 11160	. . . 4 ⊢ ((4 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (4 · 𝐵) ∈ ℝ)
215	1, 64, 214	sylancr 587	. . 3 ⊢ (𝜑 → (4 · 𝐵) ∈ ℝ)
216	32, 215, 15	leadd2d 11780	. 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 1540   ∈ wcel 2109   ≠ wne 2926  ∀wral 3045  ∃wrex 3054   ⊆ wss 3917  ∅c0 4299   class class class wbr 5110   ↦ cmpt 5191   × cxp 5639  ran crn 5642   ↾ cres 5643  ‘cfv 6514  (class class class)co 7390  infcinf 9399  ℂcc 11073  ℝcr 11074  0cc0 11075  1c1 11076   + caddc 11078   · cmul 11080   < clt 11215   ≤ cle 11216   / cdiv 11842  2c2 12248  4c4 12250  ℤcz 12536  ↑cexp 14033  abscabs 15207  Basecbs 17186   ↾_s cress 17207  +_gcplusg 17227  Scalarcsca 17230   ·_𝑠 cvsca 17231  distcds 17236  TopOpenctopn 17391  -_gcsg 18874  ._gcmg 19006  Abelcabl 19718  LModclmod 20773  LSubSpclss 20844  Metcmet 21257  MetSpcms 24213  normcnm 24471  NrmGrpcngp 24472  ℂModcclm 24969  ℂPreHilccph 25073  CMetSpccms 25239

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 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-rep 5237  ax-sep 5254  ax-nul 5264  ax-pow 5323  ax-pr 5390  ax-un 7714  ax-cnex 11131  ax-resscn 11132  ax-1cn 11133  ax-icn 11134  ax-addcl 11135  ax-addrcl 11136  ax-mulcl 11137  ax-mulrcl 11138  ax-mulcom 11139  ax-addass 11140  ax-mulass 11141  ax-distr 11142  ax-i2m1 11143  ax-1ne0 11144  ax-1rid 11145  ax-rnegex 11146  ax-rrecex 11147  ax-cnre 11148  ax-pre-lttri 11149  ax-pre-lttrn 11150  ax-pre-ltadd 11151  ax-pre-mulgt0 11152  ax-pre-sup 11153  ax-addf 11154  ax-mulf 11155

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-nel 3031  df-ral 3046  df-rex 3055  df-rmo 3356  df-reu 3357  df-rab 3409  df-v 3452  df-sbc 3757  df-csb 3866  df-dif 3920  df-un 3922  df-in 3924  df-ss 3934  df-pss 3937  df-nul 4300  df-if 4492  df-pw 4568  df-sn 4593  df-pr 4595  df-tp 4597  df-op 4599  df-uni 4875  df-iun 4960  df-br 5111  df-opab 5173  df-mpt 5192  df-tr 5218  df-id 5536  df-eprel 5541  df-po 5549  df-so 5550  df-fr 5594  df-we 5596  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-dm 5651  df-rn 5652  df-res 5653  df-ima 5654  df-pred 6277  df-ord 6338  df-on 6339  df-lim 6340  df-suc 6341  df-iota 6467  df-fun 6516  df-fn 6517  df-f 6518  df-f1 6519  df-fo 6520  df-f1o 6521  df-fv 6522  df-riota 7347  df-ov 7393  df-oprab 7394  df-mpo 7395  df-om 7846  df-1st 7971  df-2nd 7972  df-tpos 8208  df-frecs 8263  df-wrecs 8294  df-recs 8343  df-rdg 8381  df-1o 8437  df-er 8674  df-map 8804  df-en 8922  df-dom 8923  df-sdom 8924  df-fin 8925  df-sup 9400  df-inf 9401  df-pnf 11217  df-mnf 11218  df-xr 11219  df-ltxr 11220  df-le 11221  df-sub 11414  df-neg 11415  df-div 11843  df-nn 12194  df-2 12256  df-3 12257  df-4 12258  df-5 12259  df-6 12260  df-7 12261  df-8 12262  df-9 12263  df-n0 12450  df-z 12537  df-dec 12657  df-uz 12801  df-q 12915  df-rp 12959  df-xneg 13079  df-xadd 13080  df-xmul 13081  df-fz 13476  df-seq 13974  df-exp 14034  df-cj 15072  df-re 15073  df-im 15074  df-sqrt 15208  df-abs 15209  df-struct 17124  df-sets 17141  df-slot 17159  df-ndx 17171  df-base 17187  df-ress 17208  df-plusg 17240  df-mulr 17241  df-starv 17242  df-sca 17243  df-vsca 17244  df-ip 17245  df-tset 17246  df-ple 17247  df-ds 17249  df-unif 17250  df-0g 17411  df-topgen 17413  df-mgm 18574  df-sgrp 18653  df-mnd 18669  df-mhm 18717  df-grp 18875  df-minusg 18876  df-sbg 18877  df-mulg 19007  df-subg 19062  df-ghm 19152  df-cmn 19719  df-abl 19720  df-mgp 20057  df-rng 20069  df-ur 20098  df-ring 20151  df-cring 20152  df-oppr 20253  df-dvdsr 20273  df-unit 20274  df-invr 20304  df-dvr 20317  df-rhm 20388  df-subrg 20486  df-drng 20647  df-staf 20755  df-srng 20756  df-lmod 20775  df-lss 20845  df-lmhm 20936  df-lvec 21017  df-sra 21087  df-rgmod 21088  df-psmet 21263  df-xmet 21264  df-met 21265  df-bl 21266  df-mopn 21267  df-cnfld 21272  df-phl 21542  df-top 22788  df-topon 22805  df-topsp 22827  df-bases 22840  df-xms 24215  df-ms 24216  df-nm 24477  df-ngp 24478  df-nlm 24481  df-clm 24970  df-cph 25075

This theorem is referenced by:  minveclem3  25336  minveclem7  25342