HomeHome Metamath Proof Explorer < Previous   Next >
Related theorems
Unicode version

Theorem mulc1cncf 7214
Description: Multiplication by a constant is continuous. (Contributed by Paul Chapman, 28-Nov-2007.)
Hypothesis
Ref Expression
mulc1cncf.1 |- F = {<.x, y>. | (x e. CC /\ y = (A x. x))}
Assertion
Ref Expression
mulc1cncf |- (A e. CC -> F e. (CC-cn->CC))
Distinct variable group:   x,A,y

Proof of Theorem mulc1cncf
StepHypRef Expression
1 ssid 2070 . 2 |- CC (_ CC
2 axmulcl 5245 . . . . . . . 8 |- ((A e. CC /\ x e. CC) -> (A x. x) e. CC)
32r19.21aiva 1706 . . . . . . 7 |- (A e. CC -> A.x e. CC (A x. x) e. CC)
4 mulc1cncf.1 . . . . . . . 8 |- F = {<.x, y>. | (x e. CC /\ y = (A x. x))}
54fopab2 3808 . . . . . . 7 |- (A.x e. CC (A x. x) e. CC <-> F:CC-->CC)
63, 5sylib 198 . . . . . 6 |- (A e. CC -> F:CC-->CC)
76adantr 389 . . . . 5 |- ((A e. CC /\ A = 0) -> F:CC-->CC)
8 1re 5407 . . . . . . . 8 |- 1 e. RR
9 lt01 5653 . . . . . . . 8 |- 0 < 1
108, 9elrpi 6221 . . . . . . 7 |- 1 e. RR+
1110a1i 8 . . . . . 6 |- ((z e. CC /\ v e. RR+) -> 1 e. RR+)
1211a1i 8 . . . . 5 |- ((A e. CC /\ A = 0) -> ((z e. CC /\ v e. RR+) -> 1 e. RR+))
13 opreq1 3953 . . . . . . . . . . . . 13 |- (A = 0 -> (A x. (z - w)) = (0 x. (z - w)))
1413fveq2d 3713 . . . . . . . . . . . 12 |- (A = 0 -> (abs` (A x. (z - w))) = (abs`
(0 x. (z - w))))
1514adantr 389 . . . . . . . . . . 11 |- ((A = 0 /\ (z e. CC /\ w e. CC)) -> (abs` (A x. (z - w))) = (abs`
(0 x. (z - w))))
16 subdit 5399 . . . . . . . . . . . . . . 15 |- ((A e. CC /\ z e. CC /\ w e. CC) -> (A x. (z - w)) = ((A x. z) - (A x. w)))
17163expb 832 . . . . . . . . . . . . . 14 |- ((A e. CC /\ (z e. CC /\ w e. CC)) -> (A x. (z - w)) = ((A x. z) - (A x. w)))
18 opreq2 3954 . . . . . . . . . . . . . . . . . . 19 |- (x = z -> (A x. x) = (A x. z))
1918, 4fvopab4g 3764 . . . . . . . . . . . . . . . . . 18 |- ((z e. CC /\ (A x. z) e. CC) -> (F` z) = (A x. z))
20 axmulcl 5245 . . . . . . . . . . . . . . . . . 18 |- ((A e. CC /\ z e. CC) -> (A x. z) e. CC)
2119, 20sylan2 451 . . . . . . . . . . . . . . . . 17 |- ((z e. CC /\ (A e. CC /\ z e. CC)) -> (F` z) = (A x. z))
2221anabss7 502 . . . . . . . . . . . . . . . 16 |- ((A e. CC /\ z e. CC) -> (F` z) = (A x. z))
2322adantrr 395 . . . . . . . . . . . . . . 15 |- ((A e. CC /\ (z e. CC /\ w e. CC)) -> (F` z) = (A x. z))
24 opreq2 3954 . . . . . . . . . . . . . . . . . . 19 |- (x = w -> (A x. x) = (A x. w))
2524, 4fvopab4g 3764 . . . . . . . . . . . . . . . . . 18 |- ((w e. CC /\ (A x. w) e. CC) -> (F` w) = (A x. w))
26 axmulcl 5245 . . . . . . . . . . . . . . . . . 18 |- ((A e. CC /\ w e. CC) -> (A x. w) e. CC)
2725, 26sylan2 451 . . . . . . . . . . . . . . . . 17 |- ((w e. CC /\ (A e. CC /\ w e. CC)) -> (F` w) = (A x. w))
2827anabss7 502 . . . . . . . . . . . . . . . 16 |- ((A e. CC /\ w e. CC) -> (F` w) = (A x. w))
2928adantrl 394 . . . . . . . . . . . . . . 15 |- ((A e. CC /\ (z e. CC /\ w e. CC)) -> (F` w) = (A x. w))
3023, 29opreq12d 3963 . . . . . . . . . . . . . 14 |- ((A e. CC /\ (z e. CC /\ w e. CC)) -> ((F` z) - (F` w)) = ((A x. z) - (A x. w)))
3117, 30eqtr4d 1502 . . . . . . . . . . . . 13 |- ((A e. CC /\ (z e. CC /\ w e. CC)) -> (A x. (z - w)) = ((F` z) - (F` w)))
3231fveq2d 3713 . . . . . . . . . . . 12 |- ((A e. CC /\ (z e. CC /\ w e. CC)) -> (abs` (A x. (z - w))) = (abs`
((F` z) - (F` w))))
33 0cn 5300 . . . . . . . . . . . . 13 |- 0 e. CC
34 eleq1 1526 . . . . . . . . . . . . 13 |- (A = 0 -> (A e. CC <-> 0 e. CC))
3533, 34mpbiri 194 . . . . . . . . . . . 12 |- (A = 0 -> A e. CC)
3632, 35sylan 448 . . . . . . . . . . 11 |- ((A = 0 /\ (z e. CC /\ w e. CC)) -> (abs` (A x. (z - w))) = (abs`
((F` z) - (F` w))))
37 subclt 5339 . . . . . . . . . . . . . . 15 |- ((z e. CC /\ w e. CC) -> (z - w) e. CC)
38 mul02t 5416 . . . . . . . . . . . . . . 15 |- ((z - w) e. CC -> (0 x. (z - w)) = 0)
3937, 38syl 10 . . . . . . . . . . . . . 14 |- ((z e. CC /\ w e. CC) -> (0 x. (z - w)) = 0)
4039fveq2d 3713 . . . . . . . . . . . . 13 |- ((z e. CC /\ w e. CC) -> (abs`
(0 x. (z - w))) = (abs` 0))
41 abs0 6814 . . . . . . . . . . . . 13 |- (abs` 0) = 0
4240, 41syl6eq 1515 . . . . . . . . . . . 12 |- ((z e. CC /\ w e. CC) -> (abs`
(0 x. (z - w))) = 0)
4342adantl 388 . . . . . . . . . . 11 |- ((A = 0 /\ (z e. CC /\ w e. CC)) -> (abs` (0 x. (z - w))) = 0)
4415, 36, 433eqtr3d 1507 . . . . . . . . . 10 |- ((A = 0 /\ (z e. CC /\ w e. CC)) -> (abs` ((F` z) - (F` w))) = 0)
45443adant3 797 . . . . . . . . 9 |- ((A = 0 /\ (z e. CC /\ w e. CC) /\ v e. RR+) -> (abs` ((F` z) - (F` w))) = 0)
46 elrp 6220 . . . . . . . . . . 11 |- (v e. RR+ <-> (v e. RR /\ 0 < v))
4746pm3.27bi 326 . . . . . . . . . 10 |- (v e. RR+ -> 0 < v)
48473ad2ant3 800 . . . . . . . . 9 |- ((A = 0 /\ (z e. CC /\ w e. CC) /\ v e. RR+) -> 0 < v)
4945, 48eqbrtrd 2625 . . . . . . . 8 |- ((A = 0 /\ (z e. CC /\ w e. CC) /\ v e. RR+) -> (abs` ((F` z) - (F` w))) < v)
5049a1d 12 . . . . . . 7 |- ((A = 0 /\ (z e. CC /\ w e. CC) /\ v e. RR+) -> ((abs` (z - w)) < 1 -> (abs` ((F` z) - (F` w))) < v))
51503adant1l 850 . . . . . 6 |- (((A e. CC /\ A = 0) /\ (z e. CC /\ w e. CC) /\ v e. RR+) -> ((abs` (z - w)) < 1 -> (abs` ((F` z) - (F` w))) < v))
52513expib 834 . . . . 5 |- ((A e. CC /\ A = 0) -> (((z e. CC /\ w e. CC) /\ v e. RR+) -> ((abs` (z - w)) < 1 -> (abs` ((F` z) - (F` w))) < v)))
537, 12, 52elcncf1d 7205 . . . 4 |- ((A e. CC /\ A = 0) -> ((CC (_ CC /\ CC (_ CC) -> F e. (CC-cn->CC)))
5453expcom 374 . . 3 |- (A = 0 -> (A e. CC -> ((CC (_ CC /\ CC (_ CC) -> F e. (CC-cn->CC))))
556adantr 389 . . . . 5 |- ((A e. CC /\ A =/= 0) -> F:CC-->CC)
56 redivclt 5756 . . . . . . . . . . 11 |- ((v e. RR /\ (abs` A) e. RR /\ (abs` A) =/= 0) -> (v / (abs` A)) e. RR)
57563expb 832 . . . . . . . . . 10 |- ((v e. RR /\ ((abs`
A) e. RR /\ (abs`
A) =/= 0)) -> (v / (abs` A)) e. RR)
5846pm3.26bi 322 . . . . . . . . . 10 |- (v e. RR+ -> v e. RR)
59 absclt 6768 . . . . . . . . . . . 12 |- (A e. CC -> (abs` A) e. RR)
6059adantr 389 . . . . . . . . . . 11 |- ((A e. CC /\ A =/= 0) -> (abs`
A) e. RR)
61 abs00t 6788 . . . . . . . . . . . . 13 |- (A e. CC -> ((abs` A) = 0 <-> A = 0))
6261necon3bid 1593 . . . . . . . . . . . 12 |- (A e. CC -> ((abs` A) =/= 0 <-> A =/= 0))
6362biimpar 417 . . . . . . . . . . 11 |- ((A e. CC /\ A =/= 0) -> (abs`
A) =/= 0)
6460, 63jca 288 . . . . . . . . . 10 |- ((A e. CC /\ A =/= 0) -> ((abs` A) e. RR /\ (abs` A) =/= 0))
6557, 58, 64syl2an 454 . . . . . . . . 9 |- ((v e. RR+ /\ (A e. CC /\ A =/= 0)) -> (v / (abs` A)) e. RR)
66 divgt0t 5809 . . . . . . . . . . 11 |- (((v e. RR /\ 0 < v) /\ ((abs` A) e. RR /\ 0 < (abs` A))) -> 0 < (v / (abs`
A)))
6766, 46sylanb 449 . . . . . . . . . 10 |- ((v e. RR+ /\ ((abs`
A) e. RR /\ 0 < (abs` A))) -> 0 < (v / (abs` A)))
68 absgt0t 6831 . . . . . . . . . . . . 13 |- (A e. CC -> (A =/= 0 <-> 0 < (abs`
A)))
6968biimpd 153 . . . . . . . . . . . 12 |- (A e. CC -> (A =/= 0 -> 0 < (abs` A)))
7069imdistani 443 . . . . . . . . . . 11 |- ((A e. CC /\ A =/= 0) -> (A e. CC /\ 0 < (abs` A)))
7159anim1i 334 . . . . . . . . . . 11 |- ((A e. CC /\ 0 < (abs` A)) -> ((abs` A) e. RR /\ 0 < (abs` A)))
7270, 71syl 10 . . . . . . . . . 10 |- ((