MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  nmoleub3 Structured version   Visualization version   GIF version

Theorem nmoleub3 24434
Description: The operator norm is the supremum of the value of a linear operator on the unit sphere. (Contributed by Mario Carneiro, 19-Oct-2015.) (Proof shortened by AV, 29-Sep-2021.)
Hypotheses
Ref Expression
nmoleub2.n 𝑁 = (𝑆 normOp 𝑇)
nmoleub2.v 𝑉 = (Base‘𝑆)
nmoleub2.l 𝐿 = (norm‘𝑆)
nmoleub2.m 𝑀 = (norm‘𝑇)
nmoleub2.g 𝐺 = (Scalar‘𝑆)
nmoleub2.w 𝐾 = (Base‘𝐺)
nmoleub2.s (𝜑𝑆 ∈ (NrmMod ∩ ℂMod))
nmoleub2.t (𝜑𝑇 ∈ (NrmMod ∩ ℂMod))
nmoleub2.f (𝜑𝐹 ∈ (𝑆 LMHom 𝑇))
nmoleub2.a (𝜑𝐴 ∈ ℝ*)
nmoleub2.r (𝜑𝑅 ∈ ℝ+)
nmoleub3.5 (𝜑 → 0 ≤ 𝐴)
nmoleub3.6 (𝜑 → ℝ ⊆ 𝐾)
Assertion
Ref Expression
nmoleub3 (𝜑 → ((𝑁𝐹) ≤ 𝐴 ↔ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)))
Distinct variable groups:   𝑥,𝐴   𝑥,𝐹   𝑥,𝐿   𝑥,𝑁   𝑥,𝑀   𝜑,𝑥   𝑥,𝑆   𝑥,𝑉   𝑥,𝑅
Allowed substitution hints:   𝑇(𝑥)   𝐺(𝑥)   𝐾(𝑥)

Proof of Theorem nmoleub3
Dummy variable 𝑦 is distinct from all other variables.
StepHypRef Expression
1 nmoleub2.n . 2 𝑁 = (𝑆 normOp 𝑇)
2 nmoleub2.v . 2 𝑉 = (Base‘𝑆)
3 nmoleub2.l . 2 𝐿 = (norm‘𝑆)
4 nmoleub2.m . 2 𝑀 = (norm‘𝑇)
5 nmoleub2.g . 2 𝐺 = (Scalar‘𝑆)
6 nmoleub2.w . 2 𝐾 = (Base‘𝐺)
7 nmoleub2.s . 2 (𝜑𝑆 ∈ (NrmMod ∩ ℂMod))
8 nmoleub2.t . 2 (𝜑𝑇 ∈ (NrmMod ∩ ℂMod))
9 nmoleub2.f . 2 (𝜑𝐹 ∈ (𝑆 LMHom 𝑇))
10 nmoleub2.a . 2 (𝜑𝐴 ∈ ℝ*)
11 nmoleub2.r . 2 (𝜑𝑅 ∈ ℝ+)
12 nmoleub3.5 . . 3 (𝜑 → 0 ≤ 𝐴)
1312adantr 482 . 2 ((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) → 0 ≤ 𝐴)
149ad3antrrr 729 . . . . . . . . 9 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → 𝐹 ∈ (𝑆 LMHom 𝑇))
15 nmoleub3.6 . . . . . . . . . . 11 (𝜑 → ℝ ⊆ 𝐾)
1615ad3antrrr 729 . . . . . . . . . 10 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → ℝ ⊆ 𝐾)
1711ad3antrrr 729 . . . . . . . . . . . 12 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → 𝑅 ∈ ℝ+)
187elin1d 4157 . . . . . . . . . . . . . . 15 (𝜑𝑆 ∈ NrmMod)
1918ad3antrrr 729 . . . . . . . . . . . . . 14 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → 𝑆 ∈ NrmMod)
20 nlmngp 23993 . . . . . . . . . . . . . 14 (𝑆 ∈ NrmMod → 𝑆 ∈ NrmGrp)
2119, 20syl 17 . . . . . . . . . . . . 13 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → 𝑆 ∈ NrmGrp)
22 simprl 770 . . . . . . . . . . . . 13 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → 𝑦𝑉)
23 simprr 772 . . . . . . . . . . . . 13 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → 𝑦 ≠ (0g𝑆))
24 eqid 2738 . . . . . . . . . . . . . 14 (0g𝑆) = (0g𝑆)
252, 3, 24nmrpcl 23928 . . . . . . . . . . . . 13 ((𝑆 ∈ NrmGrp ∧ 𝑦𝑉𝑦 ≠ (0g𝑆)) → (𝐿𝑦) ∈ ℝ+)
2621, 22, 23, 25syl3anc 1372 . . . . . . . . . . . 12 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (𝐿𝑦) ∈ ℝ+)
2717, 26rpdivcld 12929 . . . . . . . . . . 11 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (𝑅 / (𝐿𝑦)) ∈ ℝ+)
2827rpred 12912 . . . . . . . . . 10 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (𝑅 / (𝐿𝑦)) ∈ ℝ)
2916, 28sseldd 3944 . . . . . . . . 9 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (𝑅 / (𝐿𝑦)) ∈ 𝐾)
30 eqid 2738 . . . . . . . . . 10 ( ·𝑠𝑆) = ( ·𝑠𝑆)
31 eqid 2738 . . . . . . . . . 10 ( ·𝑠𝑇) = ( ·𝑠𝑇)
325, 6, 2, 30, 31lmhmlin 20449 . . . . . . . . 9 ((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ (𝑅 / (𝐿𝑦)) ∈ 𝐾𝑦𝑉) → (𝐹‘((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦)) = ((𝑅 / (𝐿𝑦))( ·𝑠𝑇)(𝐹𝑦)))
3314, 29, 22, 32syl3anc 1372 . . . . . . . 8 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (𝐹‘((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦)) = ((𝑅 / (𝐿𝑦))( ·𝑠𝑇)(𝐹𝑦)))
3433fveq2d 6844 . . . . . . 7 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (𝑀‘(𝐹‘((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦))) = (𝑀‘((𝑅 / (𝐿𝑦))( ·𝑠𝑇)(𝐹𝑦))))
358elin1d 4157 . . . . . . . . 9 (𝜑𝑇 ∈ NrmMod)
3635ad3antrrr 729 . . . . . . . 8 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → 𝑇 ∈ NrmMod)
37 eqid 2738 . . . . . . . . . . . . 13 (Scalar‘𝑇) = (Scalar‘𝑇)
385, 37lmhmsca 20444 . . . . . . . . . . . 12 (𝐹 ∈ (𝑆 LMHom 𝑇) → (Scalar‘𝑇) = 𝐺)
3914, 38syl 17 . . . . . . . . . . 11 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (Scalar‘𝑇) = 𝐺)
4039fveq2d 6844 . . . . . . . . . 10 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (Base‘(Scalar‘𝑇)) = (Base‘𝐺))
4140, 6eqtr4di 2796 . . . . . . . . 9 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (Base‘(Scalar‘𝑇)) = 𝐾)
4229, 41eleqtrrd 2842 . . . . . . . 8 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (𝑅 / (𝐿𝑦)) ∈ (Base‘(Scalar‘𝑇)))
43 eqid 2738 . . . . . . . . . . 11 (Base‘𝑇) = (Base‘𝑇)
442, 43lmhmf 20448 . . . . . . . . . 10 (𝐹 ∈ (𝑆 LMHom 𝑇) → 𝐹:𝑉⟶(Base‘𝑇))
4514, 44syl 17 . . . . . . . . 9 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → 𝐹:𝑉⟶(Base‘𝑇))
4645, 22ffvelcdmd 7033 . . . . . . . 8 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (𝐹𝑦) ∈ (Base‘𝑇))
47 eqid 2738 . . . . . . . . 9 (Base‘(Scalar‘𝑇)) = (Base‘(Scalar‘𝑇))
48 eqid 2738 . . . . . . . . 9 (norm‘(Scalar‘𝑇)) = (norm‘(Scalar‘𝑇))
4943, 4, 31, 37, 47, 48nmvs 23992 . . . . . . . 8 ((𝑇 ∈ NrmMod ∧ (𝑅 / (𝐿𝑦)) ∈ (Base‘(Scalar‘𝑇)) ∧ (𝐹𝑦) ∈ (Base‘𝑇)) → (𝑀‘((𝑅 / (𝐿𝑦))( ·𝑠𝑇)(𝐹𝑦))) = (((norm‘(Scalar‘𝑇))‘(𝑅 / (𝐿𝑦))) · (𝑀‘(𝐹𝑦))))
5036, 42, 46, 49syl3anc 1372 . . . . . . 7 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (𝑀‘((𝑅 / (𝐿𝑦))( ·𝑠𝑇)(𝐹𝑦))) = (((norm‘(Scalar‘𝑇))‘(𝑅 / (𝐿𝑦))) · (𝑀‘(𝐹𝑦))))
5139fveq2d 6844 . . . . . . . . . 10 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (norm‘(Scalar‘𝑇)) = (norm‘𝐺))
5251fveq1d 6842 . . . . . . . . 9 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → ((norm‘(Scalar‘𝑇))‘(𝑅 / (𝐿𝑦))) = ((norm‘𝐺)‘(𝑅 / (𝐿𝑦))))
537elin2d 4158 . . . . . . . . . . . 12 (𝜑𝑆 ∈ ℂMod)
5453ad3antrrr 729 . . . . . . . . . . 11 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → 𝑆 ∈ ℂMod)
555, 6clmabs 24398 . . . . . . . . . . 11 ((𝑆 ∈ ℂMod ∧ (𝑅 / (𝐿𝑦)) ∈ 𝐾) → (abs‘(𝑅 / (𝐿𝑦))) = ((norm‘𝐺)‘(𝑅 / (𝐿𝑦))))
5654, 29, 55syl2anc 585 . . . . . . . . . 10 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (abs‘(𝑅 / (𝐿𝑦))) = ((norm‘𝐺)‘(𝑅 / (𝐿𝑦))))
5727rpge0d 12916 . . . . . . . . . . 11 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → 0 ≤ (𝑅 / (𝐿𝑦)))
5828, 57absidd 15267 . . . . . . . . . 10 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (abs‘(𝑅 / (𝐿𝑦))) = (𝑅 / (𝐿𝑦)))
5956, 58eqtr3d 2780 . . . . . . . . 9 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → ((norm‘𝐺)‘(𝑅 / (𝐿𝑦))) = (𝑅 / (𝐿𝑦)))
6052, 59eqtrd 2778 . . . . . . . 8 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → ((norm‘(Scalar‘𝑇))‘(𝑅 / (𝐿𝑦))) = (𝑅 / (𝐿𝑦)))
6160oveq1d 7367 . . . . . . 7 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (((norm‘(Scalar‘𝑇))‘(𝑅 / (𝐿𝑦))) · (𝑀‘(𝐹𝑦))) = ((𝑅 / (𝐿𝑦)) · (𝑀‘(𝐹𝑦))))
6234, 50, 613eqtrd 2782 . . . . . 6 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (𝑀‘(𝐹‘((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦))) = ((𝑅 / (𝐿𝑦)) · (𝑀‘(𝐹𝑦))))
6362oveq1d 7367 . . . . 5 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → ((𝑀‘(𝐹‘((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦))) / 𝑅) = (((𝑅 / (𝐿𝑦)) · (𝑀‘(𝐹𝑦))) / 𝑅))
6427rpcnd 12914 . . . . . 6 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (𝑅 / (𝐿𝑦)) ∈ ℂ)
65 nlmngp 23993 . . . . . . . . 9 (𝑇 ∈ NrmMod → 𝑇 ∈ NrmGrp)
6636, 65syl 17 . . . . . . . 8 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → 𝑇 ∈ NrmGrp)
6743, 4nmcl 23924 . . . . . . . 8 ((𝑇 ∈ NrmGrp ∧ (𝐹𝑦) ∈ (Base‘𝑇)) → (𝑀‘(𝐹𝑦)) ∈ ℝ)
6866, 46, 67syl2anc 585 . . . . . . 7 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (𝑀‘(𝐹𝑦)) ∈ ℝ)
6968recnd 11142 . . . . . 6 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (𝑀‘(𝐹𝑦)) ∈ ℂ)
7017rpcnd 12914 . . . . . 6 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → 𝑅 ∈ ℂ)
7117rpne0d 12917 . . . . . 6 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → 𝑅 ≠ 0)
7264, 69, 70, 71divassd 11925 . . . . 5 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (((𝑅 / (𝐿𝑦)) · (𝑀‘(𝐹𝑦))) / 𝑅) = ((𝑅 / (𝐿𝑦)) · ((𝑀‘(𝐹𝑦)) / 𝑅)))
7326rpcnd 12914 . . . . . 6 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (𝐿𝑦) ∈ ℂ)
7426rpne0d 12917 . . . . . 6 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (𝐿𝑦) ≠ 0)
7569, 70, 73, 71, 74dmdcand 11919 . . . . 5 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → ((𝑅 / (𝐿𝑦)) · ((𝑀‘(𝐹𝑦)) / 𝑅)) = ((𝑀‘(𝐹𝑦)) / (𝐿𝑦)))
7663, 72, 753eqtrd 2782 . . . 4 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → ((𝑀‘(𝐹‘((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦))) / 𝑅) = ((𝑀‘(𝐹𝑦)) / (𝐿𝑦)))
77 eqid 2738 . . . . . . . 8 (norm‘𝐺) = (norm‘𝐺)
782, 3, 30, 5, 6, 77nmvs 23992 . . . . . . 7 ((𝑆 ∈ NrmMod ∧ (𝑅 / (𝐿𝑦)) ∈ 𝐾𝑦𝑉) → (𝐿‘((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦)) = (((norm‘𝐺)‘(𝑅 / (𝐿𝑦))) · (𝐿𝑦)))
7919, 29, 22, 78syl3anc 1372 . . . . . 6 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (𝐿‘((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦)) = (((norm‘𝐺)‘(𝑅 / (𝐿𝑦))) · (𝐿𝑦)))
8059oveq1d 7367 . . . . . 6 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (((norm‘𝐺)‘(𝑅 / (𝐿𝑦))) · (𝐿𝑦)) = ((𝑅 / (𝐿𝑦)) · (𝐿𝑦)))
8170, 73, 74divcan1d 11891 . . . . . 6 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → ((𝑅 / (𝐿𝑦)) · (𝐿𝑦)) = 𝑅)
8279, 80, 813eqtrd 2782 . . . . 5 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (𝐿‘((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦)) = 𝑅)
83 fveqeq2 6849 . . . . . . 7 (𝑥 = ((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦) → ((𝐿𝑥) = 𝑅 ↔ (𝐿‘((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦)) = 𝑅))
84 2fveq3 6845 . . . . . . . . 9 (𝑥 = ((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦) → (𝑀‘(𝐹𝑥)) = (𝑀‘(𝐹‘((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦))))
8584oveq1d 7367 . . . . . . . 8 (𝑥 = ((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦) → ((𝑀‘(𝐹𝑥)) / 𝑅) = ((𝑀‘(𝐹‘((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦))) / 𝑅))
8685breq1d 5114 . . . . . . 7 (𝑥 = ((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦) → (((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴 ↔ ((𝑀‘(𝐹‘((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦))) / 𝑅) ≤ 𝐴))
8783, 86imbi12d 345 . . . . . 6 (𝑥 = ((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦) → (((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴) ↔ ((𝐿‘((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦)) = 𝑅 → ((𝑀‘(𝐹‘((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦))) / 𝑅) ≤ 𝐴)))
88 simpllr 775 . . . . . 6 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴))
892, 5, 30, 6clmvscl 24403 . . . . . . 7 ((𝑆 ∈ ℂMod ∧ (𝑅 / (𝐿𝑦)) ∈ 𝐾𝑦𝑉) → ((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦) ∈ 𝑉)
9054, 29, 22, 89syl3anc 1372 . . . . . 6 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → ((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦) ∈ 𝑉)
9187, 88, 90rspcdva 3581 . . . . 5 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → ((𝐿‘((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦)) = 𝑅 → ((𝑀‘(𝐹‘((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦))) / 𝑅) ≤ 𝐴))
9282, 91mpd 15 . . . 4 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → ((𝑀‘(𝐹‘((𝑅 / (𝐿𝑦))( ·𝑠𝑆)𝑦))) / 𝑅) ≤ 𝐴)
9376, 92eqbrtrrd 5128 . . 3 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → ((𝑀‘(𝐹𝑦)) / (𝐿𝑦)) ≤ 𝐴)
94 simplr 768 . . . 4 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → 𝐴 ∈ ℝ)
9568, 94, 26ledivmul2d 12966 . . 3 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (((𝑀‘(𝐹𝑦)) / (𝐿𝑦)) ≤ 𝐴 ↔ (𝑀‘(𝐹𝑦)) ≤ (𝐴 · (𝐿𝑦))))
9693, 95mpbid 231 . 2 ((((𝜑 ∧ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦𝑉𝑦 ≠ (0g𝑆))) → (𝑀‘(𝐹𝑦)) ≤ (𝐴 · (𝐿𝑦)))
9711adantr 482 . . . . 5 ((𝜑𝑥𝑉) → 𝑅 ∈ ℝ+)
9897rpred 12912 . . . 4 ((𝜑𝑥𝑉) → 𝑅 ∈ ℝ)
9998leidd 11680 . . 3 ((𝜑𝑥𝑉) → 𝑅𝑅)
100 breq1 5107 . . 3 ((𝐿𝑥) = 𝑅 → ((𝐿𝑥) ≤ 𝑅𝑅𝑅))
10199, 100syl5ibrcom 247 . 2 ((𝜑𝑥𝑉) → ((𝐿𝑥) = 𝑅 → (𝐿𝑥) ≤ 𝑅))
1021, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 96, 101nmoleub2lem 24429 1 (𝜑 → ((𝑁𝐹) ≤ 𝐴 ↔ ∀𝑥𝑉 ((𝐿𝑥) = 𝑅 → ((𝑀‘(𝐹𝑥)) / 𝑅) ≤ 𝐴)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 397   = wceq 1542  wcel 2107  wne 2942  wral 3063  cin 3908  wss 3909   class class class wbr 5104  wf 6490  cfv 6494  (class class class)co 7352  cr 11009  0cc0 11010   · cmul 11015  *cxr 11147  cle 11149   / cdiv 11771  +crp 12870  abscabs 15079  Basecbs 17043  Scalarcsca 17096   ·𝑠 cvsca 17097  0gc0g 17281   LMHom clmhm 20433  normcnm 23884  NrmGrpcngp 23885  NrmModcnlm 23888   normOp cnmo 24021  ℂModcclm 24377
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2709  ax-rep 5241  ax-sep 5255  ax-nul 5262  ax-pow 5319  ax-pr 5383  ax-un 7665  ax-cnex 11066  ax-resscn 11067  ax-1cn 11068  ax-icn 11069  ax-addcl 11070  ax-addrcl 11071  ax-mulcl 11072  ax-mulrcl 11073  ax-mulcom 11074  ax-addass 11075  ax-mulass 11076  ax-distr 11077  ax-i2m1 11078  ax-1ne0 11079  ax-1rid 11080  ax-rnegex 11081  ax-rrecex 11082  ax-cnre 11083  ax-pre-lttri 11084  ax-pre-lttrn 11085  ax-pre-ltadd 11086  ax-pre-mulgt0 11087  ax-pre-sup 11088  ax-addf 11089  ax-mulf 11090
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2888  df-ne 2943  df-nel 3049  df-ral 3064  df-rex 3073  df-rmo 3352  df-reu 3353  df-rab 3407  df-v 3446  df-sbc 3739  df-csb 3855  df-dif 3912  df-un 3914  df-in 3916  df-ss 3926  df-pss 3928  df-nul 4282  df-if 4486  df-pw 4561  df-sn 4586  df-pr 4588  df-tp 4590  df-op 4592  df-uni 4865  df-iun 4955  df-br 5105  df-opab 5167  df-mpt 5188  df-tr 5222  df-id 5530  df-eprel 5536  df-po 5544  df-so 5545  df-fr 5587  df-we 5589  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-pred 6252  df-ord 6319  df-on 6320  df-lim 6321  df-suc 6322  df-iota 6446  df-fun 6496  df-fn 6497  df-f 6498  df-f1 6499  df-fo 6500  df-f1o 6501  df-fv 6502  df-riota 7308  df-ov 7355  df-oprab 7356  df-mpo 7357  df-om 7796  df-1st 7914  df-2nd 7915  df-frecs 8205  df-wrecs 8236  df-recs 8310  df-rdg 8349  df-1o 8405  df-er 8607  df-map 8726  df-en 8843  df-dom 8844  df-sdom 8845  df-fin 8846  df-sup 9337  df-inf 9338  df-pnf 11150  df-mnf 11151  df-xr 11152  df-ltxr 11153  df-le 11154  df-sub 11346  df-neg 11347  df-div 11772  df-nn 12113  df-2 12175  df-3 12176  df-4 12177  df-5 12178  df-6 12179  df-7 12180  df-8 12181  df-9 12182  df-n0 12373  df-z 12459  df-dec 12578  df-uz 12723  df-q 12829  df-rp 12871  df-xneg 12988  df-xadd 12989  df-xmul 12990  df-ico 13225  df-fz 13380  df-seq 13862  df-exp 13923  df-cj 14944  df-re 14945  df-im 14946  df-sqrt 15080  df-abs 15081  df-struct 16979  df-sets 16996  df-slot 17014  df-ndx 17026  df-base 17044  df-ress 17073  df-plusg 17106  df-mulr 17107  df-starv 17108  df-tset 17112  df-ple 17113  df-ds 17115  df-unif 17116  df-0g 17283  df-topgen 17285  df-mgm 18457  df-sgrp 18506  df-mnd 18517  df-grp 18711  df-subg 18884  df-ghm 18965  df-cmn 19523  df-mgp 19856  df-ring 19920  df-cring 19921  df-subrg 20173  df-lmod 20277  df-lmhm 20436  df-psmet 20741  df-xmet 20742  df-met 20743  df-bl 20744  df-mopn 20745  df-cnfld 20750  df-top 22195  df-topon 22212  df-topsp 22234  df-bases 22248  df-xms 23625  df-ms 23626  df-nm 23890  df-ngp 23891  df-nlm 23894  df-nmo 24024  df-nghm 24025  df-clm 24378
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator