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

Theorem nmoleub2lem3 25177
Description: Lemma for nmoleub2a 25179 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 780 . . . 4 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → ((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟)
2 qre 12954 . . . . . 6 (𝑟 ∈ ℚ → 𝑟 ∈ ℝ)
32ad2antlr 737 . . . . 5 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → 𝑟 ∈ ℝ)
4 nmoleub2lem3.1 . . . . . . . 8 (𝜑𝐴 ∈ ℝ)
5 nmoleub2.r . . . . . . . . 9 (𝜑𝑅 ∈ ℝ+)
65rpred 13037 . . . . . . . 8 (𝜑𝑅 ∈ ℝ)
74, 6remulcld 11212 . . . . . . 7 (𝜑 → (𝐴 · 𝑅) ∈ ℝ)
8 nmoleub2.t . . . . . . . . . . 11 (𝜑𝑇 ∈ (NrmMod ∩ ℂMod))
98elin1d 4156 . . . . . . . . . 10 (𝜑𝑇 ∈ NrmMod)
10 nlmngp 24737 . . . . . . . . . 10 (𝑇 ∈ NrmMod → 𝑇 ∈ NrmGrp)
119, 10syl 17 . . . . . . . . 9 (𝜑𝑇 ∈ NrmGrp)
12 nmoleub2.f . . . . . . . . . . 11 (𝜑𝐹 ∈ (𝑆 LMHom 𝑇))
13 nmoleub2.v . . . . . . . . . . . 12 𝑉 = (Base‘𝑆)
14 eqid 2762 . . . . . . . . . . . 12 (Base‘𝑇) = (Base‘𝑇)
1513, 14lmhmf 21101 . . . . . . . . . . 11 (𝐹 ∈ (𝑆 LMHom 𝑇) → 𝐹:𝑉⟶(Base‘𝑇))
1612, 15syl 17 . . . . . . . . . 10 (𝜑𝐹:𝑉⟶(Base‘𝑇))
17 nmoleub2lem3.3 . . . . . . . . . 10 (𝜑𝐵𝑉)
1816, 17ffvelcdmd 7066 . . . . . . . . 9 (𝜑 → (𝐹𝐵) ∈ (Base‘𝑇))
19 nmoleub2.m . . . . . . . . . 10 𝑀 = (norm‘𝑇)
2014, 19nmcl 24676 . . . . . . . . 9 ((𝑇 ∈ NrmGrp ∧ (𝐹𝐵) ∈ (Base‘𝑇)) → (𝑀‘(𝐹𝐵)) ∈ ℝ)
2111, 18, 20syl2anc 593 . . . . . . . 8 (𝜑 → (𝑀‘(𝐹𝐵)) ∈ ℝ)
22 0red 11184 . . . . . . . . 9 (𝜑 → 0 ∈ ℝ)
23 nmoleub2.s . . . . . . . . . . . . 13 (𝜑𝑆 ∈ (NrmMod ∩ ℂMod))
2423elin1d 4156 . . . . . . . . . . . 12 (𝜑𝑆 ∈ NrmMod)
25 nlmngp 24737 . . . . . . . . . . . 12 (𝑆 ∈ NrmMod → 𝑆 ∈ NrmGrp)
2624, 25syl 17 . . . . . . . . . . 11 (𝜑𝑆 ∈ NrmGrp)
27 nmoleub2.l . . . . . . . . . . . 12 𝐿 = (norm‘𝑆)
2813, 27nmcl 24676 . . . . . . . . . . 11 ((𝑆 ∈ NrmGrp ∧ 𝐵𝑉) → (𝐿𝐵) ∈ ℝ)
2926, 17, 28syl2anc 593 . . . . . . . . . 10 (𝜑 → (𝐿𝐵) ∈ ℝ)
304, 29remulcld 11212 . . . . . . . . 9 (𝜑 → (𝐴 · (𝐿𝐵)) ∈ ℝ)
31 nmoleub2lem3.2 . . . . . . . . . 10 (𝜑 → 0 ≤ 𝐴)
3213, 27nmge0 24677 . . . . . . . . . . 11 ((𝑆 ∈ NrmGrp ∧ 𝐵𝑉) → 0 ≤ (𝐿𝐵))
3326, 17, 32syl2anc 593 . . . . . . . . . 10 (𝜑 → 0 ≤ (𝐿𝐵))
344, 29, 31, 33mulge0d 11764 . . . . . . . . 9 (𝜑 → 0 ≤ (𝐴 · (𝐿𝐵)))
35 nmoleub2lem3.6 . . . . . . . . . 10 (𝜑 → ¬ (𝑀‘(𝐹𝐵)) ≤ (𝐴 · (𝐿𝐵)))
3630, 21ltnled 11330 . . . . . . . . . 10 (𝜑 → ((𝐴 · (𝐿𝐵)) < (𝑀‘(𝐹𝐵)) ↔ ¬ (𝑀‘(𝐹𝐵)) ≤ (𝐴 · (𝐿𝐵))))
3735, 36mpbird 259 . . . . . . . . 9 (𝜑 → (𝐴 · (𝐿𝐵)) < (𝑀‘(𝐹𝐵)))
3822, 30, 21, 34, 37lelttrd 11341 . . . . . . . 8 (𝜑 → 0 < (𝑀‘(𝐹𝐵)))
3921, 38elrpd 13034 . . . . . . 7 (𝜑 → (𝑀‘(𝐹𝐵)) ∈ ℝ+)
407, 39rerpdivcld 13068 . . . . . 6 (𝜑 → ((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) ∈ ℝ)
4140ad2antrr 736 . . . . 5 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → ((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) ∈ ℝ)
4212ad2antrr 736 . . . . . . . . . . . 12 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → 𝐹 ∈ (𝑆 LMHom 𝑇))
43 nmoleub2a.5 . . . . . . . . . . . . . 14 (𝜑 → ℚ ⊆ 𝐾)
4443sselda 3936 . . . . . . . . . . . . 13 ((𝜑𝑟 ∈ ℚ) → 𝑟𝐾)
4544adantr 484 . . . . . . . . . . . 12 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → 𝑟𝐾)
4617ad2antrr 736 . . . . . . . . . . . 12 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → 𝐵𝑉)
47 nmoleub2.g . . . . . . . . . . . . 13 𝐺 = (Scalar‘𝑆)
48 nmoleub2.w . . . . . . . . . . . . 13 𝐾 = (Base‘𝐺)
49 nmoleub2lem3.p . . . . . . . . . . . . 13 · = ( ·𝑠𝑆)
50 eqid 2762 . . . . . . . . . . . . 13 ( ·𝑠𝑇) = ( ·𝑠𝑇)
5147, 48, 13, 49, 50lmhmlin 21102 . . . . . . . . . . . 12 ((𝐹 ∈ (𝑆 LMHom 𝑇) ∧ 𝑟𝐾𝐵𝑉) → (𝐹‘(𝑟 · 𝐵)) = (𝑟( ·𝑠𝑇)(𝐹𝐵)))
5242, 45, 46, 51syl3anc 1390 . . . . . . . . . . 11 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (𝐹‘(𝑟 · 𝐵)) = (𝑟( ·𝑠𝑇)(𝐹𝐵)))
5352fveq2d 6871 . . . . . . . . . 10 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (𝑀‘(𝐹‘(𝑟 · 𝐵))) = (𝑀‘(𝑟( ·𝑠𝑇)(𝐹𝐵))))
549ad2antrr 736 . . . . . . . . . . 11 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → 𝑇 ∈ NrmMod)
55 eqid 2762 . . . . . . . . . . . . . . . 16 (Scalar‘𝑇) = (Scalar‘𝑇)
5647, 55lmhmsca 21097 . . . . . . . . . . . . . . 15 (𝐹 ∈ (𝑆 LMHom 𝑇) → (Scalar‘𝑇) = 𝐺)
5742, 56syl 17 . . . . . . . . . . . . . 14 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (Scalar‘𝑇) = 𝐺)
5857fveq2d 6871 . . . . . . . . . . . . 13 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (Base‘(Scalar‘𝑇)) = (Base‘𝐺))
5958, 48eqtr4di 2815 . . . . . . . . . . . 12 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (Base‘(Scalar‘𝑇)) = 𝐾)
6045, 59eleqtrrd 2865 . . . . . . . . . . 11 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → 𝑟 ∈ (Base‘(Scalar‘𝑇)))
6118ad2antrr 736 . . . . . . . . . . 11 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (𝐹𝐵) ∈ (Base‘𝑇))
62 eqid 2762 . . . . . . . . . . . 12 (Base‘(Scalar‘𝑇)) = (Base‘(Scalar‘𝑇))
63 eqid 2762 . . . . . . . . . . . 12 (norm‘(Scalar‘𝑇)) = (norm‘(Scalar‘𝑇))
6414, 19, 50, 55, 62, 63nmvs 24736 . . . . . . . . . . 11 ((𝑇 ∈ NrmMod ∧ 𝑟 ∈ (Base‘(Scalar‘𝑇)) ∧ (𝐹𝐵) ∈ (Base‘𝑇)) → (𝑀‘(𝑟( ·𝑠𝑇)(𝐹𝐵))) = (((norm‘(Scalar‘𝑇))‘𝑟) · (𝑀‘(𝐹𝐵))))
6554, 60, 61, 64syl3anc 1390 . . . . . . . . . 10 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (𝑀‘(𝑟( ·𝑠𝑇)(𝐹𝐵))) = (((norm‘(Scalar‘𝑇))‘𝑟) · (𝑀‘(𝐹𝐵))))
6657fveq2d 6871 . . . . . . . . . . . . 13 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (norm‘(Scalar‘𝑇)) = (norm‘𝐺))
6766fveq1d 6869 . . . . . . . . . . . 12 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → ((norm‘(Scalar‘𝑇))‘𝑟) = ((norm‘𝐺)‘𝑟))
6823elin2d 4157 . . . . . . . . . . . . . . 15 (𝜑𝑆 ∈ ℂMod)
6968ad2antrr 736 . . . . . . . . . . . . . 14 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → 𝑆 ∈ ℂMod)
7047, 48clmabs 25145 . . . . . . . . . . . . . 14 ((𝑆 ∈ ℂMod ∧ 𝑟𝐾) → (abs‘𝑟) = ((norm‘𝐺)‘𝑟))
7169, 45, 70syl2anc 593 . . . . . . . . . . . . 13 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (abs‘𝑟) = ((norm‘𝐺)‘𝑟))
72 0red 11184 . . . . . . . . . . . . . . 15 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → 0 ∈ ℝ)
735rpge0d 13041 . . . . . . . . . . . . . . . . . . 19 (𝜑 → 0 ≤ 𝑅)
744, 6, 31, 73mulge0d 11764 . . . . . . . . . . . . . . . . . 18 (𝜑 → 0 ≤ (𝐴 · 𝑅))
75 divge0 12061 . . . . . . . . . . . . . . . . . 18 ((((𝐴 · 𝑅) ∈ ℝ ∧ 0 ≤ (𝐴 · 𝑅)) ∧ ((𝑀‘(𝐹𝐵)) ∈ ℝ ∧ 0 < (𝑀‘(𝐹𝐵)))) → 0 ≤ ((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))))
767, 74, 21, 38, 75syl22anc 849 . . . . . . . . . . . . . . . . 17 (𝜑 → 0 ≤ ((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))))
7776ad2antrr 736 . . . . . . . . . . . . . . . 16 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → 0 ≤ ((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))))
7872, 41, 3, 77, 1lelttrd 11341 . . . . . . . . . . . . . . 15 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → 0 < 𝑟)
7972, 3, 78ltled 11331 . . . . . . . . . . . . . 14 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → 0 ≤ 𝑟)
803, 79absidd 15450 . . . . . . . . . . . . 13 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (abs‘𝑟) = 𝑟)
8171, 80eqtr3d 2799 . . . . . . . . . . . 12 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → ((norm‘𝐺)‘𝑟) = 𝑟)
8267, 81eqtrd 2797 . . . . . . . . . . 11 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → ((norm‘(Scalar‘𝑇))‘𝑟) = 𝑟)
8382oveq1d 7411 . . . . . . . . . 10 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (((norm‘(Scalar‘𝑇))‘𝑟) · (𝑀‘(𝐹𝐵))) = (𝑟 · (𝑀‘(𝐹𝐵))))
8453, 65, 833eqtrd 2801 . . . . . . . . 9 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (𝑀‘(𝐹‘(𝑟 · 𝐵))) = (𝑟 · (𝑀‘(𝐹𝐵))))
8584oveq1d 7411 . . . . . . . 8 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → ((𝑀‘(𝐹‘(𝑟 · 𝐵))) / 𝑅) = ((𝑟 · (𝑀‘(𝐹𝐵))) / 𝑅))
8613, 47, 49, 48clmvscl 25150 . . . . . . . . . 10 ((𝑆 ∈ ℂMod ∧ 𝑟𝐾𝐵𝑉) → (𝑟 · 𝐵) ∈ 𝑉)
8769, 45, 46, 86syl3anc 1390 . . . . . . . . 9 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (𝑟 · 𝐵) ∈ 𝑉)
8824ad2antrr 736 . . . . . . . . . . . 12 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → 𝑆 ∈ NrmMod)
89 eqid 2762 . . . . . . . . . . . . 13 (norm‘𝐺) = (norm‘𝐺)
9013, 27, 49, 47, 48, 89nmvs 24736 . . . . . . . . . . . 12 ((𝑆 ∈ NrmMod ∧ 𝑟𝐾𝐵𝑉) → (𝐿‘(𝑟 · 𝐵)) = (((norm‘𝐺)‘𝑟) · (𝐿𝐵)))
9188, 45, 46, 90syl3anc 1390 . . . . . . . . . . 11 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (𝐿‘(𝑟 · 𝐵)) = (((norm‘𝐺)‘𝑟) · (𝐿𝐵)))
9281oveq1d 7411 . . . . . . . . . . 11 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (((norm‘𝐺)‘𝑟) · (𝐿𝐵)) = (𝑟 · (𝐿𝐵)))
9391, 92eqtrd 2797 . . . . . . . . . 10 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (𝐿‘(𝑟 · 𝐵)) = (𝑟 · (𝐿𝐵)))
94 simprr 782 . . . . . . . . . . 11 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → 𝑟 < (𝑅 / (𝐿𝐵)))
956ad2antrr 736 . . . . . . . . . . . 12 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → 𝑅 ∈ ℝ)
96 nmoleub2lem3.4 . . . . . . . . . . . . . . 15 (𝜑𝐵 ≠ (0g𝑆))
97 eqid 2762 . . . . . . . . . . . . . . . 16 (0g𝑆) = (0g𝑆)
9813, 27, 97nmrpcl 24680 . . . . . . . . . . . . . . 15 ((𝑆 ∈ NrmGrp ∧ 𝐵𝑉𝐵 ≠ (0g𝑆)) → (𝐿𝐵) ∈ ℝ+)
9926, 17, 96, 98syl3anc 1390 . . . . . . . . . . . . . 14 (𝜑 → (𝐿𝐵) ∈ ℝ+)
10099rpregt0d 13043 . . . . . . . . . . . . 13 (𝜑 → ((𝐿𝐵) ∈ ℝ ∧ 0 < (𝐿𝐵)))
101100ad2antrr 736 . . . . . . . . . . . 12 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → ((𝐿𝐵) ∈ ℝ ∧ 0 < (𝐿𝐵)))
102 ltmuldiv 12065 . . . . . . . . . . . 12 ((𝑟 ∈ ℝ ∧ 𝑅 ∈ ℝ ∧ ((𝐿𝐵) ∈ ℝ ∧ 0 < (𝐿𝐵))) → ((𝑟 · (𝐿𝐵)) < 𝑅𝑟 < (𝑅 / (𝐿𝐵))))
1033, 95, 101, 102syl3anc 1390 . . . . . . . . . . 11 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → ((𝑟 · (𝐿𝐵)) < 𝑅𝑟 < (𝑅 / (𝐿𝐵))))
10494, 103mpbird 259 . . . . . . . . . 10 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (𝑟 · (𝐿𝐵)) < 𝑅)
10593, 104eqbrtrd 5122 . . . . . . . . 9 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (𝐿‘(𝑟 · 𝐵)) < 𝑅)
106 nmoleub2lem3.5 . . . . . . . . . 10 (𝜑 → ((𝑟 · 𝐵) ∈ 𝑉 → ((𝐿‘(𝑟 · 𝐵)) < 𝑅 → ((𝑀‘(𝐹‘(𝑟 · 𝐵))) / 𝑅) ≤ 𝐴)))
107106ad2antrr 736 . . . . . . . . 9 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → ((𝑟 · 𝐵) ∈ 𝑉 → ((𝐿‘(𝑟 · 𝐵)) < 𝑅 → ((𝑀‘(𝐹‘(𝑟 · 𝐵))) / 𝑅) ≤ 𝐴)))
10887, 105, 107mp2d 49 . . . . . . . 8 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → ((𝑀‘(𝐹‘(𝑟 · 𝐵))) / 𝑅) ≤ 𝐴)
10985, 108eqbrtrrd 5124 . . . . . . 7 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → ((𝑟 · (𝑀‘(𝐹𝐵))) / 𝑅) ≤ 𝐴)
11021ad2antrr 736 . . . . . . . . 9 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (𝑀‘(𝐹𝐵)) ∈ ℝ)
1113, 110remulcld 11212 . . . . . . . 8 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (𝑟 · (𝑀‘(𝐹𝐵))) ∈ ℝ)
1124ad2antrr 736 . . . . . . . 8 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → 𝐴 ∈ ℝ)
1135ad2antrr 736 . . . . . . . 8 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → 𝑅 ∈ ℝ+)
114111, 112, 113ledivmul2d 13091 . . . . . . 7 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (((𝑟 · (𝑀‘(𝐹𝐵))) / 𝑅) ≤ 𝐴 ↔ (𝑟 · (𝑀‘(𝐹𝐵))) ≤ (𝐴 · 𝑅)))
115109, 114mpbid 234 . . . . . 6 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (𝑟 · (𝑀‘(𝐹𝐵))) ≤ (𝐴 · 𝑅))
116112, 95remulcld 11212 . . . . . . 7 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (𝐴 · 𝑅) ∈ ℝ)
11721, 38jca 519 . . . . . . . 8 (𝜑 → ((𝑀‘(𝐹𝐵)) ∈ ℝ ∧ 0 < (𝑀‘(𝐹𝐵))))
118117ad2antrr 736 . . . . . . 7 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → ((𝑀‘(𝐹𝐵)) ∈ ℝ ∧ 0 < (𝑀‘(𝐹𝐵))))
119 lemuldiv 12072 . . . . . . 7 ((𝑟 ∈ ℝ ∧ (𝐴 · 𝑅) ∈ ℝ ∧ ((𝑀‘(𝐹𝐵)) ∈ ℝ ∧ 0 < (𝑀‘(𝐹𝐵)))) → ((𝑟 · (𝑀‘(𝐹𝐵))) ≤ (𝐴 · 𝑅) ↔ 𝑟 ≤ ((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵)))))
1203, 116, 118, 119syl3anc 1390 . . . . . 6 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → ((𝑟 · (𝑀‘(𝐹𝐵))) ≤ (𝐴 · 𝑅) ↔ 𝑟 ≤ ((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵)))))
121115, 120mpbid 234 . . . . 5 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → 𝑟 ≤ ((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))))
1223, 41, 121lensymd 11334 . . . 4 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → ¬ ((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟)
1231, 122pm2.21dd 197 . . 3 (((𝜑𝑟 ∈ ℚ) ∧ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵)))) → (𝑀‘(𝐹𝐵)) ≤ (𝐴 · (𝐿𝐵)))
1246, 99rerpdivcld 13068 . . . 4 (𝜑 → (𝑅 / (𝐿𝐵)) ∈ ℝ)
1254recnd 11210 . . . . . . 7 (𝜑𝐴 ∈ ℂ)
1266recnd 11210 . . . . . . 7 (𝜑𝑅 ∈ ℂ)
12729recnd 11210 . . . . . . 7 (𝜑 → (𝐿𝐵) ∈ ℂ)
128 mulass 11161 . . . . . . . 8 ((𝐴 ∈ ℂ ∧ 𝑅 ∈ ℂ ∧ (𝐿𝐵) ∈ ℂ) → ((𝐴 · 𝑅) · (𝐿𝐵)) = (𝐴 · (𝑅 · (𝐿𝐵))))
129 mul12 11348 . . . . . . . 8 ((𝐴 ∈ ℂ ∧ 𝑅 ∈ ℂ ∧ (𝐿𝐵) ∈ ℂ) → (𝐴 · (𝑅 · (𝐿𝐵))) = (𝑅 · (𝐴 · (𝐿𝐵))))
130128, 129eqtrd 2797 . . . . . . 7 ((𝐴 ∈ ℂ ∧ 𝑅 ∈ ℂ ∧ (𝐿𝐵) ∈ ℂ) → ((𝐴 · 𝑅) · (𝐿𝐵)) = (𝑅 · (𝐴 · (𝐿𝐵))))
131125, 126, 127, 130syl3anc 1390 . . . . . 6 (𝜑 → ((𝐴 · 𝑅) · (𝐿𝐵)) = (𝑅 · (𝐴 · (𝐿𝐵))))
13230, 21, 5, 37ltmul2dd 13093 . . . . . 6 (𝜑 → (𝑅 · (𝐴 · (𝐿𝐵))) < (𝑅 · (𝑀‘(𝐹𝐵))))
133131, 132eqbrtrd 5122 . . . . 5 (𝜑 → ((𝐴 · 𝑅) · (𝐿𝐵)) < (𝑅 · (𝑀‘(𝐹𝐵))))
134 lt2mul2div 12070 . . . . . 6 ((((𝐴 · 𝑅) ∈ ℝ ∧ ((𝐿𝐵) ∈ ℝ ∧ 0 < (𝐿𝐵))) ∧ (𝑅 ∈ ℝ ∧ ((𝑀‘(𝐹𝐵)) ∈ ℝ ∧ 0 < (𝑀‘(𝐹𝐵))))) → (((𝐴 · 𝑅) · (𝐿𝐵)) < (𝑅 · (𝑀‘(𝐹𝐵))) ↔ ((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < (𝑅 / (𝐿𝐵))))
1357, 100, 6, 117, 134syl22anc 849 . . . . 5 (𝜑 → (((𝐴 · 𝑅) · (𝐿𝐵)) < (𝑅 · (𝑀‘(𝐹𝐵))) ↔ ((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < (𝑅 / (𝐿𝐵))))
136133, 135mpbid 234 . . . 4 (𝜑 → ((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < (𝑅 / (𝐿𝐵)))
137 qbtwnre 13202 . . . 4 ((((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) ∈ ℝ ∧ (𝑅 / (𝐿𝐵)) ∈ ℝ ∧ ((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < (𝑅 / (𝐿𝐵))) → ∃𝑟 ∈ ℚ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵))))
13840, 124, 136, 137syl3anc 1390 . . 3 (𝜑 → ∃𝑟 ∈ ℚ (((𝐴 · 𝑅) / (𝑀‘(𝐹𝐵))) < 𝑟𝑟 < (𝑅 / (𝐿𝐵))))
139123, 138r19.29a 3170 . 2 (𝜑 → (𝑀‘(𝐹𝐵)) ≤ (𝐴 · (𝐿𝐵)))
140139, 35pm2.65i 195 1 ¬ 𝜑
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 399  w3a 1098   = wceq 1560  wcel 2142  wne 2957  wrex 3086  cin 3903  wss 3904   class class class wbr 5100  wf 6517  cfv 6521  (class class class)co 7396  cc 11071  cr 11072  0cc0 11073   · cmul 11078  *cxr 11215   < clt 11216  cle 11217   / cdiv 11844  cq 12949  +crp 12993  abscabs 15261  Basecbs 17245  Scalarcsca 17289   ·𝑠 cvsca 17290  0gc0g 17468   LMHom clmhm 21086  normcnm 24636  NrmGrpcngp 24637  NrmModcnlm 24640   normOp cnmo 24765  ℂModcclm 25124
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1815  ax-4 1829  ax-5 1930  ax-6 1987  ax-7 2028  ax-8 2144  ax-9 2152  ax-10 2175  ax-11 2191  ax-12 2212  ax-ext 2734  ax-sep 5246  ax-nul 5256  ax-pow 5322  ax-pr 5390  ax-un 7718  ax-cnex 11129  ax-resscn 11130  ax-1cn 11131  ax-icn 11132  ax-addcl 11133  ax-addrcl 11134  ax-mulcl 11135  ax-mulrcl 11136  ax-mulcom 11137  ax-addass 11138  ax-mulass 11139  ax-distr 11140  ax-i2m1 11141  ax-1ne0 11142  ax-1rid 11143  ax-rnegex 11144  ax-rrecex 11145  ax-cnre 11146  ax-pre-lttri 11147  ax-pre-lttrn 11148  ax-pre-ltadd 11149  ax-pre-mulgt0 11150  ax-pre-sup 11151  ax-addf 11152
This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1099  df-3an 1100  df-tru 1563  df-fal 1573  df-ex 1800  df-nf 1804  df-sb 2091  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3456  df-sbc 3745  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4481  df-pw 4557  df-sn 4583  df-pr 4585  df-tp 4587  df-op 4589  df-uni 4866  df-iun 4951  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5542  df-eprel 5547  df-po 5555  df-so 5556  df-fr 5600  df-we 5602  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-pred 6288  df-ord 6349  df-on 6350  df-lim 6351  df-suc 6352  df-iota 6477  df-fun 6523  df-fn 6524  df-f 6525  df-f1 6526  df-fo 6527  df-f1o 6528  df-fv 6529  df-riota 7353  df-ov 7399  df-oprab 7400  df-mpo 7401  df-om 7847  df-1st 7970  df-2nd 7971  df-frecs 8262  df-wrecs 8293  df-recs 8342  df-rdg 8381  df-1o 8437  df-er 8678  df-map 8810  df-en 8928  df-dom 8929  df-sdom 8930  df-fin 8931  df-sup 9388  df-inf 9389  df-pnf 11218  df-mnf 11219  df-xr 11220  df-ltxr 11221  df-le 11222  df-sub 11416  df-neg 11417  df-div 11845  df-nn 12211  df-2 12280  df-3 12281  df-4 12282  df-5 12283  df-6 12284  df-7 12285  df-8 12286  df-9 12287  df-n0 12482  df-z 12569  df-dec 12689  df-uz 12840  df-q 12950  df-rp 12994  df-xneg 13114  df-xadd 13115  df-xmul 13116  df-fz 13513  df-seq 14015  df-exp 14075  df-cj 15126  df-re 15127  df-im 15128  df-sqrt 15262  df-abs 15263  df-struct 17183  df-sets 17200  df-slot 17218  df-ndx 17230  df-base 17246  df-ress 17267  df-plusg 17299  df-mulr 17300  df-starv 17301  df-tset 17305  df-ple 17306  df-ds 17308  df-unif 17309  df-0g 17470  df-topgen 17472  df-mgm 18674  df-sgrp 18753  df-mnd 18769  df-grp 18978  df-subg 19165  df-ghm 19254  df-cmn 19822  df-mgp 20187  df-ring 20285  df-cring 20286  df-subrg 20620  df-lmod 20929  df-lmhm 21089  df-psmet 21416  df-xmet 21417  df-met 21418  df-bl 21419  df-mopn 21420  df-cnfld 21425  df-top 22954  df-topon 22971  df-topsp 22993  df-bases 23006  df-xms 24380  df-ms 24381  df-nm 24642  df-ngp 24643  df-nlm 24646  df-clm 25125
This theorem is referenced by:  nmoleub2lem2  25178
  Copyright terms: Public domain W3C validator