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

Theorem nmoleub2lem3 25448
Description: Lemma for nmoleub2a 25450 and similar theorems. (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 (𝜑 → 𝑅 ∈ ℝ+)
nmoleub2a.5 (𝜑 → ℚ ⊆ 𝐾)
nmoleub2lem3.p · = ( ·𝑠 ‘𝑆)
nmoleub2lem3.1 (𝜑 → 𝐴 ∈ ℝ)
nmoleub2lem3.2 (𝜑 → 0 ≤ 𝐴)
nmoleub2lem3.3 (𝜑 → 𝐵 ∈ 𝑉)
nmoleub2lem3.4 (𝜑 → 𝐵 ≠ (0g‘𝑆))
nmoleub2lem3.5 (𝜑 → ((𝑟 · 𝐵) ∈ 𝑉 → ((𝐿‘(𝑟 · 𝐵)) < 𝑅 → ((𝑀‘(𝐹‘(𝑟 · 𝐵))) / 𝑅) ≤ 𝐴)))
nmoleub2lem3.6 (𝜑 → ¬ (𝑀‘(𝐹‘𝐵)) ≤ (𝐴 · (𝐿‘𝐵)))
Assertion
Ref Expression
nmoleub2lem3 ¬ 𝜑
Distinct variable groups:   𝐴,𝑟   𝐹,𝑟   𝐿,𝑟   𝑀,𝑟   𝜑,𝑟   𝐵,𝑟   𝑅,𝑟
Allowed substitution hints:   𝑆(𝑟)   𝑇(𝑟)   · (𝑟)   𝐺(𝑟)   𝐾(𝑟)   𝑁(𝑟)   𝑉(𝑟)

Proof of Theorem nmoleub2lem3
StepHypRef Expression
1 simprl 783 . . . 4 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → ((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟)
2 qre 13090 . . . . . 6 (𝑟 ∈ ℚ → 𝑟 ∈ ℝ)
32ad2antlr 740 . . . . 5 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → 𝑟 ∈ ℝ)
4 nmoleub2lem3.1 . . . . . . . 8 (𝜑 → 𝐴 ∈ ℝ)
5 nmoleub2.r . . . . . . . . 9 (𝜑 → 𝑅 ∈ ℝ+)
65rpred 13174 . . . . . . . 8 (𝜑 → 𝑅 ∈ ℝ)
74, 6remulcld 11349 . . . . . . 7 (𝜑 → (𝐴 · 𝑅) ∈ ℝ)
8 nmoleub2.t . . . . . . . . . . 11 (𝜑 → 𝑇 ∈ (NrmMod ∩ ℂMod))
98elin1d 4103 . . . . . . . . . 10 (𝜑 → 𝑇 ∈ NrmMod)
10 nlmngp 25008 . . . . . . . . . 10 (𝑇 ∈ NrmMod → 𝑇 ∈ NrmGrp)
119, 10syl 18 . . . . . . . . 9 (𝜑 → 𝑇 ∈ NrmGrp)
12 nmoleub2.f . . . . . . . . . . 11 (𝜑 → 𝐹 ∈ (𝑆 LMHom 𝑇))
13 nmoleub2.v . . . . . . . . . . . 12 𝑉 = (Base‘𝑆)
14 eqid 2763 . . . . . . . . . . . 12 (Base‘𝑇) = (Base‘𝑇)
1513, 14lmhmf 21321 . . . . . . . . . . 11 (𝐹 ∈ (𝑆 LMHom 𝑇) → 𝐹:𝑉⟶(Base‘𝑇))
1612, 15syl 18 . . . . . . . . . 10 (𝜑 → 𝐹:𝑉⟶(Base‘𝑇))
17 nmoleub2lem3.3 . . . . . . . . . 10 (𝜑 → 𝐵 ∈ 𝑉)
1816, 17ffvelcdmd 7093 . . . . . . . . 9 (𝜑 → (𝐹‘𝐵) ∈ (Base‘𝑇))
19 nmoleub2.m . . . . . . . . . 10 𝑀 = (norm‘𝑇)
2014, 19nmcl 24947 . . . . . . . . 9 ((𝑇 ∈ NrmGrp ∧ (𝐹‘𝐵) ∈ (Base‘𝑇)) → (𝑀‘(𝐹‘𝐵)) ∈ ℝ)
2111, 18, 20syl2anc 596 . . . . . . . 8 (𝜑 → (𝑀‘(𝐹‘𝐵)) ∈ ℝ)
22 0red 11321 . . . . . . . . 9 (𝜑 → 0 ∈ ℝ)
23 nmoleub2.s . . . . . . . . . . . . 13 (𝜑 → 𝑆 ∈ (NrmMod ∩ ℂMod))
2423elin1d 4103 . . . . . . . . . . . 12 (𝜑 → 𝑆 ∈ NrmMod)
25 nlmngp 25008 . . . . . . . . . . . 12 (𝑆 ∈ NrmMod → 𝑆 ∈ NrmGrp)
2624, 25syl 18 . . . . . . . . . . 11 (𝜑 → 𝑆 ∈ NrmGrp)
27 nmoleub2.l . . . . . . . . . . . 12 𝐿 = (norm‘𝑆)
2813, 27nmcl 24947 . . . . . . . . . . 11 ((𝑆 ∈ NrmGrp ∧ 𝐵 ∈ 𝑉) → (𝐿‘𝐵) ∈ ℝ)
2926, 17, 28syl2anc 596 . . . . . . . . . 10 (𝜑 → (𝐿‘𝐵) ∈ ℝ)
304, 29remulcld 11349 . . . . . . . . 9 (𝜑 → (𝐴 · (𝐿‘𝐵)) ∈ ℝ)
31 nmoleub2lem3.2 . . . . . . . . . 10 (𝜑 → 0 ≤ 𝐴)
3213, 27nmge0 24948 . . . . . . . . . . 11 ((𝑆 ∈ NrmGrp ∧ 𝐵 ∈ 𝑉) → 0 ≤ (𝐿‘𝐵))
3326, 17, 32syl2anc 596 . . . . . . . . . 10 (𝜑 → 0 ≤ (𝐿‘𝐵))
344, 29, 31, 33mulge0d 11903 . . . . . . . . 9 (𝜑 → 0 ≤ (𝐴 · (𝐿‘𝐵)))
35 nmoleub2lem3.6 . . . . . . . . . 10 (𝜑 → ¬ (𝑀‘(𝐹‘𝐵)) ≤ (𝐴 · (𝐿‘𝐵)))
3630, 21ltnled 11467 . . . . . . . . . 10 (𝜑 → ((𝐴 · (𝐿‘𝐵)) < (𝑀‘(𝐹‘𝐵)) ↔ ¬ (𝑀‘(𝐹‘𝐵)) ≤ (𝐴 · (𝐿‘𝐵))))
3735, 36mpbird 260 . . . . . . . . 9 (𝜑 → (𝐴 · (𝐿‘𝐵)) < (𝑀‘(𝐹‘𝐵)))
3822, 30, 21, 34, 37lelttrd 11478 . . . . . . . 8 (𝜑 → 0 < (𝑀‘(𝐹‘𝐵)))
3921, 38elrpd 13171 . . . . . . 7 (𝜑 → (𝑀‘(𝐹‘𝐵)) ∈ ℝ+)
407, 39rerpdivcld 13205 . . . . . 6 (𝜑 → ((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) ∈ ℝ)
4140ad2antrr 739 . . . . 5 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → ((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) ∈ ℝ)
4212ad2antrr 739 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → 𝐹 ∈ (𝑆 LMHom 𝑇))
43 nmoleub2a.5 . . . . . . . . . . . . . 14 (𝜑 → ℚ ⊆ 𝐾)
4443sselda 3912 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑟 ∈ ℚ) → 𝑟 ∈ 𝐾)
4544adantr 486 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → 𝑟 ∈ 𝐾)
4617ad2antrr 739 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → 𝐵 ∈ 𝑉)
47 nmoleub2.g . . . . . . . . . . . . 13 𝐺 = (Scalar‘𝑆)
48 nmoleub2.w . . . . . . . . . . . . 13 𝐾 = (Base‘𝐺)
49 nmoleub2lem3.p . . . . . . . . . . . . 13 · = ( ·𝑠 ‘𝑆)
50 eqid 2763 . . . . . . . . . . . . 13 ( ·𝑠 ‘𝑇) = ( ·𝑠 ‘𝑇)
5147, 48, 13, 49, 50lmhmlin 21322 . . . . . . . . . . . 12 ((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝑟 ∈ 𝐾 ∧ 𝐵 ∈ 𝑉) → (𝐹‘(𝑟 · 𝐵)) = (𝑟( ·𝑠 ‘𝑇)(𝐹‘𝐵)))
5242, 45, 46, 51syl3anc 1398 . . . . . . . . . . 11 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (𝐹‘(𝑟 · 𝐵)) = (𝑟( ·𝑠 ‘𝑇)(𝐹‘𝐵)))
5352fveq2d 6897 . . . . . . . . . 10 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (𝑀‘(𝐹‘(𝑟 · 𝐵))) = (𝑀‘(𝑟( ·𝑠 ‘𝑇)(𝐹‘𝐵))))
549ad2antrr 739 . . . . . . . . . . 11 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → 𝑇 ∈ NrmMod)
55 eqid 2763 . . . . . . . . . . . . . . . 16 (Scalar‘𝑇) = (Scalar‘𝑇)
5647, 55lmhmsca 21317 . . . . . . . . . . . . . . 15 (𝐹 ∈ (𝑆 LMHom 𝑇) → (Scalar‘𝑇) = 𝐺)
5742, 56syl 18 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (Scalar‘𝑇) = 𝐺)
5857fveq2d 6897 . . . . . . . . . . . . 13 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (Base‘(Scalar‘𝑇)) = (Base‘𝐺))
5958, 48eqtr4di 2816 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (Base‘(Scalar‘𝑇)) = 𝐾)
6045, 59eleqtrrd 2866 . . . . . . . . . . 11 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → 𝑟 ∈ (Base‘(Scalar‘𝑇)))
6118ad2antrr 739 . . . . . . . . . . 11 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (𝐹‘𝐵) ∈ (Base‘𝑇))
62 eqid 2763 . . . . . . . . . . . 12 (Base‘(Scalar‘𝑇)) = (Base‘(Scalar‘𝑇))
63 eqid 2763 . . . . . . . . . . . 12 (norm‘(Scalar‘𝑇)) = (norm‘(Scalar‘𝑇))
6414, 19, 50, 55, 62, 63nmvs 25007 . . . . . . . . . . 11 ((𝑇 ∈ NrmMod ∧ 𝑟 ∈ (Base‘(Scalar‘𝑇)) ∧ (𝐹‘𝐵) ∈ (Base‘𝑇)) → (𝑀‘(𝑟( ·𝑠 ‘𝑇)(𝐹‘𝐵))) = (((norm‘(Scalar‘𝑇))‘𝑟) · (𝑀‘(𝐹‘𝐵))))
6554, 60, 61, 64syl3anc 1398 . . . . . . . . . 10 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (𝑀‘(𝑟( ·𝑠 ‘𝑇)(𝐹‘𝐵))) = (((norm‘(Scalar‘𝑇))‘𝑟) · (𝑀‘(𝐹‘𝐵))))
6657fveq2d 6897 . . . . . . . . . . . . 13 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (norm‘(Scalar‘𝑇)) = (norm‘𝐺))
6766fveq1d 6895 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → ((norm‘(Scalar‘𝑇))‘𝑟) = ((norm‘𝐺)‘𝑟))
6823elin2d 4104 . . . . . . . . . . . . . . 15 (𝜑 → 𝑆 ∈ ℂMod)
6968ad2antrr 739 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → 𝑆 ∈ ℂMod)
7047, 48clmabs 25416 . . . . . . . . . . . . . 14 ((𝑆 ∈ ℂMod ∧ 𝑟 ∈ 𝐾) → (abs‘𝑟) = ((norm‘𝐺)‘𝑟))
7169, 45, 70syl2anc 596 . . . . . . . . . . . . 13 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (abs‘𝑟) = ((norm‘𝐺)‘𝑟))
72 0red 11321 . . . . . . . . . . . . . . 15 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → 0 ∈ ℝ)
735rpge0d 13178 . . . . . . . . . . . . . . . . . . 19 (𝜑 → 0 ≤ 𝑅)
744, 6, 31, 73mulge0d 11903 . . . . . . . . . . . . . . . . . 18 (𝜑 → 0 ≤ (𝐴 · 𝑅))
75 divge0 12196 . . . . . . . . . . . . . . . . . 18 ((((𝐴 · 𝑅) ∈ ℝ ∧ 0 ≤ (𝐴 · 𝑅)) ∧ ((𝑀‘(𝐹‘𝐵)) ∈ ℝ ∧ 0 < (𝑀‘(𝐹‘𝐵)))) → 0 ≤ ((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))))
767, 74, 21, 38, 75syl22anc 852 . . . . . . . . . . . . . . . . 17 (𝜑 → 0 ≤ ((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))))
7776ad2antrr 739 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → 0 ≤ ((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))))
7872, 41, 3, 77, 1lelttrd 11478 . . . . . . . . . . . . . . 15 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → 0 < 𝑟)
7972, 3, 78ltled 11468 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → 0 ≤ 𝑟)
803, 79absidd 15602 . . . . . . . . . . . . 13 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (abs‘𝑟) = 𝑟)
8171, 80eqtr3d 2800 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → ((norm‘𝐺)‘𝑟) = 𝑟)
8267, 81eqtrd 2798 . . . . . . . . . . 11 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → ((norm‘(Scalar‘𝑇))‘𝑟) = 𝑟)
8382oveq1d 7442 . . . . . . . . . 10 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (((norm‘(Scalar‘𝑇))‘𝑟) · (𝑀‘(𝐹‘𝐵))) = (𝑟 · (𝑀‘(𝐹‘𝐵))))
8453, 65, 833eqtrd 2802 . . . . . . . . 9 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (𝑀‘(𝐹‘(𝑟 · 𝐵))) = (𝑟 · (𝑀‘(𝐹‘𝐵))))
8584oveq1d 7442 . . . . . . . 8 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → ((𝑀‘(𝐹‘(𝑟 · 𝐵))) / 𝑅) = ((𝑟 · (𝑀‘(𝐹‘𝐵))) / 𝑅))
8613, 47, 49, 48clmvscl 25421 . . . . . . . . . 10 ((𝑆 ∈ ℂMod ∧ 𝑟 ∈ 𝐾 ∧ 𝐵 ∈ 𝑉) → (𝑟 · 𝐵) ∈ 𝑉)
8769, 45, 46, 86syl3anc 1398 . . . . . . . . 9 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (𝑟 · 𝐵) ∈ 𝑉)
8824ad2antrr 739 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → 𝑆 ∈ NrmMod)
89 eqid 2763 . . . . . . . . . . . . 13 (norm‘𝐺) = (norm‘𝐺)
9013, 27, 49, 47, 48, 89nmvs 25007 . . . . . . . . . . . 12 ((𝑆 ∈ NrmMod ∧ 𝑟 ∈ 𝐾 ∧ 𝐵 ∈ 𝑉) → (𝐿‘(𝑟 · 𝐵)) = (((norm‘𝐺)‘𝑟) · (𝐿‘𝐵)))
9188, 45, 46, 90syl3anc 1398 . . . . . . . . . . 11 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (𝐿‘(𝑟 · 𝐵)) = (((norm‘𝐺)‘𝑟) · (𝐿‘𝐵)))
9281oveq1d 7442 . . . . . . . . . . 11 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (((norm‘𝐺)‘𝑟) · (𝐿‘𝐵)) = (𝑟 · (𝐿‘𝐵)))
9391, 92eqtrd 2798 . . . . . . . . . 10 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (𝐿‘(𝑟 · 𝐵)) = (𝑟 · (𝐿‘𝐵)))
94 simprr 785 . . . . . . . . . . 11 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → 𝑟 < (𝑅 / (𝐿‘𝐵)))
956ad2antrr 739 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → 𝑅 ∈ ℝ)
96 nmoleub2lem3.4 . . . . . . . . . . . . . . 15 (𝜑 → 𝐵 ≠ (0g‘𝑆))
97 eqid 2763 . . . . . . . . . . . . . . . 16 (0g‘𝑆) = (0g‘𝑆)
9813, 27, 97nmrpcl 24951 . . . . . . . . . . . . . . 15 ((𝑆 ∈ NrmGrp ∧ 𝐵 ∈ 𝑉 ∧ 𝐵 ≠ (0g‘𝑆)) → (𝐿‘𝐵) ∈ ℝ+)
9926, 17, 96, 98syl3anc 1398 . . . . . . . . . . . . . 14 (𝜑 → (𝐿‘𝐵) ∈ ℝ+)
10099rpregt0d 13180 . . . . . . . . . . . . 13 (𝜑 → ((𝐿‘𝐵) ∈ ℝ ∧ 0 < (𝐿‘𝐵)))
101100ad2antrr 739 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → ((𝐿‘𝐵) ∈ ℝ ∧ 0 < (𝐿‘𝐵)))
102 ltmuldiv 12200 . . . . . . . . . . . 12 ((𝑟 ∈ ℝ ∧ 𝑅 ∈ ℝ ∧ ((𝐿‘𝐵) ∈ ℝ ∧ 0 < (𝐿‘𝐵))) → ((𝑟 · (𝐿‘𝐵)) < 𝑅 ↔ 𝑟 < (𝑅 / (𝐿‘𝐵))))
1033, 95, 101, 102syl3anc 1398 . . . . . . . . . . 11 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → ((𝑟 · (𝐿‘𝐵)) < 𝑅 ↔ 𝑟 < (𝑅 / (𝐿‘𝐵))))
10494, 103mpbird 260 . . . . . . . . . 10 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (𝑟 · (𝐿‘𝐵)) < 𝑅)
10593, 104eqbrtrd 5129 . . . . . . . . 9 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (𝐿‘(𝑟 · 𝐵)) < 𝑅)
106 nmoleub2lem3.5 . . . . . . . . . 10 (𝜑 → ((𝑟 · 𝐵) ∈ 𝑉 → ((𝐿‘(𝑟 · 𝐵)) < 𝑅 → ((𝑀‘(𝐹‘(𝑟 · 𝐵))) / 𝑅) ≤ 𝐴)))
107106ad2antrr 739 . . . . . . . . 9 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → ((𝑟 · 𝐵) ∈ 𝑉 → ((𝐿‘(𝑟 · 𝐵)) < 𝑅 → ((𝑀‘(𝐹‘(𝑟 · 𝐵))) / 𝑅) ≤ 𝐴)))
10887, 105, 107mp2d 50 . . . . . . . 8 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → ((𝑀‘(𝐹‘(𝑟 · 𝐵))) / 𝑅) ≤ 𝐴)
10985, 108eqbrtrrd 5131 . . . . . . 7 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → ((𝑟 · (𝑀‘(𝐹‘𝐵))) / 𝑅) ≤ 𝐴)
11021ad2antrr 739 . . . . . . . . 9 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (𝑀‘(𝐹‘𝐵)) ∈ ℝ)
1113, 110remulcld 11349 . . . . . . . 8 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (𝑟 · (𝑀‘(𝐹‘𝐵))) ∈ ℝ)
1124ad2antrr 739 . . . . . . . 8 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → 𝐴 ∈ ℝ)
1135ad2antrr 739 . . . . . . . 8 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → 𝑅 ∈ ℝ+)
114111, 112, 113ledivmul2d 13228 . . . . . . 7 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (((𝑟 · (𝑀‘(𝐹‘𝐵))) / 𝑅) ≤ 𝐴 ↔ (𝑟 · (𝑀‘(𝐹‘𝐵))) ≤ (𝐴 · 𝑅)))
115109, 114mpbid 235 . . . . . 6 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (𝑟 · (𝑀‘(𝐹‘𝐵))) ≤ (𝐴 · 𝑅))
116112, 95remulcld 11349 . . . . . . 7 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (𝐴 · 𝑅) ∈ ℝ)
11721, 38jca 521 . . . . . . . 8 (𝜑 → ((𝑀‘(𝐹‘𝐵)) ∈ ℝ ∧ 0 < (𝑀‘(𝐹‘𝐵))))
118117ad2antrr 739 . . . . . . 7 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → ((𝑀‘(𝐹‘𝐵)) ∈ ℝ ∧ 0 < (𝑀‘(𝐹‘𝐵))))
119 lemuldiv 12207 . . . . . . 7 ((𝑟 ∈ ℝ ∧ (𝐴 · 𝑅) ∈ ℝ ∧ ((𝑀‘(𝐹‘𝐵)) ∈ ℝ ∧ 0 < (𝑀‘(𝐹‘𝐵)))) → ((𝑟 · (𝑀‘(𝐹‘𝐵))) ≤ (𝐴 · 𝑅) ↔ 𝑟 ≤ ((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵)))))
1203, 116, 118, 119syl3anc 1398 . . . . . 6 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → ((𝑟 · (𝑀‘(𝐹‘𝐵))) ≤ (𝐴 · 𝑅) ↔ 𝑟 ≤ ((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵)))))
121115, 120mpbid 235 . . . . 5 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → 𝑟 ≤ ((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))))
1223, 41, 121lensymd 11471 . . . 4 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → ¬ ((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟)
1231, 122pm2.21dd 198 . . 3 (((𝜑 ∧ 𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵)))) → (𝑀‘(𝐹‘𝐵)) ≤ (𝐴 · (𝐿‘𝐵)))
1246, 99rerpdivcld 13205 . . . 4 (𝜑 → (𝑅 / (𝐿‘𝐵)) ∈ ℝ)
1254recnd 11347 . . . . . . 7 (𝜑 → 𝐴 ∈ ℂ)
1266recnd 11347 . . . . . . 7 (𝜑 → 𝑅 ∈ ℂ)
12729recnd 11347 . . . . . . 7 (𝜑 → (𝐿‘𝐵) ∈ ℂ)
128 mulass 11298 . . . . . . . 8 ((𝐴 ∈ ℂ ∧ 𝑅 ∈ ℂ ∧ (𝐿‘𝐵) ∈ ℂ) → ((𝐴 · 𝑅) · (𝐿‘𝐵)) = (𝐴 · (𝑅 · (𝐿‘𝐵))))
129 mul12 11485 . . . . . . . 8 ((𝐴 ∈ ℂ ∧ 𝑅 ∈ ℂ ∧ (𝐿‘𝐵) ∈ ℂ) → (𝐴 · (𝑅 · (𝐿‘𝐵))) = (𝑅 · (𝐴 · (𝐿‘𝐵))))
130128, 129eqtrd 2798 . . . . . . 7 ((𝐴 ∈ ℂ ∧ 𝑅 ∈ ℂ ∧ (𝐿‘𝐵) ∈ ℂ) → ((𝐴 · 𝑅) · (𝐿‘𝐵)) = (𝑅 · (𝐴 · (𝐿‘𝐵))))
131125, 126, 127, 130syl3anc 1398 . . . . . 6 (𝜑 → ((𝐴 · 𝑅) · (𝐿‘𝐵)) = (𝑅 · (𝐴 · (𝐿‘𝐵))))
13230, 21, 5, 37ltmul2dd 13230 . . . . . 6 (𝜑 → (𝑅 · (𝐴 · (𝐿‘𝐵))) < (𝑅 · (𝑀‘(𝐹‘𝐵))))
133131, 132eqbrtrd 5129 . . . . 5 (𝜑 → ((𝐴 · 𝑅) · (𝐿‘𝐵)) < (𝑅 · (𝑀‘(𝐹‘𝐵))))
134 lt2mul2div 12205 . . . . . 6 ((((𝐴 · 𝑅) ∈ ℝ ∧ ((𝐿‘𝐵) ∈ ℝ ∧ 0 < (𝐿‘𝐵))) ∧ (𝑅 ∈ ℝ ∧ ((𝑀‘(𝐹‘𝐵)) ∈ ℝ ∧ 0 < (𝑀‘(𝐹‘𝐵))))) → (((𝐴 · 𝑅) · (𝐿‘𝐵)) < (𝑅 · (𝑀‘(𝐹‘𝐵))) ↔ ((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < (𝑅 / (𝐿‘𝐵))))
1357, 100, 6, 117, 134syl22anc 852 . . . . 5 (𝜑 → (((𝐴 · 𝑅) · (𝐿‘𝐵)) < (𝑅 · (𝑀‘(𝐹‘𝐵))) ↔ ((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < (𝑅 / (𝐿‘𝐵))))
136133, 135mpbid 235 . . . 4 (𝜑 → ((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < (𝑅 / (𝐿‘𝐵)))
137 qbtwnre 13339 . . . 4 ((((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) ∈ ℝ ∧ (𝑅 / (𝐿‘𝐵)) ∈ ℝ ∧ ((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < (𝑅 / (𝐿‘𝐵))) → ∃𝑟 ∈ ℚ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵))))
13840, 124, 136, 137syl3anc 1398 . . 3 (𝜑 → ∃𝑟 ∈ ℚ (((𝐴 · 𝑅) / (𝑀‘(𝐹‘𝐵))) < 𝑟 ∧ 𝑟 < (𝑅 / (𝐿‘𝐵))))
139123, 138r19.29a 3173 . 2 (𝜑 → (𝑀‘(𝐹‘𝐵)) ≤ (𝐴 · (𝐿‘𝐵)))
140139, 35pm2.65i 196 1 ¬ 𝜑
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1569   ∈ wcel 2146   ≠ wne 2958  ∃wrex 3089   ⊆ wss 3899   ∩ cin 4091   class class class wbr 5105  ⟶wf 6542  ‘cfv 6546  (class class class)co 7427  ℂcc 11208  ℝcr 11209  0cc0 11210   · cmul 11215  ℝ*cxr 11352   < clt 11353   ≤ cle 11354   / cdiv 11983  ℚcq 13085  ℝ+crp 13130  abscabs 15413  Basecbs 17399  Scalarcsca 17443   ·𝑠 cvsca 17444  0gc0g 17622   LMHom clmhm 21306  normcnm 24907  NrmGrpcngp 24908  NrmModcnlm 24911   normOp cnmo 25036  ℂModcclm 25395
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1944  ax-6 2001  ax-7 2042  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2196  ax-12 2215  ax-ext 2735  ax-sep 5251  ax-nul 5262  ax-pow 5330  ax-pr 5394  ax-un 7758  ax-cnex 11266  ax-resscn 11267  ax-1cn 11268  ax-icn 11269  ax-addcl 11270  ax-addrcl 11271  ax-mulcl 11272  ax-mulrcl 11273  ax-mulcom 11274  ax-addass 11275  ax-mulass 11276  ax-distr 11277  ax-i2m1 11278  ax-1ne0 11279  ax-1rid 11280  ax-rnegex 11281  ax-rrecex 11282  ax-cnre 11283  ax-pre-lttri 11284  ax-pre-lttrn 11285  ax-pre-ltadd 11286  ax-pre-mulgt0 11287  ax-pre-sup 11288  ax-addf 11289
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2101  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3368  df-reu 3369  df-rab 3416  df-v 3455  df-sbc 3742  df-csb 3851  df-ss 3900  df-pss 4016  df-dif 4049  df-in 4093  df-un 4153  df-nul 4281  df-if 4485  df-pw 4561  df-sn 4588  df-pr 4590  df-tp 4592  df-op 4838  df-uni 4870  df-iun 4955  df-br 5106  df-opab 5170  df-mpt 5189  df-tr 5215  df-id 5549  df-eprel 5554  df-po 5562  df-so 5563  df-fr 5607  df-we 5609  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 6310  df-ord 6371  df-on 6372  df-lim 6373  df-suc 6374  df-iota 6500  df-fun 6548  df-fn 6549  df-f 6550  df-f1 6551  df-fo 6552  df-f1o 6553  df-fv 6554  df-riota 7384  df-ov 7430  df-oprab 7431  df-mpo 7432  df-om 7885  df-1st 8008  df-2nd 8009  df-frecs 8310  df-wrecs 8341  df-recs 8390  df-rdg 8429  df-1o 8487  df-er 8728  df-map 8860  df-en 8985  df-dom 8986  df-sdom 8987  df-fin 8988  df-sup 9444  df-inf 9445  df-pnf 11355  df-mnf 11356  df-xr 11357  df-ltxr 11358  df-le 11359  df-sub 11553  df-neg 11554  df-div 11984  df-nn 12346  df-2 12415  df-3 12416  df-4 12417  df-5 12418  df-6 12419  df-7 12420  df-8 12421  df-9 12422  df-n0 12617  df-z 12704  df-dec 12825  df-uz 12976  df-q 13086  df-rp 13131  df-xneg 13251  df-xadd 13252  df-xmul 13253  df-fz 13650  df-seq 14155  df-exp 14215  df-cj 15278  df-re 15279  df-im 15280  df-sqrt 15414  df-abs 15415  df-struct 17337  df-sets 17354  df-slot 17372  df-ndx 17384  df-base 17400  df-ress 17421  df-plusg 17453  df-mulr 17454  df-starv 17455  df-tset 17459  df-ple 17460  df-ds 17462  df-unif 17463  df-0g 17624  df-topgen 17626  df-mgm 18828  df-sgrp 18920  df-mnd 18936  df-grp 19159  df-subg 19345  df-ghm 19440  df-cmn 20008  df-mgp 20373  df-ring 20473  df-cring 20474  df-subrg 20834  df-lmod 21149  df-lmhm 21309  df-psmet 21682  df-xmet 21683  df-met 21684  df-bl 21685  df-mopn 21686  df-cnfld 21691  df-top 23224  df-topon 23241  df-topsp 23263  df-bases 23276  df-xms 24651  df-ms 24652  df-nm 24913  df-ngp 24914  df-nlm 24917  df-clm 25396
This theorem is used by:  nmoleub2lem2  25449
  Copyright terms: Public domain W3C validator