Metamath Proof Explorer


Theorem addcnlem

Description: Lemma for addcn , subcn , and mulcn . (Contributed by Mario Carneiro, 5-May-2014) (Proof shortened by Mario Carneiro, 2-Sep-2015)

Ref Expression
Hypotheses addcn.j J = TopOpen fld
addcn.2 + ˙ : ×
addcn.3 a + b c y + z + u v u b < y v c < z u + ˙ v b + ˙ c < a
Assertion addcnlem + ˙ J × t J Cn J

Proof

Step Hyp Ref Expression
1 addcn.j J = TopOpen fld
2 addcn.2 + ˙ : ×
3 addcn.3 a + b c y + z + u v u b < y v c < z u + ˙ v b + ˙ c < a
4 3 3coml b c a + y + z + u v u b < y v c < z u + ˙ v b + ˙ c < a
5 ifcl y + z + if y z y z +
6 5 adantl b c a + y + z + if y z y z +
7 simpll1 b c a + y + z + u v b
8 simprl b c a + y + z + u v u
9 eqid abs = abs
10 9 cnmetdval b u b abs u = b u
11 abssub b u b u = u b
12 10 11 eqtrd b u b abs u = u b
13 7 8 12 syl2anc b c a + y + z + u v b abs u = u b
14 13 breq1d b c a + y + z + u v b abs u < if y z y z u b < if y z y z
15 8 7 subcld b c a + y + z + u v u b
16 15 abscld b c a + y + z + u v u b
17 simplrl b c a + y + z + u v y +
18 17 rpred b c a + y + z + u v y
19 simplrr b c a + y + z + u v z +
20 19 rpred b c a + y + z + u v z
21 ltmin u b y z u b < if y z y z u b < y u b < z
22 16 18 20 21 syl3anc b c a + y + z + u v u b < if y z y z u b < y u b < z
23 14 22 bitrd b c a + y + z + u v b abs u < if y z y z u b < y u b < z
24 simpl u b < y u b < z u b < y
25 23 24 syl6bi b c a + y + z + u v b abs u < if y z y z u b < y
26 simpll2 b c a + y + z + u v c
27 simprr b c a + y + z + u v v
28 9 cnmetdval c v c abs v = c v
29 abssub c v c v = v c
30 28 29 eqtrd c v c abs v = v c
31 26 27 30 syl2anc b c a + y + z + u v c abs v = v c
32 31 breq1d b c a + y + z + u v c abs v < if y z y z v c < if y z y z
33 27 26 subcld b c a + y + z + u v v c
34 33 abscld b c a + y + z + u v v c
35 ltmin v c y z v c < if y z y z v c < y v c < z
36 34 18 20 35 syl3anc b c a + y + z + u v v c < if y z y z v c < y v c < z
37 32 36 bitrd b c a + y + z + u v c abs v < if y z y z v c < y v c < z
38 simpr v c < y v c < z v c < z
39 37 38 syl6bi b c a + y + z + u v c abs v < if y z y z v c < z
40 25 39 anim12d b c a + y + z + u v b abs u < if y z y z c abs v < if y z y z u b < y v c < z
41 2 fovcl b c b + ˙ c
42 7 26 41 syl2anc b c a + y + z + u v b + ˙ c
43 2 fovcl u v u + ˙ v
44 43 adantl b c a + y + z + u v u + ˙ v
45 9 cnmetdval b + ˙ c u + ˙ v b + ˙ c abs u + ˙ v = b + ˙ c u + ˙ v
46 abssub b + ˙ c u + ˙ v b + ˙ c u + ˙ v = u + ˙ v b + ˙ c
47 45 46 eqtrd b + ˙ c u + ˙ v b + ˙ c abs u + ˙ v = u + ˙ v b + ˙ c
48 42 44 47 syl2anc b c a + y + z + u v b + ˙ c abs u + ˙ v = u + ˙ v b + ˙ c
49 48 breq1d b c a + y + z + u v b + ˙ c abs u + ˙ v < a u + ˙ v b + ˙ c < a
50 49 biimprd b c a + y + z + u v u + ˙ v b + ˙ c < a b + ˙ c abs u + ˙ v < a
51 40 50 imim12d b c a + y + z + u v u b < y v c < z u + ˙ v b + ˙ c < a b abs u < if y z y z c abs v < if y z y z b + ˙ c abs u + ˙ v < a
52 51 ralimdvva b c a + y + z + u v u b < y v c < z u + ˙ v b + ˙ c < a u v b abs u < if y z y z c abs v < if y z y z b + ˙ c abs u + ˙ v < a
53 breq2 x = if y z y z b abs u < x b abs u < if y z y z
54 breq2 x = if y z y z c abs v < x c abs v < if y z y z
55 53 54 anbi12d x = if y z y z b abs u < x c abs v < x b abs u < if y z y z c abs v < if y z y z
56 55 imbi1d x = if y z y z b abs u < x c abs v < x b + ˙ c abs u + ˙ v < a b abs u < if y z y z c abs v < if y z y z b + ˙ c abs u + ˙ v < a
57 56 2ralbidv x = if y z y z u v b abs u < x c abs v < x b + ˙ c abs u + ˙ v < a u v b abs u < if y z y z c abs v < if y z y z b + ˙ c abs u + ˙ v < a
58 57 rspcev if y z y z + u v b abs u < if y z y z c abs v < if y z y z b + ˙ c abs u + ˙ v < a x + u v b abs u < x c abs v < x b + ˙ c abs u + ˙ v < a
59 6 52 58 syl6an b c a + y + z + u v u b < y v c < z u + ˙ v b + ˙ c < a x + u v b abs u < x c abs v < x b + ˙ c abs u + ˙ v < a
60 59 rexlimdvva b c a + y + z + u v u b < y v c < z u + ˙ v b + ˙ c < a x + u v b abs u < x c abs v < x b + ˙ c abs u + ˙ v < a
61 4 60 mpd b c a + x + u v b abs u < x c abs v < x b + ˙ c abs u + ˙ v < a
62 61 rgen3 b c a + x + u v b abs u < x c abs v < x b + ˙ c abs u + ˙ v < a
63 cnxmet abs ∞Met
64 1 cnfldtopn J = MetOpen abs
65 64 64 64 txmetcn abs ∞Met abs ∞Met abs ∞Met + ˙ J × t J Cn J + ˙ : × b c a + x + u v b abs u < x c abs v < x b + ˙ c abs u + ˙ v < a
66 63 63 63 65 mp3an + ˙ J × t J Cn J + ˙ : × b c a + x + u v b abs u < x c abs v < x b + ˙ c abs u + ˙ v < a
67 2 62 66 mpbir2an + ˙ J × t J Cn J