Metamath Proof Explorer


Theorem reccn2

Description: The reciprocal function is continuous. (Contributed by Mario Carneiro, 9-Feb-2014) (Revised by Mario Carneiro, 22-Sep-2014)

Ref Expression
Hypothesis reccn2.t T = if 1 A B 1 A B A 2
Assertion reccn2 A 0 B + y + z 0 z A < y 1 z 1 A < B

Proof

Step Hyp Ref Expression
1 reccn2.t T = if 1 A B 1 A B A 2
2 1rp 1 +
3 eldifsn A 0 A A 0
4 3 birani A 0 B + A A 0
5 absrpcl A A 0 A +
6 4 5 syl A 0 B + A +
7 rpmulcl A + B + A B +
8 6 7 sylancom A 0 B + A B +
9 ifcl 1 + A B + if 1 A B 1 A B +
10 2 8 9 sylancr A 0 B + if 1 A B 1 A B +
11 6 rphalfcld A 0 B + A 2 +
12 10 11 rpmulcld A 0 B + if 1 A B 1 A B A 2 +
13 1 12 eqeltrid A 0 B + T +
14 4 adantr A 0 B + z 0 z A < T A A 0
15 14 simpld A 0 B + z 0 z A < T A
16 simprl A 0 B + z 0 z A < T z 0
17 eldifsn z 0 z z 0
18 16 17 sylib A 0 B + z 0 z A < T z z 0
19 18 simpld A 0 B + z 0 z A < T z
20 15 19 mulcld A 0 B + z 0 z A < T A z
21 mulne0 A A 0 z z 0 A z 0
22 14 18 21 syl2anc A 0 B + z 0 z A < T A z 0
23 15 19 20 22 divsubdird A 0 B + z 0 z A < T A z A z = A A z z A z
24 15 mulridd A 0 B + z 0 z A < T A 1 = A
25 24 oveq1d A 0 B + z 0 z A < T A 1 A z = A A z
26 1cnd A 0 B + z 0 z A < T 1
27 divcan5 1 z z 0 A A 0 A 1 A z = 1 z
28 26 18 14 27 syl3anc A 0 B + z 0 z A < T A 1 A z = 1 z
29 25 28 eqtr3d A 0 B + z 0 z A < T A A z = 1 z
30 19 mulridd A 0 B + z 0 z A < T z 1 = z
31 19 15 mulcomd A 0 B + z 0 z A < T z A = A z
32 30 31 oveq12d A 0 B + z 0 z A < T z 1 z A = z A z
33 divcan5 1 A A 0 z z 0 z 1 z A = 1 A
34 26 14 18 33 syl3anc A 0 B + z 0 z A < T z 1 z A = 1 A
35 32 34 eqtr3d A 0 B + z 0 z A < T z A z = 1 A
36 29 35 oveq12d A 0 B + z 0 z A < T A A z z A z = 1 z 1 A
37 23 36 eqtrd A 0 B + z 0 z A < T A z A z = 1 z 1 A
38 37 fveq2d A 0 B + z 0 z A < T A z A z = 1 z 1 A
39 15 19 subcld A 0 B + z 0 z A < T A z
40 39 20 22 absdivd A 0 B + z 0 z A < T A z A z = A z A z
41 38 40 eqtr3d A 0 B + z 0 z A < T 1 z 1 A = A z A z
42 15 19 abssubd A 0 B + z 0 z A < T A z = z A
43 19 15 subcld A 0 B + z 0 z A < T z A
44 43 abscld A 0 B + z 0 z A < T z A
45 42 44 eqeltrd A 0 B + z 0 z A < T A z
46 13 adantr A 0 B + z 0 z A < T T +
47 46 rpred A 0 B + z 0 z A < T T
48 20 abscld A 0 B + z 0 z A < T A z
49 rpre B + B
50 49 ad2antlr A 0 B + z 0 z A < T B
51 48 50 remulcld A 0 B + z 0 z A < T A z B
52 simprr A 0 B + z 0 z A < T z A < T
53 42 52 eqbrtrd A 0 B + z 0 z A < T A z < T
54 8 adantr A 0 B + z 0 z A < T A B +
55 54 rpred A 0 B + z 0 z A < T A B
56 11 adantr A 0 B + z 0 z A < T A 2 +
57 56 rpred A 0 B + z 0 z A < T A 2
58 55 57 remulcld A 0 B + z 0 z A < T A B A 2
59 1re 1
60 min2 1 A B if 1 A B 1 A B A B
61 59 55 60 sylancr A 0 B + z 0 z A < T if 1 A B 1 A B A B
62 10 adantr A 0 B + z 0 z A < T if 1 A B 1 A B +
63 62 rpred A 0 B + z 0 z A < T if 1 A B 1 A B
64 63 55 56 lemul1d A 0 B + z 0 z A < T if 1 A B 1 A B A B if 1 A B 1 A B A 2 A B A 2
65 61 64 mpbid A 0 B + z 0 z A < T if 1 A B 1 A B A 2 A B A 2
66 1 65 eqbrtrid A 0 B + z 0 z A < T T A B A 2
67 19 abscld A 0 B + z 0 z A < T z
68 15 abscld A 0 B + z 0 z A < T A
69 68 recnd A 0 B + z 0 z A < T A
70 69 2halvesd A 0 B + z 0 z A < T A 2 + A 2 = A
71 68 67 resubcld A 0 B + z 0 z A < T A z
72 15 19 abs2difd A 0 B + z 0 z A < T A z A z
73 min1 1 A B if 1 A B 1 A B 1
74 59 55 73 sylancr A 0 B + z 0 z A < T if 1 A B 1 A B 1
75 1red A 0 B + z 0 z A < T 1
76 63 75 56 lemul1d A 0 B + z 0 z A < T if 1 A B 1 A B 1 if 1 A B 1 A B A 2 1 A 2
77 74 76 mpbid A 0 B + z 0 z A < T if 1 A B 1 A B A 2 1 A 2
78 1 77 eqbrtrid A 0 B + z 0 z A < T T 1 A 2
79 57 recnd A 0 B + z 0 z A < T A 2
80 79 mullidd A 0 B + z 0 z A < T 1 A 2 = A 2
81 78 80 breqtrd A 0 B + z 0 z A < T T A 2
82 45 47 57 53 81 ltletrd A 0 B + z 0 z A < T A z < A 2
83 71 45 57 72 82 lelttrd A 0 B + z 0 z A < T A z < A 2
84 68 67 57 ltsubadd2d A 0 B + z 0 z A < T A z < A 2 A < z + A 2
85 83 84 mpbid A 0 B + z 0 z A < T A < z + A 2
86 70 85 eqbrtrd A 0 B + z 0 z A < T A 2 + A 2 < z + A 2
87 57 67 57 ltadd1d A 0 B + z 0 z A < T A 2 < z A 2 + A 2 < z + A 2
88 86 87 mpbird A 0 B + z 0 z A < T A 2 < z
89 57 67 54 88 ltmul2dd A 0 B + z 0 z A < T A B A 2 < A B z
90 15 19 absmuld A 0 B + z 0 z A < T A z = A z
91 90 oveq1d A 0 B + z 0 z A < T A z B = A z B
92 67 recnd A 0 B + z 0 z A < T z
93 50 recnd A 0 B + z 0 z A < T B
94 69 92 93 mul32d A 0 B + z 0 z A < T A z B = A B z
95 91 94 eqtrd A 0 B + z 0 z A < T A z B = A B z
96 89 95 breqtrrd A 0 B + z 0 z A < T A B A 2 < A z B
97 47 58 51 66 96 lelttrd A 0 B + z 0 z A < T T < A z B
98 45 47 51 53 97 lttrd A 0 B + z 0 z A < T A z < A z B
99 20 22 absrpcld A 0 B + z 0 z A < T A z +
100 45 50 99 ltdivmuld A 0 B + z 0 z A < T A z A z < B A z < A z B
101 98 100 mpbird A 0 B + z 0 z A < T A z A z < B
102 41 101 eqbrtrd A 0 B + z 0 z A < T 1 z 1 A < B
103 102 expr A 0 B + z 0 z A < T 1 z 1 A < B
104 103 ralrimiva A 0 B + z 0 z A < T 1 z 1 A < B
105 breq2 y = T z A < y z A < T
106 105 rspceaimv T + z 0 z A < T 1 z 1 A < B y + z 0 z A < y 1 z 1 A < B
107 13 104 106 syl2anc A 0 B + y + z 0 z A < y 1 z 1 A < B