Metamath Proof Explorer


Theorem fmul01

Description: Multiplying a finite number of values in [ 0 , 1 ] , gives the final product itself a number in [ 0 , 1 ]. (Contributed by Glauco Siliprandi, 20-Apr-2017)

Ref Expression
Hypotheses fmul01.1 _ i B
fmul01.2 i φ
fmul01.3 A = seq L × B
fmul01.4 φ L
fmul01.5 φ M L
fmul01.6 φ K L M
fmul01.7 φ i L M B i
fmul01.8 φ i L M 0 B i
fmul01.9 φ i L M B i 1
Assertion fmul01 φ 0 A K A K 1

Proof

Step Hyp Ref Expression
1 fmul01.1 _ i B
2 fmul01.2 i φ
3 fmul01.3 A = seq L × B
4 fmul01.4 φ L
5 fmul01.5 φ M L
6 fmul01.6 φ K L M
7 fmul01.7 φ i L M B i
8 fmul01.8 φ i L M 0 B i
9 fmul01.9 φ i L M B i 1
10 fveq2 k = L A k = A L
11 10 breq2d k = L 0 A k 0 A L
12 10 breq1d k = L A k 1 A L 1
13 11 12 anbi12d k = L 0 A k A k 1 0 A L A L 1
14 13 imbi2d k = L φ 0 A k A k 1 φ 0 A L A L 1
15 fveq2 k = j A k = A j
16 15 breq2d k = j 0 A k 0 A j
17 15 breq1d k = j A k 1 A j 1
18 16 17 anbi12d k = j 0 A k A k 1 0 A j A j 1
19 18 imbi2d k = j φ 0 A k A k 1 φ 0 A j A j 1
20 fveq2 k = j + 1 A k = A j + 1
21 20 breq2d k = j + 1 0 A k 0 A j + 1
22 20 breq1d k = j + 1 A k 1 A j + 1 1
23 21 22 anbi12d k = j + 1 0 A k A k 1 0 A j + 1 A j + 1 1
24 23 imbi2d k = j + 1 φ 0 A k A k 1 φ 0 A j + 1 A j + 1 1
25 fveq2 k = K A k = A K
26 25 breq2d k = K 0 A k 0 A K
27 25 breq1d k = K A k 1 A K 1
28 26 27 anbi12d k = K 0 A k A k 1 0 A K A K 1
29 28 imbi2d k = K φ 0 A k A k 1 φ 0 A K A K 1
30 4 zred φ L
31 30 leidd φ L L
32 eluzelz M L M
33 5 32 syl φ M
34 eluz L M M L L M
35 4 33 34 syl2anc φ M L L M
36 5 35 mpbid φ L M
37 elfz L L M L L M L L L M
38 4 4 33 37 syl3anc φ L L M L L L M
39 31 36 38 mpbir2and φ L L M
40 39 ancli φ φ L L M
41 nfv i L L M
42 2 41 nfan i φ L L M
43 nfcv _ i 0
44 nfcv _ i
45 nfcv _ i L
46 1 45 nffv _ i B L
47 43 44 46 nfbr i 0 B L
48 42 47 nfim i φ L L M 0 B L
49 eleq1 i = L i L M L L M
50 49 anbi2d i = L φ i L M φ L L M
51 fveq2 i = L B i = B L
52 51 breq2d i = L 0 B i 0 B L
53 50 52 imbi12d i = L φ i L M 0 B i φ L L M 0 B L
54 48 53 8 vtoclg1f L L M φ L L M 0 B L
55 39 40 54 sylc φ 0 B L
56 3 fveq1i A L = seq L × B L
57 seq1 L seq L × B L = B L
58 4 57 syl φ seq L × B L = B L
59 56 58 syl5eq φ A L = B L
60 55 59 breqtrrd φ 0 A L
61 nfcv _ i 1
62 46 44 61 nfbr i B L 1
63 42 62 nfim i φ L L M B L 1
64 51 breq1d i = L B i 1 B L 1
65 50 64 imbi12d i = L φ i L M B i 1 φ L L M B L 1
66 63 65 9 vtoclg1f L L M φ L L M B L 1
67 39 40 66 sylc φ B L 1
68 59 67 eqbrtrd φ A L 1
69 60 68 jca φ 0 A L A L 1
70 69 a1i M L φ 0 A L A L 1
71 elfzouz j L ..^ M j L
72 71 3ad2ant1 j L ..^ M φ 0 A j A j 1 φ j L
73 simpl3 j L ..^ M φ 0 A j A j 1 φ k L j φ
74 elfzouz2 j L ..^ M M j
75 fzss2 M j L j L M
76 74 75 syl j L ..^ M L j L M
77 76 3ad2ant1 j L ..^ M φ 0 A j A j 1 φ L j L M
78 77 sselda j L ..^ M φ 0 A j A j 1 φ k L j k L M
79 nfv i k L M
80 2 79 nfan i φ k L M
81 nfcv _ i k
82 1 81 nffv _ i B k
83 82 nfel1 i B k
84 80 83 nfim i φ k L M B k
85 eleq1 i = k i L M k L M
86 85 anbi2d i = k φ i L M φ k L M
87 fveq2 i = k B i = B k
88 87 eleq1d i = k B i B k
89 86 88 imbi12d i = k φ i L M B i φ k L M B k
90 84 89 7 chvarfv φ k L M B k
91 73 78 90 syl2anc j L ..^ M φ 0 A j A j 1 φ k L j B k
92 remulcl k l k l
93 92 adantl j L ..^ M φ 0 A j A j 1 φ k l k l
94 72 91 93 seqcl j L ..^ M φ 0 A j A j 1 φ seq L × B j
95 simp3 j L ..^ M φ 0 A j A j 1 φ φ
96 fzofzp1 j L ..^ M j + 1 L M
97 96 3ad2ant1 j L ..^ M φ 0 A j A j 1 φ j + 1 L M
98 nfv i j + 1 L M
99 2 98 nfan i φ j + 1 L M
100 nfcv _ i j + 1
101 1 100 nffv _ i B j + 1
102 101 nfel1 i B j + 1
103 99 102 nfim i φ j + 1 L M B j + 1
104 eleq1 i = j + 1 i L M j + 1 L M
105 104 anbi2d i = j + 1 φ i L M φ j + 1 L M
106 fveq2 i = j + 1 B i = B j + 1
107 106 eleq1d i = j + 1 B i B j + 1
108 105 107 imbi12d i = j + 1 φ i L M B i φ j + 1 L M B j + 1
109 103 108 7 vtoclg1f j + 1 L M φ j + 1 L M B j + 1
110 109 anabsi7 φ j + 1 L M B j + 1
111 95 97 110 syl2anc j L ..^ M φ 0 A j A j 1 φ B j + 1
112 pm3.35 φ φ 0 A j A j 1 0 A j A j 1
113 112 ancoms φ 0 A j A j 1 φ 0 A j A j 1
114 simpl 0 A j A j 1 0 A j
115 113 114 syl φ 0 A j A j 1 φ 0 A j
116 115 3adant1 j L ..^ M φ 0 A j A j 1 φ 0 A j
117 3 fveq1i A j = seq L × B j
118 116 117 breqtrdi j L ..^ M φ 0 A j A j 1 φ 0 seq L × B j
119 simp1 j L ..^ M φ 0 A j A j 1 φ j L ..^ M
120 96 adantl φ j L ..^ M j + 1 L M
121 simpl φ j L ..^ M φ
122 121 120 jca φ j L ..^ M φ j + 1 L M
123 43 44 101 nfbr i 0 B j + 1
124 99 123 nfim i φ j + 1 L M 0 B j + 1
125 106 breq2d i = j + 1 0 B i 0 B j + 1
126 105 125 imbi12d i = j + 1 φ i L M 0 B i φ j + 1 L M 0 B j + 1
127 124 126 8 vtoclg1f j + 1 L M φ j + 1 L M 0 B j + 1
128 120 122 127 sylc φ j L ..^ M 0 B j + 1
129 95 119 128 syl2anc j L ..^ M φ 0 A j A j 1 φ 0 B j + 1
130 94 111 118 129 mulge0d j L ..^ M φ 0 A j A j 1 φ 0 seq L × B j B j + 1
131 seqp1 j L seq L × B j + 1 = seq L × B j B j + 1
132 72 131 syl j L ..^ M φ 0 A j A j 1 φ seq L × B j + 1 = seq L × B j B j + 1
133 130 132 breqtrrd j L ..^ M φ 0 A j A j 1 φ 0 seq L × B j + 1
134 3 fveq1i A j + 1 = seq L × B j + 1
135 133 134 breqtrrdi j L ..^ M φ 0 A j A j 1 φ 0 A j + 1
136 94 111 remulcld j L ..^ M φ 0 A j A j 1 φ seq L × B j B j + 1
137 1red j L ..^ M φ 0 A j A j 1 φ 1
138 95 97 jca j L ..^ M φ 0 A j A j 1 φ φ j + 1 L M
139 101 44 61 nfbr i B j + 1 1
140 99 139 nfim i φ j + 1 L M B j + 1 1
141 106 breq1d i = j + 1 B i 1 B j + 1 1
142 105 141 imbi12d i = j + 1 φ i L M B i 1 φ j + 1 L M B j + 1 1
143 140 142 9 vtoclg1f j + 1 L M φ j + 1 L M B j + 1 1
144 97 138 143 sylc j L ..^ M φ 0 A j A j 1 φ B j + 1 1
145 111 137 94 118 144 lemul2ad j L ..^ M φ 0 A j A j 1 φ seq L × B j B j + 1 seq L × B j 1
146 94 recnd j L ..^ M φ 0 A j A j 1 φ seq L × B j
147 146 mulid1d j L ..^ M φ 0 A j A j 1 φ seq L × B j 1 = seq L × B j
148 145 147 breqtrd j L ..^ M φ 0 A j A j 1 φ seq L × B j B j + 1 seq L × B j
149 simp2 j L ..^ M φ 0 A j A j 1 φ φ 0 A j A j 1
150 112 simprd φ φ 0 A j A j 1 A j 1
151 95 149 150 syl2anc j L ..^ M φ 0 A j A j 1 φ A j 1
152 117 151 eqbrtrrid j L ..^ M φ 0 A j A j 1 φ seq L × B j 1
153 136 94 137 148 152 letrd j L ..^ M φ 0 A j A j 1 φ seq L × B j B j + 1 1
154 132 153 eqbrtrd j L ..^ M φ 0 A j A j 1 φ seq L × B j + 1 1
155 134 154 eqbrtrid j L ..^ M φ 0 A j A j 1 φ A j + 1 1
156 135 155 jca j L ..^ M φ 0 A j A j 1 φ 0 A j + 1 A j + 1 1
157 156 3exp j L ..^ M φ 0 A j A j 1 φ 0 A j + 1 A j + 1 1
158 14 19 24 29 70 157 fzind2 K L M φ 0 A K A K 1
159 6 158 mpcom φ 0 A K A K 1