Metamath Proof Explorer


Theorem nmoleub2lem2

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

Ref Expression
Hypotheses nmoleub2.n ⊢ N = S normOp T
nmoleub2.v ⊢ V = Base S
nmoleub2.l ⊢ L = norm ⁡ S
nmoleub2.m ⊢ M = norm ⁡ T
nmoleub2.g ⊢ G = Scalar ⁡ S
nmoleub2.w ⊢ K = Base G
nmoleub2.s ⊢ φ → S ∈ NrmMod ∩ CMod
nmoleub2.t ⊢ φ → T ∈ NrmMod ∩ CMod
nmoleub2.f ⊢ φ → F ∈ S LMHom T
nmoleub2.a ⊢ φ → A ∈ ℝ *
nmoleub2.r ⊢ φ → R ∈ ℝ +
nmoleub2a.5 ⊢ φ → ℚ ⊆ K
nmoleub2lem2.6 ⊢ L ⁡ x ∈ ℝ ∧ R ∈ ℝ → L ⁡ x O R → L ⁡ x ≤ R
nmoleub2lem2.7 ⊢ L ⁡ x ∈ ℝ ∧ R ∈ ℝ → L ⁡ x < R → L ⁡ x O R
Assertion nmoleub2lem2 ⊢ φ → N ⁡ F ≤ A ↔ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A

Proof

Step Hyp Ref Expression
1 nmoleub2.n ⊢ N = S normOp T
2 nmoleub2.v ⊢ V = Base S
3 nmoleub2.l ⊢ L = norm ⁡ S
4 nmoleub2.m ⊢ M = norm ⁡ T
5 nmoleub2.g ⊢ G = Scalar ⁡ S
6 nmoleub2.w ⊢ K = Base G
7 nmoleub2.s ⊢ φ → S ∈ NrmMod ∩ CMod
8 nmoleub2.t ⊢ φ → T ∈ NrmMod ∩ CMod
9 nmoleub2.f ⊢ φ → F ∈ S LMHom T
10 nmoleub2.a ⊢ φ → A ∈ ℝ *
11 nmoleub2.r ⊢ φ → R ∈ ℝ +
12 nmoleub2a.5 ⊢ φ → ℚ ⊆ K
13 nmoleub2lem2.6 ⊢ L ⁡ x ∈ ℝ ∧ R ∈ ℝ → L ⁡ x O R → L ⁡ x ≤ R
14 nmoleub2lem2.7 ⊢ L ⁡ x ∈ ℝ ∧ R ∈ ℝ → L ⁡ x < R → L ⁡ x O R
15 lmghm ⊢ F ∈ S LMHom T → F ∈ S GrpHom T
16 eqid ⊢ 0 S = 0 S
17 eqid ⊢ 0 T = 0 T
18 16 17 ghmid ⊢ F ∈ S GrpHom T → F ⁡ 0 S = 0 T
19 9 15 18 3syl ⊢ φ → F ⁡ 0 S = 0 T
20 19 fveq2d ⊢ φ → M ⁡ F ⁡ 0 S = M ⁡ 0 T
21 8 elin1d ⊢ φ → T ∈ NrmMod
22 nlmngp ⊢ T ∈ NrmMod → T ∈ NrmGrp
23 4 17 nm0 ⊢ T ∈ NrmGrp → M ⁡ 0 T = 0
24 21 22 23 3syl ⊢ φ → M ⁡ 0 T = 0
25 20 24 eqtrd ⊢ φ → M ⁡ F ⁡ 0 S = 0
26 25 adantr ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A → M ⁡ F ⁡ 0 S = 0
27 26 oveq1d ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A → M ⁡ F ⁡ 0 S R = 0 R
28 11 adantr ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A → R ∈ ℝ +
29 28 rpcnd ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A → R ∈ ℂ
30 28 rpne0d ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A → R ≠ 0
31 29 30 div0d ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A → 0 R = 0
32 27 31 eqtrd ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A → M ⁡ F ⁡ 0 S R = 0
33 7 elin1d ⊢ φ → S ∈ NrmMod
34 nlmngp ⊢ S ∈ NrmMod → S ∈ NrmGrp
35 3 16 nm0 ⊢ S ∈ NrmGrp → L ⁡ 0 S = 0
36 33 34 35 3syl ⊢ φ → L ⁡ 0 S = 0
37 36 adantr ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A → L ⁡ 0 S = 0
38 28 rpgt0d ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A → 0 < R
39 37 38 eqbrtrd ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A → L ⁡ 0 S < R
40 fveq2 ⊢ x = 0 S → L ⁡ x = L ⁡ 0 S
41 40 breq1d ⊢ x = 0 S → L ⁡ x < R ↔ L ⁡ 0 S < R
42 2fveq3 ⊢ x = 0 S → M ⁡ F ⁡ x = M ⁡ F ⁡ 0 S
43 42 oveq1d ⊢ x = 0 S → M ⁡ F ⁡ x R = M ⁡ F ⁡ 0 S R
44 43 breq1d ⊢ x = 0 S → M ⁡ F ⁡ x R ≤ A ↔ M ⁡ F ⁡ 0 S R ≤ A
45 41 44 imbi12d ⊢ x = 0 S → L ⁡ x < R → M ⁡ F ⁡ x R ≤ A ↔ L ⁡ 0 S < R → M ⁡ F ⁡ 0 S R ≤ A
46 33 34 syl ⊢ φ → S ∈ NrmGrp
47 2 3 nmcl ⊢ S ∈ NrmGrp ∧ x ∈ V → L ⁡ x ∈ ℝ
48 46 47 sylan ⊢ φ ∧ x ∈ V → L ⁡ x ∈ ℝ
49 11 adantr ⊢ φ ∧ x ∈ V → R ∈ ℝ +
50 49 rpred ⊢ φ ∧ x ∈ V → R ∈ ℝ
51 48 50 14 syl2anc ⊢ φ ∧ x ∈ V → L ⁡ x < R → L ⁡ x O R
52 51 imim1d ⊢ φ ∧ x ∈ V → L ⁡ x O R → M ⁡ F ⁡ x R ≤ A → L ⁡ x < R → M ⁡ F ⁡ x R ≤ A
53 52 ralimdva ⊢ φ → ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A → ∀ x ∈ V L ⁡ x < R → M ⁡ F ⁡ x R ≤ A
54 53 imp ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A → ∀ x ∈ V L ⁡ x < R → M ⁡ F ⁡ x R ≤ A
55 ngpgrp ⊢ S ∈ NrmGrp → S ∈ Grp
56 2 16 grpidcl ⊢ S ∈ Grp → 0 S ∈ V
57 46 55 56 3syl ⊢ φ → 0 S ∈ V
58 57 adantr ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A → 0 S ∈ V
59 45 54 58 rspcdva ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A → L ⁡ 0 S < R → M ⁡ F ⁡ 0 S R ≤ A
60 39 59 mpd ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A → M ⁡ F ⁡ 0 S R ≤ A
61 32 60 eqbrtrrd ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A → 0 ≤ A
62 simp-4l ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A ∧ A ∈ ℝ ∧ y ∈ V ∧ y ≠ 0 S ∧ ¬ M ⁡ F ⁡ y ≤ A ⁢ L ⁡ y → φ
63 62 7 syl ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A ∧ A ∈ ℝ ∧ y ∈ V ∧ y ≠ 0 S ∧ ¬ M ⁡ F ⁡ y ≤ A ⁢ L ⁡ y → S ∈ NrmMod ∩ CMod
64 62 8 syl ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A ∧ A ∈ ℝ ∧ y ∈ V ∧ y ≠ 0 S ∧ ¬ M ⁡ F ⁡ y ≤ A ⁢ L ⁡ y → T ∈ NrmMod ∩ CMod
65 62 9 syl ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A ∧ A ∈ ℝ ∧ y ∈ V ∧ y ≠ 0 S ∧ ¬ M ⁡ F ⁡ y ≤ A ⁢ L ⁡ y → F ∈ S LMHom T
66 62 10 syl ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A ∧ A ∈ ℝ ∧ y ∈ V ∧ y ≠ 0 S ∧ ¬ M ⁡ F ⁡ y ≤ A ⁢ L ⁡ y → A ∈ ℝ *
67 62 11 syl ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A ∧ A ∈ ℝ ∧ y ∈ V ∧ y ≠ 0 S ∧ ¬ M ⁡ F ⁡ y ≤ A ⁢ L ⁡ y → R ∈ ℝ +
68 62 12 syl ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A ∧ A ∈ ℝ ∧ y ∈ V ∧ y ≠ 0 S ∧ ¬ M ⁡ F ⁡ y ≤ A ⁢ L ⁡ y → ℚ ⊆ K
69 eqid ⊢ ⋅ S = ⋅ S
70 simpllr ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A ∧ A ∈ ℝ ∧ y ∈ V ∧ y ≠ 0 S ∧ ¬ M ⁡ F ⁡ y ≤ A ⁢ L ⁡ y → A ∈ ℝ
71 61 ad3antrrr ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A ∧ A ∈ ℝ ∧ y ∈ V ∧ y ≠ 0 S ∧ ¬ M ⁡ F ⁡ y ≤ A ⁢ L ⁡ y → 0 ≤ A
72 simplrl ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A ∧ A ∈ ℝ ∧ y ∈ V ∧ y ≠ 0 S ∧ ¬ M ⁡ F ⁡ y ≤ A ⁢ L ⁡ y → y ∈ V
73 simplrr ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A ∧ A ∈ ℝ ∧ y ∈ V ∧ y ≠ 0 S ∧ ¬ M ⁡ F ⁡ y ≤ A ⁢ L ⁡ y → y ≠ 0 S
74 54 ad3antrrr ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A ∧ A ∈ ℝ ∧ y ∈ V ∧ y ≠ 0 S ∧ ¬ M ⁡ F ⁡ y ≤ A ⁢ L ⁡ y → ∀ x ∈ V L ⁡ x < R → M ⁡ F ⁡ x R ≤ A
75 fveq2 ⊢ x = z ⋅ S y → L ⁡ x = L ⁡ z ⋅ S y
76 75 breq1d ⊢ x = z ⋅ S y → L ⁡ x < R ↔ L ⁡ z ⋅ S y < R
77 2fveq3 ⊢ x = z ⋅ S y → M ⁡ F ⁡ x = M ⁡ F ⁡ z ⋅ S y
78 77 oveq1d ⊢ x = z ⋅ S y → M ⁡ F ⁡ x R = M ⁡ F ⁡ z ⋅ S y R
79 78 breq1d ⊢ x = z ⋅ S y → M ⁡ F ⁡ x R ≤ A ↔ M ⁡ F ⁡ z ⋅ S y R ≤ A
80 76 79 imbi12d ⊢ x = z ⋅ S y → L ⁡ x < R → M ⁡ F ⁡ x R ≤ A ↔ L ⁡ z ⋅ S y < R → M ⁡ F ⁡ z ⋅ S y R ≤ A
81 80 rspccv ⊢ ∀ x ∈ V L ⁡ x < R → M ⁡ F ⁡ x R ≤ A → z ⋅ S y ∈ V → L ⁡ z ⋅ S y < R → M ⁡ F ⁡ z ⋅ S y R ≤ A
82 74 81 syl ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A ∧ A ∈ ℝ ∧ y ∈ V ∧ y ≠ 0 S ∧ ¬ M ⁡ F ⁡ y ≤ A ⁢ L ⁡ y → z ⋅ S y ∈ V → L ⁡ z ⋅ S y < R → M ⁡ F ⁡ z ⋅ S y R ≤ A
83 simpr ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A ∧ A ∈ ℝ ∧ y ∈ V ∧ y ≠ 0 S ∧ ¬ M ⁡ F ⁡ y ≤ A ⁢ L ⁡ y → ¬ M ⁡ F ⁡ y ≤ A ⁢ L ⁡ y
84 1 2 3 4 5 6 63 64 65 66 67 68 69 70 71 72 73 82 83 nmoleub2lem3 ⊢ ¬ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A ∧ A ∈ ℝ ∧ y ∈ V ∧ y ≠ 0 S ∧ ¬ M ⁡ F ⁡ y ≤ A ⁢ L ⁡ y
85 iman ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A ∧ A ∈ ℝ ∧ y ∈ V ∧ y ≠ 0 S → M ⁡ F ⁡ y ≤ A ⁢ L ⁡ y ↔ ¬ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A ∧ A ∈ ℝ ∧ y ∈ V ∧ y ≠ 0 S ∧ ¬ M ⁡ F ⁡ y ≤ A ⁢ L ⁡ y
86 84 85 mpbir ⊢ φ ∧ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A ∧ A ∈ ℝ ∧ y ∈ V ∧ y ≠ 0 S → M ⁡ F ⁡ y ≤ A ⁢ L ⁡ y
87 48 50 13 syl2anc ⊢ φ ∧ x ∈ V → L ⁡ x O R → L ⁡ x ≤ R
88 1 2 3 4 5 6 7 8 9 10 11 61 86 87 nmoleub2lem ⊢ φ → N ⁡ F ≤ A ↔ ∀ x ∈ V L ⁡ x O R → M ⁡ F ⁡ x R ≤ A