Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  dpmul4 Structured version   Visualization version   Unicode version

Theorem dpmul4 29622
Description: An upper bound to multiplication of decimal numbers with 4 digits. (Contributed by Thierry Arnoux, 25-Dec-2021.)
Hypotheses
Ref Expression
dpmul.a  |-  A  e. 
NN0
dpmul.b  |-  B  e. 
NN0
dpmul.c  |-  C  e. 
NN0
dpmul.d  |-  D  e. 
NN0
dpmul.e  |-  E  e. 
NN0
dpmul.g  |-  G  e. 
NN0
dpmul.j  |-  J  e. 
NN0
dpmul.k  |-  K  e. 
NN0
dpmul4.f  |-  F  e. 
NN0
dpmul4.h  |-  H  e. 
NN0
dpmul4.i  |-  I  e. 
NN0
dpmul4.l  |-  L  e. 
NN0
dpmul4.m  |-  M  e. 
NN0
dpmul4.n  |-  N  e. 
NN0
dpmul4.o  |-  O  e. 
NN0
dpmul4.p  |-  P  e. 
NN0
dpmul4.q  |-  Q  e. 
NN0
dpmul4.r  |-  R  e. 
NN0
dpmul4.s  |-  S  e. 
NN0
dpmul4.t  |-  T  e. 
NN0
dpmul4.u  |-  U  e. 
NN0
dpmul4.w  |-  W  e. 
NN0
dpmul4.x  |-  X  e. 
NN0
dpmul4.y  |-  Y  e. 
NN0
dpmul4.z  |-  Z  e. 
NN0
dpmul4.a  |-  U  < ; 1 0
dpmul4.b  |-  P  < ; 1 0
dpmul4.c  |-  Q  < ; 1 0
dpmul4.1  |-  (;; L M N  +  O
)  = ;;; R S T U
dpmul4.2  |-  ( ( A period B )  x.  ( E period F ) )  =  ( I
period_ J K )
dpmul4.3  |-  ( ( C period D )  x.  ( G period H ) )  =  ( O
period_ P Q )
dpmul4.4  |-  (;;; I J K 1  + ;; R S T )  = ;;; W X Y Z
dpmul4.5  |-  ( ( ( A period B )  +  ( C period D ) )  x.  (
( E period F )  +  ( G period H ) ) )  =  ( ( ( I
period_ J K )  +  ( L period_ M N ) )  +  ( O period_ P Q ) )
Assertion
Ref Expression
dpmul4  |-  ( ( A period_ B_ C D )  x.  ( E period_ F_ G H ) )  < 
( W period_ X_ Y Z )

Proof of Theorem dpmul4
StepHypRef Expression
1 dpmul.a . . . . . . . . 9  |-  A  e. 
NN0
2 dpmul.b . . . . . . . . 9  |-  B  e. 
NN0
31, 2deccl 11512 . . . . . . . 8  |- ; A B  e.  NN0
4 dpmul.c . . . . . . . . 9  |-  C  e. 
NN0
5 dpmul.d . . . . . . . . 9  |-  D  e. 
NN0
64, 5deccl 11512 . . . . . . . 8  |- ; C D  e.  NN0
7 dpmul.e . . . . . . . . 9  |-  E  e. 
NN0
8 dpmul4.f . . . . . . . . 9  |-  F  e. 
NN0
97, 8deccl 11512 . . . . . . . 8  |- ; E F  e.  NN0
10 dpmul.g . . . . . . . . 9  |-  G  e. 
NN0
11 dpmul4.h . . . . . . . . 9  |-  H  e. 
NN0
1210, 11deccl 11512 . . . . . . . 8  |- ; G H  e.  NN0
13 dpmul4.l . . . . . . . . . 10  |-  L  e. 
NN0
14 dpmul4.m . . . . . . . . . 10  |-  M  e. 
NN0
1513, 14deccl 11512 . . . . . . . . 9  |- ; L M  e.  NN0
16 dpmul4.n . . . . . . . . 9  |-  N  e. 
NN0
1715, 16deccl 11512 . . . . . . . 8  |- ;; L M N  e.  NN0
18 2nn0 11309 . . . . . . . 8  |-  2  e.  NN0
192nn0rei 11303 . . . . . . . . . . . . 13  |-  B  e.  RR
20 dpcl 29598 . . . . . . . . . . . . 13  |-  ( ( A  e.  NN0  /\  B  e.  RR )  ->  ( A period B )  e.  RR )
211, 19, 20mp2an 708 . . . . . . . . . . . 12  |-  ( A
period B )  e.  RR
2221recni 10052 . . . . . . . . . . 11  |-  ( A
period B )  e.  CC
23 10nn 11514 . . . . . . . . . . . 12  |- ; 1 0  e.  NN
2423nncni 11030 . . . . . . . . . . 11  |- ; 1 0  e.  CC
258nn0rei 11303 . . . . . . . . . . . . 13  |-  F  e.  RR
26 dpcl 29598 . . . . . . . . . . . . 13  |-  ( ( E  e.  NN0  /\  F  e.  RR )  ->  ( E period F )  e.  RR )
277, 25, 26mp2an 708 . . . . . . . . . . . 12  |-  ( E
period F )  e.  RR
2827recni 10052 . . . . . . . . . . 11  |-  ( E
period F )  e.  CC
2922, 24, 28, 24mul4i 10233 . . . . . . . . . 10  |-  ( ( ( A period B )  x. ; 1 0 )  x.  ( ( E period F )  x. ; 1 0 ) )  =  ( ( ( A period B )  x.  ( E period F ) )  x.  (; 1 0  x. ; 1 0 ) )
3022, 28mulcli 10045 . . . . . . . . . . 11  |-  ( ( A period B )  x.  ( E period F ) )  e.  CC
3130, 24, 24mulassi 10049 . . . . . . . . . 10  |-  ( ( ( ( A period B )  x.  ( E
period F ) )  x. ; 1
0 )  x. ; 1 0 )  =  ( ( ( A
period B )  x.  ( E period F ) )  x.  (; 1 0  x. ; 1 0 ) )
32 dpmul4.2 . . . . . . . . . . . . 13  |-  ( ( A period B )  x.  ( E period F ) )  =  ( I
period_ J K )
3332oveq1i 6660 . . . . . . . . . . . 12  |-  ( ( ( A period B )  x.  ( E period F ) )  x. ; 1 0 )  =  ( ( I period_ J K )  x. ; 1
0 )
34 dpmul4.i . . . . . . . . . . . . 13  |-  I  e. 
NN0
35 dpmul.j . . . . . . . . . . . . 13  |-  J  e. 
NN0
36 dpmul.k . . . . . . . . . . . . . 14  |-  K  e. 
NN0
3736nn0rei 11303 . . . . . . . . . . . . 13  |-  K  e.  RR
3834, 35, 37dp3mul10 29606 . . . . . . . . . . . 12  |-  ( ( I period_ J K )  x. ; 1 0 )  =  (; I J period K )
3933, 38eqtri 2644 . . . . . . . . . . 11  |-  ( ( ( A period B )  x.  ( E period F ) )  x. ; 1 0 )  =  (; I J period K )
4039oveq1i 6660 . . . . . . . . . 10  |-  ( ( ( ( A period B )  x.  ( E
period F ) )  x. ; 1
0 )  x. ; 1 0 )  =  ( (; I J period K )  x. ; 1 0 )
4129, 31, 403eqtr2ri 2651 . . . . . . . . 9  |-  ( (; I J period K )  x. ; 1
0 )  =  ( ( ( A period B )  x. ; 1 0 )  x.  ( ( E period F )  x. ; 1 0 ) )
4234, 35deccl 11512 . . . . . . . . . 10  |- ; I J  e.  NN0
4342, 37dpmul10 29603 . . . . . . . . 9  |-  ( (; I J period K )  x. ; 1
0 )  = ;; I J K
441, 19dpmul10 29603 . . . . . . . . . 10  |-  ( ( A period B )  x. ; 1
0 )  = ; A B
457, 25dpmul10 29603 . . . . . . . . . 10  |-  ( ( E period F )  x. ; 1
0 )  = ; E F
4644, 45oveq12i 6662 . . . . . . . . 9  |-  ( ( ( A period B )  x. ; 1 0 )  x.  ( ( E period F )  x. ; 1 0 ) )  =  (; A B  x. ; E F )
4741, 43, 463eqtr3ri 2653 . . . . . . . 8  |-  (; A B  x. ; E F )  = ;; I J K
485nn0rei 11303 . . . . . . . . . . . . 13  |-  D  e.  RR
49 dpcl 29598 . . . . . . . . . . . . 13  |-  ( ( C  e.  NN0  /\  D  e.  RR )  ->  ( C period D )  e.  RR )
504, 48, 49mp2an 708 . . . . . . . . . . . 12  |-  ( C
period D )  e.  RR
5150recni 10052 . . . . . . . . . . 11  |-  ( C
period D )  e.  CC
5211nn0rei 11303 . . . . . . . . . . . . 13  |-  H  e.  RR
53 dpcl 29598 . . . . . . . . . . . . 13  |-  ( ( G  e.  NN0  /\  H  e.  RR )  ->  ( G period H )  e.  RR )
5410, 52, 53mp2an 708 . . . . . . . . . . . 12  |-  ( G
period H )  e.  RR
5554recni 10052 . . . . . . . . . . 11  |-  ( G
period H )  e.  CC
5651, 24, 55, 24mul4i 10233 . . . . . . . . . 10  |-  ( ( ( C period D )  x. ; 1 0 )  x.  ( ( G period H )  x. ; 1 0 ) )  =  ( ( ( C period D )  x.  ( G period H ) )  x.  (; 1 0  x. ; 1 0 ) )
5751, 55mulcli 10045 . . . . . . . . . . 11  |-  ( ( C period D )  x.  ( G period H ) )  e.  CC
5857, 24, 24mulassi 10049 . . . . . . . . . 10  |-  ( ( ( ( C period D )  x.  ( G
period H ) )  x. ; 1
0 )  x. ; 1 0 )  =  ( ( ( C
period D )  x.  ( G period H ) )  x.  (; 1 0  x. ; 1 0 ) )
59 dpmul4.3 . . . . . . . . . . . . 13  |-  ( ( C period D )  x.  ( G period H ) )  =  ( O
period_ P Q )
6059oveq1i 6660 . . . . . . . . . . . 12  |-  ( ( ( C period D )  x.  ( G period H ) )  x. ; 1 0 )  =  ( ( O period_ P Q )  x. ; 1
0 )
61 dpmul4.o . . . . . . . . . . . . 13  |-  O  e. 
NN0
62 dpmul4.p . . . . . . . . . . . . 13  |-  P  e. 
NN0
63 dpmul4.q . . . . . . . . . . . . . 14  |-  Q  e. 
NN0
6463nn0rei 11303 . . . . . . . . . . . . 13  |-  Q  e.  RR
6561, 62, 64dp3mul10 29606 . . . . . . . . . . . 12  |-  ( ( O period_ P Q )  x. ; 1 0 )  =  (; O P period Q )
6660, 65eqtri 2644 . . . . . . . . . . 11  |-  ( ( ( C period D )  x.  ( G period H ) )  x. ; 1 0 )  =  (; O P period Q )
6766oveq1i 6660 . . . . . . . . . 10  |-  ( ( ( ( C period D )  x.  ( G
period H ) )  x. ; 1
0 )  x. ; 1 0 )  =  ( (; O P period Q )  x. ; 1 0 )
6856, 58, 673eqtr2ri 2651 . . . . . . . . 9  |-  ( (; O P period Q )  x. ; 1
0 )  =  ( ( ( C period D )  x. ; 1 0 )  x.  ( ( G period H )  x. ; 1 0 ) )
6961, 62deccl 11512 . . . . . . . . . 10  |- ; O P  e.  NN0
7069, 64dpmul10 29603 . . . . . . . . 9  |-  ( (; O P period Q )  x. ; 1
0 )  = ;; O P Q
714, 48dpmul10 29603 . . . . . . . . . 10  |-  ( ( C period D )  x. ; 1
0 )  = ; C D
7210, 52dpmul10 29603 . . . . . . . . . 10  |-  ( ( G period H )  x. ; 1
0 )  = ; G H
7371, 72oveq12i 6662 . . . . . . . . 9  |-  ( ( ( C period D )  x. ; 1 0 )  x.  ( ( G period H )  x. ; 1 0 ) )  =  (; C D  x. ; G H )
7468, 70, 733eqtr3ri 2653 . . . . . . . 8  |-  (; C D  x. ; G H )  = ;; O P Q
7522, 51, 24adddiri 10051 . . . . . . . . . . . 12  |-  ( ( ( A period B )  +  ( C period D ) )  x. ; 1 0 )  =  ( ( ( A
period B )  x. ; 1 0 )  +  ( ( C period D )  x. ; 1 0 ) )
7644, 71oveq12i 6662 . . . . . . . . . . . 12  |-  ( ( ( A period B )  x. ; 1 0 )  +  ( ( C period D )  x. ; 1 0 ) )  =  (; A B  + ; C D )
7775, 76eqtr2i 2645 . . . . . . . . . . 11  |-  (; A B  + ; C D )  =  ( ( ( A
period B )  +  ( C period D ) )  x. ; 1 0 )
7828, 55, 24adddiri 10051 . . . . . . . . . . . 12  |-  ( ( ( E period F )  +  ( G period H ) )  x. ; 1 0 )  =  ( ( ( E
period F )  x. ; 1 0 )  +  ( ( G period H )  x. ; 1 0 ) )
7945, 72oveq12i 6662 . . . . . . . . . . . 12  |-  ( ( ( E period F )  x. ; 1 0 )  +  ( ( G period H )  x. ; 1 0 ) )  =  (; E F  + ; G H )
8078, 79eqtr2i 2645 . . . . . . . . . . 11  |-  (; E F  + ; G H )  =  ( ( ( E
period F )  +  ( G period H ) )  x. ; 1 0 )
8177, 80oveq12i 6662 . . . . . . . . . 10  |-  ( (; A B  + ; C D )  x.  (; E F  + ; G H ) )  =  ( ( ( ( A period B )  +  ( C period D ) )  x. ; 1 0 )  x.  ( ( ( E
period F )  +  ( G period H ) )  x. ; 1 0 ) )
8222, 51addcli 10044 . . . . . . . . . . 11  |-  ( ( A period B )  +  ( C period D ) )  e.  CC
8328, 55addcli 10044 . . . . . . . . . . 11  |-  ( ( E period F )  +  ( G period H ) )  e.  CC
8482, 24, 83, 24mul4i 10233 . . . . . . . . . 10  |-  ( ( ( ( A period B )  +  ( C
period D ) )  x. ; 1
0 )  x.  (
( ( E period F )  +  ( G
period H ) )  x. ; 1
0 ) )  =  ( ( ( ( A period B )  +  ( C period D ) )  x.  ( ( E period F )  +  ( G period H ) ) )  x.  (; 1 0  x. ; 1 0 ) )
85 dpmul4.5 . . . . . . . . . . 11  |-  ( ( ( A period B )  +  ( C period D ) )  x.  (
( E period F )  +  ( G period H ) ) )  =  ( ( ( I
period_ J K )  +  ( L period_ M N ) )  +  ( O period_ P Q ) )
8685oveq1i 6660 . . . . . . . . . 10  |-  ( ( ( ( A period B )  +  ( C
period D ) )  x.  ( ( E period F )  +  ( G
period H ) ) )  x.  (; 1 0  x. ; 1 0 ) )  =  ( ( ( ( I period_ J K )  +  ( L period_ M N ) )  +  ( O period_ P Q ) )  x.  (; 1 0  x. ; 1 0 ) )
8781, 84, 863eqtri 2648 . . . . . . . . 9  |-  ( (; A B  + ; C D )  x.  (; E F  + ; G H ) )  =  ( ( ( ( I period_ J K )  +  ( L period_ M N ) )  +  ( O period_ P Q ) )  x.  (; 1 0  x. ; 1 0 ) )
88 10nn0 11516 . . . . . . . . . . 11  |- ; 1 0  e.  NN0
8988dec0u 11520 . . . . . . . . . 10  |-  (; 1 0  x. ; 1 0 )  = ;; 1 0 0
9089oveq2i 6661 . . . . . . . . 9  |-  ( ( ( ( I period_ J K )  +  ( L period_ M N ) )  +  ( O period_ P Q ) )  x.  (; 1 0  x. ; 1 0 ) )  =  ( ( ( ( I period_ J K )  +  ( L period_ M N ) )  +  ( O period_ P Q ) )  x. ;; 1 0 0 )
9132, 30eqeltrri 2698 . . . . . . . . . . . 12  |-  ( I
period_ J K )  e.  CC
9214nn0rei 11303 . . . . . . . . . . . . . . 15  |-  M  e.  RR
9316nn0rei 11303 . . . . . . . . . . . . . . 15  |-  N  e.  RR
94 dp2cl 29587 . . . . . . . . . . . . . . 15  |-  ( ( M  e.  RR  /\  N  e.  RR )  -> _ M N  e.  RR )
9592, 93, 94mp2an 708 . . . . . . . . . . . . . 14  |- _ M N  e.  RR
96 dpcl 29598 . . . . . . . . . . . . . 14  |-  ( ( L  e.  NN0  /\ _ M N  e.  RR )  -> 
( L period_ M N )  e.  RR )
9713, 95, 96mp2an 708 . . . . . . . . . . . . 13  |-  ( L
period_ M N )  e.  RR
9897recni 10052 . . . . . . . . . . . 12  |-  ( L
period_ M N )  e.  CC
9991, 98addcli 10044 . . . . . . . . . . 11  |-  ( ( I period_ J K )  +  ( L period_ M N ) )  e.  CC
10059, 57eqeltrri 2698 . . . . . . . . . . 11  |-  ( O
period_ P Q )  e.  CC
101 0nn0 11307 . . . . . . . . . . . . 13  |-  0  e.  NN0
10288, 101deccl 11512 . . . . . . . . . . . 12  |- ;; 1 0 0  e.  NN0
103102nn0cni 11304 . . . . . . . . . . 11  |- ;; 1 0 0  e.  CC
10499, 100, 103adddiri 10051 . . . . . . . . . 10  |-  ( ( ( ( I period_ J K )  +  ( L period_ M N ) )  +  ( O period_ P Q ) )  x. ;; 1 0 0 )  =  ( ( ( ( I
period_ J K )  +  ( L period_ M N ) )  x. ;; 1 0 0 )  +  ( ( O
period_ P Q )  x. ;; 1 0 0 ) )
10591, 98, 103adddiri 10051 . . . . . . . . . . 11  |-  ( ( ( I period_ J K )  +  ( L period_ M N ) )  x. ;; 1 0 0 )  =  ( ( ( I period_ J K )  x. ;; 1 0 0 )  +  ( ( L
period_ M N )  x. ;; 1 0 0 ) )
106105oveq1i 6660 . . . . . . . . . 10  |-  ( ( ( ( I period_ J K )  +  ( L period_ M N ) )  x. ;; 1 0 0 )  +  ( ( O period_ P Q )  x. ;; 1 0 0 ) )  =  ( ( ( ( I period_ J K )  x. ;; 1 0 0 )  +  ( ( L
period_ M N )  x. ;; 1 0 0 ) )  +  ( ( O
period_ P Q )  x. ;; 1 0 0 ) )
10734, 35, 37dpmul100 29605 . . . . . . . . . . . 12  |-  ( ( I period_ J K )  x. ;; 1 0 0 )  = ;; I J K
10813, 14, 93dpmul100 29605 . . . . . . . . . . . 12  |-  ( ( L period_ M N )  x. ;; 1 0 0 )  = ;; L M N
109107, 108oveq12i 6662 . . . . . . . . . . 11  |-  ( ( ( I period_ J K )  x. ;; 1 0 0 )  +  ( ( L
period_ M N )  x. ;; 1 0 0 ) )  =  (;; I J K  + ;; L M N )
11061, 62, 64dpmul100 29605 . . . . . . . . . . 11  |-  ( ( O period_ P Q )  x. ;; 1 0 0 )  = ;; O P Q
111109, 110oveq12i 6662 . . . . . . . . . 10  |-  ( ( ( ( I period_ J K )  x. ;; 1 0 0 )  +  ( ( L
period_ M N )  x. ;; 1 0 0 ) )  +  ( ( O
period_ P Q )  x. ;; 1 0 0 ) )  =  ( (;; I J K  + ;; L M N )  + ;; O P Q )
112104, 106, 1113eqtri 2648 . . . . . . . . 9  |-  ( ( ( ( I period_ J K )  +  ( L period_ M N ) )  +  ( O period_ P Q ) )  x. ;; 1 0 0 )  =  ( (;; I J K  + ;; L M N )  + ;; O P Q )
11387, 90, 1123eqtri 2648 . . . . . . . 8  |-  ( (; A B  + ; C D )  x.  (; E F  + ; G H ) )  =  ( (;; I J K  + ;; L M N )  + ;; O P Q )
114 sq10 13048 . . . . . . . . . . . 12  |-  (; 1 0 ^ 2 )  = ;; 1 0 0
115114oveq2i 6661 . . . . . . . . . . 11  |-  (; A B  x.  (; 1 0 ^ 2 ) )  =  (; A B  x. ;; 1 0 0 )
1163nn0cni 11304 . . . . . . . . . . . 12  |- ; A B  e.  CC
117103, 116mulcomi 10046 . . . . . . . . . . 11  |-  (;; 1 0 0  x. ; A B )  =  (; A B  x. ;; 1 0 0 )
118115, 117eqtr4i 2647 . . . . . . . . . 10  |-  (; A B  x.  (; 1 0 ^ 2 ) )  =  (;; 1 0 0  x. ; A B )
119118oveq1i 6660 . . . . . . . . 9  |-  ( (; A B  x.  (; 1 0 ^ 2 ) )  + ; C D )  =  ( (;; 1 0 0  x. ; A B )  + ; C D )
1203, 4, 48dfdec100 29576 . . . . . . . . 9  |- ;;; A B C D  =  ( (;; 1 0 0  x. ; A B )  + ; C D )
121119, 120eqtr4i 2647 . . . . . . . 8  |-  ( (; A B  x.  (; 1 0 ^ 2 ) )  + ; C D )  = ;;; A B C D
122114oveq2i 6661 . . . . . . . . . . 11  |-  (; E F  x.  (; 1 0 ^ 2 ) )  =  (; E F  x. ;; 1 0 0 )
1239nn0cni 11304 . . . . . . . . . . . 12  |- ; E F  e.  CC
124103, 123mulcomi 10046 . . . . . . . . . . 11  |-  (;; 1 0 0  x. ; E F )  =  (; E F  x. ;; 1 0 0 )
125122, 124eqtr4i 2647 . . . . . . . . . 10  |-  (; E F  x.  (; 1 0 ^ 2 ) )  =  (;; 1 0 0  x. ; E F )
126125oveq1i 6660 . . . . . . . . 9  |-  ( (; E F  x.  (; 1 0 ^ 2 ) )  + ; G H )  =  ( (;; 1 0 0  x. ; E F )  + ; G H )
1279, 10, 52dfdec100 29576 . . . . . . . . 9  |- ;;; E F G H  =  ( (;; 1 0 0  x. ; E F )  + ; G H )
128126, 127eqtr4i 2647 . . . . . . . 8  |-  ( (; E F  x.  (; 1 0 ^ 2 ) )  + ; G H )  = ;;; E F G H
12924sqvali 12943 . . . . . . . . . . . 12  |-  (; 1 0 ^ 2 )  =  (; 1 0  x. ; 1 0 )
130129oveq2i 6661 . . . . . . . . . . 11  |-  (;; I J K  x.  (; 1 0 ^ 2 ) )  =  (;; I J K  x.  (; 1 0  x. ; 1 0 ) )
13142, 36deccl 11512 . . . . . . . . . . . . 13  |- ;; I J K  e.  NN0
132131nn0cni 11304 . . . . . . . . . . . 12  |- ;; I J K  e.  CC
133132, 24, 24mulassi 10049 . . . . . . . . . . 11  |-  ( (;; I J K  x. ; 1 0 )  x. ; 1 0 )  =  (;; I J K  x.  (; 1 0  x. ; 1 0 ) )
134130, 133eqtr4i 2647 . . . . . . . . . 10  |-  (;; I J K  x.  (; 1 0 ^ 2 ) )  =  ( (;; I J K  x. ; 1 0 )  x. ; 1
0 )
135 dpmul4.r . . . . . . . . . . . . . . . 16  |-  R  e. 
NN0
136 dpmul4.s . . . . . . . . . . . . . . . 16  |-  S  e. 
NN0
137135, 136deccl 11512 . . . . . . . . . . . . . . 15  |- ; R S  e.  NN0
138 dpmul4.t . . . . . . . . . . . . . . 15  |-  T  e. 
NN0
139137, 138deccl 11512 . . . . . . . . . . . . . 14  |- ;; R S T  e.  NN0
140139nn0cni 11304 . . . . . . . . . . . . 13  |- ;; R S T  e.  CC
141 ax-1cn 9994 . . . . . . . . . . . . 13  |-  1  e.  CC
142140, 141addcli 10044 . . . . . . . . . . . 12  |-  (;; R S T  +  1
)  e.  CC
143132, 24mulcli 10045 . . . . . . . . . . . 12  |-  (;; I J K  x. ; 1 0 )  e.  CC
144141, 143addcomi 10227 . . . . . . . . . . . . . . . 16  |-  ( 1  +  (;; I J K  x. ; 1 0 ) )  =  ( (;; I J K  x. ; 1 0 )  +  1 )
14524, 132mulcomi 10046 . . . . . . . . . . . . . . . . . 18  |-  (; 1 0  x. ;; I J K )  =  (;; I J K  x. ; 1 0 )
146131dec0u 11520 . . . . . . . . . . . . . . . . . 18  |-  (; 1 0  x. ;; I J K )  = ;;; I J K 0
147145, 146eqtr3i 2646 . . . . . . . . . . . . . . . . 17  |-  (;; I J K  x. ; 1 0 )  = ;;; I J K 0
148147oveq1i 6660 . . . . . . . . . . . . . . . 16  |-  ( (;; I J K  x. ; 1 0 )  +  1 )  =  (;;; I J K 0  +  1 )
149141addid2i 10224 . . . . . . . . . . . . . . . . 17  |-  ( 0  +  1 )  =  1
150 eqid 2622 . . . . . . . . . . . . . . . . 17  |- ;;; I J K 0  = ;;; I J K 0
151131, 101, 149, 150decsuc 11535 . . . . . . . . . . . . . . . 16  |-  (;;; I J K 0  +  1 )  = ;;; I J K 1
152144, 148, 1513eqtri 2648 . . . . . . . . . . . . . . 15  |-  ( 1  +  (;; I J K  x. ; 1 0 ) )  = ;;; I J K 1
153152oveq2i 6661 . . . . . . . . . . . . . 14  |-  (;; R S T  +  (
1  +  (;; I J K  x. ; 1 0 ) ) )  =  (;; R S T  + ;;; I J K 1 )
154140, 141, 143addassi 10048 . . . . . . . . . . . . . 14  |-  ( (;; R S T  + 
1 )  +  (;; I J K  x. ; 1 0 ) )  =  (;; R S T  +  ( 1  +  (;; I J K  x. ; 1 0 ) ) )
155 1nn0 11308 . . . . . . . . . . . . . . . . 17  |-  1  e.  NN0
156131, 155deccl 11512 . . . . . . . . . . . . . . . 16  |- ;;; I J K 1  e.  NN0
157156nn0cni 11304 . . . . . . . . . . . . . . 15  |- ;;; I J K 1  e.  CC
158157, 140addcomi 10227 . . . . . . . . . . . . . 14  |-  (;;; I J K 1  + ;; R S T )  =  (;; R S T  + ;;; I J K 1 )
159153, 154, 1583eqtr4i 2654 . . . . . . . . . . . . 13  |-  ( (;; R S T  + 
1 )  +  (;; I J K  x. ; 1 0 ) )  =  (;;; I J K 1  + ;; R S T )
160 dpmul4.4 . . . . . . . . . . . . 13  |-  (;;; I J K 1  + ;; R S T )  = ;;; W X Y Z
161159, 160eqtri 2644 . . . . . . . . . . . 12  |-  ( (;; R S T  + 
1 )  +  (;; I J K  x. ; 1 0 ) )  = ;;; W X Y Z
162142, 143, 161mvlladdi 10299 . . . . . . . . . . 11  |-  (;; I J K  x. ; 1 0 )  =  (;;; W X Y Z  -  (;; R S T  +  1
) )
163162oveq1i 6660 . . . . . . . . . 10  |-  ( (;; I J K  x. ; 1 0 )  x. ; 1 0 )  =  ( (;;; W X Y Z  -  (;; R S T  +  1
) )  x. ; 1 0 )
164134, 163eqtri 2644 . . . . . . . . 9  |-  (;; I J K  x.  (; 1 0 ^ 2 ) )  =  ( (;;; W X Y Z  -  (;; R S T  +  1
) )  x. ; 1 0 )
165164oveq1i 6660 . . . . . . . 8  |-  ( (;; I J K  x.  (; 1 0 ^ 2 ) )  + ;; L M N )  =  ( ( (;;; W X Y Z  -  (;; R S T  +  1
) )  x. ; 1 0 )  + ;; L M N )
166 eqid 2622 . . . . . . . 8  |-  ( ( ( ( (;;; W X Y Z  -  (;; R S T  +  1
) )  x. ; 1 0 )  + ;; L M N )  x.  (; 1 0 ^ 2 ) )  + ;; O P Q )  =  ( ( ( ( (;;; W X Y Z  -  (;; R S T  + 
1 ) )  x. ; 1
0 )  + ;; L M N )  x.  (; 1 0 ^ 2 ) )  + ;; O P Q )
1673, 6, 9, 12, 17, 18, 47, 74, 113, 121, 128, 165, 166karatsuba 15792 . . . . . . 7  |-  (;;; A B C D  x. ;;; E F G H )  =  ( ( ( ( (;;; W X Y Z  -  (;; R S T  +  1
) )  x. ; 1 0 )  + ;; L M N )  x.  (; 1 0 ^ 2 ) )  + ;; O P Q )
168 dpmul4.w . . . . . . . . . . . . . . 15  |-  W  e. 
NN0
169 dpmul4.x . . . . . . . . . . . . . . 15  |-  X  e. 
NN0
170168, 169deccl 11512 . . . . . . . . . . . . . 14  |- ; W X  e.  NN0
171 dpmul4.y . . . . . . . . . . . . . 14  |-  Y  e. 
NN0
172170, 171deccl 11512 . . . . . . . . . . . . 13  |- ;; W X Y  e.  NN0
173 dpmul4.z . . . . . . . . . . . . 13  |-  Z  e. 
NN0
174172, 173deccl 11512 . . . . . . . . . . . 12  |- ;;; W X Y Z  e.  NN0
175174nn0cni 11304 . . . . . . . . . . 11  |- ;;; W X Y Z  e.  CC
176102, 101deccl 11512 . . . . . . . . . . . 12  |- ;;; 1 0 0 0  e.  NN0
177176nn0cni 11304 . . . . . . . . . . 11  |- ;;; 1 0 0 0  e.  CC
178175, 177mulcli 10045 . . . . . . . . . 10  |-  (;;; W X Y Z  x. ;;; 1 0 0 0 )  e.  CC
179142, 177mulcli 10045 . . . . . . . . . 10  |-  ( (;; R S T  + 
1 )  x. ;;; 1 0 0 0 )  e.  CC
180178, 179subcli 10357 . . . . . . . . 9  |-  ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  -  ( (;; R S T  + 
1 )  x. ;;; 1 0 0 0 ) )  e.  CC
18117nn0cni 11304 . . . . . . . . . 10  |- ;; L M N  e.  CC
182103, 181mulcli 10045 . . . . . . . . 9  |-  (;; 1 0 0  x. ;; L M N )  e.  CC
18361, 62, 64dfdec100 29576 . . . . . . . . . 10  |- ;; O P Q  =  (
(;; 1 0 0  x.  O )  + ; P Q )
18469, 63deccl 11512 . . . . . . . . . . 11  |- ;; O P Q  e.  NN0
185184nn0cni 11304 . . . . . . . . . 10  |- ;; O P Q  e.  CC
186183, 185eqeltrri 2698 . . . . . . . . 9  |-  ( (;; 1 0 0  x.  O )  + ; P Q )  e.  CC
187180, 182, 186addassi 10048 . . . . . . . 8  |-  ( ( ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  -  ( (;; R S T  + 
1 )  x. ;;; 1 0 0 0 ) )  +  (;; 1 0 0  x. ;; L M N ) )  +  ( (;; 1 0 0  x.  O )  + ; P Q ) )  =  ( ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  -  ( (;; R S T  + 
1 )  x. ;;; 1 0 0 0 ) )  +  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O )  + ; P Q ) ) )
18824sqcli 12944 . . . . . . . . . . . . 13  |-  (; 1 0 ^ 2 )  e.  CC
189132, 188mulcli 10045 . . . . . . . . . . . 12  |-  (;; I J K  x.  (; 1 0 ^ 2 ) )  e.  CC
190164, 189eqeltrri 2698 . . . . . . . . . . 11  |-  ( (;;; W X Y Z  -  (;; R S T  + 
1 ) )  x. ; 1
0 )  e.  CC
191190, 181, 103adddiri 10051 . . . . . . . . . 10  |-  ( ( ( (;;; W X Y Z  -  (;; R S T  +  1
) )  x. ; 1 0 )  + ;; L M N )  x. ;; 1 0 0 )  =  ( ( ( (;;; W X Y Z  -  (;; R S T  +  1
) )  x. ; 1 0 )  x. ;; 1 0 0 )  +  (;; L M N  x. ;; 1 0 0 ) )
192114oveq2i 6661 . . . . . . . . . 10  |-  ( ( ( (;;; W X Y Z  -  (;; R S T  +  1
) )  x. ; 1 0 )  + ;; L M N )  x.  (; 1 0 ^ 2 ) )  =  ( ( ( (;;; W X Y Z  -  (;; R S T  +  1
) )  x. ; 1 0 )  + ;; L M N )  x. ;; 1 0 0 )
193175, 142subcli 10357 . . . . . . . . . . . . 13  |-  (;;; W X Y Z  -  (;; R S T  +  1
) )  e.  CC
194193, 24, 103mulassi 10049 . . . . . . . . . . . 12  |-  ( ( (;;; W X Y Z  -  (;; R S T  +  1
) )  x. ; 1 0 )  x. ;; 1 0 0 )  =  ( (;;; W X Y Z  -  (;; R S T  +  1
) )  x.  (; 1 0  x. ;; 1 0 0 ) )
195102dec0u 11520 . . . . . . . . . . . . 13  |-  (; 1 0  x. ;; 1 0 0 )  = ;;; 1 0 0 0
196195oveq2i 6661 . . . . . . . . . . . 12  |-  ( (;;; W X Y Z  -  (;; R S T  + 
1 ) )  x.  (; 1 0  x. ;; 1 0 0 ) )  =  ( (;;; W X Y Z  -  (;; R S T  +  1
) )  x. ;;; 1 0 0 0 )
197175, 142, 177subdiri 10480 . . . . . . . . . . . 12  |-  ( (;;; W X Y Z  -  (;; R S T  + 
1 ) )  x. ;;; 1 0 0 0 )  =  ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  -  ( (;; R S T  + 
1 )  x. ;;; 1 0 0 0 ) )
198194, 196, 1973eqtrri 2649 . . . . . . . . . . 11  |-  ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  -  ( (;; R S T  + 
1 )  x. ;;; 1 0 0 0 ) )  =  ( ( (;;; W X Y Z  -  (;; R S T  +  1
) )  x. ; 1 0 )  x. ;; 1 0 0 )
199103, 181mulcomi 10046 . . . . . . . . . . 11  |-  (;; 1 0 0  x. ;; L M N )  =  (;; L M N  x. ;; 1 0 0 )
200198, 199oveq12i 6662 . . . . . . . . . 10  |-  ( ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  -  ( (;; R S T  + 
1 )  x. ;;; 1 0 0 0 ) )  +  (;; 1 0 0  x. ;; L M N ) )  =  ( ( ( (;;; W X Y Z  -  (;; R S T  +  1
) )  x. ; 1 0 )  x. ;; 1 0 0 )  +  (;; L M N  x. ;; 1 0 0 ) )
201191, 192, 2003eqtr4i 2654 . . . . . . . . 9  |-  ( ( ( (;;; W X Y Z  -  (;; R S T  +  1
) )  x. ; 1 0 )  + ;; L M N )  x.  (; 1 0 ^ 2 ) )  =  ( ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  -  ( (;; R S T  + 
1 )  x. ;;; 1 0 0 0 ) )  +  (;; 1 0 0  x. ;; L M N ) )
202201, 183oveq12i 6662 . . . . . . . 8  |-  ( ( ( ( (;;; W X Y Z  -  (;; R S T  +  1
) )  x. ; 1 0 )  + ;; L M N )  x.  (; 1 0 ^ 2 ) )  + ;; O P Q )  =  ( ( ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  -  ( (;; R S T  + 
1 )  x. ;;; 1 0 0 0 ) )  +  (;; 1 0 0  x. ;; L M N ) )  +  ( (;; 1 0 0  x.  O )  + ; P Q ) )
203182, 186addcli 10044 . . . . . . . . 9  |-  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O
)  + ; P Q ) )  e.  CC
204 subsub 10311 . . . . . . . . 9  |-  ( ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  e.  CC  /\  ( (;; R S T  +  1
)  x. ;;; 1 0 0 0 )  e.  CC  /\  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O )  + ; P Q ) )  e.  CC )  ->  (
(;;; W X Y Z  x. ;;; 1 0 0 0 )  -  ( ( (;; R S T  +  1 )  x. ;;; 1 0 0 0 )  -  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O
)  + ; P Q ) ) ) )  =  ( ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  -  ( (;; R S T  + 
1 )  x. ;;; 1 0 0 0 ) )  +  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O )  + ; P Q ) ) ) )
205178, 179, 203, 204mp3an 1424 . . . . . . . 8  |-  ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  -  ( ( (;; R S T  +  1 )  x. ;;; 1 0 0 0 )  -  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O
)  + ; P Q ) ) ) )  =  ( ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  -  ( (;; R S T  + 
1 )  x. ;;; 1 0 0 0 ) )  +  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O )  + ; P Q ) ) )
206187, 202, 2053eqtr4ri 2655 . . . . . . 7  |-  ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  -  ( ( (;; R S T  +  1 )  x. ;;; 1 0 0 0 )  -  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O
)  + ; P Q ) ) ) )  =  ( ( ( ( (;;; W X Y Z  -  (;; R S T  + 
1 ) )  x. ; 1
0 )  + ;; L M N )  x.  (; 1 0 ^ 2 ) )  + ;; O P Q )
207167, 206eqtr4i 2647 . . . . . 6  |-  (;;; A B C D  x. ;;; E F G H )  =  ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  -  ( ( (;; R S T  +  1 )  x. ;;; 1 0 0 0 )  -  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O
)  + ; P Q ) ) ) )
208174nn0rei 11303 . . . . . . . 8  |- ;;; W X Y Z  e.  RR
209176nn0rei 11303 . . . . . . . 8  |- ;;; 1 0 0 0  e.  RR
210208, 209remulcli 10054 . . . . . . 7  |-  (;;; W X Y Z  x. ;;; 1 0 0 0 )  e.  RR
211139nn0rei 11303 . . . . . . . . . . 11  |- ;; R S T  e.  RR
212 1re 10039 . . . . . . . . . . 11  |-  1  e.  RR
213211, 212readdcli 10053 . . . . . . . . . 10  |-  (;; R S T  +  1
)  e.  RR
214213, 209remulcli 10054 . . . . . . . . 9  |-  ( (;; R S T  + 
1 )  x. ;;; 1 0 0 0 )  e.  RR
215102nn0rei 11303 . . . . . . . . . . 11  |- ;; 1 0 0  e.  RR
21617nn0rei 11303 . . . . . . . . . . 11  |- ;; L M N  e.  RR
217215, 216remulcli 10054 . . . . . . . . . 10  |-  (;; 1 0 0  x. ;; L M N )  e.  RR
21861nn0rei 11303 . . . . . . . . . . . 12  |-  O  e.  RR
219215, 218remulcli 10054 . . . . . . . . . . 11  |-  (;; 1 0 0  x.  O
)  e.  RR
22062, 63deccl 11512 . . . . . . . . . . . 12  |- ; P Q  e.  NN0
221220nn0rei 11303 . . . . . . . . . . 11  |- ; P Q  e.  RR
222219, 221readdcli 10053 . . . . . . . . . 10  |-  ( (;; 1 0 0  x.  O )  + ; P Q )  e.  RR
223217, 222readdcli 10053 . . . . . . . . 9  |-  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O
)  + ; P Q ) )  e.  RR
224214, 223resubcli 10343 . . . . . . . 8  |-  ( ( (;; R S T  +  1 )  x. ;;; 1 0 0 0 )  -  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O
)  + ; P Q ) ) )  e.  RR
225219recni 10052 . . . . . . . . . . . 12  |-  (;; 1 0 0  x.  O
)  e.  CC
226221recni 10052 . . . . . . . . . . . 12  |- ; P Q  e.  CC
227182, 225, 226addassi 10048 . . . . . . . . . . 11  |-  ( ( (;; 1 0 0  x. ;; L M N )  +  (;; 1 0 0  x.  O ) )  + ; P Q )  =  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O )  + ; P Q ) )
228218recni 10052 . . . . . . . . . . . . . 14  |-  O  e.  CC
229103, 181, 228adddii 10050 . . . . . . . . . . . . 13  |-  (;; 1 0 0  x.  (;; L M N  +  O ) )  =  ( (;; 1 0 0  x. ;; L M N )  +  (;; 1 0 0  x.  O ) )
230 dpmul4.1 . . . . . . . . . . . . . 14  |-  (;; L M N  +  O
)  = ;;; R S T U
231230oveq2i 6661 . . . . . . . . . . . . 13  |-  (;; 1 0 0  x.  (;; L M N  +  O ) )  =  (;; 1 0 0  x. ;;; R S T U )
232229, 231eqtr3i 2646 . . . . . . . . . . . 12  |-  ( (;; 1 0 0  x. ;; L M N )  +  (;; 1 0 0  x.  O
) )  =  (;; 1 0 0  x. ;;; R S T U )
233232oveq1i 6660 . . . . . . . . . . 11  |-  ( ( (;; 1 0 0  x. ;; L M N )  +  (;; 1 0 0  x.  O ) )  + ; P Q )  =  ( (;; 1 0 0  x. ;;; R S T U )  + ; P Q )
234227, 233eqtr3i 2646 . . . . . . . . . 10  |-  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O
)  + ; P Q ) )  =  ( (;; 1 0 0  x. ;;; R S T U )  + ; P Q )
235 dpmul4.u . . . . . . . . . . . . 13  |-  U  e. 
NN0
236 dpmul4.a . . . . . . . . . . . . 13  |-  U  < ; 1 0
237 dpmul4.b . . . . . . . . . . . . 13  |-  P  < ; 1 0
238 dpmul4.c . . . . . . . . . . . . 13  |-  Q  < ; 1 0
239235, 88, 62, 101, 63, 101, 236, 237, 2383decltc 11538 . . . . . . . . . . . 12  |- ;; U P Q  < ;;; 1 0 0 0
240235, 62deccl 11512 . . . . . . . . . . . . . . 15  |- ; U P  e.  NN0
241240, 63deccl 11512 . . . . . . . . . . . . . 14  |- ;; U P Q  e.  NN0
242241nn0rei 11303 . . . . . . . . . . . . 13  |- ;; U P Q  e.  RR
243211, 209remulcli 10054 . . . . . . . . . . . . 13  |-  (;; R S T  x. ;;; 1 0 0 0 )  e.  RR
244242, 209, 243ltadd2i 10168 . . . . . . . . . . . 12  |-  (;; U P Q  < ;;; 1 0 0 0  <-> 
( (;; R S T  x. ;;; 1 0 0 0 )  + ;; U P Q )  <  (
(;; R S T  x. ;;; 1 0 0 0 )  + ;;; 1 0 0 0 ) )
245239, 244mpbi 220 . . . . . . . . . . 11  |-  ( (;; R S T  x. ;;; 1 0 0 0 )  + ;; U P Q )  <  (
(;; R S T  x. ;;; 1 0 0 0 )  + ;;; 1 0 0 0 )
246140, 177mulcli 10045 . . . . . . . . . . . . 13  |-  (;; R S T  x. ;;; 1 0 0 0 )  e.  CC
247235nn0cni 11304 . . . . . . . . . . . . . 14  |-  U  e.  CC
248103, 247mulcli 10045 . . . . . . . . . . . . 13  |-  (;; 1 0 0  x.  U
)  e.  CC
249246, 248, 226addassi 10048 . . . . . . . . . . . 12  |-  ( ( (;; R S T  x. ;;; 1 0 0 0 )  +  (;; 1 0 0  x.  U
) )  + ; P Q )  =  ( (;; R S T  x. ;;; 1 0 0 0 )  +  ( (;; 1 0 0  x.  U )  + ; P Q ) )
250 dfdec10 11497 . . . . . . . . . . . . . . 15  |- ;;; R S T U  =  ( (; 1 0  x. ;; R S T )  +  U
)
251250oveq2i 6661 . . . . . . . . . . . . . 14  |-  (;; 1 0 0  x. ;;; R S T U )  =  (;; 1 0 0  x.  (
(; 1 0  x. ;; R S T )  +  U
) )
25224, 140mulcli 10045 . . . . . . . . . . . . . . 15  |-  (; 1 0  x. ;; R S T )  e.  CC
253103, 252, 247adddii 10050 . . . . . . . . . . . . . 14  |-  (;; 1 0 0  x.  (
(; 1 0  x. ;; R S T )  +  U
) )  =  ( (;; 1 0 0  x.  (; 1 0  x. ;; R S T ) )  +  (;; 1 0 0  x.  U ) )
254140, 177mulcomi 10046 . . . . . . . . . . . . . . . 16  |-  (;; R S T  x. ;;; 1 0 0 0 )  =  (;;; 1 0 0 0  x. ;; R S T )
25524, 103mulcomi 10046 . . . . . . . . . . . . . . . . . 18  |-  (; 1 0  x. ;; 1 0 0 )  =  (;; 1 0 0  x. ; 1 0 )
256255, 195eqtr3i 2646 . . . . . . . . . . . . . . . . 17  |-  (;; 1 0 0  x. ; 1 0 )  = ;;; 1 0 0 0
257256oveq1i 6660 . . . . . . . . . . . . . . . 16  |-  ( (;; 1 0 0  x. ; 1
0 )  x. ;; R S T )  =  (;;; 1 0 0 0  x. ;; R S T )
258103, 24, 140mulassi 10049 . . . . . . . . . . . . . . . 16  |-  ( (;; 1 0 0  x. ; 1
0 )  x. ;; R S T )  =  (;; 1 0 0  x.  (; 1 0  x. ;; R S T ) )
259254, 257, 2583eqtr2ri 2651 . . . . . . . . . . . . . . 15  |-  (;; 1 0 0  x.  (; 1 0  x. ;; R S T ) )  =  (;; R S T  x. ;;; 1 0 0 0 )
260259oveq1i 6660 . . . . . . . . . . . . . 14  |-  ( (;; 1 0 0  x.  (; 1 0  x. ;; R S T ) )  +  (;; 1 0 0  x.  U ) )  =  ( (;; R S T  x. ;;; 1 0 0 0 )  +  (;; 1 0 0  x.  U
) )
261251, 253, 2603eqtri 2648 . . . . . . . . . . . . 13  |-  (;; 1 0 0  x. ;;; R S T U )  =  ( (;; R S T  x. ;;; 1 0 0 0 )  +  (;; 1 0 0  x.  U
) )
262261oveq1i 6660 . . . . . . . . . . . 12  |-  ( (;; 1 0 0  x. ;;; R S T U )  + ; P Q )  =  ( ( (;; R S T  x. ;;; 1 0 0 0 )  +  (;; 1 0 0  x.  U
) )  + ; P Q )
263235, 62, 64dfdec100 29576 . . . . . . . . . . . . 13  |- ;; U P Q  =  (
(;; 1 0 0  x.  U )  + ; P Q )
264263oveq2i 6661 . . . . . . . . . . . 12  |-  ( (;; R S T  x. ;;; 1 0 0 0 )  + ;; U P Q )  =  ( (;; R S T  x. ;;; 1 0 0 0 )  +  ( (;; 1 0 0  x.  U )  + ; P Q ) )
265249, 262, 2643eqtr4i 2654 . . . . . . . . . . 11  |-  ( (;; 1 0 0  x. ;;; R S T U )  + ; P Q )  =  ( (;; R S T  x. ;;; 1 0 0 0 )  + ;; U P Q )
266140, 141, 177adddiri 10051 . . . . . . . . . . . 12  |-  ( (;; R S T  + 
1 )  x. ;;; 1 0 0 0 )  =  ( (;; R S T  x. ;;; 1 0 0 0 )  +  ( 1  x. ;;; 1 0 0 0 ) )
267177mulid2i 10043 . . . . . . . . . . . . 13  |-  ( 1  x. ;;; 1 0 0 0 )  = ;;; 1 0 0 0
268267oveq2i 6661 . . . . . . . . . . . 12  |-  ( (;; R S T  x. ;;; 1 0 0 0 )  +  ( 1  x. ;;; 1 0 0 0 ) )  =  ( (;; R S T  x. ;;; 1 0 0 0 )  + ;;; 1 0 0 0 )
269266, 268eqtri 2644 . . . . . . . . . . 11  |-  ( (;; R S T  + 
1 )  x. ;;; 1 0 0 0 )  =  ( (;; R S T  x. ;;; 1 0 0 0 )  + ;;; 1 0 0 0 )
270245, 265, 2693brtr4i 4683 . . . . . . . . . 10  |-  ( (;; 1 0 0  x. ;;; R S T U )  + ; P Q )  <  (
(;; R S T  +  1 )  x. ;;; 1 0 0 0 )
271234, 270eqbrtri 4674 . . . . . . . . 9  |-  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O
)  + ; P Q ) )  <  ( (;; R S T  +  1
)  x. ;;; 1 0 0 0 )
272223, 214posdifi 10578 . . . . . . . . 9  |-  ( ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O )  + ; P Q ) )  < 
( (;; R S T  +  1
)  x. ;;; 1 0 0 0 )  <->  0  <  (
( (;; R S T  +  1
)  x. ;;; 1 0 0 0 )  -  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O
)  + ; P Q ) ) ) )
273271, 272mpbi 220 . . . . . . . 8  |-  0  <  ( ( (;; R S T  +  1
)  x. ;;; 1 0 0 0 )  -  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O
)  + ; P Q ) ) )
274 elrp 11834 . . . . . . . 8  |-  ( ( ( (;; R S T  +  1
)  x. ;;; 1 0 0 0 )  -  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O
)  + ; P Q ) ) )  e.  RR+  <->  ( (
( (;; R S T  +  1
)  x. ;;; 1 0 0 0 )  -  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O
)  + ; P Q ) ) )  e.  RR  /\  0  <  ( ( (;; R S T  + 
1 )  x. ;;; 1 0 0 0 )  -  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O
)  + ; P Q ) ) ) ) )
275224, 273, 274mpbir2an 955 . . . . . . 7  |-  ( ( (;; R S T  +  1 )  x. ;;; 1 0 0 0 )  -  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O
)  + ; P Q ) ) )  e.  RR+
276 ltsubrp 11866 . . . . . . 7  |-  ( ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  e.  RR  /\  ( ( (;; R S T  +  1
)  x. ;;; 1 0 0 0 )  -  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O
)  + ; P Q ) ) )  e.  RR+ )  ->  ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  -  ( ( (;; R S T  +  1 )  x. ;;; 1 0 0 0 )  -  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O
)  + ; P Q ) ) ) )  <  (;;; W X Y Z  x. ;;; 1 0 0 0 ) )
277210, 275, 276mp2an 708 . . . . . 6  |-  ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  -  ( ( (;; R S T  +  1 )  x. ;;; 1 0 0 0 )  -  ( (;; 1 0 0  x. ;; L M N )  +  ( (;; 1 0 0  x.  O
)  + ; P Q ) ) ) )  <  (;;; W X Y Z  x. ;;; 1 0 0 0 )
278207, 277eqbrtri 4674 . . . . 5  |-  (;;; A B C D  x. ;;; E F G H )  <  (;;; W X Y Z  x. ;;; 1 0 0 0 )
2793, 4deccl 11512 . . . . . . . . 9  |- ;; A B C  e.  NN0
280279, 5deccl 11512 . . . . . . . 8  |- ;;; A B C D  e.  NN0
281280nn0rei 11303 . . . . . . 7  |- ;;; A B C D  e.  RR
2829, 10deccl 11512 . . . . . . . . 9  |- ;; E F G  e.  NN0
283282, 11deccl 11512 . . . . . . . 8  |- ;;; E F G H  e.  NN0
284283nn0rei 11303 . . . . . . 7  |- ;;; E F G H  e.  RR
285281, 284remulcli 10054 . . . . . 6  |-  (;;; A B C D  x. ;;; E F G H )  e.  RR
28623decnncl2 11525 . . . . . . . . 9  |- ;; 1 0 0  e.  NN
287286decnncl2 11525 . . . . . . . 8  |- ;;; 1 0 0 0  e.  NN
288287nngt0i 11054 . . . . . . 7  |-  0  < ;;; 1 0 0 0
289209, 288pm3.2i 471 . . . . . 6  |-  (;;; 1 0 0 0  e.  RR  /\  0  < ;;; 1 0 0 0 )
290 ltdiv1 10887 . . . . . 6  |-  ( ( (;;; A B C D  x. ;;; E F G H )  e.  RR  /\  (;;; W X Y Z  x. ;;; 1 0 0 0 )  e.  RR  /\  (;;; 1 0 0 0  e.  RR  /\  0  < ;;; 1 0 0 0 ) )  ->  ( (;;; A B C D  x. ;;; E F G H )  <  (;;; W X Y Z  x. ;;; 1 0 0 0 )  <->  ( (;;; A B C D  x. ;;; E F G H )  / ;;; 1 0 0 0 )  <  ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  / ;;; 1 0 0 0 ) ) )
291285, 210, 289, 290mp3an 1424 . . . . 5  |-  ( (;;; A B C D  x. ;;; E F G H )  <  (;;; W X Y Z  x. ;;; 1 0 0 0 )  <->  ( (;;; A B C D  x. ;;; E F G H )  / ;;; 1 0 0 0 )  <  ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  / ;;; 1 0 0 0 ) )
292278, 291mpbi 220 . . . 4  |-  ( (;;; A B C D  x. ;;; E F G H )  / ;;; 1 0 0 0 )  <  ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  / ;;; 1 0 0 0 )
293280nn0cni 11304 . . . . . 6  |- ;;; A B C D  e.  CC
294283nn0cni 11304 . . . . . 6  |- ;;; E F G H  e.  CC
295209, 288gt0ne0ii 10564 . . . . . 6  |- ;;; 1 0 0 0  =/=  0
296293, 294, 177, 295div23i 10783 . . . . 5  |-  ( (;;; A B C D  x. ;;; E F G H )  / ;;; 1 0 0 0 )  =  ( (;;; A B C D  / ;;; 1 0 0 0 )  x. ;;; E F G H )
2971, 2, 4, 48dpmul1000 29607 . . . . . . . 8  |-  ( ( A period_ B_ C D )  x. ;;; 1 0 0 0 )  = ;;; A B C D
298297oveq1i 6660 . . . . . . 7  |-  ( ( ( A period_ B_ C D )  x. ;;; 1 0 0 0 )  / ;;; 1 0 0 0 )  =  (;;; A B C D  / ;;; 1 0 0 0 )
2994nn0rei 11303 . . . . . . . . . . . 12  |-  C  e.  RR
300 dp2cl 29587 . . . . . . . . . . . 12  |-  ( ( C  e.  RR  /\  D  e.  RR )  -> _ C D  e.  RR )
301299, 48, 300mp2an 708 . . . . . . . . . . 11  |- _ C D  e.  RR
302 dp2cl 29587 . . . . . . . . . . 11  |-  ( ( B  e.  RR  /\ _ C D  e.  RR )  -> _ B_ C D  e.  RR )
30319, 301, 302mp2an 708 . . . . . . . . . 10  |- _ B_ C D  e.  RR
304 dpcl 29598 . . . . . . . . . 10  |-  ( ( A  e.  NN0  /\ _ B_ C D  e.  RR )  ->  ( A period_ B_ C D )  e.  RR )
3051, 303, 304mp2an 708 . . . . . . . . 9  |-  ( A
period_ B_ C D )  e.  RR
306305recni 10052 . . . . . . . 8  |-  ( A
period_ B_ C D )  e.  CC
307306, 177, 295divcan4i 10772 . . . . . . 7  |-  ( ( ( A period_ B_ C D )  x. ;;; 1 0 0 0 )  / ;;; 1 0 0 0 )  =  ( A
period_ B_ C D )
308298, 307eqtr3i 2646 . . . . . 6  |-  (;;; A B C D  / ;;; 1 0 0 0 )  =  ( A
period_ B_ C D )
309308oveq1i 6660 . . . . 5  |-  ( (;;; A B C D  / ;;; 1 0 0 0 )  x. ;;; E F G H )  =  ( ( A period_ B_ C D )  x. ;;; E F G H )
310296, 309eqtri 2644 . . . 4  |-  ( (;;; A B C D  x. ;;; E F G H )  / ;;; 1 0 0 0 )  =  ( ( A period_ B_ C D )  x. ;;; E F G H )
311175, 177, 295divcan4i 10772 . . . 4  |-  ( (;;; W X Y Z  x. ;;; 1 0 0 0 )  / ;;; 1 0 0 0 )  = ;;; W X Y Z
312292, 310, 3113brtr3i 4682 . . 3  |-  ( ( A period_ B_ C D )  x. ;;; E F G H )  < ;;; W X Y Z
313305, 284remulcli 10054 . . . 4  |-  ( ( A period_ B_ C D )  x. ;;; E F G H )  e.  RR
314 ltdiv1 10887 . . . 4  |-  ( ( ( ( A period_ B_ C D )  x. ;;; E F G H )  e.  RR  /\ ;;; W X Y Z  e.  RR  /\  (;;; 1 0 0 0  e.  RR  /\  0  < ;;; 1 0 0 0 ) )  ->  ( (
( A period_ B_ C D )  x. ;;; E F G H )  < ;;; W X Y Z  <-> 
( ( ( A
period_ B_ C D )  x. ;;; E F G H )  / ;;; 1 0 0 0 )  <  (;;; W X Y Z  / ;;; 1 0 0 0 ) ) )
315313, 208, 289, 314mp3an 1424 . . 3  |-  ( ( ( A period_ B_ C D )  x. ;;; E F G H )  < ;;; W X Y Z  <-> 
( ( ( A
period_ B_ C D )  x. ;;; E F G H )  / ;;; 1 0 0 0 )  <  (;;; W X Y Z  / ;;; 1 0 0 0 ) )
316312, 315mpbi 220 . 2  |-  ( ( ( A period_ B_ C D )  x. ;;; E F G H )  / ;;; 1 0 0 0 )  <  (;;; W X Y Z  / ;;; 1 0 0 0 )
317306, 294, 177, 295divassi 10781 . . 3  |-  ( ( ( A period_ B_ C D )  x. ;;; E F G H )  / ;;; 1 0 0 0 )  =  ( ( A period_ B_ C D )  x.  (;;; E F G H  / ;;; 1 0 0 0 ) )
3187, 8, 10, 52dpmul1000 29607 . . . . . 6  |-  ( ( E period_ F_ G H )  x. ;;; 1 0 0 0 )  = ;;; E F G H
319318oveq1i 6660 . . . . 5  |-  ( ( ( E period_ F_ G H )  x. ;;; 1 0 0 0 )  / ;;; 1 0 0 0 )  =  (;;; E F G H  / ;;; 1 0 0 0 )
32010nn0rei 11303 . . . . . . . . . 10  |-  G  e.  RR
321 dp2cl 29587 . . . . . . . . . 10  |-  ( ( G  e.  RR  /\  H  e.  RR )  -> _ G H  e.  RR )
322320, 52, 321mp2an 708 . . . . . . . . 9  |- _ G H  e.  RR
323 dp2cl 29587 . . . . . . . . 9  |-  ( ( F  e.  RR  /\ _ G H  e.  RR )  -> _ F_ G H  e.  RR )
32425, 322, 323mp2an 708 . . . . . . . 8  |- _ F_ G H  e.  RR
325 dpcl 29598 . . . . . . . 8  |-  ( ( E  e.  NN0  /\ _ F_ G H  e.  RR )  ->  ( E period_ F_ G H )  e.  RR )
3267, 324, 325mp2an 708 . . . . . . 7  |-  ( E
period_ F_ G H )  e.  RR
327326recni 10052 . . . . . 6  |-  ( E
period_ F_ G H )  e.  CC
328327, 177, 295divcan4i 10772 . . . . 5  |-  ( ( ( E period_ F_ G H )  x. ;;; 1 0 0 0 )  / ;;; 1 0 0 0 )  =  ( E
period_ F_ G H )
329319, 328eqtr3i 2646 . . . 4  |-  (;;; E F G H  / ;;; 1 0 0 0 )  =  ( E
period_ F_ G H )
330329oveq2i 6661 . . 3  |-  ( ( A period_ B_ C D )  x.  (;;; E F G H  / ;;; 1 0 0 0 ) )  =  ( ( A period_ B_ C D )  x.  ( E period_ F_ G H ) )
331317, 330eqtri 2644 . 2  |-  ( ( ( A period_ B_ C D )  x. ;;; E F G H )  / ;;; 1 0 0 0 )  =  ( ( A period_ B_ C D )  x.  ( E period_ F_ G H ) )
332173nn0rei 11303 . . . . 5  |-  Z  e.  RR
333168, 169, 171, 332dpmul1000 29607 . . . 4  |-  ( ( W period_ X_ Y Z )  x. ;;; 1 0 0 0 )  = ;;; W X Y Z
334333oveq1i 6660 . . 3  |-  ( ( ( W period_ X_ Y Z )  x. ;;; 1 0 0 0 )  / ;;; 1 0 0 0 )  =  (;;; W X Y Z  / ;;; 1 0 0 0 )
335169nn0rei 11303 . . . . . . 7  |-  X  e.  RR
336171nn0rei 11303 . . . . . . . 8  |-  Y  e.  RR
337 dp2cl 29587 . . . . . . . 8  |-  ( ( Y  e.  RR  /\  Z  e.  RR )  -> _ Y Z  e.  RR )
338336, 332, 337mp2an 708 . . . . . . 7  |- _ Y Z  e.  RR
339 dp2cl 29587 . . . . . . 7  |-  ( ( X  e.  RR  /\ _ Y Z  e.  RR )  -> _ X_ Y Z  e.  RR )
340335, 338, 339mp2an 708 . . . . . 6  |- _ X_ Y Z  e.  RR
341 dpcl 29598 . . . . . 6  |-  ( ( W  e.  NN0  /\ _ X_ Y Z  e.  RR )  ->  ( W period_ X_ Y Z )  e.  RR )
342168, 340, 341mp2an 708 . . . . 5  |-  ( W
period_ X_ Y Z )  e.  RR
343342recni 10052 . . . 4  |-  ( W
period_ X_ Y Z )  e.  CC
344343, 177, 295divcan4i 10772 . . 3  |-  ( ( ( W period_ X_ Y Z )  x. ;;; 1 0 0 0 )  / ;;; 1 0 0 0 )  =  ( W
period_ X_ Y Z )
345334, 344eqtr3i 2646 . 2  |-  (;;; W X Y Z  / ;;; 1 0 0 0 )  =  ( W
period_ X_ Y Z )
346316, 331, 3453brtr3i 4682 1  |-  ( ( A period_ B_ C D )  x.  ( E period_ F_ G H ) )  < 
( W period_ X_ Y Z )
Colors of variables: wff setvar class
Syntax hints:    <-> wb 196    /\ wa 384    = wceq 1483    e. wcel 1990   class class class wbr 4653  (class class class)co 6650   CCcc 9934   RRcr 9935   0cc0 9936   1c1 9937    + caddc 9939    x. cmul 9941    < clt 10074    - cmin 10266    / cdiv 10684   2c2 11070   NN0cn0 11292  ;cdc 11493   RR+crp 11832   ^cexp 12860  _cdp2 29577   periodcdp 29595
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949  ax-cnex 9992  ax-resscn 9993  ax-1cn 9994  ax-icn 9995  ax-addcl 9996  ax-addrcl 9997  ax-mulcl 9998  ax-mulrcl 9999  ax-mulcom 10000  ax-addass 10001  ax-mulass 10002  ax-distr 10003  ax-i2m1 10004  ax-1ne0 10005  ax-1rid 10006  ax-rnegex 10007  ax-rrecex 10008  ax-cnre 10009  ax-pre-lttri 10010  ax-pre-lttrn 10011  ax-pre-ltadd 10012  ax-pre-mulgt0 10013
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-nel 2898  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-pss 3590  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-tp 4182  df-op 4184  df-uni 4437  df-iun 4522  df-br 4654  df-opab 4713  df-mpt 4730  df-tr 4753  df-id 5024  df-eprel 5029  df-po 5035  df-so 5036  df-fr 5073  df-we 5075  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-pred 5680  df-ord 5726  df-on 5727  df-lim 5728  df-suc 5729  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-f1 5893  df-fo 5894  df-f1o 5895  df-fv 5896  df-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-om 7066  df-2nd 7169  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-er 7742  df-en 7956  df-dom 7957  df-sdom 7958  df-pnf 10076  df-mnf 10077  df-xr 10078  df-ltxr 10079  df-le 10080  df-sub 10268  df-neg 10269  df-div 10685  df-nn 11021  df-2 11079  df-3 11080  df-4 11081  df-5 11082  df-6 11083  df-7 11084  df-8 11085  df-9 11086  df-n0 11293  df-z 11378  df-dec 11494  df-uz 11688  df-rp 11833  df-seq 12802  df-exp 12861  df-dp2 29578  df-dp 29596
This theorem is referenced by:  hgt750lem2  30730
  Copyright terms: Public domain W3C validator