Metamath Proof Explorer


Theorem dpmul4

Description: An upper bound to multiplication of decimal numbers with 4 digits. (Contributed by Thierry Arnoux, 25-Dec-2021)

Ref Expression
Hypotheses dpmul.a โŠข ๐ด โˆˆ โ„•0
dpmul.b โŠข ๐ต โˆˆ โ„•0
dpmul.c โŠข ๐ถ โˆˆ โ„•0
dpmul.d โŠข ๐ท โˆˆ โ„•0
dpmul.e โŠข ๐ธ โˆˆ โ„•0
dpmul.g โŠข ๐บ โˆˆ โ„•0
dpmul.j โŠข ๐ฝ โˆˆ โ„•0
dpmul.k โŠข ๐พ โˆˆ โ„•0
dpmul4.f โŠข ๐น โˆˆ โ„•0
dpmul4.h โŠข ๐ป โˆˆ โ„•0
dpmul4.i โŠข ๐ผ โˆˆ โ„•0
dpmul4.l โŠข ๐ฟ โˆˆ โ„•0
dpmul4.m โŠข ๐‘€ โˆˆ โ„•0
dpmul4.n โŠข ๐‘ โˆˆ โ„•0
dpmul4.o โŠข ๐‘‚ โˆˆ โ„•0
dpmul4.p โŠข ๐‘ƒ โˆˆ โ„•0
dpmul4.q โŠข ๐‘„ โˆˆ โ„•0
dpmul4.r โŠข ๐‘… โˆˆ โ„•0
dpmul4.s โŠข ๐‘† โˆˆ โ„•0
dpmul4.t โŠข ๐‘‡ โˆˆ โ„•0
dpmul4.u โŠข ๐‘ˆ โˆˆ โ„•0
dpmul4.w โŠข ๐‘Š โˆˆ โ„•0
dpmul4.x โŠข ๐‘‹ โˆˆ โ„•0
dpmul4.y โŠข ๐‘Œ โˆˆ โ„•0
dpmul4.z โŠข ๐‘ โˆˆ โ„•0
dpmul4.a โŠข ๐‘ˆ < 1 0
dpmul4.b โŠข ๐‘ƒ < 1 0
dpmul4.c โŠข ๐‘„ < 1 0
dpmul4.1 โŠข ( ๐ฟ ๐‘€ ๐‘ + ๐‘‚ ) = ๐‘… ๐‘† ๐‘‡ ๐‘ˆ
dpmul4.2 โŠข ( ( ๐ด . ๐ต ) ยท ( ๐ธ . ๐น ) ) = ( ๐ผ . ๐ฝ ๐พ )
dpmul4.3 โŠข ( ( ๐ถ . ๐ท ) ยท ( ๐บ . ๐ป ) ) = ( ๐‘‚ . ๐‘ƒ ๐‘„ )
dpmul4.4 โŠข ( ๐ผ ๐ฝ ๐พ 1 + ๐‘… ๐‘† ๐‘‡ ) = ๐‘Š ๐‘‹ ๐‘Œ ๐‘
dpmul4.5 โŠข ( ( ( ๐ด . ๐ต ) + ( ๐ถ . ๐ท ) ) ยท ( ( ๐ธ . ๐น ) + ( ๐บ . ๐ป ) ) ) = ( ( ( ๐ผ . ๐ฝ ๐พ ) + ( ๐ฟ . ๐‘€ ๐‘ ) ) + ( ๐‘‚ . ๐‘ƒ ๐‘„ ) )
Assertion dpmul4 ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท ( ๐ธ . ๐น ๐บ ๐ป ) ) < ( ๐‘Š . ๐‘‹ ๐‘Œ ๐‘ )

Proof

Step Hyp Ref Expression
1 dpmul.a โŠข ๐ด โˆˆ โ„•0
2 dpmul.b โŠข ๐ต โˆˆ โ„•0
3 dpmul.c โŠข ๐ถ โˆˆ โ„•0
4 dpmul.d โŠข ๐ท โˆˆ โ„•0
5 dpmul.e โŠข ๐ธ โˆˆ โ„•0
6 dpmul.g โŠข ๐บ โˆˆ โ„•0
7 dpmul.j โŠข ๐ฝ โˆˆ โ„•0
8 dpmul.k โŠข ๐พ โˆˆ โ„•0
9 dpmul4.f โŠข ๐น โˆˆ โ„•0
10 dpmul4.h โŠข ๐ป โˆˆ โ„•0
11 dpmul4.i โŠข ๐ผ โˆˆ โ„•0
12 dpmul4.l โŠข ๐ฟ โˆˆ โ„•0
13 dpmul4.m โŠข ๐‘€ โˆˆ โ„•0
14 dpmul4.n โŠข ๐‘ โˆˆ โ„•0
15 dpmul4.o โŠข ๐‘‚ โˆˆ โ„•0
16 dpmul4.p โŠข ๐‘ƒ โˆˆ โ„•0
17 dpmul4.q โŠข ๐‘„ โˆˆ โ„•0
18 dpmul4.r โŠข ๐‘… โˆˆ โ„•0
19 dpmul4.s โŠข ๐‘† โˆˆ โ„•0
20 dpmul4.t โŠข ๐‘‡ โˆˆ โ„•0
21 dpmul4.u โŠข ๐‘ˆ โˆˆ โ„•0
22 dpmul4.w โŠข ๐‘Š โˆˆ โ„•0
23 dpmul4.x โŠข ๐‘‹ โˆˆ โ„•0
24 dpmul4.y โŠข ๐‘Œ โˆˆ โ„•0
25 dpmul4.z โŠข ๐‘ โˆˆ โ„•0
26 dpmul4.a โŠข ๐‘ˆ < 1 0
27 dpmul4.b โŠข ๐‘ƒ < 1 0
28 dpmul4.c โŠข ๐‘„ < 1 0
29 dpmul4.1 โŠข ( ๐ฟ ๐‘€ ๐‘ + ๐‘‚ ) = ๐‘… ๐‘† ๐‘‡ ๐‘ˆ
30 dpmul4.2 โŠข ( ( ๐ด . ๐ต ) ยท ( ๐ธ . ๐น ) ) = ( ๐ผ . ๐ฝ ๐พ )
31 dpmul4.3 โŠข ( ( ๐ถ . ๐ท ) ยท ( ๐บ . ๐ป ) ) = ( ๐‘‚ . ๐‘ƒ ๐‘„ )
32 dpmul4.4 โŠข ( ๐ผ ๐ฝ ๐พ 1 + ๐‘… ๐‘† ๐‘‡ ) = ๐‘Š ๐‘‹ ๐‘Œ ๐‘
33 dpmul4.5 โŠข ( ( ( ๐ด . ๐ต ) + ( ๐ถ . ๐ท ) ) ยท ( ( ๐ธ . ๐น ) + ( ๐บ . ๐ป ) ) ) = ( ( ( ๐ผ . ๐ฝ ๐พ ) + ( ๐ฟ . ๐‘€ ๐‘ ) ) + ( ๐‘‚ . ๐‘ƒ ๐‘„ ) )
34 1 2 deccl โŠข ๐ด ๐ต โˆˆ โ„•0
35 3 4 deccl โŠข ๐ถ ๐ท โˆˆ โ„•0
36 5 9 deccl โŠข ๐ธ ๐น โˆˆ โ„•0
37 6 10 deccl โŠข ๐บ ๐ป โˆˆ โ„•0
38 12 13 deccl โŠข ๐ฟ ๐‘€ โˆˆ โ„•0
39 38 14 deccl โŠข ๐ฟ ๐‘€ ๐‘ โˆˆ โ„•0
40 2nn0 โŠข 2 โˆˆ โ„•0
41 2 nn0rei โŠข ๐ต โˆˆ โ„
42 dpcl โŠข ( ( ๐ด โˆˆ โ„•0 โˆง ๐ต โˆˆ โ„ ) โ†’ ( ๐ด . ๐ต ) โˆˆ โ„ )
43 1 41 42 mp2an โŠข ( ๐ด . ๐ต ) โˆˆ โ„
44 43 recni โŠข ( ๐ด . ๐ต ) โˆˆ โ„‚
45 10nn โŠข 1 0 โˆˆ โ„•
46 45 nncni โŠข 1 0 โˆˆ โ„‚
47 9 nn0rei โŠข ๐น โˆˆ โ„
48 dpcl โŠข ( ( ๐ธ โˆˆ โ„•0 โˆง ๐น โˆˆ โ„ ) โ†’ ( ๐ธ . ๐น ) โˆˆ โ„ )
49 5 47 48 mp2an โŠข ( ๐ธ . ๐น ) โˆˆ โ„
50 49 recni โŠข ( ๐ธ . ๐น ) โˆˆ โ„‚
51 44 46 50 46 mul4i โŠข ( ( ( ๐ด . ๐ต ) ยท 1 0 ) ยท ( ( ๐ธ . ๐น ) ยท 1 0 ) ) = ( ( ( ๐ด . ๐ต ) ยท ( ๐ธ . ๐น ) ) ยท ( 1 0 ยท 1 0 ) )
52 44 50 mulcli โŠข ( ( ๐ด . ๐ต ) ยท ( ๐ธ . ๐น ) ) โˆˆ โ„‚
53 52 46 46 mulassi โŠข ( ( ( ( ๐ด . ๐ต ) ยท ( ๐ธ . ๐น ) ) ยท 1 0 ) ยท 1 0 ) = ( ( ( ๐ด . ๐ต ) ยท ( ๐ธ . ๐น ) ) ยท ( 1 0 ยท 1 0 ) )
54 30 oveq1i โŠข ( ( ( ๐ด . ๐ต ) ยท ( ๐ธ . ๐น ) ) ยท 1 0 ) = ( ( ๐ผ . ๐ฝ ๐พ ) ยท 1 0 )
55 8 nn0rei โŠข ๐พ โˆˆ โ„
56 11 7 55 dp3mul10 โŠข ( ( ๐ผ . ๐ฝ ๐พ ) ยท 1 0 ) = ( ๐ผ ๐ฝ . ๐พ )
57 54 56 eqtri โŠข ( ( ( ๐ด . ๐ต ) ยท ( ๐ธ . ๐น ) ) ยท 1 0 ) = ( ๐ผ ๐ฝ . ๐พ )
58 57 oveq1i โŠข ( ( ( ( ๐ด . ๐ต ) ยท ( ๐ธ . ๐น ) ) ยท 1 0 ) ยท 1 0 ) = ( ( ๐ผ ๐ฝ . ๐พ ) ยท 1 0 )
59 51 53 58 3eqtr2ri โŠข ( ( ๐ผ ๐ฝ . ๐พ ) ยท 1 0 ) = ( ( ( ๐ด . ๐ต ) ยท 1 0 ) ยท ( ( ๐ธ . ๐น ) ยท 1 0 ) )
60 11 7 deccl โŠข ๐ผ ๐ฝ โˆˆ โ„•0
61 60 55 dpmul10 โŠข ( ( ๐ผ ๐ฝ . ๐พ ) ยท 1 0 ) = ๐ผ ๐ฝ ๐พ
62 1 41 dpmul10 โŠข ( ( ๐ด . ๐ต ) ยท 1 0 ) = ๐ด ๐ต
63 5 47 dpmul10 โŠข ( ( ๐ธ . ๐น ) ยท 1 0 ) = ๐ธ ๐น
64 62 63 oveq12i โŠข ( ( ( ๐ด . ๐ต ) ยท 1 0 ) ยท ( ( ๐ธ . ๐น ) ยท 1 0 ) ) = ( ๐ด ๐ต ยท ๐ธ ๐น )
65 59 61 64 3eqtr3ri โŠข ( ๐ด ๐ต ยท ๐ธ ๐น ) = ๐ผ ๐ฝ ๐พ
66 4 nn0rei โŠข ๐ท โˆˆ โ„
67 dpcl โŠข ( ( ๐ถ โˆˆ โ„•0 โˆง ๐ท โˆˆ โ„ ) โ†’ ( ๐ถ . ๐ท ) โˆˆ โ„ )
68 3 66 67 mp2an โŠข ( ๐ถ . ๐ท ) โˆˆ โ„
69 68 recni โŠข ( ๐ถ . ๐ท ) โˆˆ โ„‚
70 10 nn0rei โŠข ๐ป โˆˆ โ„
71 dpcl โŠข ( ( ๐บ โˆˆ โ„•0 โˆง ๐ป โˆˆ โ„ ) โ†’ ( ๐บ . ๐ป ) โˆˆ โ„ )
72 6 70 71 mp2an โŠข ( ๐บ . ๐ป ) โˆˆ โ„
73 72 recni โŠข ( ๐บ . ๐ป ) โˆˆ โ„‚
74 69 46 73 46 mul4i โŠข ( ( ( ๐ถ . ๐ท ) ยท 1 0 ) ยท ( ( ๐บ . ๐ป ) ยท 1 0 ) ) = ( ( ( ๐ถ . ๐ท ) ยท ( ๐บ . ๐ป ) ) ยท ( 1 0 ยท 1 0 ) )
75 69 73 mulcli โŠข ( ( ๐ถ . ๐ท ) ยท ( ๐บ . ๐ป ) ) โˆˆ โ„‚
76 75 46 46 mulassi โŠข ( ( ( ( ๐ถ . ๐ท ) ยท ( ๐บ . ๐ป ) ) ยท 1 0 ) ยท 1 0 ) = ( ( ( ๐ถ . ๐ท ) ยท ( ๐บ . ๐ป ) ) ยท ( 1 0 ยท 1 0 ) )
77 31 oveq1i โŠข ( ( ( ๐ถ . ๐ท ) ยท ( ๐บ . ๐ป ) ) ยท 1 0 ) = ( ( ๐‘‚ . ๐‘ƒ ๐‘„ ) ยท 1 0 )
78 17 nn0rei โŠข ๐‘„ โˆˆ โ„
79 15 16 78 dp3mul10 โŠข ( ( ๐‘‚ . ๐‘ƒ ๐‘„ ) ยท 1 0 ) = ( ๐‘‚ ๐‘ƒ . ๐‘„ )
80 77 79 eqtri โŠข ( ( ( ๐ถ . ๐ท ) ยท ( ๐บ . ๐ป ) ) ยท 1 0 ) = ( ๐‘‚ ๐‘ƒ . ๐‘„ )
81 80 oveq1i โŠข ( ( ( ( ๐ถ . ๐ท ) ยท ( ๐บ . ๐ป ) ) ยท 1 0 ) ยท 1 0 ) = ( ( ๐‘‚ ๐‘ƒ . ๐‘„ ) ยท 1 0 )
82 74 76 81 3eqtr2ri โŠข ( ( ๐‘‚ ๐‘ƒ . ๐‘„ ) ยท 1 0 ) = ( ( ( ๐ถ . ๐ท ) ยท 1 0 ) ยท ( ( ๐บ . ๐ป ) ยท 1 0 ) )
83 15 16 deccl โŠข ๐‘‚ ๐‘ƒ โˆˆ โ„•0
84 83 78 dpmul10 โŠข ( ( ๐‘‚ ๐‘ƒ . ๐‘„ ) ยท 1 0 ) = ๐‘‚ ๐‘ƒ ๐‘„
85 3 66 dpmul10 โŠข ( ( ๐ถ . ๐ท ) ยท 1 0 ) = ๐ถ ๐ท
86 6 70 dpmul10 โŠข ( ( ๐บ . ๐ป ) ยท 1 0 ) = ๐บ ๐ป
87 85 86 oveq12i โŠข ( ( ( ๐ถ . ๐ท ) ยท 1 0 ) ยท ( ( ๐บ . ๐ป ) ยท 1 0 ) ) = ( ๐ถ ๐ท ยท ๐บ ๐ป )
88 82 84 87 3eqtr3ri โŠข ( ๐ถ ๐ท ยท ๐บ ๐ป ) = ๐‘‚ ๐‘ƒ ๐‘„
89 44 69 46 adddiri โŠข ( ( ( ๐ด . ๐ต ) + ( ๐ถ . ๐ท ) ) ยท 1 0 ) = ( ( ( ๐ด . ๐ต ) ยท 1 0 ) + ( ( ๐ถ . ๐ท ) ยท 1 0 ) )
90 62 85 oveq12i โŠข ( ( ( ๐ด . ๐ต ) ยท 1 0 ) + ( ( ๐ถ . ๐ท ) ยท 1 0 ) ) = ( ๐ด ๐ต + ๐ถ ๐ท )
91 89 90 eqtr2i โŠข ( ๐ด ๐ต + ๐ถ ๐ท ) = ( ( ( ๐ด . ๐ต ) + ( ๐ถ . ๐ท ) ) ยท 1 0 )
92 50 73 46 adddiri โŠข ( ( ( ๐ธ . ๐น ) + ( ๐บ . ๐ป ) ) ยท 1 0 ) = ( ( ( ๐ธ . ๐น ) ยท 1 0 ) + ( ( ๐บ . ๐ป ) ยท 1 0 ) )
93 63 86 oveq12i โŠข ( ( ( ๐ธ . ๐น ) ยท 1 0 ) + ( ( ๐บ . ๐ป ) ยท 1 0 ) ) = ( ๐ธ ๐น + ๐บ ๐ป )
94 92 93 eqtr2i โŠข ( ๐ธ ๐น + ๐บ ๐ป ) = ( ( ( ๐ธ . ๐น ) + ( ๐บ . ๐ป ) ) ยท 1 0 )
95 91 94 oveq12i โŠข ( ( ๐ด ๐ต + ๐ถ ๐ท ) ยท ( ๐ธ ๐น + ๐บ ๐ป ) ) = ( ( ( ( ๐ด . ๐ต ) + ( ๐ถ . ๐ท ) ) ยท 1 0 ) ยท ( ( ( ๐ธ . ๐น ) + ( ๐บ . ๐ป ) ) ยท 1 0 ) )
96 44 69 addcli โŠข ( ( ๐ด . ๐ต ) + ( ๐ถ . ๐ท ) ) โˆˆ โ„‚
97 50 73 addcli โŠข ( ( ๐ธ . ๐น ) + ( ๐บ . ๐ป ) ) โˆˆ โ„‚
98 96 46 97 46 mul4i โŠข ( ( ( ( ๐ด . ๐ต ) + ( ๐ถ . ๐ท ) ) ยท 1 0 ) ยท ( ( ( ๐ธ . ๐น ) + ( ๐บ . ๐ป ) ) ยท 1 0 ) ) = ( ( ( ( ๐ด . ๐ต ) + ( ๐ถ . ๐ท ) ) ยท ( ( ๐ธ . ๐น ) + ( ๐บ . ๐ป ) ) ) ยท ( 1 0 ยท 1 0 ) )
99 33 oveq1i โŠข ( ( ( ( ๐ด . ๐ต ) + ( ๐ถ . ๐ท ) ) ยท ( ( ๐ธ . ๐น ) + ( ๐บ . ๐ป ) ) ) ยท ( 1 0 ยท 1 0 ) ) = ( ( ( ( ๐ผ . ๐ฝ ๐พ ) + ( ๐ฟ . ๐‘€ ๐‘ ) ) + ( ๐‘‚ . ๐‘ƒ ๐‘„ ) ) ยท ( 1 0 ยท 1 0 ) )
100 95 98 99 3eqtri โŠข ( ( ๐ด ๐ต + ๐ถ ๐ท ) ยท ( ๐ธ ๐น + ๐บ ๐ป ) ) = ( ( ( ( ๐ผ . ๐ฝ ๐พ ) + ( ๐ฟ . ๐‘€ ๐‘ ) ) + ( ๐‘‚ . ๐‘ƒ ๐‘„ ) ) ยท ( 1 0 ยท 1 0 ) )
101 10nn0 โŠข 1 0 โˆˆ โ„•0
102 101 dec0u โŠข ( 1 0 ยท 1 0 ) = 1 0 0
103 102 oveq2i โŠข ( ( ( ( ๐ผ . ๐ฝ ๐พ ) + ( ๐ฟ . ๐‘€ ๐‘ ) ) + ( ๐‘‚ . ๐‘ƒ ๐‘„ ) ) ยท ( 1 0 ยท 1 0 ) ) = ( ( ( ( ๐ผ . ๐ฝ ๐พ ) + ( ๐ฟ . ๐‘€ ๐‘ ) ) + ( ๐‘‚ . ๐‘ƒ ๐‘„ ) ) ยท 1 0 0 )
104 30 52 eqeltrri โŠข ( ๐ผ . ๐ฝ ๐พ ) โˆˆ โ„‚
105 13 nn0rei โŠข ๐‘€ โˆˆ โ„
106 14 nn0rei โŠข ๐‘ โˆˆ โ„
107 dp2cl โŠข ( ( ๐‘€ โˆˆ โ„ โˆง ๐‘ โˆˆ โ„ ) โ†’ ๐‘€ ๐‘ โˆˆ โ„ )
108 105 106 107 mp2an โŠข ๐‘€ ๐‘ โˆˆ โ„
109 dpcl โŠข ( ( ๐ฟ โˆˆ โ„•0 โˆง ๐‘€ ๐‘ โˆˆ โ„ ) โ†’ ( ๐ฟ . ๐‘€ ๐‘ ) โˆˆ โ„ )
110 12 108 109 mp2an โŠข ( ๐ฟ . ๐‘€ ๐‘ ) โˆˆ โ„
111 110 recni โŠข ( ๐ฟ . ๐‘€ ๐‘ ) โˆˆ โ„‚
112 104 111 addcli โŠข ( ( ๐ผ . ๐ฝ ๐พ ) + ( ๐ฟ . ๐‘€ ๐‘ ) ) โˆˆ โ„‚
113 31 75 eqeltrri โŠข ( ๐‘‚ . ๐‘ƒ ๐‘„ ) โˆˆ โ„‚
114 0nn0 โŠข 0 โˆˆ โ„•0
115 101 114 deccl โŠข 1 0 0 โˆˆ โ„•0
116 115 nn0cni โŠข 1 0 0 โˆˆ โ„‚
117 112 113 116 adddiri โŠข ( ( ( ( ๐ผ . ๐ฝ ๐พ ) + ( ๐ฟ . ๐‘€ ๐‘ ) ) + ( ๐‘‚ . ๐‘ƒ ๐‘„ ) ) ยท 1 0 0 ) = ( ( ( ( ๐ผ . ๐ฝ ๐พ ) + ( ๐ฟ . ๐‘€ ๐‘ ) ) ยท 1 0 0 ) + ( ( ๐‘‚ . ๐‘ƒ ๐‘„ ) ยท 1 0 0 ) )
118 104 111 116 adddiri โŠข ( ( ( ๐ผ . ๐ฝ ๐พ ) + ( ๐ฟ . ๐‘€ ๐‘ ) ) ยท 1 0 0 ) = ( ( ( ๐ผ . ๐ฝ ๐พ ) ยท 1 0 0 ) + ( ( ๐ฟ . ๐‘€ ๐‘ ) ยท 1 0 0 ) )
119 118 oveq1i โŠข ( ( ( ( ๐ผ . ๐ฝ ๐พ ) + ( ๐ฟ . ๐‘€ ๐‘ ) ) ยท 1 0 0 ) + ( ( ๐‘‚ . ๐‘ƒ ๐‘„ ) ยท 1 0 0 ) ) = ( ( ( ( ๐ผ . ๐ฝ ๐พ ) ยท 1 0 0 ) + ( ( ๐ฟ . ๐‘€ ๐‘ ) ยท 1 0 0 ) ) + ( ( ๐‘‚ . ๐‘ƒ ๐‘„ ) ยท 1 0 0 ) )
120 11 7 55 dpmul100 โŠข ( ( ๐ผ . ๐ฝ ๐พ ) ยท 1 0 0 ) = ๐ผ ๐ฝ ๐พ
121 12 13 106 dpmul100 โŠข ( ( ๐ฟ . ๐‘€ ๐‘ ) ยท 1 0 0 ) = ๐ฟ ๐‘€ ๐‘
122 120 121 oveq12i โŠข ( ( ( ๐ผ . ๐ฝ ๐พ ) ยท 1 0 0 ) + ( ( ๐ฟ . ๐‘€ ๐‘ ) ยท 1 0 0 ) ) = ( ๐ผ ๐ฝ ๐พ + ๐ฟ ๐‘€ ๐‘ )
123 15 16 78 dpmul100 โŠข ( ( ๐‘‚ . ๐‘ƒ ๐‘„ ) ยท 1 0 0 ) = ๐‘‚ ๐‘ƒ ๐‘„
124 122 123 oveq12i โŠข ( ( ( ( ๐ผ . ๐ฝ ๐พ ) ยท 1 0 0 ) + ( ( ๐ฟ . ๐‘€ ๐‘ ) ยท 1 0 0 ) ) + ( ( ๐‘‚ . ๐‘ƒ ๐‘„ ) ยท 1 0 0 ) ) = ( ( ๐ผ ๐ฝ ๐พ + ๐ฟ ๐‘€ ๐‘ ) + ๐‘‚ ๐‘ƒ ๐‘„ )
125 117 119 124 3eqtri โŠข ( ( ( ( ๐ผ . ๐ฝ ๐พ ) + ( ๐ฟ . ๐‘€ ๐‘ ) ) + ( ๐‘‚ . ๐‘ƒ ๐‘„ ) ) ยท 1 0 0 ) = ( ( ๐ผ ๐ฝ ๐พ + ๐ฟ ๐‘€ ๐‘ ) + ๐‘‚ ๐‘ƒ ๐‘„ )
126 100 103 125 3eqtri โŠข ( ( ๐ด ๐ต + ๐ถ ๐ท ) ยท ( ๐ธ ๐น + ๐บ ๐ป ) ) = ( ( ๐ผ ๐ฝ ๐พ + ๐ฟ ๐‘€ ๐‘ ) + ๐‘‚ ๐‘ƒ ๐‘„ )
127 sq10 โŠข ( 1 0 โ†‘ 2 ) = 1 0 0
128 127 oveq2i โŠข ( ๐ด ๐ต ยท ( 1 0 โ†‘ 2 ) ) = ( ๐ด ๐ต ยท 1 0 0 )
129 34 nn0cni โŠข ๐ด ๐ต โˆˆ โ„‚
130 116 129 mulcomi โŠข ( 1 0 0 ยท ๐ด ๐ต ) = ( ๐ด ๐ต ยท 1 0 0 )
131 128 130 eqtr4i โŠข ( ๐ด ๐ต ยท ( 1 0 โ†‘ 2 ) ) = ( 1 0 0 ยท ๐ด ๐ต )
132 131 oveq1i โŠข ( ( ๐ด ๐ต ยท ( 1 0 โ†‘ 2 ) ) + ๐ถ ๐ท ) = ( ( 1 0 0 ยท ๐ด ๐ต ) + ๐ถ ๐ท )
133 34 3 66 dfdec100 โŠข ๐ด ๐ต ๐ถ ๐ท = ( ( 1 0 0 ยท ๐ด ๐ต ) + ๐ถ ๐ท )
134 132 133 eqtr4i โŠข ( ( ๐ด ๐ต ยท ( 1 0 โ†‘ 2 ) ) + ๐ถ ๐ท ) = ๐ด ๐ต ๐ถ ๐ท
135 127 oveq2i โŠข ( ๐ธ ๐น ยท ( 1 0 โ†‘ 2 ) ) = ( ๐ธ ๐น ยท 1 0 0 )
136 36 nn0cni โŠข ๐ธ ๐น โˆˆ โ„‚
137 116 136 mulcomi โŠข ( 1 0 0 ยท ๐ธ ๐น ) = ( ๐ธ ๐น ยท 1 0 0 )
138 135 137 eqtr4i โŠข ( ๐ธ ๐น ยท ( 1 0 โ†‘ 2 ) ) = ( 1 0 0 ยท ๐ธ ๐น )
139 138 oveq1i โŠข ( ( ๐ธ ๐น ยท ( 1 0 โ†‘ 2 ) ) + ๐บ ๐ป ) = ( ( 1 0 0 ยท ๐ธ ๐น ) + ๐บ ๐ป )
140 36 6 70 dfdec100 โŠข ๐ธ ๐น ๐บ ๐ป = ( ( 1 0 0 ยท ๐ธ ๐น ) + ๐บ ๐ป )
141 139 140 eqtr4i โŠข ( ( ๐ธ ๐น ยท ( 1 0 โ†‘ 2 ) ) + ๐บ ๐ป ) = ๐ธ ๐น ๐บ ๐ป
142 46 sqvali โŠข ( 1 0 โ†‘ 2 ) = ( 1 0 ยท 1 0 )
143 142 oveq2i โŠข ( ๐ผ ๐ฝ ๐พ ยท ( 1 0 โ†‘ 2 ) ) = ( ๐ผ ๐ฝ ๐พ ยท ( 1 0 ยท 1 0 ) )
144 60 8 deccl โŠข ๐ผ ๐ฝ ๐พ โˆˆ โ„•0
145 144 nn0cni โŠข ๐ผ ๐ฝ ๐พ โˆˆ โ„‚
146 145 46 46 mulassi โŠข ( ( ๐ผ ๐ฝ ๐พ ยท 1 0 ) ยท 1 0 ) = ( ๐ผ ๐ฝ ๐พ ยท ( 1 0 ยท 1 0 ) )
147 143 146 eqtr4i โŠข ( ๐ผ ๐ฝ ๐พ ยท ( 1 0 โ†‘ 2 ) ) = ( ( ๐ผ ๐ฝ ๐พ ยท 1 0 ) ยท 1 0 )
148 18 19 deccl โŠข ๐‘… ๐‘† โˆˆ โ„•0
149 148 20 deccl โŠข ๐‘… ๐‘† ๐‘‡ โˆˆ โ„•0
150 149 nn0cni โŠข ๐‘… ๐‘† ๐‘‡ โˆˆ โ„‚
151 ax-1cn โŠข 1 โˆˆ โ„‚
152 150 151 addcli โŠข ( ๐‘… ๐‘† ๐‘‡ + 1 ) โˆˆ โ„‚
153 145 46 mulcli โŠข ( ๐ผ ๐ฝ ๐พ ยท 1 0 ) โˆˆ โ„‚
154 151 153 addcomi โŠข ( 1 + ( ๐ผ ๐ฝ ๐พ ยท 1 0 ) ) = ( ( ๐ผ ๐ฝ ๐พ ยท 1 0 ) + 1 )
155 46 145 mulcomi โŠข ( 1 0 ยท ๐ผ ๐ฝ ๐พ ) = ( ๐ผ ๐ฝ ๐พ ยท 1 0 )
156 144 dec0u โŠข ( 1 0 ยท ๐ผ ๐ฝ ๐พ ) = ๐ผ ๐ฝ ๐พ 0
157 155 156 eqtr3i โŠข ( ๐ผ ๐ฝ ๐พ ยท 1 0 ) = ๐ผ ๐ฝ ๐พ 0
158 157 oveq1i โŠข ( ( ๐ผ ๐ฝ ๐พ ยท 1 0 ) + 1 ) = ( ๐ผ ๐ฝ ๐พ 0 + 1 )
159 151 addlidi โŠข ( 0 + 1 ) = 1
160 eqid โŠข ๐ผ ๐ฝ ๐พ 0 = ๐ผ ๐ฝ ๐พ 0
161 144 114 159 160 decsuc โŠข ( ๐ผ ๐ฝ ๐พ 0 + 1 ) = ๐ผ ๐ฝ ๐พ 1
162 154 158 161 3eqtri โŠข ( 1 + ( ๐ผ ๐ฝ ๐พ ยท 1 0 ) ) = ๐ผ ๐ฝ ๐พ 1
163 162 oveq2i โŠข ( ๐‘… ๐‘† ๐‘‡ + ( 1 + ( ๐ผ ๐ฝ ๐พ ยท 1 0 ) ) ) = ( ๐‘… ๐‘† ๐‘‡ + ๐ผ ๐ฝ ๐พ 1 )
164 150 151 153 addassi โŠข ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) + ( ๐ผ ๐ฝ ๐พ ยท 1 0 ) ) = ( ๐‘… ๐‘† ๐‘‡ + ( 1 + ( ๐ผ ๐ฝ ๐พ ยท 1 0 ) ) )
165 1nn0 โŠข 1 โˆˆ โ„•0
166 144 165 deccl โŠข ๐ผ ๐ฝ ๐พ 1 โˆˆ โ„•0
167 166 nn0cni โŠข ๐ผ ๐ฝ ๐พ 1 โˆˆ โ„‚
168 167 150 addcomi โŠข ( ๐ผ ๐ฝ ๐พ 1 + ๐‘… ๐‘† ๐‘‡ ) = ( ๐‘… ๐‘† ๐‘‡ + ๐ผ ๐ฝ ๐พ 1 )
169 163 164 168 3eqtr4i โŠข ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) + ( ๐ผ ๐ฝ ๐พ ยท 1 0 ) ) = ( ๐ผ ๐ฝ ๐พ 1 + ๐‘… ๐‘† ๐‘‡ )
170 169 32 eqtri โŠข ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) + ( ๐ผ ๐ฝ ๐พ ยท 1 0 ) ) = ๐‘Š ๐‘‹ ๐‘Œ ๐‘
171 152 153 170 mvlladdi โŠข ( ๐ผ ๐ฝ ๐พ ยท 1 0 ) = ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) )
172 171 oveq1i โŠข ( ( ๐ผ ๐ฝ ๐พ ยท 1 0 ) ยท 1 0 ) = ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท 1 0 )
173 147 172 eqtri โŠข ( ๐ผ ๐ฝ ๐พ ยท ( 1 0 โ†‘ 2 ) ) = ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท 1 0 )
174 173 oveq1i โŠข ( ( ๐ผ ๐ฝ ๐พ ยท ( 1 0 โ†‘ 2 ) ) + ๐ฟ ๐‘€ ๐‘ ) = ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท 1 0 ) + ๐ฟ ๐‘€ ๐‘ )
175 eqid โŠข ( ( ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท 1 0 ) + ๐ฟ ๐‘€ ๐‘ ) ยท ( 1 0 โ†‘ 2 ) ) + ๐‘‚ ๐‘ƒ ๐‘„ ) = ( ( ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท 1 0 ) + ๐ฟ ๐‘€ ๐‘ ) ยท ( 1 0 โ†‘ 2 ) ) + ๐‘‚ ๐‘ƒ ๐‘„ )
176 34 35 36 37 39 40 65 88 126 134 141 174 175 karatsuba โŠข ( ๐ด ๐ต ๐ถ ๐ท ยท ๐ธ ๐น ๐บ ๐ป ) = ( ( ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท 1 0 ) + ๐ฟ ๐‘€ ๐‘ ) ยท ( 1 0 โ†‘ 2 ) ) + ๐‘‚ ๐‘ƒ ๐‘„ )
177 22 23 deccl โŠข ๐‘Š ๐‘‹ โˆˆ โ„•0
178 177 24 deccl โŠข ๐‘Š ๐‘‹ ๐‘Œ โˆˆ โ„•0
179 178 25 deccl โŠข ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆˆ โ„•0
180 179 nn0cni โŠข ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆˆ โ„‚
181 115 114 deccl โŠข 1 0 0 0 โˆˆ โ„•0
182 181 nn0cni โŠข 1 0 0 0 โˆˆ โ„‚
183 180 182 mulcli โŠข ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆˆ โ„‚
184 152 182 mulcli โŠข ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) โˆˆ โ„‚
185 183 184 subcli โŠข ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆ’ ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) ) โˆˆ โ„‚
186 39 nn0cni โŠข ๐ฟ ๐‘€ ๐‘ โˆˆ โ„‚
187 116 186 mulcli โŠข ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) โˆˆ โ„‚
188 15 16 78 dfdec100 โŠข ๐‘‚ ๐‘ƒ ๐‘„ = ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ )
189 83 17 deccl โŠข ๐‘‚ ๐‘ƒ ๐‘„ โˆˆ โ„•0
190 189 nn0cni โŠข ๐‘‚ ๐‘ƒ ๐‘„ โˆˆ โ„‚
191 188 190 eqeltrri โŠข ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) โˆˆ โ„‚
192 185 187 191 addassi โŠข ( ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆ’ ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) ) + ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) = ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆ’ ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) ) + ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) )
193 46 sqcli โŠข ( 1 0 โ†‘ 2 ) โˆˆ โ„‚
194 145 193 mulcli โŠข ( ๐ผ ๐ฝ ๐พ ยท ( 1 0 โ†‘ 2 ) ) โˆˆ โ„‚
195 173 194 eqeltrri โŠข ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท 1 0 ) โˆˆ โ„‚
196 195 186 116 adddiri โŠข ( ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท 1 0 ) + ๐ฟ ๐‘€ ๐‘ ) ยท 1 0 0 ) = ( ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท 1 0 ) ยท 1 0 0 ) + ( ๐ฟ ๐‘€ ๐‘ ยท 1 0 0 ) )
197 127 oveq2i โŠข ( ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท 1 0 ) + ๐ฟ ๐‘€ ๐‘ ) ยท ( 1 0 โ†‘ 2 ) ) = ( ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท 1 0 ) + ๐ฟ ๐‘€ ๐‘ ) ยท 1 0 0 )
198 180 152 subcli โŠข ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) โˆˆ โ„‚
199 198 46 116 mulassi โŠข ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท 1 0 ) ยท 1 0 0 ) = ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท ( 1 0 ยท 1 0 0 ) )
200 115 dec0u โŠข ( 1 0 ยท 1 0 0 ) = 1 0 0 0
201 200 oveq2i โŠข ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท ( 1 0 ยท 1 0 0 ) ) = ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท 1 0 0 0 )
202 180 152 182 subdiri โŠข ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท 1 0 0 0 ) = ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆ’ ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) )
203 199 201 202 3eqtrri โŠข ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆ’ ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) ) = ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท 1 0 ) ยท 1 0 0 )
204 116 186 mulcomi โŠข ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) = ( ๐ฟ ๐‘€ ๐‘ ยท 1 0 0 )
205 203 204 oveq12i โŠข ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆ’ ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) ) + ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) ) = ( ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท 1 0 ) ยท 1 0 0 ) + ( ๐ฟ ๐‘€ ๐‘ ยท 1 0 0 ) )
206 196 197 205 3eqtr4i โŠข ( ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท 1 0 ) + ๐ฟ ๐‘€ ๐‘ ) ยท ( 1 0 โ†‘ 2 ) ) = ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆ’ ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) ) + ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) )
207 206 188 oveq12i โŠข ( ( ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท 1 0 ) + ๐ฟ ๐‘€ ๐‘ ) ยท ( 1 0 โ†‘ 2 ) ) + ๐‘‚ ๐‘ƒ ๐‘„ ) = ( ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆ’ ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) ) + ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) )
208 187 191 addcli โŠข ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) โˆˆ โ„‚
209 subsub โŠข ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆˆ โ„‚ โˆง ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) โˆˆ โ„‚ โˆง ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) โˆˆ โ„‚ ) โ†’ ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆ’ ( ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) โˆ’ ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) ) ) = ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆ’ ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) ) + ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) ) )
210 183 184 208 209 mp3an โŠข ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆ’ ( ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) โˆ’ ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) ) ) = ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆ’ ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) ) + ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) )
211 192 207 210 3eqtr4ri โŠข ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆ’ ( ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) โˆ’ ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) ) ) = ( ( ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆ’ ( ๐‘… ๐‘† ๐‘‡ + 1 ) ) ยท 1 0 ) + ๐ฟ ๐‘€ ๐‘ ) ยท ( 1 0 โ†‘ 2 ) ) + ๐‘‚ ๐‘ƒ ๐‘„ )
212 176 211 eqtr4i โŠข ( ๐ด ๐ต ๐ถ ๐ท ยท ๐ธ ๐น ๐บ ๐ป ) = ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆ’ ( ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) โˆ’ ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) ) )
213 179 nn0rei โŠข ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆˆ โ„
214 181 nn0rei โŠข 1 0 0 0 โˆˆ โ„
215 213 214 remulcli โŠข ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆˆ โ„
216 149 nn0rei โŠข ๐‘… ๐‘† ๐‘‡ โˆˆ โ„
217 1re โŠข 1 โˆˆ โ„
218 216 217 readdcli โŠข ( ๐‘… ๐‘† ๐‘‡ + 1 ) โˆˆ โ„
219 218 214 remulcli โŠข ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) โˆˆ โ„
220 115 nn0rei โŠข 1 0 0 โˆˆ โ„
221 39 nn0rei โŠข ๐ฟ ๐‘€ ๐‘ โˆˆ โ„
222 220 221 remulcli โŠข ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) โˆˆ โ„
223 15 nn0rei โŠข ๐‘‚ โˆˆ โ„
224 220 223 remulcli โŠข ( 1 0 0 ยท ๐‘‚ ) โˆˆ โ„
225 16 17 deccl โŠข ๐‘ƒ ๐‘„ โˆˆ โ„•0
226 225 nn0rei โŠข ๐‘ƒ ๐‘„ โˆˆ โ„
227 224 226 readdcli โŠข ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) โˆˆ โ„
228 222 227 readdcli โŠข ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) โˆˆ โ„
229 219 228 resubcli โŠข ( ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) โˆ’ ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) ) โˆˆ โ„
230 224 recni โŠข ( 1 0 0 ยท ๐‘‚ ) โˆˆ โ„‚
231 226 recni โŠข ๐‘ƒ ๐‘„ โˆˆ โ„‚
232 187 230 231 addassi โŠข ( ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( 1 0 0 ยท ๐‘‚ ) ) + ๐‘ƒ ๐‘„ ) = ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) )
233 223 recni โŠข ๐‘‚ โˆˆ โ„‚
234 116 186 233 adddii โŠข ( 1 0 0 ยท ( ๐ฟ ๐‘€ ๐‘ + ๐‘‚ ) ) = ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( 1 0 0 ยท ๐‘‚ ) )
235 29 oveq2i โŠข ( 1 0 0 ยท ( ๐ฟ ๐‘€ ๐‘ + ๐‘‚ ) ) = ( 1 0 0 ยท ๐‘… ๐‘† ๐‘‡ ๐‘ˆ )
236 234 235 eqtr3i โŠข ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( 1 0 0 ยท ๐‘‚ ) ) = ( 1 0 0 ยท ๐‘… ๐‘† ๐‘‡ ๐‘ˆ )
237 236 oveq1i โŠข ( ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( 1 0 0 ยท ๐‘‚ ) ) + ๐‘ƒ ๐‘„ ) = ( ( 1 0 0 ยท ๐‘… ๐‘† ๐‘‡ ๐‘ˆ ) + ๐‘ƒ ๐‘„ )
238 232 237 eqtr3i โŠข ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) = ( ( 1 0 0 ยท ๐‘… ๐‘† ๐‘‡ ๐‘ˆ ) + ๐‘ƒ ๐‘„ )
239 21 101 16 114 17 114 26 27 28 3decltc โŠข ๐‘ˆ ๐‘ƒ ๐‘„ < 1 0 0 0
240 21 16 deccl โŠข ๐‘ˆ ๐‘ƒ โˆˆ โ„•0
241 240 17 deccl โŠข ๐‘ˆ ๐‘ƒ ๐‘„ โˆˆ โ„•0
242 241 nn0rei โŠข ๐‘ˆ ๐‘ƒ ๐‘„ โˆˆ โ„
243 216 214 remulcli โŠข ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 ) โˆˆ โ„
244 242 214 243 ltadd2i โŠข ( ๐‘ˆ ๐‘ƒ ๐‘„ < 1 0 0 0 โ†” ( ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 ) + ๐‘ˆ ๐‘ƒ ๐‘„ ) < ( ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 ) + 1 0 0 0 ) )
245 239 244 mpbi โŠข ( ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 ) + ๐‘ˆ ๐‘ƒ ๐‘„ ) < ( ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 ) + 1 0 0 0 )
246 150 182 mulcli โŠข ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 ) โˆˆ โ„‚
247 21 nn0cni โŠข ๐‘ˆ โˆˆ โ„‚
248 116 247 mulcli โŠข ( 1 0 0 ยท ๐‘ˆ ) โˆˆ โ„‚
249 246 248 231 addassi โŠข ( ( ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 ) + ( 1 0 0 ยท ๐‘ˆ ) ) + ๐‘ƒ ๐‘„ ) = ( ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 ) + ( ( 1 0 0 ยท ๐‘ˆ ) + ๐‘ƒ ๐‘„ ) )
250 dfdec10 โŠข ๐‘… ๐‘† ๐‘‡ ๐‘ˆ = ( ( 1 0 ยท ๐‘… ๐‘† ๐‘‡ ) + ๐‘ˆ )
251 250 oveq2i โŠข ( 1 0 0 ยท ๐‘… ๐‘† ๐‘‡ ๐‘ˆ ) = ( 1 0 0 ยท ( ( 1 0 ยท ๐‘… ๐‘† ๐‘‡ ) + ๐‘ˆ ) )
252 46 150 mulcli โŠข ( 1 0 ยท ๐‘… ๐‘† ๐‘‡ ) โˆˆ โ„‚
253 116 252 247 adddii โŠข ( 1 0 0 ยท ( ( 1 0 ยท ๐‘… ๐‘† ๐‘‡ ) + ๐‘ˆ ) ) = ( ( 1 0 0 ยท ( 1 0 ยท ๐‘… ๐‘† ๐‘‡ ) ) + ( 1 0 0 ยท ๐‘ˆ ) )
254 150 182 mulcomi โŠข ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 ) = ( 1 0 0 0 ยท ๐‘… ๐‘† ๐‘‡ )
255 46 116 mulcomi โŠข ( 1 0 ยท 1 0 0 ) = ( 1 0 0 ยท 1 0 )
256 255 200 eqtr3i โŠข ( 1 0 0 ยท 1 0 ) = 1 0 0 0
257 256 oveq1i โŠข ( ( 1 0 0 ยท 1 0 ) ยท ๐‘… ๐‘† ๐‘‡ ) = ( 1 0 0 0 ยท ๐‘… ๐‘† ๐‘‡ )
258 116 46 150 mulassi โŠข ( ( 1 0 0 ยท 1 0 ) ยท ๐‘… ๐‘† ๐‘‡ ) = ( 1 0 0 ยท ( 1 0 ยท ๐‘… ๐‘† ๐‘‡ ) )
259 254 257 258 3eqtr2ri โŠข ( 1 0 0 ยท ( 1 0 ยท ๐‘… ๐‘† ๐‘‡ ) ) = ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 )
260 259 oveq1i โŠข ( ( 1 0 0 ยท ( 1 0 ยท ๐‘… ๐‘† ๐‘‡ ) ) + ( 1 0 0 ยท ๐‘ˆ ) ) = ( ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 ) + ( 1 0 0 ยท ๐‘ˆ ) )
261 251 253 260 3eqtri โŠข ( 1 0 0 ยท ๐‘… ๐‘† ๐‘‡ ๐‘ˆ ) = ( ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 ) + ( 1 0 0 ยท ๐‘ˆ ) )
262 261 oveq1i โŠข ( ( 1 0 0 ยท ๐‘… ๐‘† ๐‘‡ ๐‘ˆ ) + ๐‘ƒ ๐‘„ ) = ( ( ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 ) + ( 1 0 0 ยท ๐‘ˆ ) ) + ๐‘ƒ ๐‘„ )
263 21 16 78 dfdec100 โŠข ๐‘ˆ ๐‘ƒ ๐‘„ = ( ( 1 0 0 ยท ๐‘ˆ ) + ๐‘ƒ ๐‘„ )
264 263 oveq2i โŠข ( ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 ) + ๐‘ˆ ๐‘ƒ ๐‘„ ) = ( ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 ) + ( ( 1 0 0 ยท ๐‘ˆ ) + ๐‘ƒ ๐‘„ ) )
265 249 262 264 3eqtr4i โŠข ( ( 1 0 0 ยท ๐‘… ๐‘† ๐‘‡ ๐‘ˆ ) + ๐‘ƒ ๐‘„ ) = ( ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 ) + ๐‘ˆ ๐‘ƒ ๐‘„ )
266 150 151 182 adddiri โŠข ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) = ( ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 ) + ( 1 ยท 1 0 0 0 ) )
267 182 mullidi โŠข ( 1 ยท 1 0 0 0 ) = 1 0 0 0
268 267 oveq2i โŠข ( ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 ) + ( 1 ยท 1 0 0 0 ) ) = ( ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 ) + 1 0 0 0 )
269 266 268 eqtri โŠข ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) = ( ( ๐‘… ๐‘† ๐‘‡ ยท 1 0 0 0 ) + 1 0 0 0 )
270 245 265 269 3brtr4i โŠข ( ( 1 0 0 ยท ๐‘… ๐‘† ๐‘‡ ๐‘ˆ ) + ๐‘ƒ ๐‘„ ) < ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 )
271 238 270 eqbrtri โŠข ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) < ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 )
272 228 219 posdifi โŠข ( ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) < ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) โ†” 0 < ( ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) โˆ’ ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) ) )
273 271 272 mpbi โŠข 0 < ( ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) โˆ’ ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) )
274 elrp โŠข ( ( ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) โˆ’ ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) ) โˆˆ โ„+ โ†” ( ( ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) โˆ’ ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) ) โˆˆ โ„ โˆง 0 < ( ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) โˆ’ ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) ) ) )
275 229 273 274 mpbir2an โŠข ( ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) โˆ’ ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) ) โˆˆ โ„+
276 ltsubrp โŠข ( ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆˆ โ„ โˆง ( ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) โˆ’ ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) ) โˆˆ โ„+ ) โ†’ ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆ’ ( ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) โˆ’ ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) ) ) < ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) )
277 215 275 276 mp2an โŠข ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆ’ ( ( ( ๐‘… ๐‘† ๐‘‡ + 1 ) ยท 1 0 0 0 ) โˆ’ ( ( 1 0 0 ยท ๐ฟ ๐‘€ ๐‘ ) + ( ( 1 0 0 ยท ๐‘‚ ) + ๐‘ƒ ๐‘„ ) ) ) ) < ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 )
278 212 277 eqbrtri โŠข ( ๐ด ๐ต ๐ถ ๐ท ยท ๐ธ ๐น ๐บ ๐ป ) < ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 )
279 34 3 deccl โŠข ๐ด ๐ต ๐ถ โˆˆ โ„•0
280 279 4 deccl โŠข ๐ด ๐ต ๐ถ ๐ท โˆˆ โ„•0
281 280 nn0rei โŠข ๐ด ๐ต ๐ถ ๐ท โˆˆ โ„
282 36 6 deccl โŠข ๐ธ ๐น ๐บ โˆˆ โ„•0
283 282 10 deccl โŠข ๐ธ ๐น ๐บ ๐ป โˆˆ โ„•0
284 283 nn0rei โŠข ๐ธ ๐น ๐บ ๐ป โˆˆ โ„
285 281 284 remulcli โŠข ( ๐ด ๐ต ๐ถ ๐ท ยท ๐ธ ๐น ๐บ ๐ป ) โˆˆ โ„
286 45 decnncl2 โŠข 1 0 0 โˆˆ โ„•
287 286 decnncl2 โŠข 1 0 0 0 โˆˆ โ„•
288 287 nngt0i โŠข 0 < 1 0 0 0
289 214 288 pm3.2i โŠข ( 1 0 0 0 โˆˆ โ„ โˆง 0 < 1 0 0 0 )
290 ltdiv1 โŠข ( ( ( ๐ด ๐ต ๐ถ ๐ท ยท ๐ธ ๐น ๐บ ๐ป ) โˆˆ โ„ โˆง ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โˆˆ โ„ โˆง ( 1 0 0 0 โˆˆ โ„ โˆง 0 < 1 0 0 0 ) ) โ†’ ( ( ๐ด ๐ต ๐ถ ๐ท ยท ๐ธ ๐น ๐บ ๐ป ) < ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โ†” ( ( ๐ด ๐ต ๐ถ ๐ท ยท ๐ธ ๐น ๐บ ๐ป ) / 1 0 0 0 ) < ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) / 1 0 0 0 ) ) )
291 285 215 289 290 mp3an โŠข ( ( ๐ด ๐ต ๐ถ ๐ท ยท ๐ธ ๐น ๐บ ๐ป ) < ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) โ†” ( ( ๐ด ๐ต ๐ถ ๐ท ยท ๐ธ ๐น ๐บ ๐ป ) / 1 0 0 0 ) < ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) / 1 0 0 0 ) )
292 278 291 mpbi โŠข ( ( ๐ด ๐ต ๐ถ ๐ท ยท ๐ธ ๐น ๐บ ๐ป ) / 1 0 0 0 ) < ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) / 1 0 0 0 )
293 280 nn0cni โŠข ๐ด ๐ต ๐ถ ๐ท โˆˆ โ„‚
294 283 nn0cni โŠข ๐ธ ๐น ๐บ ๐ป โˆˆ โ„‚
295 214 288 gt0ne0ii โŠข 1 0 0 0 โ‰  0
296 293 294 182 295 div23i โŠข ( ( ๐ด ๐ต ๐ถ ๐ท ยท ๐ธ ๐น ๐บ ๐ป ) / 1 0 0 0 ) = ( ( ๐ด ๐ต ๐ถ ๐ท / 1 0 0 0 ) ยท ๐ธ ๐น ๐บ ๐ป )
297 1 2 3 66 dpmul1000 โŠข ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท 1 0 0 0 ) = ๐ด ๐ต ๐ถ ๐ท
298 297 oveq1i โŠข ( ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท 1 0 0 0 ) / 1 0 0 0 ) = ( ๐ด ๐ต ๐ถ ๐ท / 1 0 0 0 )
299 3 nn0rei โŠข ๐ถ โˆˆ โ„
300 dp2cl โŠข ( ( ๐ถ โˆˆ โ„ โˆง ๐ท โˆˆ โ„ ) โ†’ ๐ถ ๐ท โˆˆ โ„ )
301 299 66 300 mp2an โŠข ๐ถ ๐ท โˆˆ โ„
302 dp2cl โŠข ( ( ๐ต โˆˆ โ„ โˆง ๐ถ ๐ท โˆˆ โ„ ) โ†’ ๐ต ๐ถ ๐ท โˆˆ โ„ )
303 41 301 302 mp2an โŠข ๐ต ๐ถ ๐ท โˆˆ โ„
304 dpcl โŠข ( ( ๐ด โˆˆ โ„•0 โˆง ๐ต ๐ถ ๐ท โˆˆ โ„ ) โ†’ ( ๐ด . ๐ต ๐ถ ๐ท ) โˆˆ โ„ )
305 1 303 304 mp2an โŠข ( ๐ด . ๐ต ๐ถ ๐ท ) โˆˆ โ„
306 305 recni โŠข ( ๐ด . ๐ต ๐ถ ๐ท ) โˆˆ โ„‚
307 306 182 295 divcan4i โŠข ( ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท 1 0 0 0 ) / 1 0 0 0 ) = ( ๐ด . ๐ต ๐ถ ๐ท )
308 298 307 eqtr3i โŠข ( ๐ด ๐ต ๐ถ ๐ท / 1 0 0 0 ) = ( ๐ด . ๐ต ๐ถ ๐ท )
309 308 oveq1i โŠข ( ( ๐ด ๐ต ๐ถ ๐ท / 1 0 0 0 ) ยท ๐ธ ๐น ๐บ ๐ป ) = ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท ๐ธ ๐น ๐บ ๐ป )
310 296 309 eqtri โŠข ( ( ๐ด ๐ต ๐ถ ๐ท ยท ๐ธ ๐น ๐บ ๐ป ) / 1 0 0 0 ) = ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท ๐ธ ๐น ๐บ ๐ป )
311 180 182 295 divcan4i โŠข ( ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ ยท 1 0 0 0 ) / 1 0 0 0 ) = ๐‘Š ๐‘‹ ๐‘Œ ๐‘
312 292 310 311 3brtr3i โŠข ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท ๐ธ ๐น ๐บ ๐ป ) < ๐‘Š ๐‘‹ ๐‘Œ ๐‘
313 305 284 remulcli โŠข ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท ๐ธ ๐น ๐บ ๐ป ) โˆˆ โ„
314 ltdiv1 โŠข ( ( ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท ๐ธ ๐น ๐บ ๐ป ) โˆˆ โ„ โˆง ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โˆˆ โ„ โˆง ( 1 0 0 0 โˆˆ โ„ โˆง 0 < 1 0 0 0 ) ) โ†’ ( ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท ๐ธ ๐น ๐บ ๐ป ) < ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โ†” ( ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท ๐ธ ๐น ๐บ ๐ป ) / 1 0 0 0 ) < ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ / 1 0 0 0 ) ) )
315 313 213 289 314 mp3an โŠข ( ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท ๐ธ ๐น ๐บ ๐ป ) < ๐‘Š ๐‘‹ ๐‘Œ ๐‘ โ†” ( ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท ๐ธ ๐น ๐บ ๐ป ) / 1 0 0 0 ) < ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ / 1 0 0 0 ) )
316 312 315 mpbi โŠข ( ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท ๐ธ ๐น ๐บ ๐ป ) / 1 0 0 0 ) < ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ / 1 0 0 0 )
317 306 294 182 295 divassi โŠข ( ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท ๐ธ ๐น ๐บ ๐ป ) / 1 0 0 0 ) = ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท ( ๐ธ ๐น ๐บ ๐ป / 1 0 0 0 ) )
318 5 9 6 70 dpmul1000 โŠข ( ( ๐ธ . ๐น ๐บ ๐ป ) ยท 1 0 0 0 ) = ๐ธ ๐น ๐บ ๐ป
319 318 oveq1i โŠข ( ( ( ๐ธ . ๐น ๐บ ๐ป ) ยท 1 0 0 0 ) / 1 0 0 0 ) = ( ๐ธ ๐น ๐บ ๐ป / 1 0 0 0 )
320 6 nn0rei โŠข ๐บ โˆˆ โ„
321 dp2cl โŠข ( ( ๐บ โˆˆ โ„ โˆง ๐ป โˆˆ โ„ ) โ†’ ๐บ ๐ป โˆˆ โ„ )
322 320 70 321 mp2an โŠข ๐บ ๐ป โˆˆ โ„
323 dp2cl โŠข ( ( ๐น โˆˆ โ„ โˆง ๐บ ๐ป โˆˆ โ„ ) โ†’ ๐น ๐บ ๐ป โˆˆ โ„ )
324 47 322 323 mp2an โŠข ๐น ๐บ ๐ป โˆˆ โ„
325 dpcl โŠข ( ( ๐ธ โˆˆ โ„•0 โˆง ๐น ๐บ ๐ป โˆˆ โ„ ) โ†’ ( ๐ธ . ๐น ๐บ ๐ป ) โˆˆ โ„ )
326 5 324 325 mp2an โŠข ( ๐ธ . ๐น ๐บ ๐ป ) โˆˆ โ„
327 326 recni โŠข ( ๐ธ . ๐น ๐บ ๐ป ) โˆˆ โ„‚
328 327 182 295 divcan4i โŠข ( ( ( ๐ธ . ๐น ๐บ ๐ป ) ยท 1 0 0 0 ) / 1 0 0 0 ) = ( ๐ธ . ๐น ๐บ ๐ป )
329 319 328 eqtr3i โŠข ( ๐ธ ๐น ๐บ ๐ป / 1 0 0 0 ) = ( ๐ธ . ๐น ๐บ ๐ป )
330 329 oveq2i โŠข ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท ( ๐ธ ๐น ๐บ ๐ป / 1 0 0 0 ) ) = ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท ( ๐ธ . ๐น ๐บ ๐ป ) )
331 317 330 eqtri โŠข ( ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท ๐ธ ๐น ๐บ ๐ป ) / 1 0 0 0 ) = ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท ( ๐ธ . ๐น ๐บ ๐ป ) )
332 25 nn0rei โŠข ๐‘ โˆˆ โ„
333 22 23 24 332 dpmul1000 โŠข ( ( ๐‘Š . ๐‘‹ ๐‘Œ ๐‘ ) ยท 1 0 0 0 ) = ๐‘Š ๐‘‹ ๐‘Œ ๐‘
334 333 oveq1i โŠข ( ( ( ๐‘Š . ๐‘‹ ๐‘Œ ๐‘ ) ยท 1 0 0 0 ) / 1 0 0 0 ) = ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ / 1 0 0 0 )
335 23 nn0rei โŠข ๐‘‹ โˆˆ โ„
336 24 nn0rei โŠข ๐‘Œ โˆˆ โ„
337 dp2cl โŠข ( ( ๐‘Œ โˆˆ โ„ โˆง ๐‘ โˆˆ โ„ ) โ†’ ๐‘Œ ๐‘ โˆˆ โ„ )
338 336 332 337 mp2an โŠข ๐‘Œ ๐‘ โˆˆ โ„
339 dp2cl โŠข ( ( ๐‘‹ โˆˆ โ„ โˆง ๐‘Œ ๐‘ โˆˆ โ„ ) โ†’ ๐‘‹ ๐‘Œ ๐‘ โˆˆ โ„ )
340 335 338 339 mp2an โŠข ๐‘‹ ๐‘Œ ๐‘ โˆˆ โ„
341 dpcl โŠข ( ( ๐‘Š โˆˆ โ„•0 โˆง ๐‘‹ ๐‘Œ ๐‘ โˆˆ โ„ ) โ†’ ( ๐‘Š . ๐‘‹ ๐‘Œ ๐‘ ) โˆˆ โ„ )
342 22 340 341 mp2an โŠข ( ๐‘Š . ๐‘‹ ๐‘Œ ๐‘ ) โˆˆ โ„
343 342 recni โŠข ( ๐‘Š . ๐‘‹ ๐‘Œ ๐‘ ) โˆˆ โ„‚
344 343 182 295 divcan4i โŠข ( ( ( ๐‘Š . ๐‘‹ ๐‘Œ ๐‘ ) ยท 1 0 0 0 ) / 1 0 0 0 ) = ( ๐‘Š . ๐‘‹ ๐‘Œ ๐‘ )
345 334 344 eqtr3i โŠข ( ๐‘Š ๐‘‹ ๐‘Œ ๐‘ / 1 0 0 0 ) = ( ๐‘Š . ๐‘‹ ๐‘Œ ๐‘ )
346 316 331 345 3brtr3i โŠข ( ( ๐ด . ๐ต ๐ถ ๐ท ) ยท ( ๐ธ . ๐น ๐บ ๐ป ) ) < ( ๐‘Š . ๐‘‹ ๐‘Œ ๐‘ )