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