Theorem nmoleub2lem 25343

Description: Lemma for nmoleub2a 25346 and similar theorems. (Contributed by Mario Carneiro, 19-Oct-2015.)

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	⊢ (𝜑 → 𝑅 ∈ ℝ+)
nmoleub2lem.5	⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) → 0 ≤ 𝐴)
nmoleub2lem.6	⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦 ∈ 𝑉 ∧ 𝑦 ≠ (0g‘𝑆))) → (𝑀‘(𝐹‘𝑦)) ≤ (𝐴 · (𝐿‘𝑦)))
nmoleub2lem.7	⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → (𝜓 → (𝐿‘𝑥) ≤ 𝑅))

Assertion

Ref	Expression
nmoleub2lem	⊢ (𝜑 → ((𝑁‘𝐹) ≤ 𝐴 ↔ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)))

Distinct variable groups:   𝑥,𝑦,𝐴   𝑥,𝐹,𝑦   𝑥,𝐿,𝑦   𝑥,𝑁,𝑦   𝑥,𝑀,𝑦   𝜑,𝑥,𝑦   𝜓,𝑦   𝑥,𝑆,𝑦   𝑥,𝑉,𝑦   𝑥,𝑅,𝑦   𝑦,𝑇

Allowed substitution hints:   𝜓(𝑥)   𝑇(𝑥)   𝐺(𝑥, 𝑦)   𝐾(𝑥, 𝑦)

Proof of Theorem nmoleub2lem

Step	Hyp	Ref	Expression
1		nmoleub2lem.7	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → (𝜓 → (𝐿‘𝑥) ≤ 𝑅))
2	1	adantlr 728	. . . 4 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ 𝑥 ∈ 𝑉) → (𝜓 → (𝐿‘𝑥) ≤ 𝑅))
3		nmoleub2.t	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑇 ∈ (NrmMod ∩ ℂMod))
4	3	elin1d 4150	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑇 ∈ NrmMod)
5		nlmngp 24904	. . . . . . . . . . 11 ⊢ (𝑇 ∈ NrmMod → 𝑇 ∈ NrmGrp)
6	4, 5	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → 𝑇 ∈ NrmGrp)
7	6	ad2antrr 739	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝑇 ∈ NrmGrp)
8		nmoleub2.f	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐹 ∈ (𝑆 LMHom 𝑇))
9		nmoleub2.v	. . . . . . . . . . . . 13 ⊢ 𝑉 = (Base‘𝑆)
10		eqid 2760	. . . . . . . . . . . . 13 ⊢ (Base‘𝑇) = (Base‘𝑇)
11	9, 10	lmhmf 21219	. . . . . . . . . . . 12 ⊢ (𝐹 ∈ (𝑆 LMHom 𝑇) → 𝐹:𝑉⟶(Base‘𝑇))
12	8, 11	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐹:𝑉⟶(Base‘𝑇))
13	12	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝐹:𝑉⟶(Base‘𝑇))
14		simprl 783	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝑥 ∈ 𝑉)
15	13, 14	ffvelcdmd 7079	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (𝐹‘𝑥) ∈ (Base‘𝑇))
16		nmoleub2.m	. . . . . . . . . 10 ⊢ 𝑀 = (norm‘𝑇)
17	10, 16	nmcl 24843	. . . . . . . . 9 ⊢ ((𝑇 ∈ NrmGrp ∧ (𝐹‘𝑥) ∈ (Base‘𝑇)) → (𝑀‘(𝐹‘𝑥)) ∈ ℝ)
18	7, 15, 17	syl2anc 596	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (𝑀‘(𝐹‘𝑥)) ∈ ℝ)
19		nmoleub2.r	. . . . . . . . 9 ⊢ (𝜑 → 𝑅 ∈ ℝ+)
20	19	ad2antrr 739	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝑅 ∈ ℝ+)
21	18, 20	rerpdivcld 13118	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ∈ ℝ)
22	21	rexrd 11284	. . . . . 6 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ∈ ℝ*)
23		nmoleub2.s	. . . . . . . . . 10 ⊢ (𝜑 → 𝑆 ∈ (NrmMod ∩ ℂMod))
24	23	elin1d 4150	. . . . . . . . 9 ⊢ (𝜑 → 𝑆 ∈ NrmMod)
25		nlmngp 24904	. . . . . . . . 9 ⊢ (𝑆 ∈ NrmMod → 𝑆 ∈ NrmGrp)
26	24, 25	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝑆 ∈ NrmGrp)
27		lmghm 21216	. . . . . . . . 9 ⊢ (𝐹 ∈ (𝑆 LMHom 𝑇) → 𝐹 ∈ (𝑆 GrpHom 𝑇))
28	8, 27	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝐹 ∈ (𝑆 GrpHom 𝑇))
29		nmoleub2.n	. . . . . . . . 9 ⊢ 𝑁 = (𝑆 normOp 𝑇)
30	29	nmocl 24947	. . . . . . . 8 ⊢ ((𝑆 ∈ NrmGrp ∧ 𝑇 ∈ NrmGrp ∧ 𝐹 ∈ (𝑆 GrpHom 𝑇)) → (𝑁‘𝐹) ∈ ℝ*)
31	26, 6, 28, 30	syl3anc 1398	. . . . . . 7 ⊢ (𝜑 → (𝑁‘𝐹) ∈ ℝ*)
32	31	ad2antrr 739	. . . . . 6 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (𝑁‘𝐹) ∈ ℝ*)
33		nmoleub2.a	. . . . . . 7 ⊢ (𝜑 → 𝐴 ∈ ℝ*)
34	33	ad2antrr 739	. . . . . 6 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝐴 ∈ ℝ*)
35	20	rpred 13087	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝑅 ∈ ℝ)
36		rexmul 13324	. . . . . . . . . 10 ⊢ ((((𝑀‘(𝐹‘𝑥)) / 𝑅) ∈ ℝ ∧ 𝑅 ∈ ℝ) → (((𝑀‘(𝐹‘𝑥)) / 𝑅) ·e 𝑅) = (((𝑀‘(𝐹‘𝑥)) / 𝑅) · 𝑅))
37	21, 35, 36	syl2anc 596	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (((𝑀‘(𝐹‘𝑥)) / 𝑅) ·e 𝑅) = (((𝑀‘(𝐹‘𝑥)) / 𝑅) · 𝑅))
38	18	recnd 11262	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (𝑀‘(𝐹‘𝑥)) ∈ ℂ)
39	35	recnd 11262	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝑅 ∈ ℂ)
40	20	rpne0d 13092	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝑅 ≠ 0)
41	38, 39, 40	divcan1d 12017	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (((𝑀‘(𝐹‘𝑥)) / 𝑅) · 𝑅) = (𝑀‘(𝐹‘𝑥)))
42	37, 41	eqtrd 2795	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (((𝑀‘(𝐹‘𝑥)) / 𝑅) ·e 𝑅) = (𝑀‘(𝐹‘𝑥)))
43	18	rexrd 11284	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (𝑀‘(𝐹‘𝑥)) ∈ ℝ*)
44	26	ad2antrr 739	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝑆 ∈ NrmGrp)
45		nmoleub2.l	. . . . . . . . . . . . 13 ⊢ 𝐿 = (norm‘𝑆)
46	9, 45	nmcl 24843	. . . . . . . . . . . 12 ⊢ ((𝑆 ∈ NrmGrp ∧ 𝑥 ∈ 𝑉) → (𝐿‘𝑥) ∈ ℝ)
47	44, 14, 46	syl2anc 596	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (𝐿‘𝑥) ∈ ℝ)
48	47	rexrd 11284	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (𝐿‘𝑥) ∈ ℝ*)
49	32, 48	xmulcld 13355	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → ((𝑁‘𝐹) ·e (𝐿‘𝑥)) ∈ ℝ*)
50	20	rpxrd 13088	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝑅 ∈ ℝ*)
51	32, 50	xmulcld 13355	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → ((𝑁‘𝐹) ·e 𝑅) ∈ ℝ*)
52	28	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝐹 ∈ (𝑆 GrpHom 𝑇))
53	29, 9, 45, 16	nmoix 24956	. . . . . . . . . 10 ⊢ (((𝑆 ∈ NrmGrp ∧ 𝑇 ∈ NrmGrp ∧ 𝐹 ∈ (𝑆 GrpHom 𝑇)) ∧ 𝑥 ∈ 𝑉) → (𝑀‘(𝐹‘𝑥)) ≤ ((𝑁‘𝐹) ·e (𝐿‘𝑥)))
54	44, 7, 52, 14, 53	syl31anc 1400	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (𝑀‘(𝐹‘𝑥)) ≤ ((𝑁‘𝐹) ·e (𝐿‘𝑥)))
55	29	nmoge0 24948	. . . . . . . . . . . . 13 ⊢ ((𝑆 ∈ NrmGrp ∧ 𝑇 ∈ NrmGrp ∧ 𝐹 ∈ (𝑆 GrpHom 𝑇)) → 0 ≤ (𝑁‘𝐹))
56	26, 6, 28, 55	syl3anc 1398	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ (𝑁‘𝐹))
57	31, 56	jca 521	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁‘𝐹) ∈ ℝ* ∧ 0 ≤ (𝑁‘𝐹)))
58	57	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → ((𝑁‘𝐹) ∈ ℝ* ∧ 0 ≤ (𝑁‘𝐹)))
59		simprr 785	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (𝐿‘𝑥) ≤ 𝑅)
60		xlemul2a 13342	. . . . . . . . . 10 ⊢ ((((𝐿‘𝑥) ∈ ℝ* ∧ 𝑅 ∈ ℝ* ∧ ((𝑁‘𝐹) ∈ ℝ* ∧ 0 ≤ (𝑁‘𝐹))) ∧ (𝐿‘𝑥) ≤ 𝑅) → ((𝑁‘𝐹) ·e (𝐿‘𝑥)) ≤ ((𝑁‘𝐹) ·e 𝑅))
61	48, 50, 58, 59, 60	syl31anc 1400	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → ((𝑁‘𝐹) ·e (𝐿‘𝑥)) ≤ ((𝑁‘𝐹) ·e 𝑅))
62	43, 49, 51, 54, 61	xrletrd 13214	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (𝑀‘(𝐹‘𝑥)) ≤ ((𝑁‘𝐹) ·e 𝑅))
63	42, 62	eqbrtrd 5127	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (((𝑀‘(𝐹‘𝑥)) / 𝑅) ·e 𝑅) ≤ ((𝑁‘𝐹) ·e 𝑅))
64		xlemul1 13343	. . . . . . . 8 ⊢ ((((𝑀‘(𝐹‘𝑥)) / 𝑅) ∈ ℝ* ∧ (𝑁‘𝐹) ∈ ℝ* ∧ 𝑅 ∈ ℝ+) → (((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ (𝑁‘𝐹) ↔ (((𝑀‘(𝐹‘𝑥)) / 𝑅) ·e 𝑅) ≤ ((𝑁‘𝐹) ·e 𝑅)))
65	22, 32, 20, 64	syl3anc 1398	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ (𝑁‘𝐹) ↔ (((𝑀‘(𝐹‘𝑥)) / 𝑅) ·e 𝑅) ≤ ((𝑁‘𝐹) ·e 𝑅)))
66	63, 65	mpbird 260	. . . . . 6 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ (𝑁‘𝐹))
67		simplr 781	. . . . . 6 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (𝑁‘𝐹) ≤ 𝐴)
68	22, 32, 34, 66, 67	xrletrd 13214	. . . . 5 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)
69	68	expr 462	. . . 4 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ 𝑥 ∈ 𝑉) → ((𝐿‘𝑥) ≤ 𝑅 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴))
70	2, 69	syld 48	. . 3 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ 𝑥 ∈ 𝑉) → (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴))
71	70	ralrimiva 3154	. 2 ⊢ ((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) → ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴))
72		eqid 2760	. . . 4 ⊢ (0g‘𝑆) = (0g‘𝑆)
73	26	ad2antrr 739	. . . 4 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) → 𝑆 ∈ NrmGrp)
74	6	ad2antrr 739	. . . 4 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) → 𝑇 ∈ NrmGrp)
75	28	ad2antrr 739	. . . 4 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) → 𝐹 ∈ (𝑆 GrpHom 𝑇))
76		simpr 490	. . . 4 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) → 𝐴 ∈ ℝ)
77		nmoleub2lem.5	. . . . 5 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) → 0 ≤ 𝐴)
78	77	adantr 486	. . . 4 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) → 0 ≤ 𝐴)
79		nmoleub2lem.6	. . . 4 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) ∧ (𝑦 ∈ 𝑉 ∧ 𝑦 ≠ (0g‘𝑆))) → (𝑀‘(𝐹‘𝑦)) ≤ (𝐴 · (𝐿‘𝑦)))
80	29, 9, 45, 16, 72, 73, 74, 75, 76, 78, 79	nmolb2d 24945	. . 3 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) → (𝑁‘𝐹) ≤ 𝐴)
81	31	ad2antrr 739	. . . . 5 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 = +∞) → (𝑁‘𝐹) ∈ ℝ*)
82		pnfge 13182	. . . . 5 ⊢ ((𝑁‘𝐹) ∈ ℝ* → (𝑁‘𝐹) ≤ +∞)
83	81, 82	syl 18	. . . 4 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 = +∞) → (𝑁‘𝐹) ≤ +∞)
84		simpr 490	. . . 4 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 = +∞) → 𝐴 = +∞)
85	83, 84	breqtrrd 5133	. . 3 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 = +∞) → (𝑁‘𝐹) ≤ 𝐴)
86	33	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) → 𝐴 ∈ ℝ*)
87		ge0nemnf 13226	. . . . . 6 ⊢ ((𝐴 ∈ ℝ* ∧ 0 ≤ 𝐴) → 𝐴 ≠ -∞)
88	86, 77, 87	syl2anc 596	. . . . 5 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) → 𝐴 ≠ -∞)
89	86, 88	jca 521	. . . 4 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) → (𝐴 ∈ ℝ* ∧ 𝐴 ≠ -∞))
90		xrnemnf 13169	. . . 4 ⊢ ((𝐴 ∈ ℝ* ∧ 𝐴 ≠ -∞) ↔ (𝐴 ∈ ℝ ∨ 𝐴 = +∞))
91	89, 90	sylib 221	. . 3 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) → (𝐴 ∈ ℝ ∨ 𝐴 = +∞))
92	80, 85, 91	mpjaodan 973	. 2 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) → (𝑁‘𝐹) ≤ 𝐴)
93	71, 92	impbida 813	1 ⊢ (𝜑 → ((𝑁‘𝐹) ≤ 𝐴 ↔ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∨ wo 861   = wceq 1570   ∈ wcel 2145   ≠ wne 2955  ∀wral 3076   ∩ cin 3898   class class class wbr 5103  ⟶wf 6529  ‘cfv 6533  (class class class)co 7414  ℝcr 11124  0cc0 11125   · cmul 11130  +∞cpnf 11265  -∞cmnf 11266  ℝ^*cxr 11267   ≤ cle 11269   / cdiv 11896  ℝ⁺crp 13043   ·_e cxmu 13163  Basecbs 17302  Scalarcsca 17346  0_gc0g 17525   GrpHom cghm 19341   LMHom clmhm 21204  normcnm 24803  NrmGrpcngp 24804  NrmModcnlm 24807   normOp cnmo 24932  ℂModcclm 25291

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-sep 5251  ax-nul 5263  ax-pow 5330  ax-pr 5398  ax-un 7737  ax-cnex 11181  ax-resscn 11182  ax-1cn 11183  ax-icn 11184  ax-addcl 11185  ax-addrcl 11186  ax-mulcl 11187  ax-mulrcl 11188  ax-mulcom 11189  ax-addass 11190  ax-mulass 11191  ax-distr 11192  ax-i2m1 11193  ax-1ne0 11194  ax-1rid 11195  ax-rnegex 11196  ax-rrecex 11197  ax-cnre 11198  ax-pre-lttri 11199  ax-pre-lttrn 11200  ax-pre-ltadd 11201  ax-pre-mulgt0 11202  ax-pre-sup 11203

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6299  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-riota 7371  df-ov 7417  df-oprab 7418  df-mpo 7419  df-om 7864  df-1st 7987  df-2nd 7988  df-frecs 8281  df-wrecs 8312  df-recs 8361  df-rdg 8400  df-er 8697  df-map 8829  df-en 8954  df-dom 8955  df-sdom 8956  df-sup 9413  df-inf 9414  df-pnf 11270  df-mnf 11271  df-xr 11272  df-ltxr 11273  df-le 11274  df-sub 11468  df-neg 11469  df-div 11897  df-nn 12259  df-2 12328  df-n0 12530  df-z 12617  df-uz 12889  df-q 12999  df-rp 13044  df-xneg 13164  df-xadd 13165  df-xmul 13166  df-ico 13405  df-0g 17527  df-topgen 17529  df-mgm 18731  df-sgrp 18822  df-mnd 18838  df-grp 19061  df-ghm 19342  df-lmhm 21207  df-psmet 21578  df-xmet 21579  df-met 21580  df-bl 21581  df-mopn 21582  df-top 23120  df-topon 23137  df-topsp 23159  df-bases 23172  df-xms 24547  df-ms 24548  df-nm 24809  df-ngp 24810  df-nlm 24813  df-nmo 24935  df-nghm 24936

This theorem is used by:  nmoleub2lem2  25345  nmoleub3  25348