Theorem nmoleub2lem 25324

Description: Lemma for nmoleub2a 25327 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 4157	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑇 ∈ NrmMod)
5		nlmngp 24885	. . . . . . . . . . 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 2765	. . . . . . . . . . . . 13 ⊢ (Base‘𝑇) = (Base‘𝑇)
11	9, 10	lmhmf 21205	. . . . . . . . . . . 12 ⊢ (𝐹 ∈ (𝑆 LMHom 𝑇) → 𝐹:𝑉⟶(Base‘𝑇))
12	8, 11	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐹:𝑉⟶(Base‘𝑇))
13	12	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝐹:𝑉⟶(Base‘𝑇))
14		simprl 783	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝑥 ∈ 𝑉)
15	13, 14	ffvelcdmd 7084	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (𝐹‘𝑥) ∈ (Base‘𝑇))
16		nmoleub2.m	. . . . . . . . . 10 ⊢ 𝑀 = (norm‘𝑇)
17	10, 16	nmcl 24824	. . . . . . . . 9 ⊢ ((𝑇 ∈ NrmGrp ∧ (𝐹‘𝑥) ∈ (Base‘𝑇)) → (𝑀‘(𝐹‘𝑥)) ∈ ℝ)
18	7, 15, 17	syl2anc 596	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (𝑀‘(𝐹‘𝑥)) ∈ ℝ)
19		nmoleub2.r	. . . . . . . . 9 ⊢ (𝜑 → 𝑅 ∈ ℝ+)
20	19	ad2antrr 739	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝑅 ∈ ℝ+)
21	18, 20	rerpdivcld 13107	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ∈ ℝ)
22	21	rexrd 11274	. . . . . 6 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ∈ ℝ*)
23		nmoleub2.s	. . . . . . . . . 10 ⊢ (𝜑 → 𝑆 ∈ (NrmMod ∩ ℂMod))
24	23	elin1d 4157	. . . . . . . . 9 ⊢ (𝜑 → 𝑆 ∈ NrmMod)
25		nlmngp 24885	. . . . . . . . 9 ⊢ (𝑆 ∈ NrmMod → 𝑆 ∈ NrmGrp)
26	24, 25	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝑆 ∈ NrmGrp)
27		lmghm 21202	. . . . . . . . 9 ⊢ (𝐹 ∈ (𝑆 LMHom 𝑇) → 𝐹 ∈ (𝑆 GrpHom 𝑇))
28	8, 27	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝐹 ∈ (𝑆 GrpHom 𝑇))
29		nmoleub2.n	. . . . . . . . 9 ⊢ 𝑁 = (𝑆 normOp 𝑇)
30	29	nmocl 24928	. . . . . . . 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 13076	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝑅 ∈ ℝ)
36		rexmul 13313	. . . . . . . . . 10 ⊢ ((((𝑀‘(𝐹‘𝑥)) / 𝑅) ∈ ℝ ∧ 𝑅 ∈ ℝ) → (((𝑀‘(𝐹‘𝑥)) / 𝑅) ·e 𝑅) = (((𝑀‘(𝐹‘𝑥)) / 𝑅) · 𝑅))
37	21, 35, 36	syl2anc 596	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (((𝑀‘(𝐹‘𝑥)) / 𝑅) ·e 𝑅) = (((𝑀‘(𝐹‘𝑥)) / 𝑅) · 𝑅))
38	18	recnd 11252	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (𝑀‘(𝐹‘𝑥)) ∈ ℂ)
39	35	recnd 11252	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝑅 ∈ ℂ)
40	20	rpne0d 13081	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝑅 ≠ 0)
41	38, 39, 40	divcan1d 12007	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (((𝑀‘(𝐹‘𝑥)) / 𝑅) · 𝑅) = (𝑀‘(𝐹‘𝑥)))
42	37, 41	eqtrd 2800	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (((𝑀‘(𝐹‘𝑥)) / 𝑅) ·e 𝑅) = (𝑀‘(𝐹‘𝑥)))
43	18	rexrd 11274	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (𝑀‘(𝐹‘𝑥)) ∈ ℝ*)
44	26	ad2antrr 739	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝑆 ∈ NrmGrp)
45		nmoleub2.l	. . . . . . . . . . . . 13 ⊢ 𝐿 = (norm‘𝑆)
46	9, 45	nmcl 24824	. . . . . . . . . . . 12 ⊢ ((𝑆 ∈ NrmGrp ∧ 𝑥 ∈ 𝑉) → (𝐿‘𝑥) ∈ ℝ)
47	44, 14, 46	syl2anc 596	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (𝐿‘𝑥) ∈ ℝ)
48	47	rexrd 11274	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (𝐿‘𝑥) ∈ ℝ*)
49	32, 48	xmulcld 13344	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → ((𝑁‘𝐹) ·e (𝐿‘𝑥)) ∈ ℝ*)
50	20	rpxrd 13077	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝑅 ∈ ℝ*)
51	32, 50	xmulcld 13344	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → ((𝑁‘𝐹) ·e 𝑅) ∈ ℝ*)
52	28	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → 𝐹 ∈ (𝑆 GrpHom 𝑇))
53	29, 9, 45, 16	nmoix 24937	. . . . . . . . . 10 ⊢ (((𝑆 ∈ NrmGrp ∧ 𝑇 ∈ NrmGrp ∧ 𝐹 ∈ (𝑆 GrpHom 𝑇)) ∧ 𝑥 ∈ 𝑉) → (𝑀‘(𝐹‘𝑥)) ≤ ((𝑁‘𝐹) ·e (𝐿‘𝑥)))
54	44, 7, 52, 14, 53	syl31anc 1400	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (𝑀‘(𝐹‘𝑥)) ≤ ((𝑁‘𝐹) ·e (𝐿‘𝑥)))
55	29	nmoge0 24929	. . . . . . . . . . . . 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 13331	. . . . . . . . . 10 ⊢ ((((𝐿‘𝑥) ∈ ℝ* ∧ 𝑅 ∈ ℝ* ∧ ((𝑁‘𝐹) ∈ ℝ* ∧ 0 ≤ (𝑁‘𝐹))) ∧ (𝐿‘𝑥) ≤ 𝑅) → ((𝑁‘𝐹) ·e (𝐿‘𝑥)) ≤ ((𝑁‘𝐹) ·e 𝑅))
61	48, 50, 58, 59, 60	syl31anc 1400	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → ((𝑁‘𝐹) ·e (𝐿‘𝑥)) ≤ ((𝑁‘𝐹) ·e 𝑅))
62	43, 49, 51, 54, 61	xrletrd 13203	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (𝑀‘(𝐹‘𝑥)) ≤ ((𝑁‘𝐹) ·e 𝑅))
63	42, 62	eqbrtrd 5135	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → (((𝑀‘(𝐹‘𝑥)) / 𝑅) ·e 𝑅) ≤ ((𝑁‘𝐹) ·e 𝑅))
64		xlemul1 13332	. . . . . . . 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 13203	. . . . 5 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ (𝑥 ∈ 𝑉 ∧ (𝐿‘𝑥) ≤ 𝑅)) → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)
69	68	expr 462	. . . 4 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ 𝑥 ∈ 𝑉) → ((𝐿‘𝑥) ≤ 𝑅 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴))
70	2, 69	syld 48	. . 3 ⊢ (((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) ∧ 𝑥 ∈ 𝑉) → (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴))
71	70	ralrimiva 3159	. 2 ⊢ ((𝜑 ∧ (𝑁‘𝐹) ≤ 𝐴) → ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴))
72		eqid 2765	. . . 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 24926	. . 3 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 ∈ ℝ) → (𝑁‘𝐹) ≤ 𝐴)
81	31	ad2antrr 739	. . . . 5 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 = +∞) → (𝑁‘𝐹) ∈ ℝ*)
82		pnfge 13171	. . . . 5 ⊢ ((𝑁‘𝐹) ∈ ℝ* → (𝑁‘𝐹) ≤ +∞)
83	81, 82	syl 18	. . . 4 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 = +∞) → (𝑁‘𝐹) ≤ +∞)
84		simpr 490	. . . 4 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 = +∞) → 𝐴 = +∞)
85	83, 84	breqtrrd 5141	. . 3 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) ∧ 𝐴 = +∞) → (𝑁‘𝐹) ≤ 𝐴)
86	33	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) → 𝐴 ∈ ℝ*)
87		ge0nemnf 13215	. . . . . 6 ⊢ ((𝐴 ∈ ℝ* ∧ 0 ≤ 𝐴) → 𝐴 ≠ -∞)
88	86, 77, 87	syl2anc 596	. . . . 5 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) → 𝐴 ≠ -∞)
89	86, 88	jca 521	. . . 4 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝑉 (𝜓 → ((𝑀‘(𝐹‘𝑥)) / 𝑅) ≤ 𝐴)) → (𝐴 ∈ ℝ* ∧ 𝐴 ≠ -∞))
90		xrnemnf 13158	. . . 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 2146   ≠ wne 2960  ∀wral 3081   ∩ cin 3905   class class class wbr 5111  ⟶wf 6536  ‘cfv 6540  (class class class)co 7419  ℝcr 11114  0cc0 11115   · cmul 11120  +∞cpnf 11255  -∞cmnf 11256  ℝ^*cxr 11257   ≤ cle 11259   / cdiv 11886  ℝ⁺crp 13032   ·_e cxmu 13152  Basecbs 17291  Scalarcsca 17335  0_gc0g 17514   GrpHom cghm 19327   LMHom clmhm 21190  normcnm 24784  NrmGrpcngp 24785  NrmModcnlm 24788   normOp cnmo 24913  ℂModcclm 25272

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 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742  ax-cnex 11171  ax-resscn 11172  ax-1cn 11173  ax-icn 11174  ax-addcl 11175  ax-addrcl 11176  ax-mulcl 11177  ax-mulrcl 11178  ax-mulcom 11179  ax-addass 11180  ax-mulass 11181  ax-distr 11182  ax-i2m1 11183  ax-1ne0 11184  ax-1rid 11185  ax-rnegex 11186  ax-rrecex 11187  ax-cnre 11188  ax-pre-lttri 11189  ax-pre-lttrn 11190  ax-pre-ltadd 11191  ax-pre-mulgt0 11192  ax-pre-sup 11193

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 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3067  df-ral 3082  df-rex 3092  df-rmo 3371  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4875  df-iun 4960  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7376  df-ov 7422  df-oprab 7423  df-mpo 7424  df-om 7869  df-1st 7992  df-2nd 7993  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-er 8700  df-map 8832  df-en 8950  df-dom 8951  df-sdom 8952  df-sup 9409  df-inf 9410  df-pnf 11260  df-mnf 11261  df-xr 11262  df-ltxr 11263  df-le 11264  df-sub 11458  df-neg 11459  df-div 11887  df-nn 12249  df-2 12318  df-n0 12520  df-z 12607  df-uz 12879  df-q 12989  df-rp 13033  df-xneg 13153  df-xadd 13154  df-xmul 13155  df-ico 13394  df-0g 17516  df-topgen 17518  df-mgm 18720  df-sgrp 18809  df-mnd 18825  df-grp 19047  df-ghm 19328  df-lmhm 21193  df-psmet 21564  df-xmet 21565  df-met 21566  df-bl 21567  df-mopn 21568  df-top 23101  df-topon 23118  df-topsp 23140  df-bases 23153  df-xms 24528  df-ms 24529  df-nm 24790  df-ngp 24791  df-nlm 24794  df-nmo 24916  df-nghm 24917

This theorem is used by:  nmoleub2lem2  25326  nmoleub3  25329