Theorem minveclem2 25378

Description: Lemma for minvec 25388. 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 12324	. . . . . 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 25377	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ ℝ)
13	12	resqcld 14143	. . . . . 6 ⊢ (𝜑 → (𝑆↑2) ∈ ℝ)
14		remulcl 11214	. . . . . 6 ⊢ ((4 ∈ ℝ ∧ (𝑆↑2) ∈ ℝ) → (4 · (𝑆↑2)) ∈ ℝ)
15	1, 13, 14	sylancr 587	. . . . 5 ⊢ (𝜑 → (4 · (𝑆↑2)) ∈ ℝ)
16		cphngp 25125	. . . . . . . . . 10 ⊢ (𝑈 ∈ ℂPreHil → 𝑈 ∈ NrmGrp)
17	5, 16	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝑈 ∈ NrmGrp)
18		ngpms 24539	. . . . . . . . 9 ⊢ (𝑈 ∈ NrmGrp → 𝑈 ∈ MetSp)
19	17, 18	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑈 ∈ MetSp)
20		minvec.d	. . . . . . . . 9 ⊢ 𝐷 = ((dist‘𝑈) ↾ (𝑋 × 𝑋))
21	2, 20	msmet 24396	. . . . . . . 8 ⊢ (𝑈 ∈ MetSp → 𝐷 ∈ (Met‘𝑋))
22	19, 21	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝐷 ∈ (Met‘𝑋))
23		eqid 2735	. . . . . . . . . 10 ⊢ (LSubSp‘𝑈) = (LSubSp‘𝑈)
24	2, 23	lssss 20893	. . . . . . . . 9 ⊢ (𝑌 ∈ (LSubSp‘𝑈) → 𝑌 ⊆ 𝑋)
25	6, 24	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑌 ⊆ 𝑋)
26		minveclem2.3	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ 𝑌)
27	25, 26	sseldd 3959	. . . . . . 7 ⊢ (𝜑 → 𝐾 ∈ 𝑋)
28		minveclem2.4	. . . . . . . 8 ⊢ (𝜑 → 𝐿 ∈ 𝑌)
29	25, 28	sseldd 3959	. . . . . . 7 ⊢ (𝜑 → 𝐿 ∈ 𝑋)
30		metcl 24271	. . . . . . 7 ⊢ ((𝐷 ∈ (Met‘𝑋) ∧ 𝐾 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋) → (𝐾𝐷𝐿) ∈ ℝ)
31	22, 27, 29, 30	syl3anc 1373	. . . . . 6 ⊢ (𝜑 → (𝐾𝐷𝐿) ∈ ℝ)
32	31	resqcld 14143	. . . . 5 ⊢ (𝜑 → ((𝐾𝐷𝐿)↑2) ∈ ℝ)
33	15, 32	readdcld 11264	. . . 4 ⊢ (𝜑 → ((4 · (𝑆↑2)) + ((𝐾𝐷𝐿)↑2)) ∈ ℝ)
34		cphlmod 25126	. . . . . . . . . 10 ⊢ (𝑈 ∈ ℂPreHil → 𝑈 ∈ LMod)
35	5, 34	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝑈 ∈ LMod)
36		cphclm 25141	. . . . . . . . . . . . . . 15 ⊢ (𝑈 ∈ ℂPreHil → 𝑈 ∈ ℂMod)
37	5, 36	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑈 ∈ ℂMod)
38		eqid 2735	. . . . . . . . . . . . . . 15 ⊢ (Scalar‘𝑈) = (Scalar‘𝑈)
39		eqid 2735	. . . . . . . . . . . . . . 15 ⊢ (Base‘(Scalar‘𝑈)) = (Base‘(Scalar‘𝑈))
40	38, 39	clmzss 25029	. . . . . . . . . . . . . 14 ⊢ (𝑈 ∈ ℂMod → ℤ ⊆ (Base‘(Scalar‘𝑈)))
41	37, 40	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ℤ ⊆ (Base‘(Scalar‘𝑈)))
42		2z 12624	. . . . . . . . . . . . . 14 ⊢ 2 ∈ ℤ
43	42	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 2 ∈ ℤ)
44	41, 43	sseldd 3959	. . . . . . . . . . . 12 ⊢ (𝜑 → 2 ∈ (Base‘(Scalar‘𝑈)))
45		2ne0 12344	. . . . . . . . . . . . 13 ⊢ 2 ≠ 0
46	45	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 2 ≠ 0)
47	38, 39	cphreccl 25133	. . . . . . . . . . . 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 2735	. . . . . . . . . . . . 13 ⊢ (+g‘𝑈) = (+g‘𝑈)
50	49, 23	lssvacl 20900	. . . . . . . . . . . 12 ⊢ (((𝑈 ∈ LMod ∧ 𝑌 ∈ (LSubSp‘𝑈)) ∧ (𝐾 ∈ 𝑌 ∧ 𝐿 ∈ 𝑌)) → (𝐾(+g‘𝑈)𝐿) ∈ 𝑌)
51	35, 6, 26, 28, 50	syl22anc 838	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐾(+g‘𝑈)𝐿) ∈ 𝑌)
52		eqid 2735	. . . . . . . . . . . 12 ⊢ ( ·𝑠 ‘𝑈) = ( ·𝑠 ‘𝑈)
53	38, 52, 39, 23	lssvscl 20912	. . . . . . . . . . 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 3959	. . . . . . . . 9 ⊢ (𝜑 → ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) ∈ 𝑋)
56	2, 3	lmodvsubcl 20864	. . . . . . . . 9 ⊢ ((𝑈 ∈ LMod ∧ 𝐴 ∈ 𝑋 ∧ ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) ∈ 𝑋) → (𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))) ∈ 𝑋)
57	35, 8, 55, 56	syl3anc 1373	. . . . . . . 8 ⊢ (𝜑 → (𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))) ∈ 𝑋)
58	2, 4	nmcl 24555	. . . . . . . 8 ⊢ ((𝑈 ∈ NrmGrp ∧ (𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))) ∈ 𝑋) → (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ ℝ)
59	17, 57, 58	syl2anc 584	. . . . . . 7 ⊢ (𝜑 → (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ ℝ)
60	59	resqcld 14143	. . . . . 6 ⊢ (𝜑 → ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2) ∈ ℝ)
61		remulcl 11214	. . . . . 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 11264	. . . 4 ⊢ (𝜑 → ((4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) + ((𝐾𝐷𝐿)↑2)) ∈ ℝ)
64		minveclem2.1	. . . . . 6 ⊢ (𝜑 → 𝐵 ∈ ℝ)
65	13, 64	readdcld 11264	. . . . 5 ⊢ (𝜑 → ((𝑆↑2) + 𝐵) ∈ ℝ)
66		remulcl 11214	. . . . 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 25376	. . . . . . . . . 10 ⊢ (𝜑 → (𝑅 ⊆ ℝ ∧ 𝑅 ≠ ∅ ∧ ∀𝑤 ∈ 𝑅 0 ≤ 𝑤))
69	68	simp3d 1144	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑤 ∈ 𝑅 0 ≤ 𝑤)
70	68	simp1d 1142	. . . . . . . . . 10 ⊢ (𝜑 → 𝑅 ⊆ ℝ)
71	68	simp2d 1143	. . . . . . . . . 10 ⊢ (𝜑 → 𝑅 ≠ ∅)
72		0re 11237	. . . . . . . . . . 11 ⊢ 0 ∈ ℝ
73		breq1 5122	. . . . . . . . . . . . 13 ⊢ (𝑥 = 0 → (𝑥 ≤ 𝑤 ↔ 0 ≤ 𝑤))
74	73	ralbidv 3163	. . . . . . . . . . . 12 ⊢ (𝑥 = 0 → (∀𝑤 ∈ 𝑅 𝑥 ≤ 𝑤 ↔ ∀𝑤 ∈ 𝑅 0 ≤ 𝑤))
75	74	rspcev 3601	. . . . . . . . . . 11 ⊢ ((0 ∈ ℝ ∧ ∀𝑤 ∈ 𝑅 0 ≤ 𝑤) → ∃𝑥 ∈ ℝ ∀𝑤 ∈ 𝑅 𝑥 ≤ 𝑤)
76	72, 69, 75	sylancr 587	. . . . . . . . . 10 ⊢ (𝜑 → ∃𝑥 ∈ ℝ ∀𝑤 ∈ 𝑅 𝑥 ≤ 𝑤)
77	72	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → 0 ∈ ℝ)
78		infregelb 12226	. . . . . . . . . 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 5161	. . . . . . 7 ⊢ (𝜑 → 0 ≤ 𝑆)
82		eqid 2735	. . . . . . . . . . . 12 ⊢ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) = (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))
83		oveq2 7413	. . . . . . . . . . . . . 14 ⊢ (𝑦 = ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) → (𝐴 − 𝑦) = (𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))
84	83	fveq2d 6880	. . . . . . . . . . . . 13 ⊢ (𝑦 = ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) → (𝑁‘(𝐴 − 𝑦)) = (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
85	84	rspceeqv 3624	. . . . . . . . . . . 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 2735	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ 𝑌 ↦ (𝑁‘(𝐴 − 𝑦))) = (𝑦 ∈ 𝑌 ↦ (𝑁‘(𝐴 − 𝑦)))
88		fvex 6889	. . . . . . . . . . . 12 ⊢ (𝑁‘(𝐴 − 𝑦)) ∈ V
89	87, 88	elrnmpti 5942	. . . . . . . . . . 11 ⊢ ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ ran (𝑦 ∈ 𝑌 ↦ (𝑁‘(𝐴 − 𝑦))) ↔ ∃𝑦 ∈ 𝑌 (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) = (𝑁‘(𝐴 − 𝑦)))
90	86, 89	sylibr 234	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ ran (𝑦 ∈ 𝑌 ↦ (𝑁‘(𝐴 − 𝑦))))
91	90, 10	eleqtrrdi 2845	. . . . . . . . 9 ⊢ (𝜑 → (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ 𝑅)
92		infrelb 12227	. . . . . . . . 9 ⊢ ((𝑅 ⊆ ℝ ∧ ∃𝑥 ∈ ℝ ∀𝑤 ∈ 𝑅 𝑥 ≤ 𝑤 ∧ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ 𝑅) → inf(𝑅, ℝ, < ) ≤ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
93	70, 76, 91, 92	syl3anc 1373	. . . . . . . 8 ⊢ (𝜑 → inf(𝑅, ℝ, < ) ≤ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
94	11, 93	eqbrtrid 5154	. . . . . . 7 ⊢ (𝜑 → 𝑆 ≤ (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
95		le2sq2 14153	. . . . . . 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 12347	. . . . . . . . 9 ⊢ 0 < 4
98	1, 97	pm3.2i 470	. . . . . . . 8 ⊢ (4 ∈ ℝ ∧ 0 < 4)
99		lemul2 12094	. . . . . . . 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 11851	. . . 4 ⊢ (𝜑 → ((4 · (𝑆↑2)) + ((𝐾𝐷𝐿)↑2)) ≤ ((4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) + ((𝐾𝐷𝐿)↑2)))
104		metcl 24271	. . . . . . . . . 10 ⊢ ((𝐷 ∈ (Met‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐾 ∈ 𝑋) → (𝐴𝐷𝐾) ∈ ℝ)
105	22, 8, 27, 104	syl3anc 1373	. . . . . . . . 9 ⊢ (𝜑 → (𝐴𝐷𝐾) ∈ ℝ)
106	105	resqcld 14143	. . . . . . . 8 ⊢ (𝜑 → ((𝐴𝐷𝐾)↑2) ∈ ℝ)
107		metcl 24271	. . . . . . . . . 10 ⊢ ((𝐷 ∈ (Met‘𝑋) ∧ 𝐴 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋) → (𝐴𝐷𝐿) ∈ ℝ)
108	22, 8, 29, 107	syl3anc 1373	. . . . . . . . 9 ⊢ (𝜑 → (𝐴𝐷𝐿) ∈ ℝ)
109	108	resqcld 14143	. . . . . . . 8 ⊢ (𝜑 → ((𝐴𝐷𝐿)↑2) ∈ ℝ)
110		minveclem2.5	. . . . . . . 8 ⊢ (𝜑 → ((𝐴𝐷𝐾)↑2) ≤ ((𝑆↑2) + 𝐵))
111		minveclem2.6	. . . . . . . 8 ⊢ (𝜑 → ((𝐴𝐷𝐿)↑2) ≤ ((𝑆↑2) + 𝐵))
112	106, 109, 65, 65, 110, 111	le2addd 11856	. . . . . . 7 ⊢ (𝜑 → (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) ≤ (((𝑆↑2) + 𝐵) + ((𝑆↑2) + 𝐵)))
113	65	recnd 11263	. . . . . . . 8 ⊢ (𝜑 → ((𝑆↑2) + 𝐵) ∈ ℂ)
114	113	2timesd 12484	. . . . . . 7 ⊢ (𝜑 → (2 · ((𝑆↑2) + 𝐵)) = (((𝑆↑2) + 𝐵) + ((𝑆↑2) + 𝐵)))
115	112, 114	breqtrrd 5147	. . . . . 6 ⊢ (𝜑 → (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) ≤ (2 · ((𝑆↑2) + 𝐵)))
116	106, 109	readdcld 11264	. . . . . . 7 ⊢ (𝜑 → (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) ∈ ℝ)
117		2re 12314	. . . . . . . 8 ⊢ 2 ∈ ℝ
118		remulcl 11214	. . . . . . . 8 ⊢ ((2 ∈ ℝ ∧ ((𝑆↑2) + 𝐵) ∈ ℝ) → (2 · ((𝑆↑2) + 𝐵)) ∈ ℝ)
119	117, 65, 118	sylancr 587	. . . . . . 7 ⊢ (𝜑 → (2 · ((𝑆↑2) + 𝐵)) ∈ ℝ)
120		2pos 12343	. . . . . . . . 9 ⊢ 0 < 2
121	117, 120	pm3.2i 470	. . . . . . . 8 ⊢ (2 ∈ ℝ ∧ 0 < 2)
122		lemul2 12094	. . . . . . . 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 20864	. . . . . . . 8 ⊢ ((𝑈 ∈ LMod ∧ 𝐴 ∈ 𝑋 ∧ 𝐾 ∈ 𝑋) → (𝐴 − 𝐾) ∈ 𝑋)
127	35, 8, 27, 126	syl3anc 1373	. . . . . . 7 ⊢ (𝜑 → (𝐴 − 𝐾) ∈ 𝑋)
128	2, 3	lmodvsubcl 20864	. . . . . . . 8 ⊢ ((𝑈 ∈ LMod ∧ 𝐴 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋) → (𝐴 − 𝐿) ∈ 𝑋)
129	35, 8, 29, 128	syl3anc 1373	. . . . . . 7 ⊢ (𝜑 → (𝐴 − 𝐿) ∈ 𝑋)
130	2, 49, 3, 4	nmpar 25192	. . . . . . 7 ⊢ ((𝑈 ∈ ℂPreHil ∧ (𝐴 − 𝐾) ∈ 𝑋 ∧ (𝐴 − 𝐿) ∈ 𝑋) → (((𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))↑2) + ((𝑁‘((𝐴 − 𝐾) − (𝐴 − 𝐿)))↑2)) = (2 · (((𝑁‘(𝐴 − 𝐾))↑2) + ((𝑁‘(𝐴 − 𝐿))↑2))))
131	5, 127, 129, 130	syl3anc 1373	. . . . . 6 ⊢ (𝜑 → (((𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))↑2) + ((𝑁‘((𝐴 − 𝐾) − (𝐴 − 𝐿)))↑2)) = (2 · (((𝑁‘(𝐴 − 𝐾))↑2) + ((𝑁‘(𝐴 − 𝐿))↑2))))
132		2cn 12315	. . . . . . . . . 10 ⊢ 2 ∈ ℂ
133	59	recnd 11263	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) ∈ ℂ)
134		sqmul 14137	. . . . . . . . . 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 14215	. . . . . . . . . 10 ⊢ (2↑2) = 4
137	136	oveq1i 7415	. . . . . . . . 9 ⊢ ((2↑2) · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) = (4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2))
138	135, 137	eqtrdi 2786	. . . . . . . 8 ⊢ (𝜑 → ((2 · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))↑2) = (4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)))
139	2, 4, 52, 38, 39	cphnmvs 25142	. . . . . . . . . . . 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 12342	. . . . . . . . . . . . 13 ⊢ 0 ≤ 2
142		absid 15315	. . . . . . . . . . . . 13 ⊢ ((2 ∈ ℝ ∧ 0 ≤ 2) → (abs‘2) = 2)
143	117, 141, 142	mp2an 692	. . . . . . . . . . . 12 ⊢ (abs‘2) = 2
144	143	oveq1i 7415	. . . . . . . . . . 11 ⊢ ((abs‘2) · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))) = (2 · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
145	140, 144	eqtrdi 2786	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁‘(2( ·𝑠 ‘𝑈)(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))) = (2 · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))))
146	2, 52, 38, 39, 3, 35, 44, 8, 55	lmodsubdi 20876	. . . . . . . . . . . 12 ⊢ (𝜑 → (2( ·𝑠 ‘𝑈)(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) = ((2( ·𝑠 ‘𝑈)𝐴) − (2( ·𝑠 ‘𝑈)((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
147		eqid 2735	. . . . . . . . . . . . . . . 16 ⊢ (.g‘𝑈) = (.g‘𝑈)
148	2, 147, 49	mulg2 19066	. . . . . . . . . . . . . . 15 ⊢ (𝐴 ∈ 𝑋 → (2(.g‘𝑈)𝐴) = (𝐴(+g‘𝑈)𝐴))
149	8, 148	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (2(.g‘𝑈)𝐴) = (𝐴(+g‘𝑈)𝐴))
150	2, 147, 52	clmmulg 25052	. . . . . . . . . . . . . . 15 ⊢ ((𝑈 ∈ ℂMod ∧ 2 ∈ ℤ ∧ 𝐴 ∈ 𝑋) → (2(.g‘𝑈)𝐴) = (2( ·𝑠 ‘𝑈)𝐴))
151	37, 43, 8, 150	syl3anc 1373	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (2(.g‘𝑈)𝐴) = (2( ·𝑠 ‘𝑈)𝐴))
152	149, 151	eqtr3d 2772	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐴(+g‘𝑈)𝐴) = (2( ·𝑠 ‘𝑈)𝐴))
153	2, 49	lmodvacl 20832	. . . . . . . . . . . . . . . 16 ⊢ ((𝑈 ∈ LMod ∧ 𝐾 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋) → (𝐾(+g‘𝑈)𝐿) ∈ 𝑋)
154	35, 27, 29, 153	syl3anc 1373	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐾(+g‘𝑈)𝐿) ∈ 𝑋)
155	2, 52	clmvs1 25044	. . . . . . . . . . . . . . 15 ⊢ ((𝑈 ∈ ℂMod ∧ (𝐾(+g‘𝑈)𝐿) ∈ 𝑋) → (1( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) = (𝐾(+g‘𝑈)𝐿))
156	37, 154, 155	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (1( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) = (𝐾(+g‘𝑈)𝐿))
157	132, 45	recidi 11972	. . . . . . . . . . . . . . . 16 ⊢ (2 · (1 / 2)) = 1
158	157	oveq1i 7415	. . . . . . . . . . . . . . 15 ⊢ ((2 · (1 / 2))( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) = (1( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))
159	2, 38, 52, 39	clmvsass 25040	. . . . . . . . . . . . . . . 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 2784	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (1( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)) = (2( ·𝑠 ‘𝑈)((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))
162	156, 161	eqtr3d 2772	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐾(+g‘𝑈)𝐿) = (2( ·𝑠 ‘𝑈)((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))
163	152, 162	oveq12d 7423	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐴(+g‘𝑈)𝐴) − (𝐾(+g‘𝑈)𝐿)) = ((2( ·𝑠 ‘𝑈)𝐴) − (2( ·𝑠 ‘𝑈)((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))
164		lmodabl 20866	. . . . . . . . . . . . . 14 ⊢ (𝑈 ∈ LMod → 𝑈 ∈ Abel)
165	35, 164	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑈 ∈ Abel)
166	2, 49, 3	ablsub4 19791	. . . . . . . . . . . . 13 ⊢ ((𝑈 ∈ Abel ∧ (𝐴 ∈ 𝑋 ∧ 𝐴 ∈ 𝑋) ∧ (𝐾 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋)) → ((𝐴(+g‘𝑈)𝐴) − (𝐾(+g‘𝑈)𝐿)) = ((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))
167	165, 8, 8, 27, 29, 166	syl122anc 1381	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝐴(+g‘𝑈)𝐴) − (𝐾(+g‘𝑈)𝐿)) = ((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))
168	146, 163, 167	3eqtr2d 2776	. . . . . . . . . . 11 ⊢ (𝜑 → (2( ·𝑠 ‘𝑈)(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))) = ((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))
169	168	fveq2d 6880	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁‘(2( ·𝑠 ‘𝑈)(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))) = (𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿))))
170	145, 169	eqtr3d 2772	. . . . . . . . 9 ⊢ (𝜑 → (2 · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))) = (𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿))))
171	170	oveq1d 7420	. . . . . . . 8 ⊢ (𝜑 → ((2 · (𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿)))))↑2) = ((𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))↑2))
172	138, 171	eqtr3d 2772	. . . . . . 7 ⊢ (𝜑 → (4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) = ((𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))↑2))
173		eqid 2735	. . . . . . . . . . 11 ⊢ (dist‘𝑈) = (dist‘𝑈)
174	4, 2, 3, 173	ngpdsr 24544	. . . . . . . . . 10 ⊢ ((𝑈 ∈ NrmGrp ∧ 𝐾 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋) → (𝐾(dist‘𝑈)𝐿) = (𝑁‘(𝐿 − 𝐾)))
175	17, 27, 29, 174	syl3anc 1373	. . . . . . . . 9 ⊢ (𝜑 → (𝐾(dist‘𝑈)𝐿) = (𝑁‘(𝐿 − 𝐾)))
176	20	oveqi 7418	. . . . . . . . . 10 ⊢ (𝐾𝐷𝐿) = (𝐾((dist‘𝑈) ↾ (𝑋 × 𝑋))𝐿)
177	27, 29	ovresd 7574	. . . . . . . . . 10 ⊢ (𝜑 → (𝐾((dist‘𝑈) ↾ (𝑋 × 𝑋))𝐿) = (𝐾(dist‘𝑈)𝐿))
178	176, 177	eqtrid 2782	. . . . . . . . 9 ⊢ (𝜑 → (𝐾𝐷𝐿) = (𝐾(dist‘𝑈)𝐿))
179	2, 3, 165, 8, 27, 29	ablnnncan1 19804	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐴 − 𝐾) − (𝐴 − 𝐿)) = (𝐿 − 𝐾))
180	179	fveq2d 6880	. . . . . . . . 9 ⊢ (𝜑 → (𝑁‘((𝐴 − 𝐾) − (𝐴 − 𝐿))) = (𝑁‘(𝐿 − 𝐾)))
181	175, 178, 180	3eqtr4d 2780	. . . . . . . 8 ⊢ (𝜑 → (𝐾𝐷𝐿) = (𝑁‘((𝐴 − 𝐾) − (𝐴 − 𝐿))))
182	181	oveq1d 7420	. . . . . . 7 ⊢ (𝜑 → ((𝐾𝐷𝐿)↑2) = ((𝑁‘((𝐴 − 𝐾) − (𝐴 − 𝐿)))↑2))
183	172, 182	oveq12d 7423	. . . . . 6 ⊢ (𝜑 → ((4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) + ((𝐾𝐷𝐿)↑2)) = (((𝑁‘((𝐴 − 𝐾)(+g‘𝑈)(𝐴 − 𝐿)))↑2) + ((𝑁‘((𝐴 − 𝐾) − (𝐴 − 𝐿)))↑2)))
184	20	oveqi 7418	. . . . . . . . . . 11 ⊢ (𝐴𝐷𝐾) = (𝐴((dist‘𝑈) ↾ (𝑋 × 𝑋))𝐾)
185	8, 27	ovresd 7574	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴((dist‘𝑈) ↾ (𝑋 × 𝑋))𝐾) = (𝐴(dist‘𝑈)𝐾))
186	184, 185	eqtrid 2782	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴𝐷𝐾) = (𝐴(dist‘𝑈)𝐾))
187	4, 2, 3, 173	ngpds 24543	. . . . . . . . . . 11 ⊢ ((𝑈 ∈ NrmGrp ∧ 𝐴 ∈ 𝑋 ∧ 𝐾 ∈ 𝑋) → (𝐴(dist‘𝑈)𝐾) = (𝑁‘(𝐴 − 𝐾)))
188	17, 8, 27, 187	syl3anc 1373	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴(dist‘𝑈)𝐾) = (𝑁‘(𝐴 − 𝐾)))
189	186, 188	eqtrd 2770	. . . . . . . . 9 ⊢ (𝜑 → (𝐴𝐷𝐾) = (𝑁‘(𝐴 − 𝐾)))
190	189	oveq1d 7420	. . . . . . . 8 ⊢ (𝜑 → ((𝐴𝐷𝐾)↑2) = ((𝑁‘(𝐴 − 𝐾))↑2))
191	20	oveqi 7418	. . . . . . . . . . 11 ⊢ (𝐴𝐷𝐿) = (𝐴((dist‘𝑈) ↾ (𝑋 × 𝑋))𝐿)
192	8, 29	ovresd 7574	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴((dist‘𝑈) ↾ (𝑋 × 𝑋))𝐿) = (𝐴(dist‘𝑈)𝐿))
193	191, 192	eqtrid 2782	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴𝐷𝐿) = (𝐴(dist‘𝑈)𝐿))
194	4, 2, 3, 173	ngpds 24543	. . . . . . . . . . 11 ⊢ ((𝑈 ∈ NrmGrp ∧ 𝐴 ∈ 𝑋 ∧ 𝐿 ∈ 𝑋) → (𝐴(dist‘𝑈)𝐿) = (𝑁‘(𝐴 − 𝐿)))
195	17, 8, 29, 194	syl3anc 1373	. . . . . . . . . 10 ⊢ (𝜑 → (𝐴(dist‘𝑈)𝐿) = (𝑁‘(𝐴 − 𝐿)))
196	193, 195	eqtrd 2770	. . . . . . . . 9 ⊢ (𝜑 → (𝐴𝐷𝐿) = (𝑁‘(𝐴 − 𝐿)))
197	196	oveq1d 7420	. . . . . . . 8 ⊢ (𝜑 → ((𝐴𝐷𝐿)↑2) = ((𝑁‘(𝐴 − 𝐿))↑2))
198	190, 197	oveq12d 7423	. . . . . . 7 ⊢ (𝜑 → (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2)) = (((𝑁‘(𝐴 − 𝐾))↑2) + ((𝑁‘(𝐴 − 𝐿))↑2)))
199	198	oveq2d 7421	. . . . . 6 ⊢ (𝜑 → (2 · (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2))) = (2 · (((𝑁‘(𝐴 − 𝐾))↑2) + ((𝑁‘(𝐴 − 𝐿))↑2))))
200	131, 183, 199	3eqtr4d 2780	. . . . 5 ⊢ (𝜑 → ((4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) + ((𝐾𝐷𝐿)↑2)) = (2 · (((𝐴𝐷𝐾)↑2) + ((𝐴𝐷𝐿)↑2))))
201		2t2e4 12404	. . . . . . 7 ⊢ (2 · 2) = 4
202	201	oveq1i 7415	. . . . . 6 ⊢ ((2 · 2) · ((𝑆↑2) + 𝐵)) = (4 · ((𝑆↑2) + 𝐵))
203		2cnd 12318	. . . . . . 7 ⊢ (𝜑 → 2 ∈ ℂ)
204	203, 203, 113	mulassd 11258	. . . . . 6 ⊢ (𝜑 → ((2 · 2) · ((𝑆↑2) + 𝐵)) = (2 · (2 · ((𝑆↑2) + 𝐵))))
205	202, 204	eqtr3id 2784	. . . . 5 ⊢ (𝜑 → (4 · ((𝑆↑2) + 𝐵)) = (2 · (2 · ((𝑆↑2) + 𝐵))))
206	125, 200, 205	3brtr4d 5151	. . . 4 ⊢ (𝜑 → ((4 · ((𝑁‘(𝐴 − ((1 / 2)( ·𝑠 ‘𝑈)(𝐾(+g‘𝑈)𝐿))))↑2)) + ((𝐾𝐷𝐿)↑2)) ≤ (4 · ((𝑆↑2) + 𝐵)))
207	33, 63, 67, 103, 206	letrd 11392	. . 3 ⊢ (𝜑 → ((4 · (𝑆↑2)) + ((𝐾𝐷𝐿)↑2)) ≤ (4 · ((𝑆↑2) + 𝐵)))
208		4cn 12325	. . . . 5 ⊢ 4 ∈ ℂ
209	208	a1i 11	. . . 4 ⊢ (𝜑 → 4 ∈ ℂ)
210	13	recnd 11263	. . . 4 ⊢ (𝜑 → (𝑆↑2) ∈ ℂ)
211	64	recnd 11263	. . . 4 ⊢ (𝜑 → 𝐵 ∈ ℂ)
212	209, 210, 211	adddid 11259	. . 3 ⊢ (𝜑 → (4 · ((𝑆↑2) + 𝐵)) = ((4 · (𝑆↑2)) + (4 · 𝐵)))
213	207, 212	breqtrd 5145	. 2 ⊢ (𝜑 → ((4 · (𝑆↑2)) + ((𝐾𝐷𝐿)↑2)) ≤ ((4 · (𝑆↑2)) + (4 · 𝐵)))
214		remulcl 11214	. . . 4 ⊢ ((4 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (4 · 𝐵) ∈ ℝ)
215	1, 64, 214	sylancr 587	. . 3 ⊢ (𝜑 → (4 · 𝐵) ∈ ℝ)
216	32, 215, 15	leadd2d 11832	. 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 2108   ≠ wne 2932  ∀wral 3051  ∃wrex 3060   ⊆ wss 3926  ∅c0 4308   class class class wbr 5119   ↦ cmpt 5201   × cxp 5652  ran crn 5655   ↾ cres 5656  ‘cfv 6531  (class class class)co 7405  infcinf 9453  ℂcc 11127  ℝcr 11128  0cc0 11129  1c1 11130   + caddc 11132   · cmul 11134   < clt 11269   ≤ cle 11270   / cdiv 11894  2c2 12295  4c4 12297  ℤcz 12588  ↑cexp 14079  abscabs 15253  Basecbs 17228   ↾_s cress 17251  +_gcplusg 17271  Scalarcsca 17274   ·_𝑠 cvsca 17275  distcds 17280  TopOpenctopn 17435  -_gcsg 18918  ._gcmg 19050  Abelcabl 19762  LModclmod 20817  LSubSpclss 20888  Metcmet 21301  MetSpcms 24257  normcnm 24515  NrmGrpcngp 24516  ℂModcclm 25013  ℂPreHilccph 25118  CMetSpccms 25284

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 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2707  ax-rep 5249  ax-sep 5266  ax-nul 5276  ax-pow 5335  ax-pr 5402  ax-un 7729  ax-cnex 11185  ax-resscn 11186  ax-1cn 11187  ax-icn 11188  ax-addcl 11189  ax-addrcl 11190  ax-mulcl 11191  ax-mulrcl 11192  ax-mulcom 11193  ax-addass 11194  ax-mulass 11195  ax-distr 11196  ax-i2m1 11197  ax-1ne0 11198  ax-1rid 11199  ax-rnegex 11200  ax-rrecex 11201  ax-cnre 11202  ax-pre-lttri 11203  ax-pre-lttrn 11204  ax-pre-ltadd 11205  ax-pre-mulgt0 11206  ax-pre-sup 11207  ax-addf 11208  ax-mulf 11209

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 2065  df-mo 2539  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2809  df-nfc 2885  df-ne 2933  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3359  df-reu 3360  df-rab 3416  df-v 3461  df-sbc 3766  df-csb 3875  df-dif 3929  df-un 3931  df-in 3933  df-ss 3943  df-pss 3946  df-nul 4309  df-if 4501  df-pw 4577  df-sn 4602  df-pr 4604  df-tp 4606  df-op 4608  df-uni 4884  df-iun 4969  df-br 5120  df-opab 5182  df-mpt 5202  df-tr 5230  df-id 5548  df-eprel 5553  df-po 5561  df-so 5562  df-fr 5606  df-we 5608  df-xp 5660  df-rel 5661  df-cnv 5662  df-co 5663  df-dm 5664  df-rn 5665  df-res 5666  df-ima 5667  df-pred 6290  df-ord 6355  df-on 6356  df-lim 6357  df-suc 6358  df-iota 6484  df-fun 6533  df-fn 6534  df-f 6535  df-f1 6536  df-fo 6537  df-f1o 6538  df-fv 6539  df-riota 7362  df-ov 7408  df-oprab 7409  df-mpo 7410  df-om 7862  df-1st 7988  df-2nd 7989  df-tpos 8225  df-frecs 8280  df-wrecs 8311  df-recs 8385  df-rdg 8424  df-1o 8480  df-er 8719  df-map 8842  df-en 8960  df-dom 8961  df-sdom 8962  df-fin 8963  df-sup 9454  df-inf 9455  df-pnf 11271  df-mnf 11272  df-xr 11273  df-ltxr 11274  df-le 11275  df-sub 11468  df-neg 11469  df-div 11895  df-nn 12241  df-2 12303  df-3 12304  df-4 12305  df-5 12306  df-6 12307  df-7 12308  df-8 12309  df-9 12310  df-n0 12502  df-z 12589  df-dec 12709  df-uz 12853  df-q 12965  df-rp 13009  df-xneg 13128  df-xadd 13129  df-xmul 13130  df-fz 13525  df-seq 14020  df-exp 14080  df-cj 15118  df-re 15119  df-im 15120  df-sqrt 15254  df-abs 15255  df-struct 17166  df-sets 17183  df-slot 17201  df-ndx 17213  df-base 17229  df-ress 17252  df-plusg 17284  df-mulr 17285  df-starv 17286  df-sca 17287  df-vsca 17288  df-ip 17289  df-tset 17290  df-ple 17291  df-ds 17293  df-unif 17294  df-0g 17455  df-topgen 17457  df-mgm 18618  df-sgrp 18697  df-mnd 18713  df-mhm 18761  df-grp 18919  df-minusg 18920  df-sbg 18921  df-mulg 19051  df-subg 19106  df-ghm 19196  df-cmn 19763  df-abl 19764  df-mgp 20101  df-rng 20113  df-ur 20142  df-ring 20195  df-cring 20196  df-oppr 20297  df-dvdsr 20317  df-unit 20318  df-invr 20348  df-dvr 20361  df-rhm 20432  df-subrg 20530  df-drng 20691  df-staf 20799  df-srng 20800  df-lmod 20819  df-lss 20889  df-lmhm 20980  df-lvec 21061  df-sra 21131  df-rgmod 21132  df-psmet 21307  df-xmet 21308  df-met 21309  df-bl 21310  df-mopn 21311  df-cnfld 21316  df-phl 21586  df-top 22832  df-topon 22849  df-topsp 22871  df-bases 22884  df-xms 24259  df-ms 24260  df-nm 24521  df-ngp 24522  df-nlm 24525  df-clm 25014  df-cph 25120

This theorem is referenced by:  minveclem3  25381  minveclem7  25387