Metamath Proof Explorer


Theorem ef01bndlem

Description: Lemma for sin01bnd and cos01bnd . (Contributed by Paul Chapman, 19-Jan-2008)

Ref Expression
Hypothesis ef01bnd.1 โŠข ๐น = ( ๐‘› โˆˆ โ„•0 โ†ฆ ( ( ( i ยท ๐ด ) โ†‘ ๐‘› ) / ( ! โ€˜ ๐‘› ) ) )
Assertion ef01bndlem ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( abs โ€˜ ฮฃ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ 4 ) ( ๐น โ€˜ ๐‘˜ ) ) < ( ( ๐ด โ†‘ 4 ) / 6 ) )

Proof

Step Hyp Ref Expression
1 ef01bnd.1 โŠข ๐น = ( ๐‘› โˆˆ โ„•0 โ†ฆ ( ( ( i ยท ๐ด ) โ†‘ ๐‘› ) / ( ! โ€˜ ๐‘› ) ) )
2 ax-icn โŠข i โˆˆ โ„‚
3 0xr โŠข 0 โˆˆ โ„*
4 1re โŠข 1 โˆˆ โ„
5 elioc2 โŠข ( ( 0 โˆˆ โ„* โˆง 1 โˆˆ โ„ ) โ†’ ( ๐ด โˆˆ ( 0 (,] 1 ) โ†” ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด โˆง ๐ด โ‰ค 1 ) ) )
6 3 4 5 mp2an โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†” ( ๐ด โˆˆ โ„ โˆง 0 < ๐ด โˆง ๐ด โ‰ค 1 ) )
7 6 simp1bi โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ๐ด โˆˆ โ„ )
8 7 recnd โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ๐ด โˆˆ โ„‚ )
9 mulcl โŠข ( ( i โˆˆ โ„‚ โˆง ๐ด โˆˆ โ„‚ ) โ†’ ( i ยท ๐ด ) โˆˆ โ„‚ )
10 2 8 9 sylancr โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( i ยท ๐ด ) โˆˆ โ„‚ )
11 4nn0 โŠข 4 โˆˆ โ„•0
12 1 eftlcl โŠข ( ( ( i ยท ๐ด ) โˆˆ โ„‚ โˆง 4 โˆˆ โ„•0 ) โ†’ ฮฃ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ 4 ) ( ๐น โ€˜ ๐‘˜ ) โˆˆ โ„‚ )
13 10 11 12 sylancl โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ฮฃ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ 4 ) ( ๐น โ€˜ ๐‘˜ ) โˆˆ โ„‚ )
14 13 abscld โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( abs โ€˜ ฮฃ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ 4 ) ( ๐น โ€˜ ๐‘˜ ) ) โˆˆ โ„ )
15 reexpcl โŠข ( ( ๐ด โˆˆ โ„ โˆง 4 โˆˆ โ„•0 ) โ†’ ( ๐ด โ†‘ 4 ) โˆˆ โ„ )
16 7 11 15 sylancl โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( ๐ด โ†‘ 4 ) โˆˆ โ„ )
17 4re โŠข 4 โˆˆ โ„
18 17 4 readdcli โŠข ( 4 + 1 ) โˆˆ โ„
19 faccl โŠข ( 4 โˆˆ โ„•0 โ†’ ( ! โ€˜ 4 ) โˆˆ โ„• )
20 11 19 ax-mp โŠข ( ! โ€˜ 4 ) โˆˆ โ„•
21 4nn โŠข 4 โˆˆ โ„•
22 20 21 nnmulcli โŠข ( ( ! โ€˜ 4 ) ยท 4 ) โˆˆ โ„•
23 nndivre โŠข ( ( ( 4 + 1 ) โˆˆ โ„ โˆง ( ( ! โ€˜ 4 ) ยท 4 ) โˆˆ โ„• ) โ†’ ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) โˆˆ โ„ )
24 18 22 23 mp2an โŠข ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) โˆˆ โ„
25 remulcl โŠข ( ( ( ๐ด โ†‘ 4 ) โˆˆ โ„ โˆง ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) โˆˆ โ„ ) โ†’ ( ( ๐ด โ†‘ 4 ) ยท ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) ) โˆˆ โ„ )
26 16 24 25 sylancl โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( ( ๐ด โ†‘ 4 ) ยท ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) ) โˆˆ โ„ )
27 6nn โŠข 6 โˆˆ โ„•
28 nndivre โŠข ( ( ( ๐ด โ†‘ 4 ) โˆˆ โ„ โˆง 6 โˆˆ โ„• ) โ†’ ( ( ๐ด โ†‘ 4 ) / 6 ) โˆˆ โ„ )
29 16 27 28 sylancl โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( ( ๐ด โ†‘ 4 ) / 6 ) โˆˆ โ„ )
30 eqid โŠข ( ๐‘› โˆˆ โ„•0 โ†ฆ ( ( ( abs โ€˜ ( i ยท ๐ด ) ) โ†‘ ๐‘› ) / ( ! โ€˜ ๐‘› ) ) ) = ( ๐‘› โˆˆ โ„•0 โ†ฆ ( ( ( abs โ€˜ ( i ยท ๐ด ) ) โ†‘ ๐‘› ) / ( ! โ€˜ ๐‘› ) ) )
31 eqid โŠข ( ๐‘› โˆˆ โ„•0 โ†ฆ ( ( ( ( abs โ€˜ ( i ยท ๐ด ) ) โ†‘ 4 ) / ( ! โ€˜ 4 ) ) ยท ( ( 1 / ( 4 + 1 ) ) โ†‘ ๐‘› ) ) ) = ( ๐‘› โˆˆ โ„•0 โ†ฆ ( ( ( ( abs โ€˜ ( i ยท ๐ด ) ) โ†‘ 4 ) / ( ! โ€˜ 4 ) ) ยท ( ( 1 / ( 4 + 1 ) ) โ†‘ ๐‘› ) ) )
32 21 a1i โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ 4 โˆˆ โ„• )
33 absmul โŠข ( ( i โˆˆ โ„‚ โˆง ๐ด โˆˆ โ„‚ ) โ†’ ( abs โ€˜ ( i ยท ๐ด ) ) = ( ( abs โ€˜ i ) ยท ( abs โ€˜ ๐ด ) ) )
34 2 8 33 sylancr โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( abs โ€˜ ( i ยท ๐ด ) ) = ( ( abs โ€˜ i ) ยท ( abs โ€˜ ๐ด ) ) )
35 absi โŠข ( abs โ€˜ i ) = 1
36 35 oveq1i โŠข ( ( abs โ€˜ i ) ยท ( abs โ€˜ ๐ด ) ) = ( 1 ยท ( abs โ€˜ ๐ด ) )
37 6 simp2bi โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ 0 < ๐ด )
38 7 37 elrpd โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ๐ด โˆˆ โ„+ )
39 rpre โŠข ( ๐ด โˆˆ โ„+ โ†’ ๐ด โˆˆ โ„ )
40 rpge0 โŠข ( ๐ด โˆˆ โ„+ โ†’ 0 โ‰ค ๐ด )
41 39 40 absidd โŠข ( ๐ด โˆˆ โ„+ โ†’ ( abs โ€˜ ๐ด ) = ๐ด )
42 38 41 syl โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( abs โ€˜ ๐ด ) = ๐ด )
43 42 oveq2d โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( 1 ยท ( abs โ€˜ ๐ด ) ) = ( 1 ยท ๐ด ) )
44 36 43 eqtrid โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( ( abs โ€˜ i ) ยท ( abs โ€˜ ๐ด ) ) = ( 1 ยท ๐ด ) )
45 8 mullidd โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( 1 ยท ๐ด ) = ๐ด )
46 34 44 45 3eqtrd โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( abs โ€˜ ( i ยท ๐ด ) ) = ๐ด )
47 6 simp3bi โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ๐ด โ‰ค 1 )
48 46 47 eqbrtrd โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( abs โ€˜ ( i ยท ๐ด ) ) โ‰ค 1 )
49 1 30 31 32 10 48 eftlub โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( abs โ€˜ ฮฃ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ 4 ) ( ๐น โ€˜ ๐‘˜ ) ) โ‰ค ( ( ( abs โ€˜ ( i ยท ๐ด ) ) โ†‘ 4 ) ยท ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) ) )
50 46 oveq1d โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( ( abs โ€˜ ( i ยท ๐ด ) ) โ†‘ 4 ) = ( ๐ด โ†‘ 4 ) )
51 50 oveq1d โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( ( ( abs โ€˜ ( i ยท ๐ด ) ) โ†‘ 4 ) ยท ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) ) = ( ( ๐ด โ†‘ 4 ) ยท ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) ) )
52 49 51 breqtrd โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( abs โ€˜ ฮฃ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ 4 ) ( ๐น โ€˜ ๐‘˜ ) ) โ‰ค ( ( ๐ด โ†‘ 4 ) ยท ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) ) )
53 3pos โŠข 0 < 3
54 0re โŠข 0 โˆˆ โ„
55 3re โŠข 3 โˆˆ โ„
56 5re โŠข 5 โˆˆ โ„
57 54 55 56 ltadd1i โŠข ( 0 < 3 โ†” ( 0 + 5 ) < ( 3 + 5 ) )
58 53 57 mpbi โŠข ( 0 + 5 ) < ( 3 + 5 )
59 5cn โŠข 5 โˆˆ โ„‚
60 59 addlidi โŠข ( 0 + 5 ) = 5
61 cu2 โŠข ( 2 โ†‘ 3 ) = 8
62 5p3e8 โŠข ( 5 + 3 ) = 8
63 3cn โŠข 3 โˆˆ โ„‚
64 59 63 addcomi โŠข ( 5 + 3 ) = ( 3 + 5 )
65 61 62 64 3eqtr2ri โŠข ( 3 + 5 ) = ( 2 โ†‘ 3 )
66 58 60 65 3brtr3i โŠข 5 < ( 2 โ†‘ 3 )
67 2re โŠข 2 โˆˆ โ„
68 1le2 โŠข 1 โ‰ค 2
69 4z โŠข 4 โˆˆ โ„ค
70 3lt4 โŠข 3 < 4
71 55 17 70 ltleii โŠข 3 โ‰ค 4
72 3z โŠข 3 โˆˆ โ„ค
73 72 eluz1i โŠข ( 4 โˆˆ ( โ„คโ‰ฅ โ€˜ 3 ) โ†” ( 4 โˆˆ โ„ค โˆง 3 โ‰ค 4 ) )
74 69 71 73 mpbir2an โŠข 4 โˆˆ ( โ„คโ‰ฅ โ€˜ 3 )
75 leexp2a โŠข ( ( 2 โˆˆ โ„ โˆง 1 โ‰ค 2 โˆง 4 โˆˆ ( โ„คโ‰ฅ โ€˜ 3 ) ) โ†’ ( 2 โ†‘ 3 ) โ‰ค ( 2 โ†‘ 4 ) )
76 67 68 74 75 mp3an โŠข ( 2 โ†‘ 3 ) โ‰ค ( 2 โ†‘ 4 )
77 8re โŠข 8 โˆˆ โ„
78 61 77 eqeltri โŠข ( 2 โ†‘ 3 ) โˆˆ โ„
79 2nn โŠข 2 โˆˆ โ„•
80 nnexpcl โŠข ( ( 2 โˆˆ โ„• โˆง 4 โˆˆ โ„•0 ) โ†’ ( 2 โ†‘ 4 ) โˆˆ โ„• )
81 79 11 80 mp2an โŠข ( 2 โ†‘ 4 ) โˆˆ โ„•
82 81 nnrei โŠข ( 2 โ†‘ 4 ) โˆˆ โ„
83 56 78 82 ltletri โŠข ( ( 5 < ( 2 โ†‘ 3 ) โˆง ( 2 โ†‘ 3 ) โ‰ค ( 2 โ†‘ 4 ) ) โ†’ 5 < ( 2 โ†‘ 4 ) )
84 66 76 83 mp2an โŠข 5 < ( 2 โ†‘ 4 )
85 6re โŠข 6 โˆˆ โ„
86 85 82 remulcli โŠข ( 6 ยท ( 2 โ†‘ 4 ) ) โˆˆ โ„
87 6pos โŠข 0 < 6
88 81 nngt0i โŠข 0 < ( 2 โ†‘ 4 )
89 85 82 87 88 mulgt0ii โŠข 0 < ( 6 ยท ( 2 โ†‘ 4 ) )
90 56 82 86 89 ltdiv1ii โŠข ( 5 < ( 2 โ†‘ 4 ) โ†” ( 5 / ( 6 ยท ( 2 โ†‘ 4 ) ) ) < ( ( 2 โ†‘ 4 ) / ( 6 ยท ( 2 โ†‘ 4 ) ) ) )
91 84 90 mpbi โŠข ( 5 / ( 6 ยท ( 2 โ†‘ 4 ) ) ) < ( ( 2 โ†‘ 4 ) / ( 6 ยท ( 2 โ†‘ 4 ) ) )
92 df-5 โŠข 5 = ( 4 + 1 )
93 df-4 โŠข 4 = ( 3 + 1 )
94 93 fveq2i โŠข ( ! โ€˜ 4 ) = ( ! โ€˜ ( 3 + 1 ) )
95 3nn0 โŠข 3 โˆˆ โ„•0
96 facp1 โŠข ( 3 โˆˆ โ„•0 โ†’ ( ! โ€˜ ( 3 + 1 ) ) = ( ( ! โ€˜ 3 ) ยท ( 3 + 1 ) ) )
97 95 96 ax-mp โŠข ( ! โ€˜ ( 3 + 1 ) ) = ( ( ! โ€˜ 3 ) ยท ( 3 + 1 ) )
98 sq2 โŠข ( 2 โ†‘ 2 ) = 4
99 98 93 eqtr2i โŠข ( 3 + 1 ) = ( 2 โ†‘ 2 )
100 99 oveq2i โŠข ( ( ! โ€˜ 3 ) ยท ( 3 + 1 ) ) = ( ( ! โ€˜ 3 ) ยท ( 2 โ†‘ 2 ) )
101 94 97 100 3eqtri โŠข ( ! โ€˜ 4 ) = ( ( ! โ€˜ 3 ) ยท ( 2 โ†‘ 2 ) )
102 101 oveq1i โŠข ( ( ! โ€˜ 4 ) ยท ( 2 โ†‘ 2 ) ) = ( ( ( ! โ€˜ 3 ) ยท ( 2 โ†‘ 2 ) ) ยท ( 2 โ†‘ 2 ) )
103 98 oveq2i โŠข ( ( ! โ€˜ 4 ) ยท ( 2 โ†‘ 2 ) ) = ( ( ! โ€˜ 4 ) ยท 4 )
104 fac3 โŠข ( ! โ€˜ 3 ) = 6
105 6cn โŠข 6 โˆˆ โ„‚
106 104 105 eqeltri โŠข ( ! โ€˜ 3 ) โˆˆ โ„‚
107 17 recni โŠข 4 โˆˆ โ„‚
108 98 107 eqeltri โŠข ( 2 โ†‘ 2 ) โˆˆ โ„‚
109 106 108 108 mulassi โŠข ( ( ( ! โ€˜ 3 ) ยท ( 2 โ†‘ 2 ) ) ยท ( 2 โ†‘ 2 ) ) = ( ( ! โ€˜ 3 ) ยท ( ( 2 โ†‘ 2 ) ยท ( 2 โ†‘ 2 ) ) )
110 102 103 109 3eqtr3i โŠข ( ( ! โ€˜ 4 ) ยท 4 ) = ( ( ! โ€˜ 3 ) ยท ( ( 2 โ†‘ 2 ) ยท ( 2 โ†‘ 2 ) ) )
111 2p2e4 โŠข ( 2 + 2 ) = 4
112 111 oveq2i โŠข ( 2 โ†‘ ( 2 + 2 ) ) = ( 2 โ†‘ 4 )
113 2cn โŠข 2 โˆˆ โ„‚
114 2nn0 โŠข 2 โˆˆ โ„•0
115 expadd โŠข ( ( 2 โˆˆ โ„‚ โˆง 2 โˆˆ โ„•0 โˆง 2 โˆˆ โ„•0 ) โ†’ ( 2 โ†‘ ( 2 + 2 ) ) = ( ( 2 โ†‘ 2 ) ยท ( 2 โ†‘ 2 ) ) )
116 113 114 114 115 mp3an โŠข ( 2 โ†‘ ( 2 + 2 ) ) = ( ( 2 โ†‘ 2 ) ยท ( 2 โ†‘ 2 ) )
117 112 116 eqtr3i โŠข ( 2 โ†‘ 4 ) = ( ( 2 โ†‘ 2 ) ยท ( 2 โ†‘ 2 ) )
118 117 oveq2i โŠข ( ( ! โ€˜ 3 ) ยท ( 2 โ†‘ 4 ) ) = ( ( ! โ€˜ 3 ) ยท ( ( 2 โ†‘ 2 ) ยท ( 2 โ†‘ 2 ) ) )
119 104 oveq1i โŠข ( ( ! โ€˜ 3 ) ยท ( 2 โ†‘ 4 ) ) = ( 6 ยท ( 2 โ†‘ 4 ) )
120 110 118 119 3eqtr2ri โŠข ( 6 ยท ( 2 โ†‘ 4 ) ) = ( ( ! โ€˜ 4 ) ยท 4 )
121 92 120 oveq12i โŠข ( 5 / ( 6 ยท ( 2 โ†‘ 4 ) ) ) = ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) )
122 81 nncni โŠข ( 2 โ†‘ 4 ) โˆˆ โ„‚
123 122 mullidi โŠข ( 1 ยท ( 2 โ†‘ 4 ) ) = ( 2 โ†‘ 4 )
124 123 oveq1i โŠข ( ( 1 ยท ( 2 โ†‘ 4 ) ) / ( 6 ยท ( 2 โ†‘ 4 ) ) ) = ( ( 2 โ†‘ 4 ) / ( 6 ยท ( 2 โ†‘ 4 ) ) )
125 81 nnne0i โŠข ( 2 โ†‘ 4 ) โ‰  0
126 122 125 dividi โŠข ( ( 2 โ†‘ 4 ) / ( 2 โ†‘ 4 ) ) = 1
127 126 oveq2i โŠข ( ( 1 / 6 ) ยท ( ( 2 โ†‘ 4 ) / ( 2 โ†‘ 4 ) ) ) = ( ( 1 / 6 ) ยท 1 )
128 ax-1cn โŠข 1 โˆˆ โ„‚
129 85 87 gt0ne0ii โŠข 6 โ‰  0
130 128 105 122 122 129 125 divmuldivi โŠข ( ( 1 / 6 ) ยท ( ( 2 โ†‘ 4 ) / ( 2 โ†‘ 4 ) ) ) = ( ( 1 ยท ( 2 โ†‘ 4 ) ) / ( 6 ยท ( 2 โ†‘ 4 ) ) )
131 85 129 rereccli โŠข ( 1 / 6 ) โˆˆ โ„
132 131 recni โŠข ( 1 / 6 ) โˆˆ โ„‚
133 132 mulridi โŠข ( ( 1 / 6 ) ยท 1 ) = ( 1 / 6 )
134 127 130 133 3eqtr3i โŠข ( ( 1 ยท ( 2 โ†‘ 4 ) ) / ( 6 ยท ( 2 โ†‘ 4 ) ) ) = ( 1 / 6 )
135 124 134 eqtr3i โŠข ( ( 2 โ†‘ 4 ) / ( 6 ยท ( 2 โ†‘ 4 ) ) ) = ( 1 / 6 )
136 91 121 135 3brtr3i โŠข ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) < ( 1 / 6 )
137 rpexpcl โŠข ( ( ๐ด โˆˆ โ„+ โˆง 4 โˆˆ โ„ค ) โ†’ ( ๐ด โ†‘ 4 ) โˆˆ โ„+ )
138 38 69 137 sylancl โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( ๐ด โ†‘ 4 ) โˆˆ โ„+ )
139 elrp โŠข ( ( ๐ด โ†‘ 4 ) โˆˆ โ„+ โ†” ( ( ๐ด โ†‘ 4 ) โˆˆ โ„ โˆง 0 < ( ๐ด โ†‘ 4 ) ) )
140 ltmul2 โŠข ( ( ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) โˆˆ โ„ โˆง ( 1 / 6 ) โˆˆ โ„ โˆง ( ( ๐ด โ†‘ 4 ) โˆˆ โ„ โˆง 0 < ( ๐ด โ†‘ 4 ) ) ) โ†’ ( ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) < ( 1 / 6 ) โ†” ( ( ๐ด โ†‘ 4 ) ยท ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) ) < ( ( ๐ด โ†‘ 4 ) ยท ( 1 / 6 ) ) ) )
141 24 131 140 mp3an12 โŠข ( ( ( ๐ด โ†‘ 4 ) โˆˆ โ„ โˆง 0 < ( ๐ด โ†‘ 4 ) ) โ†’ ( ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) < ( 1 / 6 ) โ†” ( ( ๐ด โ†‘ 4 ) ยท ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) ) < ( ( ๐ด โ†‘ 4 ) ยท ( 1 / 6 ) ) ) )
142 139 141 sylbi โŠข ( ( ๐ด โ†‘ 4 ) โˆˆ โ„+ โ†’ ( ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) < ( 1 / 6 ) โ†” ( ( ๐ด โ†‘ 4 ) ยท ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) ) < ( ( ๐ด โ†‘ 4 ) ยท ( 1 / 6 ) ) ) )
143 138 142 syl โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) < ( 1 / 6 ) โ†” ( ( ๐ด โ†‘ 4 ) ยท ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) ) < ( ( ๐ด โ†‘ 4 ) ยท ( 1 / 6 ) ) ) )
144 136 143 mpbii โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( ( ๐ด โ†‘ 4 ) ยท ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) ) < ( ( ๐ด โ†‘ 4 ) ยท ( 1 / 6 ) ) )
145 16 recnd โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( ๐ด โ†‘ 4 ) โˆˆ โ„‚ )
146 divrec โŠข ( ( ( ๐ด โ†‘ 4 ) โˆˆ โ„‚ โˆง 6 โˆˆ โ„‚ โˆง 6 โ‰  0 ) โ†’ ( ( ๐ด โ†‘ 4 ) / 6 ) = ( ( ๐ด โ†‘ 4 ) ยท ( 1 / 6 ) ) )
147 105 129 146 mp3an23 โŠข ( ( ๐ด โ†‘ 4 ) โˆˆ โ„‚ โ†’ ( ( ๐ด โ†‘ 4 ) / 6 ) = ( ( ๐ด โ†‘ 4 ) ยท ( 1 / 6 ) ) )
148 145 147 syl โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( ( ๐ด โ†‘ 4 ) / 6 ) = ( ( ๐ด โ†‘ 4 ) ยท ( 1 / 6 ) ) )
149 144 148 breqtrrd โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( ( ๐ด โ†‘ 4 ) ยท ( ( 4 + 1 ) / ( ( ! โ€˜ 4 ) ยท 4 ) ) ) < ( ( ๐ด โ†‘ 4 ) / 6 ) )
150 14 26 29 52 149 lelttrd โŠข ( ๐ด โˆˆ ( 0 (,] 1 ) โ†’ ( abs โ€˜ ฮฃ ๐‘˜ โˆˆ ( โ„คโ‰ฅ โ€˜ 4 ) ( ๐น โ€˜ ๐‘˜ ) ) < ( ( ๐ด โ†‘ 4 ) / 6 ) )