Context Navigation

Back to Ticket #5485

Ticket #5485: dump-output.txt

File dump-output.txt, 203.5 KB (added by erikd, 20 months ago)
Requested dump output

Line
1
2	==================== Tidy Core ====================
3	Result size = 1662
4
5	Data.Fixed.resolution [InlPrag=INLINE]
6	:: forall a_abR.
7	Data.Fixed.HasResolution a_abR =>
8	forall (p_abS :: * -> *). p_abS a_abR -> GHC.Integer.Type.Integer
9	[GblId[ClassOp],
10	Arity=1,
11	Caf=NoCafRefs,
12	Str=DmdType S,
13	Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=1, Value=True,
14	ConLike=True, Cheap=True, Expandable=True,
15	Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=True)}]
16	Data.Fixed.resolution =
17	\ (@ a_abR)
18	(tpl_B1 [Occ=Once] :: Data.Fixed.HasResolution a_abR) ->
19	tpl_B1
20	`cast` (Data.Fixed.NTCo:HasResolution <a_abR>
21	:: Data.Fixed.HasResolution a_abR
22	~
23	(forall (p_abS :: * -> *).
24	p_abS a_abR -> GHC.Integer.Type.Integer))
25
26	Rec {
27	conMkFixed_rbK :: Data.Data.Constr
28	[GblId]
29	conMkFixed_rbK =
30	Data.Data.mkConstr
31	tyFixed_rbJ
32	(GHC.CString.unpackCString# "MkFixed")
33	(GHC.Types.[] @ GHC.Base.String)
34	Data.Data.Prefix
35
36	tyFixed_rbJ :: Data.Data.DataType
37	[GblId]
38	tyFixed_rbJ =
39	Data.Data.mkDataType
40	(GHC.CString.unpackCString# "Data.Fixed.Fixed")
41	(GHC.Types.:
42	@ Data.Data.Constr
43	conMkFixed_rbK
44	(GHC.Types.[] @ Data.Data.Constr))
45	end Rec }
46
47	Data.Fixed.div'
48	:: forall a_ac4 b_ac5.
49	(GHC.Real.Real a_ac4, GHC.Real.Integral b_ac5) =>
50	a_ac4 -> a_ac4 -> b_ac5
51	[GblId, Arity=2]
52	Data.Fixed.div' =
53	\ (@ a_arU)
54	(@ b_arV)
55	($dReal_arW :: GHC.Real.Real a_arU)
56	($dIntegral_arX :: GHC.Real.Integral b_arV) ->
57	let {
58	$dFractional_as3 :: GHC.Real.Fractional GHC.Real.Rational
59	[LclId]
60	$dFractional_as3 =
61	GHC.Real.$fFractionalRatio
62	@ GHC.Integer.Type.Integer GHC.Real.$fIntegralInteger } in
63	let {
64	$dRealFrac_as0 :: GHC.Real.RealFrac GHC.Real.Rational
65	[LclId]
66	$dRealFrac_as0 =
67	GHC.Real.$fRealFracRatio
68	@ GHC.Integer.Type.Integer GHC.Real.$fIntegralInteger } in
69	\ (n_ac6 :: a_arU) (d_ac7 :: a_arU) ->
70	GHC.Real.floor
71	@ GHC.Real.Rational
72	$dRealFrac_as0
73	@ b_arV
74	$dIntegral_arX
75	(GHC.Real./
76	@ GHC.Real.Rational
77	$dFractional_as3
78	(GHC.Real.toRational @ a_arU $dReal_arW n_ac6)
79	(GHC.Real.toRational @ a_arU $dReal_arW d_ac7))
80
81	Data.Fixed.divMod'
82	:: forall a_ac2 b_ac3.
83	(GHC.Real.Real a_ac2, GHC.Real.Integral b_ac3) =>
84	a_ac2 -> a_ac2 -> (b_ac3, a_ac2)
85	[GblId, Arity=4]
86	Data.Fixed.divMod' =
87	\ (@ a_as7)
88	(@ b_as8)
89	($dReal_as9 :: GHC.Real.Real a_as7)
90	($dIntegral_asa :: GHC.Real.Integral b_as8)
91	(eta_B2 :: a_as7)
92	(eta1_B1 :: a_as7) ->
93	let {
94	$dNum_aAU :: GHC.Num.Num a_as7
95	[LclId]
96	$dNum_aAU = GHC.Real.$p1Real @ a_as7 $dReal_as9 } in
97	let {
98	f_ad8 :: b_as8
99	[LclId]
100	f_ad8 =
101	Data.Fixed.div'
102	@ a_as7 @ b_as8 $dReal_as9 $dIntegral_asa eta_B2 eta1_B1 } in
103	(f_ad8,
104	GHC.Num.-
105	@ a_as7
106	$dNum_aAU
107	eta_B2
108	(GHC.Num.*
109	@ a_as7
110	$dNum_aAU
111	(GHC.Real.fromIntegral
112	@ b_as8 @ a_as7 $dIntegral_asa $dNum_aAU f_ad8)
113	eta1_B1))
114
115	Data.Fixed.mod'
116	:: forall a_ac1. GHC.Real.Real a_ac1 => a_ac1 -> a_ac1 -> a_ac1
117	[GblId, Arity=3]
118	Data.Fixed.mod' =
119	\ (@ a_aso)
120	($dReal_asp :: GHC.Real.Real a_aso)
121	(eta_B2 :: a_aso)
122	(eta1_B1 :: a_aso) ->
123	let {
124	$dNum_aAZ :: GHC.Num.Num a_aso
125	[LclId]
126	$dNum_aAZ = GHC.Real.$p1Real @ a_aso $dReal_asp } in
127	GHC.Num.-
128	@ a_aso
129	$dNum_aAZ
130	eta_B2
131	(GHC.Num.*
132	@ a_aso
133	$dNum_aAZ
134	(GHC.Num.fromInteger
135	@ a_aso
136	$dNum_aAZ
137	(Data.Fixed.div'
138	@ a_aso
139	@ GHC.Integer.Type.Integer
140	$dReal_asp
141	GHC.Real.$fIntegralInteger
142	eta_B2
143	eta1_B1))
144	eta1_B1)
145
146	$cdataTypeOf_rFX
147	:: forall a_ahq.
148	Data.Typeable.Internal.Typeable a_ahq =>
149	Data.Fixed.Fixed a_ahq -> Data.Data.DataType
150	[GblId, Arity=2]
151	$cdataTypeOf_rFX = \ (@ a_ahq) _ _ -> tyFixed_rbJ
152
153	$ctoConstr_rFY
154	:: forall a_ahq.
155	Data.Typeable.Internal.Typeable a_ahq =>
156	Data.Fixed.Fixed a_ahq -> Data.Data.Constr
157	[GblId, Arity=2]
158	$ctoConstr_rFY = \ (@ a_ahq) _ _ -> conMkFixed_rbK
159
160	$cgunfold_rFZ
161	:: forall a_ahq.
162	Data.Typeable.Internal.Typeable a_ahq =>
163	forall (c_ayg :: * -> *).
164	(forall b_ayh r_ayi.
165	Data.Data.Data b_ayh =>
166	c_ayg (b_ayh -> r_ayi) -> c_ayg r_ayi)
167	-> (forall r_ayj. r_ayj -> c_ayg r_ayj)
168	-> Data.Data.Constr
169	-> c_ayg (Data.Fixed.Fixed a_ahq)
170	[GblId, Arity=4]
171	$cgunfold_rFZ =
172	\ (@ a_ahq)
173	_
174	(@ c_ayk::* -> *)
175	(k_ahu
176	:: forall b_ayh r_ayi.
177	Data.Data.Data b_ayh =>
178	c_ayk (b_ayh -> r_ayi) -> c_ayk r_ayi)
179	(z_ahv :: forall r_ayj. r_ayj -> c_ayk r_ayj)
180	_ ->
181	k_ahu
182	@ GHC.Integer.Type.Integer
183	@ (Data.Fixed.Fixed a_ahq)
184	Data.Data.$fDataInteger
185	(z_ahv
186	@ (GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahq)
187	((\ (tpl_B1 :: GHC.Integer.Type.Integer) -> tpl_B1)
188	`cast` (<GHC.Integer.Type.Integer>
189	-> Sym (Data.Fixed.NTCo:Fixed <a_ahq>)
190	:: (GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
191	~
192	(GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahq))))
193
194	$cgfoldl_rG0
195	:: forall a_ahq.
196	Data.Typeable.Internal.Typeable a_ahq =>
197	forall (c_ay5 :: * -> *).
198	(forall d_ay6 b_ay7.
199	Data.Data.Data d_ay6 =>
200	c_ay5 (d_ay6 -> b_ay7) -> d_ay6 -> c_ay5 b_ay7)
201	-> (forall g_ay8. g_ay8 -> c_ay5 g_ay8)
202	-> Data.Fixed.Fixed a_ahq
203	-> c_ay5 (Data.Fixed.Fixed a_ahq)
204	[GblId, Arity=4]
205	$cgfoldl_rG0 =
206	\ (@ a_ahq)
207	_
208	(@ c_ay9::* -> *)
209	(k_ahr
210	:: forall d_ay6 b_ay7.
211	Data.Data.Data d_ay6 =>
212	c_ay9 (d_ay6 -> b_ay7) -> d_ay6 -> c_ay9 b_ay7)
213	(z_ahs :: forall g_ay8. g_ay8 -> c_ay9 g_ay8)
214	(ds_dEx :: Data.Fixed.Fixed a_ahq) ->
215	k_ahr
216	@ GHC.Integer.Type.Integer
217	@ (Data.Fixed.Fixed a_ahq)
218	Data.Data.$fDataInteger
219	(z_ahs
220	@ (GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahq)
221	((\ (tpl_B1 :: GHC.Integer.Type.Integer) -> tpl_B1)
222	`cast` (<GHC.Integer.Type.Integer>
223	-> Sym (Data.Fixed.NTCo:Fixed <a_ahq>)
224	:: (GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
225	~
226	(GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahq))))
227	(ds_dEx
228	`cast` (Data.Fixed.NTCo:Fixed <a_ahq>
229	:: Data.Fixed.Fixed a_ahq ~ GHC.Integer.Type.Integer))
230
231	$cenumFromThenTo_rG1
232	:: forall a_ahe.
233	Data.Fixed.Fixed a_ahe
234	-> Data.Fixed.Fixed a_ahe
235	-> Data.Fixed.Fixed a_ahe
236	-> [Data.Fixed.Fixed a_ahe]
237	[GblId, Arity=3]
238	$cenumFromThenTo_rG1 =
239	\ (@ a_ahe)
240	(ds_dEu :: Data.Fixed.Fixed a_ahe)
241	(ds1_dEv :: Data.Fixed.Fixed a_ahe)
242	(ds2_dEw :: Data.Fixed.Fixed a_ahe) ->
243	GHC.Base.fmap
244	@ []
245	GHC.Base.$fFunctor[]
246	@ GHC.Integer.Type.Integer
247	@ (Data.Fixed.Fixed a_ahe)
248	((\ (tpl_B1 :: GHC.Integer.Type.Integer) -> tpl_B1)
249	`cast` (<GHC.Integer.Type.Integer>
250	-> Sym (Data.Fixed.NTCo:Fixed <a_ahe>)
251	:: (GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
252	~
253	(GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahe)))
254	(GHC.Enum.enumFromThenTo
255	@ GHC.Integer.Type.Integer
256	GHC.Num.$fEnumInteger
257	(ds_dEu
258	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
259	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer))
260	(ds1_dEv
261	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
262	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer))
263	(ds2_dEw
264	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
265	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer)))
266
267	$cenumFromTo_rG2
268	:: forall a_ahe.
269	Data.Fixed.Fixed a_ahe
270	-> Data.Fixed.Fixed a_ahe -> [Data.Fixed.Fixed a_ahe]
271	[GblId, Arity=2]
272	$cenumFromTo_rG2 =
273	\ (@ a_ahe)
274	(ds_dEs :: Data.Fixed.Fixed a_ahe)
275	(ds1_dEt :: Data.Fixed.Fixed a_ahe) ->
276	GHC.Base.fmap
277	@ []
278	GHC.Base.$fFunctor[]
279	@ GHC.Integer.Type.Integer
280	@ (Data.Fixed.Fixed a_ahe)
281	((\ (tpl_B1 :: GHC.Integer.Type.Integer) -> tpl_B1)
282	`cast` (<GHC.Integer.Type.Integer>
283	-> Sym (Data.Fixed.NTCo:Fixed <a_ahe>)
284	:: (GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
285	~
286	(GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahe)))
287	(GHC.Enum.enumFromTo
288	@ GHC.Integer.Type.Integer
289	GHC.Num.$fEnumInteger
290	(ds_dEs
291	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
292	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer))
293	(ds1_dEt
294	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
295	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer)))
296
297	$cenumFromThen_rG3
298	:: forall a_ahe.
299	Data.Fixed.Fixed a_ahe
300	-> Data.Fixed.Fixed a_ahe -> [Data.Fixed.Fixed a_ahe]
301	[GblId, Arity=2]
302	$cenumFromThen_rG3 =
303	\ (@ a_ahe)
304	(ds_dEq :: Data.Fixed.Fixed a_ahe)
305	(ds1_dEr :: Data.Fixed.Fixed a_ahe) ->
306	GHC.Base.fmap
307	@ []
308	GHC.Base.$fFunctor[]
309	@ GHC.Integer.Type.Integer
310	@ (Data.Fixed.Fixed a_ahe)
311	((\ (tpl_B1 :: GHC.Integer.Type.Integer) -> tpl_B1)
312	`cast` (<GHC.Integer.Type.Integer>
313	-> Sym (Data.Fixed.NTCo:Fixed <a_ahe>)
314	:: (GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
315	~
316	(GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahe)))
317	(GHC.Enum.enumFromThen
318	@ GHC.Integer.Type.Integer
319	GHC.Num.$fEnumInteger
320	(ds_dEq
321	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
322	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer))
323	(ds1_dEr
324	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
325	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer)))
326
327	$cenumFrom_rG4
328	:: forall a_ahe. Data.Fixed.Fixed a_ahe -> [Data.Fixed.Fixed a_ahe]
329	[GblId, Arity=1]
330	$cenumFrom_rG4 =
331	\ (@ a_ahe) (ds_dEp :: Data.Fixed.Fixed a_ahe) ->
332	GHC.Base.fmap
333	@ []
334	GHC.Base.$fFunctor[]
335	@ GHC.Integer.Type.Integer
336	@ (Data.Fixed.Fixed a_ahe)
337	((\ (tpl_B1 :: GHC.Integer.Type.Integer) -> tpl_B1)
338	`cast` (<GHC.Integer.Type.Integer>
339	-> Sym (Data.Fixed.NTCo:Fixed <a_ahe>)
340	:: (GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
341	~
342	(GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahe)))
343	(GHC.Enum.enumFrom
344	@ GHC.Integer.Type.Integer
345	GHC.Num.$fEnumInteger
346	(ds_dEp
347	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
348	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer)))
349
350	$cfromEnum_rG5
351	:: forall a_ahe. Data.Fixed.Fixed a_ahe -> GHC.Types.Int
352	[GblId, Arity=1]
353	$cfromEnum_rG5 =
354	\ (@ a_ahe) (ds_dEo :: Data.Fixed.Fixed a_ahe) ->
355	GHC.Enum.fromEnum
356	@ GHC.Integer.Type.Integer
357	GHC.Num.$fEnumInteger
358	(ds_dEo
359	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
360	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer))
361
362	$ctoEnum_rG6
363	:: forall a_ahe. GHC.Types.Int -> Data.Fixed.Fixed a_ahe
364	[GblId]
365	$ctoEnum_rG6 =
366	\ (@ a_ahe) ->
367	GHC.Base..
368	@ GHC.Integer.Type.Integer
369	@ (Data.Fixed.Fixed a_ahe)
370	@ GHC.Types.Int
371	((\ (tpl_B1 :: GHC.Integer.Type.Integer) -> tpl_B1)
372	`cast` (<GHC.Integer.Type.Integer>
373	-> Sym (Data.Fixed.NTCo:Fixed <a_ahe>)
374	:: (GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
375	~
376	(GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahe)))
377	(GHC.Enum.toEnum @ GHC.Integer.Type.Integer GHC.Num.$fEnumInteger)
378
379	a_rG7
380	:: forall a_ahe. Data.Fixed.Fixed a_ahe -> GHC.Integer.Type.Integer
381	[GblId, Arity=1]
382	a_rG7 =
383	\ (@ a_ahe) (ds_dEn :: Data.Fixed.Fixed a_ahe) ->
384	GHC.Enum.pred
385	@ GHC.Integer.Type.Integer
386	GHC.Num.$fEnumInteger
387	(ds_dEn
388	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
389	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer))
390
391	$cpred_rG8
392	:: forall a_ahe. Data.Fixed.Fixed a_ahe -> Data.Fixed.Fixed a_ahe
393	[GblId, Arity=1]
394	$cpred_rG8 =
395	a_rG7
396	`cast` (forall a_ahe.
397	<Data.Fixed.Fixed a_ahe> -> Sym (Data.Fixed.NTCo:Fixed <a_ahe>)
398	:: (forall a_ahe.
399	Data.Fixed.Fixed a_ahe -> GHC.Integer.Type.Integer)
400	~
401	(forall a_ahe. Data.Fixed.Fixed a_ahe -> Data.Fixed.Fixed a_ahe))
402
403	a1_rG9
404	:: forall a_Xjk. Data.Fixed.Fixed a_Xjk -> GHC.Integer.Type.Integer
405	[GblId, Arity=1]
406	a1_rG9 =
407	\ (@ a_Xjk) (ds_dEm :: Data.Fixed.Fixed a_Xjk) ->
408	GHC.Enum.succ
409	@ GHC.Integer.Type.Integer
410	GHC.Num.$fEnumInteger
411	(ds_dEm
412	`cast` (Data.Fixed.NTCo:Fixed <a_Xjk>
413	:: Data.Fixed.Fixed a_Xjk ~ GHC.Integer.Type.Integer))
414
415	$csucc_rGa
416	:: forall a_ahe. Data.Fixed.Fixed a_ahe -> Data.Fixed.Fixed a_ahe
417	[GblId, Arity=1]
418	$csucc_rGa =
419	a1_rG9
420	`cast` (forall a_Xjk.
421	<Data.Fixed.Fixed a_Xjk> -> Sym (Data.Fixed.NTCo:Fixed <a_Xjk>)
422	:: (forall a_Xjk.
423	Data.Fixed.Fixed a_Xjk -> GHC.Integer.Type.Integer)
424	~
425	(forall a_Xjk. Data.Fixed.Fixed a_Xjk -> Data.Fixed.Fixed a_Xjk))
426
427	Data.Fixed.$fEnumFixed [InlPrag=[ALWAYS] CONLIKE]
428	:: forall a_ahe. GHC.Enum.Enum (Data.Fixed.Fixed a_ahe)
429	[GblId[DFunId]]
430	Data.Fixed.$fEnumFixed =
431	\ (@ a_Xjo) ->
432	GHC.Enum.D:Enum
433	@ (Data.Fixed.Fixed a_Xjo)
434	((a1_rG9 @ a_Xjo)
435	`cast` (<Data.Fixed.Fixed a_Xjo>
436	-> Sym (Data.Fixed.NTCo:Fixed <a_Xjo>)
437	:: (Data.Fixed.Fixed a_Xjo -> GHC.Integer.Type.Integer)
438	~
439	(Data.Fixed.Fixed a_Xjo -> Data.Fixed.Fixed a_Xjo)))
440	((a_rG7 @ a_Xjo)
441	`cast` (<Data.Fixed.Fixed a_Xjo>
442	-> Sym (Data.Fixed.NTCo:Fixed <a_Xjo>)
443	:: (Data.Fixed.Fixed a_Xjo -> GHC.Integer.Type.Integer)
444	~
445	(Data.Fixed.Fixed a_Xjo -> Data.Fixed.Fixed a_Xjo)))
446	($ctoEnum_rG6 @ a_Xjo)
447	($cfromEnum_rG5 @ a_Xjo)
448	($cenumFrom_rG4 @ a_Xjo)
449	($cenumFromThen_rG3 @ a_Xjo)
450	($cenumFromTo_rG2 @ a_Xjo)
451	($cenumFromThenTo_rG1 @ a_Xjo)
452
453	$cfromInteger_rGb
454	:: forall a_ah1.
455	Data.Fixed.HasResolution a_ah1 =>
456	GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ah1
457	[GblId, Arity=2]
458	$cfromInteger_rGb =
459	\ (@ a_ah1)
460	($dHasResolution_awB :: Data.Fixed.HasResolution a_ah1)
461	(i_ahc :: GHC.Integer.Type.Integer) ->
462	GHC.Base..
463	@ GHC.Integer.Type.Integer
464	@ (Data.Fixed.Fixed a_ah1)
465	@ (GHC.Prim.Any(* -> *) a_ah1)
466	((\ (res_ahd :: GHC.Integer.Type.Integer) ->
467	GHC.Num.*
468	@ GHC.Integer.Type.Integer GHC.Num.$fNumInteger i_ahc res_ahd)
469	`cast` (<GHC.Integer.Type.Integer>
470	-> Sym (Data.Fixed.NTCo:Fixed <a_ah1>)
471	:: (GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
472	~
473	(GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ah1)))
474	(($dHasResolution_awB
475	`cast` (Data.Fixed.NTCo:HasResolution <a_ah1>
476	:: Data.Fixed.HasResolution a_ah1
477	~
478	(forall (p_abS :: * -> *).
479	p_abS a_ah1 -> GHC.Integer.Type.Integer)))
480	@ GHC.Prim.Any(* -> *))
481	(GHC.Err.undefined @ (GHC.Prim.Any(* -> *) a_ah1))
482
483	a2_rGc
484	:: forall a_ah1.
485	Data.Fixed.HasResolution a_ah1 =>
486	Data.Fixed.Fixed a_ah1 -> GHC.Integer.Type.Integer
487	[GblId, Arity=2]
488	a2_rGc =
489	\ (@ a_ah1) _ (ds_dEk :: Data.Fixed.Fixed a_ah1) ->
490	GHC.Num.abs
491	@ GHC.Integer.Type.Integer
492	GHC.Num.$fNumInteger
493	(ds_dEk
494	`cast` (Data.Fixed.NTCo:Fixed <a_ah1>
495	:: Data.Fixed.Fixed a_ah1 ~ GHC.Integer.Type.Integer))
496
497	$cabs_rGd
498	:: forall a_ah1.
499	Data.Fixed.HasResolution a_ah1 =>
500	Data.Fixed.Fixed a_ah1 -> Data.Fixed.Fixed a_ah1
501	[GblId, Arity=2]
502	$cabs_rGd =
503	a2_rGc
504	`cast` (forall a_ah1.
505	<Data.Fixed.HasResolution a_ah1>
506	-> <Data.Fixed.Fixed a_ah1> -> Sym (Data.Fixed.NTCo:Fixed <a_ah1>)
507	:: (forall a_ah1.
508	Data.Fixed.HasResolution a_ah1 =>
509	Data.Fixed.Fixed a_ah1 -> GHC.Integer.Type.Integer)
510	~
511	(forall a_ah1.
512	Data.Fixed.HasResolution a_ah1 =>
513	Data.Fixed.Fixed a_ah1 -> Data.Fixed.Fixed a_ah1))
514
515	a3_rGe
516	:: forall a_Xji.
517	Data.Fixed.HasResolution a_Xji =>
518	Data.Fixed.Fixed a_Xji -> GHC.Integer.Type.Integer
519	[GblId, Arity=2]
520	a3_rGe =
521	\ (@ a_Xji) _ (ds_dEj :: Data.Fixed.Fixed a_Xji) ->
522	GHC.Num.negate
523	@ GHC.Integer.Type.Integer
524	GHC.Num.$fNumInteger
525	(ds_dEj
526	`cast` (Data.Fixed.NTCo:Fixed <a_Xji>
527	:: Data.Fixed.Fixed a_Xji ~ GHC.Integer.Type.Integer))
528
529	$cnegate_rGf
530	:: forall a_ah1.
531	Data.Fixed.HasResolution a_ah1 =>
532	Data.Fixed.Fixed a_ah1 -> Data.Fixed.Fixed a_ah1
533	[GblId, Arity=2]
534	$cnegate_rGf =
535	a3_rGe
536	`cast` (forall a_Xji.
537	<Data.Fixed.HasResolution a_Xji>
538	-> <Data.Fixed.Fixed a_Xji> -> Sym (Data.Fixed.NTCo:Fixed <a_Xji>)
539	:: (forall a_Xji.
540	Data.Fixed.HasResolution a_Xji =>
541	Data.Fixed.Fixed a_Xji -> GHC.Integer.Type.Integer)
542	~
543	(forall a_Xji.
544	Data.Fixed.HasResolution a_Xji =>
545	Data.Fixed.Fixed a_Xji -> Data.Fixed.Fixed a_Xji))
546
547	a4_rGg
548	:: forall a_Xjn.
549	Data.Fixed.HasResolution a_Xjn =>
550	Data.Fixed.Fixed a_Xjn
551	-> Data.Fixed.Fixed a_Xjn -> GHC.Integer.Type.Integer
552	[GblId, Arity=3]
553	a4_rGg =
554	\ (@ a_Xjn)
555	_
556	(ds_dEh :: Data.Fixed.Fixed a_Xjn)
557	(ds1_dEi :: Data.Fixed.Fixed a_Xjn) ->
558	GHC.Num.-
559	@ GHC.Integer.Type.Integer
560	GHC.Num.$fNumInteger
561	(ds_dEh
562	`cast` (Data.Fixed.NTCo:Fixed <a_Xjn>
563	:: Data.Fixed.Fixed a_Xjn ~ GHC.Integer.Type.Integer))
564	(ds1_dEi
565	`cast` (Data.Fixed.NTCo:Fixed <a_Xjn>
566	:: Data.Fixed.Fixed a_Xjn ~ GHC.Integer.Type.Integer))
567
568	$c-_rGh
569	:: forall a_ah1.
570	Data.Fixed.HasResolution a_ah1 =>
571	Data.Fixed.Fixed a_ah1
572	-> Data.Fixed.Fixed a_ah1 -> Data.Fixed.Fixed a_ah1
573	[GblId, Arity=3]
574	$c-_rGh =
575	a4_rGg
576	`cast` (forall a_Xjn.
577	<Data.Fixed.HasResolution a_Xjn>
578	-> <Data.Fixed.Fixed a_Xjn>
579	-> <Data.Fixed.Fixed a_Xjn>
580	-> Sym (Data.Fixed.NTCo:Fixed <a_Xjn>)
581	:: (forall a_Xjn.
582	Data.Fixed.HasResolution a_Xjn =>
583	Data.Fixed.Fixed a_Xjn
584	-> Data.Fixed.Fixed a_Xjn -> GHC.Integer.Type.Integer)
585	~
586	(forall a_Xjn.
587	Data.Fixed.HasResolution a_Xjn =>
588	Data.Fixed.Fixed a_Xjn
589	-> Data.Fixed.Fixed a_Xjn -> Data.Fixed.Fixed a_Xjn))
590
591	a5_rGi
592	:: forall a_Xjt.
593	Data.Fixed.HasResolution a_Xjt =>
594	Data.Fixed.Fixed a_Xjt
595	-> Data.Fixed.Fixed a_Xjt -> GHC.Integer.Type.Integer
596	[GblId, Arity=3]
597	a5_rGi =
598	\ (@ a_Xjt)
599	($dHasResolution_Xz4 :: Data.Fixed.HasResolution a_Xjt)
600	(fa_ah6 :: Data.Fixed.Fixed a_Xjt)
601	(ds_dEg :: Data.Fixed.Fixed a_Xjt) ->
602	GHC.Real.div
603	@ GHC.Integer.Type.Integer
604	GHC.Real.$fIntegralInteger
605	(GHC.Num.*
606	@ GHC.Integer.Type.Integer
607	GHC.Num.$fNumInteger
608	(fa_ah6
609	`cast` (Data.Fixed.NTCo:Fixed <a_Xjt>
610	:: Data.Fixed.Fixed a_Xjt ~ GHC.Integer.Type.Integer))
611	(ds_dEg
612	`cast` (Data.Fixed.NTCo:Fixed <a_Xjt>
613	:: Data.Fixed.Fixed a_Xjt ~ GHC.Integer.Type.Integer)))
614	(($dHasResolution_Xz4
615	`cast` (Data.Fixed.NTCo:HasResolution <a_Xjt>
616	:: Data.Fixed.HasResolution a_Xjt
617	~
618	(forall (p_abS :: * -> *).
619	p_abS a_Xjt -> GHC.Integer.Type.Integer)))
620	@ Data.Fixed.Fixed fa_ah6)
621
622	$c*_rGj
623	:: forall a_ah1.
624	Data.Fixed.HasResolution a_ah1 =>
625	Data.Fixed.Fixed a_ah1
626	-> Data.Fixed.Fixed a_ah1 -> Data.Fixed.Fixed a_ah1
627	[GblId, Arity=3]
628	$c*_rGj =
629	a5_rGi
630	`cast` (forall a_Xjt.
631	<Data.Fixed.HasResolution a_Xjt>
632	-> <Data.Fixed.Fixed a_Xjt>
633	-> <Data.Fixed.Fixed a_Xjt>
634	-> Sym (Data.Fixed.NTCo:Fixed <a_Xjt>)
635	:: (forall a_Xjt.
636	Data.Fixed.HasResolution a_Xjt =>
637	Data.Fixed.Fixed a_Xjt
638	-> Data.Fixed.Fixed a_Xjt -> GHC.Integer.Type.Integer)
639	~
640	(forall a_Xjt.
641	Data.Fixed.HasResolution a_Xjt =>
642	Data.Fixed.Fixed a_Xjt
643	-> Data.Fixed.Fixed a_Xjt -> Data.Fixed.Fixed a_Xjt))
644
645	a6_rGk
646	:: forall a_Xjz.
647	Data.Fixed.HasResolution a_Xjz =>
648	Data.Fixed.Fixed a_Xjz
649	-> Data.Fixed.Fixed a_Xjz -> GHC.Integer.Type.Integer
650	[GblId, Arity=3]
651	a6_rGk =
652	\ (@ a_Xjz)
653	_
654	(ds_dEe :: Data.Fixed.Fixed a_Xjz)
655	(ds1_dEf :: Data.Fixed.Fixed a_Xjz) ->
656	GHC.Num.+
657	@ GHC.Integer.Type.Integer
658	GHC.Num.$fNumInteger
659	(ds_dEe
660	`cast` (Data.Fixed.NTCo:Fixed <a_Xjz>
661	:: Data.Fixed.Fixed a_Xjz ~ GHC.Integer.Type.Integer))
662	(ds1_dEf
663	`cast` (Data.Fixed.NTCo:Fixed <a_Xjz>
664	:: Data.Fixed.Fixed a_Xjz ~ GHC.Integer.Type.Integer))
665
666	$c+_rGl
667	:: forall a_ah1.
668	Data.Fixed.HasResolution a_ah1 =>
669	Data.Fixed.Fixed a_ah1
670	-> Data.Fixed.Fixed a_ah1 -> Data.Fixed.Fixed a_ah1
671	[GblId, Arity=3]
672	$c+_rGl =
673	a6_rGk
674	`cast` (forall a_Xjz.
675	<Data.Fixed.HasResolution a_Xjz>
676	-> <Data.Fixed.Fixed a_Xjz>
677	-> <Data.Fixed.Fixed a_Xjz>
678	-> Sym (Data.Fixed.NTCo:Fixed <a_Xjz>)
679	:: (forall a_Xjz.
680	Data.Fixed.HasResolution a_Xjz =>
681	Data.Fixed.Fixed a_Xjz
682	-> Data.Fixed.Fixed a_Xjz -> GHC.Integer.Type.Integer)
683	~
684	(forall a_Xjz.
685	Data.Fixed.HasResolution a_Xjz =>
686	Data.Fixed.Fixed a_Xjz
687	-> Data.Fixed.Fixed a_Xjz -> Data.Fixed.Fixed a_Xjz))
688
689	$ctoRational_rGm
690	:: forall a_agY.
691	Data.Fixed.HasResolution a_agY =>
692	Data.Fixed.Fixed a_agY -> GHC.Real.Rational
693	[GblId, Arity=1]
694	$ctoRational_rGm =
695	\ (@ a_agY)
696	($dHasResolution_awl :: Data.Fixed.HasResolution a_agY) ->
697	let {
698	$dFractional_awu :: GHC.Real.Fractional GHC.Real.Rational
699	[LclId]
700	$dFractional_awu =
701	GHC.Real.$fFractionalRatio
702	@ GHC.Integer.Type.Integer GHC.Real.$fIntegralInteger } in
703	\ (fa_agZ :: Data.Fixed.Fixed a_agY) ->
704	GHC.Real./
705	@ GHC.Real.Rational
706	$dFractional_awu
707	(GHC.Real.toRational
708	@ GHC.Integer.Type.Integer
709	GHC.Real.$fRealInteger
710	(fa_agZ
711	`cast` (Data.Fixed.NTCo:Fixed <a_agY>
712	:: Data.Fixed.Fixed a_agY ~ GHC.Integer.Type.Integer)))
713	(GHC.Real.toRational
714	@ GHC.Integer.Type.Integer
715	GHC.Real.$fRealInteger
716	(($dHasResolution_awl
717	`cast` (Data.Fixed.NTCo:HasResolution <a_agY>
718	:: Data.Fixed.HasResolution a_agY
719	~
720	(forall (p_abS :: * -> *).
721	p_abS a_agY -> GHC.Integer.Type.Integer)))
722	@ Data.Fixed.Fixed fa_agZ))
723
724	$cfromRational_rGn
725	:: forall a_agP.
726	Data.Fixed.HasResolution a_agP =>
727	GHC.Real.Rational -> Data.Fixed.Fixed a_agP
728	[GblId, Arity=1]
729	$cfromRational_rGn =
730	\ (@ a_agP)
731	($dHasResolution_avQ :: Data.Fixed.HasResolution a_agP) ->
732	let {
733	$dNum_awh :: GHC.Num.Num GHC.Real.Rational
734	[LclId]
735	$dNum_awh =
736	GHC.Real.$fNumRatio
737	@ GHC.Integer.Type.Integer GHC.Real.$fIntegralInteger } in
738	let {
739	$dRealFrac_awe :: GHC.Real.RealFrac GHC.Real.Rational
740	[LclId]
741	$dRealFrac_awe =
742	GHC.Real.$fRealFracRatio
743	@ GHC.Integer.Type.Integer GHC.Real.$fIntegralInteger } in
744	\ (r_agW :: GHC.Real.Rational) ->
745	GHC.Base..
746	@ GHC.Integer.Type.Integer
747	@ (Data.Fixed.Fixed a_agP)
748	@ (GHC.Prim.Any(* -> *) a_agP)
749	((\ (res_agX :: GHC.Integer.Type.Integer) ->
750	GHC.Real.floor
751	@ GHC.Real.Rational
752	$dRealFrac_awe
753	@ GHC.Integer.Type.Integer
754	GHC.Real.$fIntegralInteger
755	(GHC.Num.*
756	@ GHC.Real.Rational
757	$dNum_awh
758	r_agW
759	(GHC.Real.toRational
760	@ GHC.Integer.Type.Integer GHC.Real.$fRealInteger res_agX)))
761	`cast` (<GHC.Integer.Type.Integer>
762	-> Sym (Data.Fixed.NTCo:Fixed <a_agP>)
763	:: (GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
764	~
765	(GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_agP)))
766	(($dHasResolution_avQ
767	`cast` (Data.Fixed.NTCo:HasResolution <a_agP>
768	:: Data.Fixed.HasResolution a_agP
769	~
770	(forall (p_abS :: * -> *).
771	p_abS a_agP -> GHC.Integer.Type.Integer)))
772	@ GHC.Prim.Any(* -> *))
773	(GHC.Err.undefined @ (GHC.Prim.Any(* -> *) a_agP))
774
775	$crecip_rGo
776	:: forall a_agP.
777	Data.Fixed.HasResolution a_agP =>
778	Data.Fixed.Fixed a_agP -> Data.Fixed.Fixed a_agP
779	[GblId, Arity=2]
780	$crecip_rGo =
781	\ (@ a_agP)
782	($dHasResolution_avQ :: Data.Fixed.HasResolution a_agP)
783	(fa_agT :: Data.Fixed.Fixed a_agP) ->
784	let {
785	res_agV :: GHC.Integer.Type.Integer
786	[LclId]
787	res_agV =
788	($dHasResolution_avQ
789	`cast` (Data.Fixed.NTCo:HasResolution <a_agP>
790	:: Data.Fixed.HasResolution a_agP
791	~
792	(forall (p_abS :: * -> *).
793	p_abS a_agP -> GHC.Integer.Type.Integer)))
794	@ Data.Fixed.Fixed fa_agT } in
795	(GHC.Real.div
796	@ GHC.Integer.Type.Integer
797	GHC.Real.$fIntegralInteger
798	(GHC.Num.*
799	@ GHC.Integer.Type.Integer GHC.Num.$fNumInteger res_agV res_agV)
800	(fa_agT
801	`cast` (Data.Fixed.NTCo:Fixed <a_agP>
802	:: Data.Fixed.Fixed a_agP ~ GHC.Integer.Type.Integer)))
803	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_agP>)
804	:: GHC.Integer.Type.Integer ~ Data.Fixed.Fixed a_agP)
805
806	a7_rGp
807	:: forall a_agP.
808	Data.Fixed.HasResolution a_agP =>
809	Data.Fixed.Fixed a_agP
810	-> Data.Fixed.Fixed a_agP -> GHC.Integer.Type.Integer
811	[GblId, Arity=3]
812	a7_rGp =
813	\ (@ a_agP)
814	($dHasResolution_avQ :: Data.Fixed.HasResolution a_agP)
815	(fa_agQ :: Data.Fixed.Fixed a_agP)
816	(ds_dEd :: Data.Fixed.Fixed a_agP) ->
817	GHC.Real.div
818	@ GHC.Integer.Type.Integer
819	GHC.Real.$fIntegralInteger
820	(GHC.Num.*
821	@ GHC.Integer.Type.Integer
822	GHC.Num.$fNumInteger
823	(fa_agQ
824	`cast` (Data.Fixed.NTCo:Fixed <a_agP>
825	:: Data.Fixed.Fixed a_agP ~ GHC.Integer.Type.Integer))
826	(($dHasResolution_avQ
827	`cast` (Data.Fixed.NTCo:HasResolution <a_agP>
828	:: Data.Fixed.HasResolution a_agP
829	~
830	(forall (p_abS :: * -> *).
831	p_abS a_agP -> GHC.Integer.Type.Integer)))
832	@ Data.Fixed.Fixed fa_agQ))
833	(ds_dEd
834	`cast` (Data.Fixed.NTCo:Fixed <a_agP>
835	:: Data.Fixed.Fixed a_agP ~ GHC.Integer.Type.Integer))
836
837	$c/_rGq
838	:: forall a_agP.
839	Data.Fixed.HasResolution a_agP =>
840	Data.Fixed.Fixed a_agP
841	-> Data.Fixed.Fixed a_agP -> Data.Fixed.Fixed a_agP
842	[GblId, Arity=3]
843	$c/_rGq =
844	a7_rGp
845	`cast` (forall a_agP.
846	<Data.Fixed.HasResolution a_agP>
847	-> <Data.Fixed.Fixed a_agP>
848	-> <Data.Fixed.Fixed a_agP>
849	-> Sym (Data.Fixed.NTCo:Fixed <a_agP>)
850	:: (forall a_agP.
851	Data.Fixed.HasResolution a_agP =>
852	Data.Fixed.Fixed a_agP
853	-> Data.Fixed.Fixed a_agP -> GHC.Integer.Type.Integer)
854	~
855	(forall a_agP.
856	Data.Fixed.HasResolution a_agP =>
857	Data.Fixed.Fixed a_agP
858	-> Data.Fixed.Fixed a_agP -> Data.Fixed.Fixed a_agP))
859
860	$cresolution_rGr
861	:: forall (p_abS :: * -> *).
862	p_abS Data.Fixed.E0 -> GHC.Integer.Type.Integer
863	[GblId, Arity=1, Caf=NoCafRefs]
864	$cresolution_rGr = \ (@ p_au3::* -> *) _ -> __integer 1
865
866	Data.Fixed.$fHasResolutionE0 [InlPrag=INLINE (sat-args=0)]
867	:: Data.Fixed.HasResolution Data.Fixed.E0
868	[GblId[DFunId(nt)]]
869	Data.Fixed.$fHasResolutionE0 =
870	$cresolution_rGr
871	`cast` (Sym (Data.Fixed.NTCo:HasResolution <Data.Fixed.E0>)
872	:: (forall (p_abS :: * -> *).
873	p_abS Data.Fixed.E0 -> GHC.Integer.Type.Integer)
874	~
875	Data.Fixed.HasResolution Data.Fixed.E0)
876
877	$cresolution1_rGs
878	:: forall (p_abS :: * -> *).
879	p_abS Data.Fixed.E1 -> GHC.Integer.Type.Integer
880	[GblId, Arity=1, Caf=NoCafRefs]
881	$cresolution1_rGs = \ (@ p_atY::* -> *) _ -> __integer 10
882
883	Data.Fixed.$fHasResolutionE1 [InlPrag=INLINE (sat-args=0)]
884	:: Data.Fixed.HasResolution Data.Fixed.E1
885	[GblId[DFunId(nt)]]
886	Data.Fixed.$fHasResolutionE1 =
887	$cresolution1_rGs
888	`cast` (Sym (Data.Fixed.NTCo:HasResolution <Data.Fixed.E1>)
889	:: (forall (p_abS :: * -> *).
890	p_abS Data.Fixed.E1 -> GHC.Integer.Type.Integer)
891	~
892	Data.Fixed.HasResolution Data.Fixed.E1)
893
894	$cresolution2_rGt
895	:: forall (p_abS :: * -> *).
896	p_abS Data.Fixed.E2 -> GHC.Integer.Type.Integer
897	[GblId, Arity=1, Caf=NoCafRefs]
898	$cresolution2_rGt = \ (@ p_atT::* -> *) _ -> __integer 100
899
900	Data.Fixed.$fHasResolutionE2 [InlPrag=INLINE (sat-args=0)]
901	:: Data.Fixed.HasResolution Data.Fixed.E2
902	[GblId[DFunId(nt)]]
903	Data.Fixed.$fHasResolutionE2 =
904	$cresolution2_rGt
905	`cast` (Sym (Data.Fixed.NTCo:HasResolution <Data.Fixed.E2>)
906	:: (forall (p_abS :: * -> *).
907	p_abS Data.Fixed.E2 -> GHC.Integer.Type.Integer)
908	~
909	Data.Fixed.HasResolution Data.Fixed.E2)
910
911	$cresolution3_rGu
912	:: forall (p_abS :: * -> *).
913	p_abS Data.Fixed.E3 -> GHC.Integer.Type.Integer
914	[GblId, Arity=1, Caf=NoCafRefs]
915	$cresolution3_rGu = \ (@ p_atO::* -> *) _ -> __integer 1000
916
917	Data.Fixed.$fHasResolutionE3 [InlPrag=INLINE (sat-args=0)]
918	:: Data.Fixed.HasResolution Data.Fixed.E3
919	[GblId[DFunId(nt)]]
920	Data.Fixed.$fHasResolutionE3 =
921	$cresolution3_rGu
922	`cast` (Sym (Data.Fixed.NTCo:HasResolution <Data.Fixed.E3>)
923	:: (forall (p_abS :: * -> *).
924	p_abS Data.Fixed.E3 -> GHC.Integer.Type.Integer)
925	~
926	Data.Fixed.HasResolution Data.Fixed.E3)
927
928	$cresolution4_rGv
929	:: forall (p_abS :: * -> *).
930	p_abS Data.Fixed.E6 -> GHC.Integer.Type.Integer
931	[GblId, Arity=1, Caf=NoCafRefs]
932	$cresolution4_rGv = \ (@ p_atJ::* -> *) _ -> __integer 1000000
933
934	Data.Fixed.$fHasResolutionE6 [InlPrag=INLINE (sat-args=0)]
935	:: Data.Fixed.HasResolution Data.Fixed.E6
936	[GblId[DFunId(nt)]]
937	Data.Fixed.$fHasResolutionE6 =
938	$cresolution4_rGv
939	`cast` (Sym (Data.Fixed.NTCo:HasResolution <Data.Fixed.E6>)
940	:: (forall (p_abS :: * -> *).
941	p_abS Data.Fixed.E6 -> GHC.Integer.Type.Integer)
942	~
943	Data.Fixed.HasResolution Data.Fixed.E6)
944
945	$cresolution5_rGw
946	:: forall (p_abS :: * -> *).
947	p_abS Data.Fixed.E9 -> GHC.Integer.Type.Integer
948	[GblId, Arity=1, Caf=NoCafRefs]
949	$cresolution5_rGw = \ (@ p_atE::* -> *) _ -> __integer 1000000000
950
951	Data.Fixed.$fHasResolutionE9 [InlPrag=INLINE (sat-args=0)]
952	:: Data.Fixed.HasResolution Data.Fixed.E9
953	[GblId[DFunId(nt)]]
954	Data.Fixed.$fHasResolutionE9 =
955	$cresolution5_rGw
956	`cast` (Sym (Data.Fixed.NTCo:HasResolution <Data.Fixed.E9>)
957	:: (forall (p_abS :: * -> *).
958	p_abS Data.Fixed.E9 -> GHC.Integer.Type.Integer)
959	~
960	Data.Fixed.HasResolution Data.Fixed.E9)
961
962	$cresolution6_rGx
963	:: forall (p_abS :: * -> *).
964	p_abS Data.Fixed.E12 -> GHC.Integer.Type.Integer
965	[GblId, Arity=1, Caf=NoCafRefs]
966	$cresolution6_rGx =
967	\ (@ p_atz::* -> *) _ -> __integer 1000000000000
968
969	Data.Fixed.$fHasResolutionE12 [InlPrag=INLINE (sat-args=0)]
970	:: Data.Fixed.HasResolution Data.Fixed.E12
971	[GblId[DFunId(nt)]]
972	Data.Fixed.$fHasResolutionE12 =
973	$cresolution6_rGx
974	`cast` (Sym (Data.Fixed.NTCo:HasResolution <Data.Fixed.E12>)
975	:: (forall (p_abS :: * -> *).
976	p_abS Data.Fixed.E12 -> GHC.Integer.Type.Integer)
977	~
978	Data.Fixed.HasResolution Data.Fixed.E12)
979
980	a8_rGy
981	:: GHC.Integer.Type.Integer
982	-> GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer
983	[GblId]
984	a8_rGy =
985	GHC.Classes.min
986	@ GHC.Integer.Type.Integer GHC.Integer.Type.$fOrdInteger
987
988	$cmin_rGz
989	:: forall a_abT.
990	Data.Fixed.Fixed a_abT
991	-> Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT
992	[GblId]
993	$cmin_rGz =
994	(\ (@ a_abT) -> a8_rGy)
995	`cast` (forall a_abT.
996	Sym (Data.Fixed.NTCo:Fixed <a_abT>)
997	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>)
998	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>)
999	:: (forall a_abT.
1000	GHC.Integer.Type.Integer
1001	-> GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
1002	~
1003	(forall a_abT.
1004	Data.Fixed.Fixed a_abT
1005	-> Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT))
1006
1007	a9_rGA
1008	:: GHC.Integer.Type.Integer
1009	-> GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer
1010	[GblId]
1011	a9_rGA =
1012	GHC.Classes.max
1013	@ GHC.Integer.Type.Integer GHC.Integer.Type.$fOrdInteger
1014
1015	$cmax_rGB
1016	:: forall a_abT.
1017	Data.Fixed.Fixed a_abT
1018	-> Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT
1019	[GblId]
1020	$cmax_rGB =
1021	(\ (@ a_abT) -> a9_rGA)
1022	`cast` (forall a_abT.
1023	Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1024	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1025	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1026	:: (forall a_abT.
1027	GHC.Integer.Type.Integer
1028	-> GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
1029	~
1030	(forall a_abT.
1031	Data.Fixed.Fixed a_abT
1032	-> Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT))
1033
1034	a10_rGC
1035	:: GHC.Integer.Type.Integer
1036	-> GHC.Integer.Type.Integer -> GHC.Types.Bool
1037	[GblId]
1038	a10_rGC =
1039	GHC.Classes.<=
1040	@ GHC.Integer.Type.Integer GHC.Integer.Type.$fOrdInteger
1041
1042	$c<=_rGD
1043	:: forall a_abT.
1044	Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT -> GHC.Types.Bool
1045	[GblId]
1046	$c<=_rGD =
1047	(\ (@ a_abT) -> a10_rGC)
1048	`cast` (forall a_abT.
1049	Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1050	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
1051	:: (forall a_abT.
1052	GHC.Integer.Type.Integer
1053	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
1054	~
1055	(forall a_abT.
1056	Data.Fixed.Fixed a_abT
1057	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool))
1058
1059	a11_rGE
1060	:: GHC.Integer.Type.Integer
1061	-> GHC.Integer.Type.Integer -> GHC.Types.Bool
1062	[GblId]
1063	a11_rGE =
1064	GHC.Classes.>
1065	@ GHC.Integer.Type.Integer GHC.Integer.Type.$fOrdInteger
1066
1067	$c>_rGF
1068	:: forall a_abT.
1069	Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT -> GHC.Types.Bool
1070	[GblId]
1071	$c>_rGF =
1072	(\ (@ a_abT) -> a11_rGE)
1073	`cast` (forall a_abT.
1074	Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1075	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
1076	:: (forall a_abT.
1077	GHC.Integer.Type.Integer
1078	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
1079	~
1080	(forall a_abT.
1081	Data.Fixed.Fixed a_abT
1082	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool))
1083
1084	a12_rGG
1085	:: GHC.Integer.Type.Integer
1086	-> GHC.Integer.Type.Integer -> GHC.Types.Bool
1087	[GblId]
1088	a12_rGG =
1089	GHC.Classes.>=
1090	@ GHC.Integer.Type.Integer GHC.Integer.Type.$fOrdInteger
1091
1092	$c>=_rGH
1093	:: forall a_abT.
1094	Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT -> GHC.Types.Bool
1095	[GblId]
1096	$c>=_rGH =
1097	(\ (@ a_abT) -> a12_rGG)
1098	`cast` (forall a_abT.
1099	Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1100	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
1101	:: (forall a_abT.
1102	GHC.Integer.Type.Integer
1103	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
1104	~
1105	(forall a_abT.
1106	Data.Fixed.Fixed a_abT
1107	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool))
1108
1109	a13_rGI
1110	:: GHC.Integer.Type.Integer
1111	-> GHC.Integer.Type.Integer -> GHC.Types.Bool
1112	[GblId]
1113	a13_rGI =
1114	GHC.Classes.<
1115	@ GHC.Integer.Type.Integer GHC.Integer.Type.$fOrdInteger
1116
1117	$c<_rGJ
1118	:: forall a_abT.
1119	Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT -> GHC.Types.Bool
1120	[GblId]
1121	$c<_rGJ =
1122	(\ (@ a_abT) -> a13_rGI)
1123	`cast` (forall a_abT.
1124	Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1125	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
1126	:: (forall a_abT.
1127	GHC.Integer.Type.Integer
1128	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
1129	~
1130	(forall a_abT.
1131	Data.Fixed.Fixed a_abT
1132	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool))
1133
1134	a14_rGK
1135	:: GHC.Integer.Type.Integer
1136	-> GHC.Integer.Type.Integer -> GHC.Types.Ordering
1137	[GblId]
1138	a14_rGK =
1139	GHC.Classes.compare
1140	@ GHC.Integer.Type.Integer GHC.Integer.Type.$fOrdInteger
1141
1142	$ccompare_rGL
1143	:: forall a_abT.
1144	Data.Fixed.Fixed a_abT
1145	-> Data.Fixed.Fixed a_abT -> GHC.Types.Ordering
1146	[GblId]
1147	$ccompare_rGL =
1148	(\ (@ a_abT) -> a14_rGK)
1149	`cast` (forall a_abT.
1150	Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1151	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Ordering>
1152	:: (forall a_abT.
1153	GHC.Integer.Type.Integer
1154	-> GHC.Integer.Type.Integer -> GHC.Types.Ordering)
1155	~
1156	(forall a_abT.
1157	Data.Fixed.Fixed a_abT
1158	-> Data.Fixed.Fixed a_abT -> GHC.Types.Ordering))
1159
1160	a15_rGM
1161	:: GHC.Integer.Type.Integer
1162	-> GHC.Integer.Type.Integer -> GHC.Types.Bool
1163	[GblId]
1164	a15_rGM =
1165	GHC.Classes./=
1166	@ GHC.Integer.Type.Integer GHC.Integer.Type.$fEqInteger
1167
1168	$c/=_rGN
1169	:: forall a_abT.
1170	Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT -> GHC.Types.Bool
1171	[GblId]
1172	$c/=_rGN =
1173	(\ (@ a_abT) -> a15_rGM)
1174	`cast` (forall a_abT.
1175	Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1176	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
1177	:: (forall a_abT.
1178	GHC.Integer.Type.Integer
1179	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
1180	~
1181	(forall a_abT.
1182	Data.Fixed.Fixed a_abT
1183	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool))
1184
1185	a16_rGO
1186	:: GHC.Integer.Type.Integer
1187	-> GHC.Integer.Type.Integer -> GHC.Types.Bool
1188	[GblId]
1189	a16_rGO =
1190	GHC.Classes.==
1191	@ GHC.Integer.Type.Integer GHC.Integer.Type.$fEqInteger
1192
1193	$c==_rGP
1194	:: forall a_abT.
1195	Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT -> GHC.Types.Bool
1196	[GblId]
1197	$c==_rGP =
1198	(\ (@ a_abT) -> a16_rGO)
1199	`cast` (forall a_abT.
1200	Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1201	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
1202	:: (forall a_abT.
1203	GHC.Integer.Type.Integer
1204	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
1205	~
1206	(forall a_abT.
1207	Data.Fixed.Fixed a_abT
1208	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool))
1209
1210	Data.Fixed.$fEqFixed [InlPrag=[ALWAYS] CONLIKE]
1211	:: forall a_abT. GHC.Classes.Eq (Data.Fixed.Fixed a_abT)
1212	[GblId[DFunId]]
1213	Data.Fixed.$fEqFixed =
1214	\ (@ a_abT) ->
1215	GHC.Classes.D:Eq
1216	@ (Data.Fixed.Fixed a_abT)
1217	(a16_rGO
1218	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1219	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
1220	:: (GHC.Integer.Type.Integer
1221	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
1222	~
1223	(Data.Fixed.Fixed a_abT
1224	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool)))
1225	(a15_rGM
1226	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1227	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
1228	:: (GHC.Integer.Type.Integer
1229	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
1230	~
1231	(Data.Fixed.Fixed a_abT
1232	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool)))
1233
1234	Data.Fixed.$fOrdFixed [InlPrag=[ALWAYS] CONLIKE]
1235	:: forall a_abT. GHC.Classes.Ord (Data.Fixed.Fixed a_abT)
1236	[GblId[DFunId]]
1237	Data.Fixed.$fOrdFixed =
1238	\ (@ a_abT) ->
1239	GHC.Classes.D:Ord
1240	@ (Data.Fixed.Fixed a_abT)
1241	(Data.Fixed.$fEqFixed @ a_abT)
1242	(a14_rGK
1243	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1244	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Ordering>
1245	:: (GHC.Integer.Type.Integer
1246	-> GHC.Integer.Type.Integer -> GHC.Types.Ordering)
1247	~
1248	(Data.Fixed.Fixed a_abT
1249	-> Data.Fixed.Fixed a_abT -> GHC.Types.Ordering)))
1250	(a13_rGI
1251	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1252	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
1253	:: (GHC.Integer.Type.Integer
1254	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
1255	~
1256	(Data.Fixed.Fixed a_abT
1257	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool)))
1258	(a12_rGG
1259	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1260	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
1261	:: (GHC.Integer.Type.Integer
1262	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
1263	~
1264	(Data.Fixed.Fixed a_abT
1265	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool)))
1266	(a11_rGE
1267	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1268	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
1269	:: (GHC.Integer.Type.Integer
1270	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
1271	~
1272	(Data.Fixed.Fixed a_abT
1273	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool)))
1274	(a10_rGC
1275	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1276	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
1277	:: (GHC.Integer.Type.Integer
1278	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
1279	~
1280	(Data.Fixed.Fixed a_abT
1281	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool)))
1282	(a9_rGA
1283	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1284	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1285	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1286	:: (GHC.Integer.Type.Integer
1287	-> GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
1288	~
1289	(Data.Fixed.Fixed a_abT
1290	-> Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT)))
1291	(a8_rGy
1292	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1293	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1294	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>)
1295	:: (GHC.Integer.Type.Integer
1296	-> GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
1297	~
1298	(Data.Fixed.Fixed a_abT
1299	-> Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT)))
1300
1301	$c$p2Real_rGQ
1302	:: forall a_agY.
1303	Data.Fixed.HasResolution a_agY =>
1304	GHC.Classes.Ord (Data.Fixed.Fixed a_agY)
1305	[GblId, Arity=1]
1306	$c$p2Real_rGQ = \ (@ a_agY) _ -> Data.Fixed.$fOrdFixed @ a_agY
1307
1308	$c$p1Num_rGR
1309	:: forall a_ah1.
1310	Data.Fixed.HasResolution a_ah1 =>
1311	GHC.Classes.Eq (Data.Fixed.Fixed a_ah1)
1312	[GblId, Arity=1]
1313	$c$p1Num_rGR = \ (@ a_Xkn) _ -> Data.Fixed.$fEqFixed @ a_Xkn
1314
1315	$ctypeOf1_rGS
1316	:: forall a_at2.
1317	Data.Fixed.Fixed a_at2 -> Data.Typeable.Internal.TypeRep
1318	[GblId, Arity=1]
1319	$ctypeOf1_rGS =
1320	\ (@ a_at3) _ ->
1321	Data.Typeable.Internal.mkTyConApp
1322	(Data.Typeable.Internal.mkTyCon
1323	__word64 8981914714902393322
1324	__word64 1690778749145253851
1325	(GHC.CString.unpackCString# "base")
1326	(GHC.CString.unpackCString# "Data.Fixed")
1327	(GHC.CString.unpackCString# "Fixed"))
1328	(GHC.Types.[] @ Data.Typeable.Internal.TypeRep)
1329
1330	Data.Fixed.$fTypeable1Fixed [InlPrag=INLINE (sat-args=0)]
1331	:: Data.Typeable.Internal.Typeable1 Data.Fixed.Fixed
1332	[GblId[DFunId(nt)]]
1333	Data.Fixed.$fTypeable1Fixed =
1334	$ctypeOf1_rGS
1335	`cast` (Sym
1336	(Data.Typeable.Internal.NTCo:Typeable1 <Data.Fixed.Fixed>)
1337	:: (forall a_at2.
1338	Data.Fixed.Fixed a_at2 -> Data.Typeable.Internal.TypeRep)
1339	~
1340	Data.Typeable.Internal.Typeable1 Data.Fixed.Fixed)
1341
1342	$c$p1Data_rGT
1343	:: forall a_ahq.
1344	Data.Typeable.Internal.Typeable a_ahq =>
1345	Data.Typeable.Internal.Typeable (Data.Fixed.Fixed a_ahq)
1346	[GblId, Arity=1]
1347	$c$p1Data_rGT =
1348	\ (@ a_ahq)
1349	($dTypeable_axZ :: Data.Typeable.Internal.Typeable a_ahq) ->
1350	Data.Typeable.Internal.$fTypeables
1351	@ Data.Fixed.Fixed
1352	@ a_ahq
1353	($ctypeOf1_rGS
1354	`cast` (Sym
1355	(Data.Typeable.Internal.NTCo:Typeable1 <Data.Fixed.Fixed>)
1356	:: (forall a_at2.
1357	Data.Fixed.Fixed a_at2 -> Data.Typeable.Internal.TypeRep)
1358	~
1359	Data.Typeable.Internal.Typeable1 Data.Fixed.Fixed))
1360	$dTypeable_axZ
1361
1362	Rec {
1363	Data.Fixed.$fDataFixed [InlPrag=[ALWAYS] CONLIKE]
1364	:: forall a_ahq.
1365	Data.Typeable.Internal.Typeable a_ahq =>
1366	Data.Data.Data (Data.Fixed.Fixed a_ahq)
1367	[GblId[DFunId], Arity=1]
1368	Data.Fixed.$fDataFixed =
1369	\ (@ a_ahq)
1370	($dTypeable_axZ :: Data.Typeable.Internal.Typeable a_ahq) ->
1371	Data.Data.D:Data
1372	@ (Data.Fixed.Fixed a_ahq)
1373	($c$p1Data_rGT @ a_ahq $dTypeable_axZ)
1374	($cgfoldl_rG0 @ a_ahq $dTypeable_axZ)
1375	($cgunfold_rFZ @ a_ahq $dTypeable_axZ)
1376	(\ _ -> conMkFixed_rbK)
1377	(\ _ -> tyFixed_rbJ)
1378	($cdataCast1_rH3 @ a_ahq $dTypeable_axZ)
1379	($cdataCast2_rH2 @ a_ahq $dTypeable_axZ)
1380	($cgmapT_rH1 @ a_ahq $dTypeable_axZ)
1381	($cgmapQl_rH0 @ a_ahq $dTypeable_axZ)
1382	($cgmapQr_rGZ @ a_ahq $dTypeable_axZ)
1383	($cgmapQ_rGY @ a_ahq $dTypeable_axZ)
1384	($cgmapQi_rGX @ a_ahq $dTypeable_axZ)
1385	($cgmapM_rGW @ a_ahq $dTypeable_axZ)
1386	($cgmapMp_rGV @ a_ahq $dTypeable_axZ)
1387	($cgmapMo_rGU @ a_ahq $dTypeable_axZ)
1388
1389	$cgmapMo_rGU
1390	:: forall a_ahq.
1391	Data.Typeable.Internal.Typeable a_ahq =>
1392	forall (m_aD0 :: * -> *).
1393	Control.Monad.MonadPlus m_aD0 =>
1394	(forall d_aD1. Data.Data.Data d_aD1 => d_aD1 -> m_aD0 d_aD1)
1395	-> Data.Fixed.Fixed a_ahq -> m_aD0 (Data.Fixed.Fixed a_ahq)
1396	[GblId, Arity=1]
1397	$cgmapMo_rGU =
1398	\ (@ a_ahq)
1399	($dTypeable_axZ :: Data.Typeable.Internal.Typeable a_ahq) ->
1400	Data.Data.$dmgmapMo
1401	@ (Data.Fixed.Fixed a_ahq)
1402	(Data.Fixed.$fDataFixed @ a_ahq $dTypeable_axZ)
1403
1404	$cgmapMp_rGV
1405	:: forall a_ahq.
1406	Data.Typeable.Internal.Typeable a_ahq =>
1407	forall (m_aCW :: * -> *).
1408	Control.Monad.MonadPlus m_aCW =>
1409	(forall d_aCX. Data.Data.Data d_aCX => d_aCX -> m_aCW d_aCX)
1410	-> Data.Fixed.Fixed a_ahq -> m_aCW (Data.Fixed.Fixed a_ahq)
1411	[GblId, Arity=1]
1412	$cgmapMp_rGV =
1413	\ (@ a_ahq)
1414	($dTypeable_axZ :: Data.Typeable.Internal.Typeable a_ahq) ->
1415	Data.Data.$dmgmapMp
1416	@ (Data.Fixed.Fixed a_ahq)
1417	(Data.Fixed.$fDataFixed @ a_ahq $dTypeable_axZ)
1418
1419	$cgmapM_rGW
1420	:: forall a_ahq.
1421	Data.Typeable.Internal.Typeable a_ahq =>
1422	forall (m_aCS :: * -> *).
1423	GHC.Base.Monad m_aCS =>
1424	(forall d_aCT. Data.Data.Data d_aCT => d_aCT -> m_aCS d_aCT)
1425	-> Data.Fixed.Fixed a_ahq -> m_aCS (Data.Fixed.Fixed a_ahq)
1426	[GblId, Arity=1]
1427	$cgmapM_rGW =
1428	\ (@ a_ahq)
1429	($dTypeable_axZ :: Data.Typeable.Internal.Typeable a_ahq) ->
1430	Data.Data.$dmgmapM
1431	@ (Data.Fixed.Fixed a_ahq)
1432	(Data.Fixed.$fDataFixed @ a_ahq $dTypeable_axZ)
1433
1434	$cgmapQi_rGX
1435	:: forall a_ahq.
1436	Data.Typeable.Internal.Typeable a_ahq =>
1437	forall u_aCQ.
1438	GHC.Types.Int
1439	-> (forall d_aCR. Data.Data.Data d_aCR => d_aCR -> u_aCQ)
1440	-> Data.Fixed.Fixed a_ahq
1441	-> u_aCQ
1442	[GblId, Arity=1]
1443	$cgmapQi_rGX =
1444	\ (@ a_ahq)
1445	($dTypeable_axZ :: Data.Typeable.Internal.Typeable a_ahq) ->
1446	Data.Data.$dmgmapQi
1447	@ (Data.Fixed.Fixed a_ahq)
1448	(Data.Fixed.$fDataFixed @ a_ahq $dTypeable_axZ)
1449
1450	$cgmapQ_rGY
1451	:: forall a_ahq.
1452	Data.Typeable.Internal.Typeable a_ahq =>
1453	forall u_aCO.
1454	(forall d_aCP. Data.Data.Data d_aCP => d_aCP -> u_aCO)
1455	-> Data.Fixed.Fixed a_ahq -> [u_aCO]
1456	[GblId, Arity=1]
1457	$cgmapQ_rGY =
1458	\ (@ a_ahq)
1459	($dTypeable_axZ :: Data.Typeable.Internal.Typeable a_ahq) ->
1460	Data.Data.$dmgmapQ
1461	@ (Data.Fixed.Fixed a_ahq)
1462	(Data.Fixed.$fDataFixed @ a_ahq $dTypeable_axZ)
1463
1464	$cgmapQr_rGZ
1465	:: forall a_ahq.
1466	Data.Typeable.Internal.Typeable a_ahq =>
1467	forall r_aCL r'_aCM.
1468	(r'_aCM -> r_aCL -> r_aCL)
1469	-> r_aCL
1470	-> (forall d_aCN. Data.Data.Data d_aCN => d_aCN -> r'_aCM)
1471	-> Data.Fixed.Fixed a_ahq
1472	-> r_aCL
1473	[GblId, Arity=1]
1474	$cgmapQr_rGZ =
1475	\ (@ a_ahq)
1476	($dTypeable_axZ :: Data.Typeable.Internal.Typeable a_ahq) ->
1477	Data.Data.$dmgmapQr
1478	@ (Data.Fixed.Fixed a_ahq)
1479	(Data.Fixed.$fDataFixed @ a_ahq $dTypeable_axZ)
1480
1481	$cgmapQl_rH0
1482	:: forall a_ahq.
1483	Data.Typeable.Internal.Typeable a_ahq =>
1484	forall r_aCI r'_aCJ.
1485	(r_aCI -> r'_aCJ -> r_aCI)
1486	-> r_aCI
1487	-> (forall d_aCK. Data.Data.Data d_aCK => d_aCK -> r'_aCJ)
1488	-> Data.Fixed.Fixed a_ahq
1489	-> r_aCI
1490	[GblId, Arity=1]
1491	$cgmapQl_rH0 =
1492	\ (@ a_ahq)
1493	($dTypeable_axZ :: Data.Typeable.Internal.Typeable a_ahq) ->
1494	Data.Data.$dmgmapQl
1495	@ (Data.Fixed.Fixed a_ahq)
1496	(Data.Fixed.$fDataFixed @ a_ahq $dTypeable_axZ)
1497
1498	$cgmapT_rH1
1499	:: forall a_ahq.
1500	Data.Typeable.Internal.Typeable a_ahq =>
1501	(forall b_aCH. Data.Data.Data b_aCH => b_aCH -> b_aCH)
1502	-> Data.Fixed.Fixed a_ahq -> Data.Fixed.Fixed a_ahq
1503	[GblId, Arity=1]
1504	$cgmapT_rH1 =
1505	\ (@ a_ahq)
1506	($dTypeable_axZ :: Data.Typeable.Internal.Typeable a_ahq) ->
1507	Data.Data.$dmgmapT
1508	@ (Data.Fixed.Fixed a_ahq)
1509	(Data.Fixed.$fDataFixed @ a_ahq $dTypeable_axZ)
1510
1511	$cdataCast2_rH2
1512	:: forall a_ahq.
1513	Data.Typeable.Internal.Typeable a_ahq =>
1514	forall (t_aCB :: * -> * -> ) (c_aCC :: -> *).
1515	Data.Typeable.Internal.Typeable2 t_aCB =>
1516	(forall d_aCD e_aCE.
1517	(Data.Data.Data d_aCD, Data.Data.Data e_aCE) =>
1518	c_aCC (t_aCB d_aCD e_aCE))
1519	-> Data.Maybe.Maybe (c_aCC (Data.Fixed.Fixed a_ahq))
1520	[GblId, Arity=1]
1521	$cdataCast2_rH2 =
1522	\ (@ a_ahq)
1523	($dTypeable_axZ :: Data.Typeable.Internal.Typeable a_ahq) ->
1524	Data.Data.$dmdataCast2
1525	@ (Data.Fixed.Fixed a_ahq)
1526	(Data.Fixed.$fDataFixed @ a_ahq $dTypeable_axZ)
1527
1528	$cdataCast1_rH3
1529	:: forall a_ahq.
1530	Data.Typeable.Internal.Typeable a_ahq =>
1531	forall (t_aCr :: * -> ) (c_aCs :: -> *).
1532	Data.Typeable.Internal.Typeable1 t_aCr =>
1533	(forall d_aCt. Data.Data.Data d_aCt => c_aCs (t_aCr d_aCt))
1534	-> Data.Maybe.Maybe (c_aCs (Data.Fixed.Fixed a_ahq))
1535	[GblId, Arity=1]
1536	$cdataCast1_rH3 =
1537	\ (@ a_ahq)
1538	($dTypeable_axZ :: Data.Typeable.Internal.Typeable a_ahq) ->
1539	Data.Data.$dmdataCast1
1540	@ (Data.Fixed.Fixed a_ahq)
1541	(Data.Fixed.$fDataFixed @ a_ahq $dTypeable_axZ)
1542	end Rec }
1543
1544	$ctypeOf_rH4 :: Data.Fixed.E9 -> Data.Typeable.Internal.TypeRep
1545	[GblId, Arity=1]
1546	$ctypeOf_rH4 =
1547	\ _ ->
1548	Data.Typeable.Internal.mkTyConApp
1549	(Data.Typeable.Internal.mkTyCon
1550	__word64 15570456028367132479
1551	__word64 4914954968114546561
1552	(GHC.CString.unpackCString# "base")
1553	(GHC.CString.unpackCString# "Data.Fixed")
1554	(GHC.CString.unpackCString# "E9"))
1555	(GHC.Types.[] @ Data.Typeable.Internal.TypeRep)
1556
1557	Data.Fixed.$fTypeableE9 [InlPrag=INLINE (sat-args=0)]
1558	:: Data.Typeable.Internal.Typeable Data.Fixed.E9
1559	[GblId[DFunId(nt)]]
1560	Data.Fixed.$fTypeableE9 =
1561	$ctypeOf_rH4
1562	`cast` (Sym (Data.Typeable.Internal.NTCo:Typeable <Data.Fixed.E9>)
1563	:: (Data.Fixed.E9 -> Data.Typeable.Internal.TypeRep)
1564	~
1565	Data.Typeable.Internal.Typeable Data.Fixed.E9)
1566
1567	$ctypeOf2_rH5 :: Data.Fixed.E6 -> Data.Typeable.Internal.TypeRep
1568	[GblId, Arity=1]
1569	$ctypeOf2_rH5 =
1570	\ _ ->
1571	Data.Typeable.Internal.mkTyConApp
1572	(Data.Typeable.Internal.mkTyCon
1573	__word64 11048415573138885452
1574	__word64 1217778767540836678
1575	(GHC.CString.unpackCString# "base")
1576	(GHC.CString.unpackCString# "Data.Fixed")
1577	(GHC.CString.unpackCString# "E6"))
1578	(GHC.Types.[] @ Data.Typeable.Internal.TypeRep)
1579
1580	Data.Fixed.$fTypeableE6 [InlPrag=INLINE (sat-args=0)]
1581	:: Data.Typeable.Internal.Typeable Data.Fixed.E6
1582	[GblId[DFunId(nt)]]
1583	Data.Fixed.$fTypeableE6 =
1584	$ctypeOf2_rH5
1585	`cast` (Sym (Data.Typeable.Internal.NTCo:Typeable <Data.Fixed.E6>)
1586	:: (Data.Fixed.E6 -> Data.Typeable.Internal.TypeRep)
1587	~
1588	Data.Typeable.Internal.Typeable Data.Fixed.E6)
1589
1590	$ctypeOf3_rH6 :: Data.Fixed.E3 -> Data.Typeable.Internal.TypeRep
1591	[GblId, Arity=1]
1592	$ctypeOf3_rH6 =
1593	\ _ ->
1594	Data.Typeable.Internal.mkTyConApp
1595	(Data.Typeable.Internal.mkTyCon
1596	__word64 13298396492034960756
1597	__word64 1749862863353200892
1598	(GHC.CString.unpackCString# "base")
1599	(GHC.CString.unpackCString# "Data.Fixed")
1600	(GHC.CString.unpackCString# "E3"))
1601	(GHC.Types.[] @ Data.Typeable.Internal.TypeRep)
1602
1603	Data.Fixed.$fTypeableE3 [InlPrag=INLINE (sat-args=0)]
1604	:: Data.Typeable.Internal.Typeable Data.Fixed.E3
1605	[GblId[DFunId(nt)]]
1606	Data.Fixed.$fTypeableE3 =
1607	$ctypeOf3_rH6
1608	`cast` (Sym (Data.Typeable.Internal.NTCo:Typeable <Data.Fixed.E3>)
1609	:: (Data.Fixed.E3 -> Data.Typeable.Internal.TypeRep)
1610	~
1611	Data.Typeable.Internal.Typeable Data.Fixed.E3)
1612
1613	$ctypeOf4_rH7 :: Data.Fixed.E2 -> Data.Typeable.Internal.TypeRep
1614	[GblId, Arity=1]
1615	$ctypeOf4_rH7 =
1616	\ _ ->
1617	Data.Typeable.Internal.mkTyConApp
1618	(Data.Typeable.Internal.mkTyCon
1619	__word64 8989219525033637755
1620	__word64 13661419010171873568
1621	(GHC.CString.unpackCString# "base")
1622	(GHC.CString.unpackCString# "Data.Fixed")
1623	(GHC.CString.unpackCString# "E2"))
1624	(GHC.Types.[] @ Data.Typeable.Internal.TypeRep)
1625
1626	Data.Fixed.$fTypeableE2 [InlPrag=INLINE (sat-args=0)]
1627	:: Data.Typeable.Internal.Typeable Data.Fixed.E2
1628	[GblId[DFunId(nt)]]
1629	Data.Fixed.$fTypeableE2 =
1630	$ctypeOf4_rH7
1631	`cast` (Sym (Data.Typeable.Internal.NTCo:Typeable <Data.Fixed.E2>)
1632	:: (Data.Fixed.E2 -> Data.Typeable.Internal.TypeRep)
1633	~
1634	Data.Typeable.Internal.Typeable Data.Fixed.E2)
1635
1636	$ctypeOf5_rH8 :: Data.Fixed.E12 -> Data.Typeable.Internal.TypeRep
1637	[GblId, Arity=1]
1638	$ctypeOf5_rH8 =
1639	\ _ ->
1640	Data.Typeable.Internal.mkTyConApp
1641	(Data.Typeable.Internal.mkTyCon
1642	__word64 9075049927748704200
1643	__word64 8344311484273083929
1644	(GHC.CString.unpackCString# "base")
1645	(GHC.CString.unpackCString# "Data.Fixed")
1646	(GHC.CString.unpackCString# "E12"))
1647	(GHC.Types.[] @ Data.Typeable.Internal.TypeRep)
1648
1649	Data.Fixed.$fTypeableE12 [InlPrag=INLINE (sat-args=0)]
1650	:: Data.Typeable.Internal.Typeable Data.Fixed.E12
1651	[GblId[DFunId(nt)]]
1652	Data.Fixed.$fTypeableE12 =
1653	$ctypeOf5_rH8
1654	`cast` (Sym (Data.Typeable.Internal.NTCo:Typeable <Data.Fixed.E12>)
1655	:: (Data.Fixed.E12 -> Data.Typeable.Internal.TypeRep)
1656	~
1657	Data.Typeable.Internal.Typeable Data.Fixed.E12)
1658
1659	$ctypeOf6_rH9 :: Data.Fixed.E1 -> Data.Typeable.Internal.TypeRep
1660	[GblId, Arity=1]
1661	$ctypeOf6_rH9 =
1662	\ _ ->
1663	Data.Typeable.Internal.mkTyConApp
1664	(Data.Typeable.Internal.mkTyCon
1665	__word64 16638603867001532453
1666	__word64 10347644405225028637
1667	(GHC.CString.unpackCString# "base")
1668	(GHC.CString.unpackCString# "Data.Fixed")
1669	(GHC.CString.unpackCString# "E1"))
1670	(GHC.Types.[] @ Data.Typeable.Internal.TypeRep)
1671
1672	Data.Fixed.$fTypeableE1 [InlPrag=INLINE (sat-args=0)]
1673	:: Data.Typeable.Internal.Typeable Data.Fixed.E1
1674	[GblId[DFunId(nt)]]
1675	Data.Fixed.$fTypeableE1 =
1676	$ctypeOf6_rH9
1677	`cast` (Sym (Data.Typeable.Internal.NTCo:Typeable <Data.Fixed.E1>)
1678	:: (Data.Fixed.E1 -> Data.Typeable.Internal.TypeRep)
1679	~
1680	Data.Typeable.Internal.Typeable Data.Fixed.E1)
1681
1682	$ctypeOf7_rHa :: Data.Fixed.E0 -> Data.Typeable.Internal.TypeRep
1683	[GblId, Arity=1]
1684	$ctypeOf7_rHa =
1685	\ _ ->
1686	Data.Typeable.Internal.mkTyConApp
1687	(Data.Typeable.Internal.mkTyCon
1688	__word64 12015880189365713514
1689	__word64 15325664370360632505
1690	(GHC.CString.unpackCString# "base")
1691	(GHC.CString.unpackCString# "Data.Fixed")
1692	(GHC.CString.unpackCString# "E0"))
1693	(GHC.Types.[] @ Data.Typeable.Internal.TypeRep)
1694
1695	Data.Fixed.$fTypeableE0 [InlPrag=INLINE (sat-args=0)]
1696	:: Data.Typeable.Internal.Typeable Data.Fixed.E0
1697	[GblId[DFunId(nt)]]
1698	Data.Fixed.$fTypeableE0 =
1699	$ctypeOf7_rHa
1700	`cast` (Sym (Data.Typeable.Internal.NTCo:Typeable <Data.Fixed.E0>)
1701	:: (Data.Fixed.E0 -> Data.Typeable.Internal.TypeRep)
1702	~
1703	Data.Typeable.Internal.Typeable Data.Fixed.E0)
1704
1705	Rec {
1706	chopZeros_rbN :: GHC.Integer.Type.Integer -> GHC.Base.String
1707	[GblId, Arity=1]
1708	chopZeros_rbN =
1709	\ (ds_dDD :: GHC.Integer.Type.Integer) ->
1710	case GHC.Classes.==
1711	@ GHC.Integer.Type.Integer
1712	GHC.Integer.Type.$fEqInteger
1713	ds_dDD
1714	__integer 0
1715	of _ {
1716	GHC.Types.False ->
1717	case GHC.Classes.==
1718	@ GHC.Integer.Type.Integer
1719	GHC.Integer.Type.$fEqInteger
1720	(GHC.Real.mod
1721	@ GHC.Integer.Type.Integer
1722	GHC.Real.$fIntegralInteger
1723	ds_dDD
1724	__integer 10)
1725	__integer 0
1726	of _ {
1727	GHC.Types.False ->
1728	GHC.Show.show
1729	@ GHC.Integer.Type.Integer GHC.Num.$fShowInteger ds_dDD;
1730	GHC.Types.True ->
1731	chopZeros_rbN
1732	(GHC.Real.div
1733	@ GHC.Integer.Type.Integer
1734	GHC.Real.$fIntegralInteger
1735	ds_dDD
1736	__integer 10)
1737	};
1738	GHC.Types.True -> GHC.Types.[] @ GHC.Types.Char
1739	}
1740	end Rec }
1741
1742	Rec {
1743	Data.Fixed.showFixed [Occ=LoopBreaker]
1744	:: forall a_abV.
1745	Data.Fixed.HasResolution a_abV =>
1746	GHC.Types.Bool -> Data.Fixed.Fixed a_abV -> GHC.Base.String
1747	[GblId, Arity=3]
1748	Data.Fixed.showFixed =
1749	\ (@ a_aqP)
1750	($dHasResolution_aqQ :: Data.Fixed.HasResolution a_aqP)
1751	(chopTrailingZeros_agf :: GHC.Types.Bool)
1752	(fa_agg :: Data.Fixed.Fixed a_aqP) ->
1753	case GHC.Classes.<
1754	@ GHC.Integer.Type.Integer
1755	GHC.Integer.Type.$fOrdInteger
1756	(fa_agg
1757	`cast` (Data.Fixed.NTCo:Fixed <a_aqP>
1758	:: Data.Fixed.Fixed a_aqP ~ GHC.Integer.Type.Integer))
1759	__integer 0
1760	of _ {
1761	GHC.Types.False ->
1762	let {
1763	res_agl :: GHC.Integer.Type.Integer
1764	[LclId]
1765	res_agl =
1766	($dHasResolution_aqQ
1767	`cast` (Data.Fixed.NTCo:HasResolution <a_aqP>
1768	:: Data.Fixed.HasResolution a_aqP
1769	~
1770	(forall (p_abS :: * -> *).
1771	p_abS a_aqP -> GHC.Integer.Type.Integer)))
1772	@ Data.Fixed.Fixed fa_agg } in
1773	let {
1774	ds_dDO :: (GHC.Integer.Type.Integer, GHC.Integer.Type.Integer)
1775	[LclId]
1776	ds_dDO =
1777	GHC.Real.divMod
1778	@ GHC.Integer.Type.Integer
1779	GHC.Real.$fIntegralInteger
1780	(fa_agg
1781	`cast` (Data.Fixed.NTCo:Fixed <a_aqP>
1782	:: Data.Fixed.Fixed a_aqP ~ GHC.Integer.Type.Integer))
1783	res_agl } in
1784	let {
1785	d_ar3 :: GHC.Integer.Type.Integer
1786	[LclId]
1787	d_ar3 = case ds_dDO of _ { (i_ar2, d1_Xv7) -> d1_Xv7 } } in
1788	let {
1789	i_ar2 :: GHC.Integer.Type.Integer
1790	[LclId]
1791	i_ar2 = case ds_dDO of _ { (i1_Xv7, d1_XsF) -> i1_Xv7 } } in
1792	let {
1793	ds1_dDS :: (GHC.Integer.Type.Integer, GHC.Integer.Type.Integer)
1794	[LclId]
1795	ds1_dDS = (i_ar2, d_ar3) } in
1796	let {
1797	digits_ago :: GHC.Types.Int
1798	[LclId]
1799	digits_ago =
1800	GHC.Real.ceiling
1801	@ GHC.Types.Double
1802	GHC.Float.$fRealFracDouble
1803	@ GHC.Types.Int
1804	GHC.Real.$fIntegralInt
1805	(GHC.Float.logBase
1806	@ GHC.Types.Double
1807	GHC.Float.$fFloatingDouble
1808	(GHC.Types.D# 10.0)
1809	(GHC.Num.fromInteger
1810	@ GHC.Types.Double GHC.Float.$fNumDouble res_agl)) } in
1811	GHC.Base.++
1812	@ GHC.Types.Char
1813	(GHC.Show.show
1814	@ GHC.Integer.Type.Integer
1815	GHC.Num.$fShowInteger
1816	(case ds1_dDS of _ { (i1_Xvb, d1_Xvd) -> i1_Xvb }))
1817	(let {
1818	ds2_dDK :: GHC.Integer.Type.Integer
1819	[LclId]
1820	ds2_dDK =
1821	GHC.Real.div
1822	@ GHC.Integer.Type.Integer
1823	GHC.Real.$fIntegralInteger
1824	(GHC.Num.*
1825	@ GHC.Integer.Type.Integer
1826	GHC.Num.$fNumInteger
1827	(case ds1_dDS of _ { (i1_Xvd, d1_Xvf) -> d1_Xvf })
1828	(GHC.Real.^
1829	@ GHC.Integer.Type.Integer
1830	@ GHC.Types.Int
1831	GHC.Num.$fNumInteger
1832	GHC.Real.$fIntegralInt
1833	__integer 10
1834	digits_ago))
1835	res_agl } in
1836	let {
1837	fail_dDL :: GHC.Prim.State# GHC.Prim.RealWorld -> [GHC.Types.Char]
1838	[LclId, Arity=1]
1839	fail_dDL =
1840	\ _ ->
1841	let {
1842	s_afa :: GHC.Base.String
1843	[LclId]
1844	s_afa =
1845	GHC.Show.show
1846	@ GHC.Integer.Type.Integer GHC.Num.$fShowInteger ds2_dDK } in
1847	GHC.Base.++
1848	@ GHC.Types.Char
1849	(GHC.List.replicate
1850	@ GHC.Types.Char
1851	(GHC.Num.-
1852	@ GHC.Types.Int
1853	GHC.Num.$fNumInt
1854	digits_ago
1855	(GHC.List.length @ GHC.Types.Char s_afa))
1856	(GHC.Types.C# '0'))
1857	(case chopTrailingZeros_agf of _ {
1858	GHC.Types.False -> s_afa;
1859	GHC.Types.True -> chopZeros_rbN ds2_dDK
1860	}) } in
1861	case chopTrailingZeros_agf of _ {
1862	GHC.Types.False ->
1863	case fail_dDL GHC.Prim.realWorld# of wild2_X8t {
1864	[] -> GHC.Types.[] @ GHC.Types.Char;
1865	: ipv_sFw ipv1_sFx ->
1866	GHC.Types.: @ GHC.Types.Char (GHC.Types.C# '.') wild2_X8t
1867	};
1868	GHC.Types.True ->
1869	case GHC.Classes.==
1870	@ GHC.Integer.Type.Integer
1871	GHC.Integer.Type.$fEqInteger
1872	ds2_dDK
1873	__integer 0
1874	of _ {
1875	GHC.Types.False ->
1876	case fail_dDL GHC.Prim.realWorld# of wild3_X8v {
1877	[] -> GHC.Types.[] @ GHC.Types.Char;
1878	: ipv_sFA ipv1_sFB ->
1879	GHC.Types.: @ GHC.Types.Char (GHC.Types.C# '.') wild3_X8v
1880	};
1881	GHC.Types.True -> GHC.Types.[] @ GHC.Types.Char
1882	}
1883	});
1884	GHC.Types.True ->
1885	GHC.Base.++
1886	@ GHC.Types.Char
1887	(GHC.Types.:
1888	@ GHC.Types.Char
1889	(GHC.Types.C# '-')
1890	(GHC.Types.[] @ GHC.Types.Char))
1891	(Data.Fixed.showFixed
1892	@ a_aqP
1893	$dHasResolution_aqQ
1894	chopTrailingZeros_agf
1895	(GHC.Base.asTypeOf
1896	@ (Data.Fixed.Fixed a_aqP)
1897	((GHC.Num.negate
1898	@ GHC.Integer.Type.Integer
1899	GHC.Num.$fNumInteger
1900	(fa_agg
1901	`cast` (Data.Fixed.NTCo:Fixed <a_aqP>
1902	:: Data.Fixed.Fixed a_aqP ~ GHC.Integer.Type.Integer)))
1903	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_aqP>)
1904	:: GHC.Integer.Type.Integer ~ Data.Fixed.Fixed a_aqP))
1905	fa_agg))
1906	}
1907	end Rec }
1908
1909	$cshow_rHb
1910	:: forall a_agH.
1911	Data.Fixed.HasResolution a_agH =>
1912	Data.Fixed.Fixed a_agH -> GHC.Base.String
1913	[GblId, Arity=2]
1914	$cshow_rHb =
1915	\ (@ a_agH)
1916	($dHasResolution_aut :: Data.Fixed.HasResolution a_agH)
1917	(eta_B1 :: Data.Fixed.Fixed a_agH) ->
1918	Data.Fixed.showFixed
1919	@ a_agH $dHasResolution_aut GHC.Types.False eta_B1
1920
1921	Rec {
1922	Data.Fixed.$fShowFixed [InlPrag=[ALWAYS] CONLIKE]
1923	:: forall a_agH.
1924	Data.Fixed.HasResolution a_agH =>
1925	GHC.Show.Show (Data.Fixed.Fixed a_agH)
1926	[GblId[DFunId], Arity=1]
1927	Data.Fixed.$fShowFixed =
1928	\ (@ a_agH)
1929	($dHasResolution_aut :: Data.Fixed.HasResolution a_agH) ->
1930	GHC.Show.D:Show
1931	@ (Data.Fixed.Fixed a_agH)
1932	($cshowsPrec_rHd @ a_agH $dHasResolution_aut)
1933	($cshow_rHb @ a_agH $dHasResolution_aut)
1934	($cshowList_rHc @ a_agH $dHasResolution_aut)
1935
1936	$cshowList_rHc
1937	:: forall a_agH.
1938	Data.Fixed.HasResolution a_agH =>
1939	[Data.Fixed.Fixed a_agH] -> GHC.Show.ShowS
1940	[GblId, Arity=1]
1941	$cshowList_rHc =
1942	\ (@ a_agH)
1943	($dHasResolution_aut :: Data.Fixed.HasResolution a_agH) ->
1944	GHC.Show.$dmshowList
1945	@ (Data.Fixed.Fixed a_agH)
1946	(Data.Fixed.$fShowFixed @ a_agH $dHasResolution_aut)
1947
1948	$cshowsPrec_rHd
1949	:: forall a_agH.
1950	Data.Fixed.HasResolution a_agH =>
1951	GHC.Types.Int -> Data.Fixed.Fixed a_agH -> GHC.Show.ShowS
1952	[GblId, Arity=1]
1953	$cshowsPrec_rHd =
1954	\ (@ a_agH)
1955	($dHasResolution_aut :: Data.Fixed.HasResolution a_agH) ->
1956	GHC.Show.$dmshowsPrec
1957	@ (Data.Fixed.Fixed a_agH)
1958	(Data.Fixed.$fShowFixed @ a_agH $dHasResolution_aut)
1959	end Rec }
1960
1961	Rec {
1962	Data.Fixed.$fNumFixed [InlPrag=[ALWAYS] CONLIKE]
1963	:: forall a_ah1.
1964	Data.Fixed.HasResolution a_ah1 =>
1965	GHC.Num.Num (Data.Fixed.Fixed a_ah1)
1966	[GblId[DFunId], Arity=1]
1967	Data.Fixed.$fNumFixed =
1968	\ (@ a_XkW)
1969	($dHasResolution_XAx :: Data.Fixed.HasResolution a_XkW) ->
1970	GHC.Num.D:Num
1971	@ (Data.Fixed.Fixed a_XkW)
1972	(Data.Fixed.$fEqFixed @ a_XkW)
1973	(Data.Fixed.$fShowFixed @ a_XkW $dHasResolution_XAx)
1974	((\ (ds_XIb :: Data.Fixed.Fixed a_XkW)
1975	(ds1_XId :: Data.Fixed.Fixed a_XkW) ->
1976	GHC.Num.+
1977	@ GHC.Integer.Type.Integer
1978	GHC.Num.$fNumInteger
1979	(ds_XIb
1980	`cast` (Data.Fixed.NTCo:Fixed <a_XkW>
1981	:: Data.Fixed.Fixed a_XkW ~ GHC.Integer.Type.Integer))
1982	(ds1_XId
1983	`cast` (Data.Fixed.NTCo:Fixed <a_XkW>
1984	:: Data.Fixed.Fixed a_XkW ~ GHC.Integer.Type.Integer)))
1985	`cast` (<Data.Fixed.Fixed a_XkW>
1986	-> <Data.Fixed.Fixed a_XkW> -> Sym (Data.Fixed.NTCo:Fixed <a_XkW>)
1987	:: (Data.Fixed.Fixed a_XkW
1988	-> Data.Fixed.Fixed a_XkW -> GHC.Integer.Type.Integer)
1989	~
1990	(Data.Fixed.Fixed a_XkW
1991	-> Data.Fixed.Fixed a_XkW -> Data.Fixed.Fixed a_XkW)))
1992	((a5_rGi @ a_XkW $dHasResolution_XAx)
1993	`cast` (<Data.Fixed.Fixed a_XkW>
1994	-> <Data.Fixed.Fixed a_XkW> -> Sym (Data.Fixed.NTCo:Fixed <a_XkW>)
1995	:: (Data.Fixed.Fixed a_XkW
1996	-> Data.Fixed.Fixed a_XkW -> GHC.Integer.Type.Integer)
1997	~
1998	(Data.Fixed.Fixed a_XkW
1999	-> Data.Fixed.Fixed a_XkW -> Data.Fixed.Fixed a_XkW)))
2000	((\ (ds_XIe :: Data.Fixed.Fixed a_XkW)
2001	(ds1_XIg :: Data.Fixed.Fixed a_XkW) ->
2002	GHC.Num.-
2003	@ GHC.Integer.Type.Integer
2004	GHC.Num.$fNumInteger
2005	(ds_XIe
2006	`cast` (Data.Fixed.NTCo:Fixed <a_XkW>
2007	:: Data.Fixed.Fixed a_XkW ~ GHC.Integer.Type.Integer))
2008	(ds1_XIg
2009	`cast` (Data.Fixed.NTCo:Fixed <a_XkW>
2010	:: Data.Fixed.Fixed a_XkW ~ GHC.Integer.Type.Integer)))
2011	`cast` (<Data.Fixed.Fixed a_XkW>
2012	-> <Data.Fixed.Fixed a_XkW> -> Sym (Data.Fixed.NTCo:Fixed <a_XkW>)
2013	:: (Data.Fixed.Fixed a_XkW
2014	-> Data.Fixed.Fixed a_XkW -> GHC.Integer.Type.Integer)
2015	~
2016	(Data.Fixed.Fixed a_XkW
2017	-> Data.Fixed.Fixed a_XkW -> Data.Fixed.Fixed a_XkW)))
2018	((\ (ds_XIg :: Data.Fixed.Fixed a_XkW) ->
2019	GHC.Num.negate
2020	@ GHC.Integer.Type.Integer
2021	GHC.Num.$fNumInteger
2022	(ds_XIg
2023	`cast` (Data.Fixed.NTCo:Fixed <a_XkW>
2024	:: Data.Fixed.Fixed a_XkW ~ GHC.Integer.Type.Integer)))
2025	`cast` (<Data.Fixed.Fixed a_XkW>
2026	-> Sym (Data.Fixed.NTCo:Fixed <a_XkW>)
2027	:: (Data.Fixed.Fixed a_XkW -> GHC.Integer.Type.Integer)
2028	~
2029	(Data.Fixed.Fixed a_XkW -> Data.Fixed.Fixed a_XkW)))
2030	((\ (ds_XIh :: Data.Fixed.Fixed a_XkW) ->
2031	GHC.Num.abs
2032	@ GHC.Integer.Type.Integer
2033	GHC.Num.$fNumInteger
2034	(ds_XIh
2035	`cast` (Data.Fixed.NTCo:Fixed <a_XkW>
2036	:: Data.Fixed.Fixed a_XkW ~ GHC.Integer.Type.Integer)))
2037	`cast` (<Data.Fixed.Fixed a_XkW>
2038	-> Sym (Data.Fixed.NTCo:Fixed <a_XkW>)
2039	:: (Data.Fixed.Fixed a_XkW -> GHC.Integer.Type.Integer)
2040	~
2041	(Data.Fixed.Fixed a_XkW -> Data.Fixed.Fixed a_XkW)))
2042	($csignum_rHe @ a_XkW $dHasResolution_XAx)
2043	($cfromInteger_rGb @ a_XkW $dHasResolution_XAx)
2044
2045	$csignum_rHe
2046	:: forall a_ah1.
2047	Data.Fixed.HasResolution a_ah1 =>
2048	Data.Fixed.Fixed a_ah1 -> Data.Fixed.Fixed a_ah1
2049	[GblId, Arity=1]
2050	$csignum_rHe =
2051	\ (@ a_XkX)
2052	($dHasResolution_XAy :: Data.Fixed.HasResolution a_XkX) ->
2053	let {
2054	$dNum_ax7 :: GHC.Num.Num (Data.Fixed.Fixed a_XkX)
2055	[LclId]
2056	$dNum_ax7 = Data.Fixed.$fNumFixed @ a_XkX $dHasResolution_XAy } in
2057	\ (ds_dEl :: Data.Fixed.Fixed a_XkX) ->
2058	GHC.Num.fromInteger
2059	@ (Data.Fixed.Fixed a_XkX)
2060	$dNum_ax7
2061	(GHC.Num.signum
2062	@ GHC.Integer.Type.Integer
2063	GHC.Num.$fNumInteger
2064	(ds_dEl
2065	`cast` (Data.Fixed.NTCo:Fixed <a_XkX>
2066	:: Data.Fixed.Fixed a_XkX ~ GHC.Integer.Type.Integer)))
2067	end Rec }
2068
2069	Data.Fixed.$fFractionalFixed [InlPrag=[ALWAYS] CONLIKE]
2070	:: forall a_agP.
2071	Data.Fixed.HasResolution a_agP =>
2072	GHC.Real.Fractional (Data.Fixed.Fixed a_agP)
2073	[GblId[DFunId], Arity=1]
2074	Data.Fixed.$fFractionalFixed =
2075	\ (@ a_XkM)
2076	($dHasResolution_XzO :: Data.Fixed.HasResolution a_XkM) ->
2077	GHC.Real.D:Fractional
2078	@ (Data.Fixed.Fixed a_XkM)
2079	(Data.Fixed.$fNumFixed @ a_XkM $dHasResolution_XzO)
2080	((a7_rGp @ a_XkM $dHasResolution_XzO)
2081	`cast` (<Data.Fixed.Fixed a_XkM>
2082	-> <Data.Fixed.Fixed a_XkM> -> Sym (Data.Fixed.NTCo:Fixed <a_XkM>)
2083	:: (Data.Fixed.Fixed a_XkM
2084	-> Data.Fixed.Fixed a_XkM -> GHC.Integer.Type.Integer)
2085	~
2086	(Data.Fixed.Fixed a_XkM
2087	-> Data.Fixed.Fixed a_XkM -> Data.Fixed.Fixed a_XkM)))
2088	($crecip_rGo @ a_XkM $dHasResolution_XzO)
2089	($cfromRational_rGn @ a_XkM $dHasResolution_XzO)
2090
2091	$creadsPrec_rHf
2092	:: forall a_agG.
2093	Data.Fixed.HasResolution a_agG =>
2094	GHC.Types.Int
2095	-> Text.ParserCombinators.ReadP.ReadS (Data.Fixed.Fixed a_agG)
2096	[GblId, Arity=2]
2097	$creadsPrec_rHf =
2098	\ (@ a_agG)
2099	($dHasResolution_au6 :: Data.Fixed.HasResolution a_agG)
2100	_ ->
2101	let {
2102	readsUnsigned_ags
2103	:: forall t_apZ.
2104	GHC.Real.Fractional t_apZ =>
2105	[GHC.Types.Char] -> [(t_apZ, [GHC.Types.Char])]
2106	[LclId, Arity=2]
2107	readsUnsigned_ags =
2108	\ (@ t_aq3)
2109	($dFractional_aq4 :: GHC.Real.Fractional t_aq3)
2110	(eta_B1 :: [GHC.Types.Char]) ->
2111	let {
2112	$dNum_apV :: GHC.Num.Num t_aq3
2113	[LclId]
2114	$dNum_apV = GHC.Real.$p1Fractional @ t_aq3 $dFractional_aq4 } in
2115	case GHC.List.span @ GHC.Types.Char GHC.Unicode.isDigit eta_B1
2116	of _ { (ds1_dDt, ds2_dDu) ->
2117	case ds1_dDt of wild1_X1J {
2118	[] -> GHC.Types.[] @ (t_aq3, [GHC.Types.Char]);
2119	: ipv_sFE ipv1_sFF ->
2120	case ds2_dDu of wild2_X1M {
2121	[] ->
2122	GHC.Types.:
2123	@ (t_aq3, [GHC.Types.Char])
2124	(GHC.Num.fromInteger
2125	@ t_aq3
2126	$dNum_apV
2127	(Text.Read.read
2128	@ GHC.Integer.Type.Integer GHC.Read.$fReadInteger wild1_X1J),
2129	GHC.Types.[] @ GHC.Types.Char)
2130	(GHC.Types.[] @ (t_aq3, [GHC.Types.Char]));
2131	: ds3_dDm xs''_agB ->
2132	case ds3_dDm of _ { GHC.Types.C# ds4_dDn ->
2133	case ds4_dDn of _ {
2134	__DEFAULT ->
2135	GHC.Types.:
2136	@ (t_aq3, [GHC.Types.Char])
2137	(GHC.Num.fromInteger
2138	@ t_aq3
2139	$dNum_apV
2140	(Text.Read.read
2141	@ GHC.Integer.Type.Integer GHC.Read.$fReadInteger wild1_X1J),
2142	wild2_X1M)
2143	(GHC.Types.[] @ (t_aq3, [GHC.Types.Char]));
2144	'.' ->
2145	case GHC.List.span @ GHC.Types.Char GHC.Unicode.isDigit xs''_agB
2146	of _ { (ds6_dDf, ds7_dDg) ->
2147	case ds6_dDf of wild5_X1V {
2148	[] -> GHC.Types.[] @ (t_aq3, [GHC.Types.Char]);
2149	: ipv2_sFK ipv3_sFL ->
2150	GHC.Types.:
2151	@ (t_aq3, [GHC.Types.Char])
2152	(GHC.Num.+
2153	@ t_aq3
2154	$dNum_apV
2155	(GHC.Num.fromInteger
2156	@ t_aq3
2157	$dNum_apV
2158	(Text.Read.read
2159	@ GHC.Integer.Type.Integer GHC.Read.$fReadInteger wild1_X1J))
2160	(GHC.Real./
2161	@ t_aq3
2162	$dFractional_aq4
2163	(GHC.Num.fromInteger
2164	@ t_aq3
2165	$dNum_apV
2166	(Text.Read.read
2167	@ GHC.Integer.Type.Integer
2168	GHC.Read.$fReadInteger
2169	wild5_X1V))
2170	(GHC.Real.^
2171	@ t_aq3
2172	@ GHC.Integer.Type.Integer
2173	$dNum_apV
2174	GHC.Real.$fIntegralInteger
2175	(GHC.Num.fromInteger @ t_aq3 $dNum_apV __integer 10)
2176	(Data.List.genericLength
2177	@ GHC.Integer.Type.Integer
2178	@ GHC.Types.Char
2179	GHC.Num.$fNumInteger
2180	wild5_X1V))),
2181	ds7_dDg)
2182	(GHC.Types.[] @ (t_aq3, [GHC.Types.Char]))
2183	}
2184	}
2185	}
2186	}
2187	}
2188	}
2189	} } in
2190	let {
2191	$dFractional_aqm :: GHC.Real.Fractional (Data.Fixed.Fixed a_agG)
2192	[LclId]
2193	$dFractional_aqm =
2194	Data.Fixed.$fFractionalFixed @ a_agG $dHasResolution_au6 } in
2195	let {
2196	$dNum_aqd :: GHC.Num.Num (Data.Fixed.Fixed a_agG)
2197	[LclId]
2198	$dNum_aqd =
2199	GHC.Real.$p1Fractional
2200	@ (Data.Fixed.Fixed a_agG) $dFractional_aqm } in
2201	\ (ds1_dD7 :: [GHC.Types.Char]) ->
2202	case ds1_dD7 of wild_X49 {
2203	[] ->
2204	readsUnsigned_ags
2205	@ (Data.Fixed.Fixed a_agG)
2206	$dFractional_aqm
2207	(GHC.Types.[] @ GHC.Types.Char);
2208	: ds2_dD8 xs_agt ->
2209	case ds2_dD8 of _ { GHC.Types.C# ds3_dD9 ->
2210	case ds3_dD9 of _ {
2211	__DEFAULT ->
2212	readsUnsigned_ags
2213	@ (Data.Fixed.Fixed a_agG) $dFractional_aqm wild_X49;
2214	'-' ->
2215	letrec {
2216	ds5_dD2 [Occ=LoopBreaker]
2217	:: [(Data.Fixed.Fixed a_agG, [GHC.Types.Char])]
2218	-> [(Data.Fixed.Fixed a_agG, [GHC.Types.Char])]
2219	[LclId, Arity=1]
2220	ds5_dD2 =
2221	\ (ds6_dD3 :: [(Data.Fixed.Fixed a_agG, [GHC.Types.Char])]) ->
2222	case ds6_dD3 of _ {
2223	[] -> GHC.Types.[] @ (Data.Fixed.Fixed a_agG, [GHC.Types.Char]);
2224	: ds8_dD4 ds9_dD5 ->
2225	case ds8_dD4 of _ { (x_agu, rest_agv) ->
2226	GHC.Types.:
2227	@ (Data.Fixed.Fixed a_agG, [GHC.Types.Char])
2228	(GHC.Num.negate @ (Data.Fixed.Fixed a_agG) $dNum_aqd x_agu,
2229	rest_agv)
2230	(ds5_dD2 ds9_dD5)
2231	}
2232	}; } in
2233	ds5_dD2
2234	(readsUnsigned_ags
2235	@ (Data.Fixed.Fixed a_agG) $dFractional_aqm xs_agt)
2236	}
2237	}
2238	}
2239
2240	Rec {
2241	Data.Fixed.$fReadFixed [InlPrag=[ALWAYS] CONLIKE]
2242	:: forall a_agG.
2243	Data.Fixed.HasResolution a_agG =>
2244	GHC.Read.Read (Data.Fixed.Fixed a_agG)
2245	[GblId[DFunId], Arity=1]
2246	Data.Fixed.$fReadFixed =
2247	\ (@ a_agG)
2248	($dHasResolution_au6 :: Data.Fixed.HasResolution a_agG) ->
2249	GHC.Read.D:Read
2250	@ (Data.Fixed.Fixed a_agG)
2251	($creadsPrec_rHf @ a_agG $dHasResolution_au6)
2252	($creadList_rHi @ a_agG $dHasResolution_au6)
2253	($creadPrec_rHh @ a_agG $dHasResolution_au6)
2254	($creadListPrec_rHg @ a_agG $dHasResolution_au6)
2255
2256	$creadListPrec_rHg
2257	:: forall a_agG.
2258	Data.Fixed.HasResolution a_agG =>
2259	Text.ParserCombinators.ReadPrec.ReadPrec [Data.Fixed.Fixed a_agG]
2260	[GblId, Arity=1]
2261	$creadListPrec_rHg =
2262	\ (@ a_agG)
2263	($dHasResolution_au6 :: Data.Fixed.HasResolution a_agG) ->
2264	GHC.Read.$dmreadListPrec
2265	@ (Data.Fixed.Fixed a_agG)
2266	(Data.Fixed.$fReadFixed @ a_agG $dHasResolution_au6)
2267
2268	$creadPrec_rHh
2269	:: forall a_agG.
2270	Data.Fixed.HasResolution a_agG =>
2271	Text.ParserCombinators.ReadPrec.ReadPrec (Data.Fixed.Fixed a_agG)
2272	[GblId, Arity=1]
2273	$creadPrec_rHh =
2274	\ (@ a_agG)
2275	($dHasResolution_au6 :: Data.Fixed.HasResolution a_agG) ->
2276	GHC.Read.$dmreadPrec
2277	@ (Data.Fixed.Fixed a_agG)
2278	(Data.Fixed.$fReadFixed @ a_agG $dHasResolution_au6)
2279
2280	$creadList_rHi
2281	:: forall a_agG.
2282	Data.Fixed.HasResolution a_agG =>
2283	Text.ParserCombinators.ReadP.ReadS [Data.Fixed.Fixed a_agG]
2284	[GblId, Arity=1]
2285	$creadList_rHi =
2286	\ (@ a_agG)
2287	($dHasResolution_au6 :: Data.Fixed.HasResolution a_agG) ->
2288	GHC.Read.$dmreadList
2289	@ (Data.Fixed.Fixed a_agG)
2290	(Data.Fixed.$fReadFixed @ a_agG $dHasResolution_au6)
2291	end Rec }
2292
2293	Data.Fixed.$fRealFixed [InlPrag=[ALWAYS] CONLIKE]
2294	:: forall a_agY.
2295	Data.Fixed.HasResolution a_agY =>
2296	GHC.Real.Real (Data.Fixed.Fixed a_agY)
2297	[GblId[DFunId], Arity=1]
2298	Data.Fixed.$fRealFixed =
2299	\ (@ a_agY)
2300	($dHasResolution_awl :: Data.Fixed.HasResolution a_agY) ->
2301	GHC.Real.D:Real
2302	@ (Data.Fixed.Fixed a_agY)
2303	(Data.Fixed.$fNumFixed @ a_agY $dHasResolution_awl)
2304	(Data.Fixed.$fOrdFixed @ a_agY)
2305	($ctoRational_rGm @ a_agY $dHasResolution_awl)
2306
2307	$ctruncate_rHj
2308	:: forall a_agI.
2309	Data.Fixed.HasResolution a_agI =>
2310	forall b_auU.
2311	GHC.Real.Integral b_auU =>
2312	Data.Fixed.Fixed a_agI -> b_auU
2313	[GblId, Arity=2]
2314	$ctruncate_rHj =
2315	\ (@ a_agI)
2316	($dHasResolution_auH :: Data.Fixed.HasResolution a_agI)
2317	(@ b_av8)
2318	($dIntegral_av9 :: GHC.Real.Integral b_av8) ->
2319	let {
2320	$dReal_ave :: GHC.Real.Real (Data.Fixed.Fixed a_agI)
2321	[LclId]
2322	$dReal_ave =
2323	Data.Fixed.$fRealFixed @ a_agI $dHasResolution_auH } in
2324	let {
2325	$dRealFrac_avb :: GHC.Real.RealFrac GHC.Real.Rational
2326	[LclId]
2327	$dRealFrac_avb =
2328	GHC.Real.$fRealFracRatio
2329	@ GHC.Integer.Type.Integer GHC.Real.$fIntegralInteger } in
2330	\ (f_agL :: Data.Fixed.Fixed a_agI) ->
2331	GHC.Real.truncate
2332	@ GHC.Real.Rational
2333	$dRealFrac_avb
2334	@ b_av8
2335	$dIntegral_av9
2336	(GHC.Real.toRational @ (Data.Fixed.Fixed a_agI) $dReal_ave f_agL)
2337
2338	$cround_rHk
2339	:: forall a_agI.
2340	Data.Fixed.HasResolution a_agI =>
2341	forall b_avj.
2342	GHC.Real.Integral b_avj =>
2343	Data.Fixed.Fixed a_agI -> b_avj
2344	[GblId, Arity=2]
2345	$cround_rHk =
2346	\ (@ a_agI)
2347	($dHasResolution_auH :: Data.Fixed.HasResolution a_agI)
2348	(@ b_avk)
2349	($dIntegral_avl :: GHC.Real.Integral b_avk) ->
2350	let {
2351	$dReal_avq :: GHC.Real.Real (Data.Fixed.Fixed a_agI)
2352	[LclId]
2353	$dReal_avq =
2354	Data.Fixed.$fRealFixed @ a_agI $dHasResolution_auH } in
2355	let {
2356	$dRealFrac_avn :: GHC.Real.RealFrac GHC.Real.Rational
2357	[LclId]
2358	$dRealFrac_avn =
2359	GHC.Real.$fRealFracRatio
2360	@ GHC.Integer.Type.Integer GHC.Real.$fIntegralInteger } in
2361	\ (f_agM :: Data.Fixed.Fixed a_agI) ->
2362	GHC.Real.round
2363	@ GHC.Real.Rational
2364	$dRealFrac_avn
2365	@ b_avk
2366	$dIntegral_avl
2367	(GHC.Real.toRational @ (Data.Fixed.Fixed a_agI) $dReal_avq f_agM)
2368
2369	$cceiling_rHl
2370	:: forall a_agI.
2371	Data.Fixed.HasResolution a_agI =>
2372	forall b_ar8.
2373	GHC.Real.Integral b_ar8 =>
2374	Data.Fixed.Fixed a_agI -> b_ar8
2375	[GblId, Arity=2]
2376	$cceiling_rHl =
2377	\ (@ a_agI)
2378	($dHasResolution_auH :: Data.Fixed.HasResolution a_agI)
2379	(@ b_avv)
2380	($dIntegral_avw :: GHC.Real.Integral b_avv) ->
2381	let {
2382	$dReal_avB :: GHC.Real.Real (Data.Fixed.Fixed a_agI)
2383	[LclId]
2384	$dReal_avB =
2385	Data.Fixed.$fRealFixed @ a_agI $dHasResolution_auH } in
2386	let {
2387	$dRealFrac_avy :: GHC.Real.RealFrac GHC.Real.Rational
2388	[LclId]
2389	$dRealFrac_avy =
2390	GHC.Real.$fRealFracRatio
2391	@ GHC.Integer.Type.Integer GHC.Real.$fIntegralInteger } in
2392	\ (f_agN :: Data.Fixed.Fixed a_agI) ->
2393	GHC.Real.ceiling
2394	@ GHC.Real.Rational
2395	$dRealFrac_avy
2396	@ b_avv
2397	$dIntegral_avw
2398	(GHC.Real.toRational @ (Data.Fixed.Fixed a_agI) $dReal_avB f_agN)
2399
2400	$cfloor_rHm
2401	:: forall a_agI.
2402	Data.Fixed.HasResolution a_agI =>
2403	forall b_arZ.
2404	GHC.Real.Integral b_arZ =>
2405	Data.Fixed.Fixed a_agI -> b_arZ
2406	[GblId, Arity=2]
2407	$cfloor_rHm =
2408	\ (@ a_agI)
2409	($dHasResolution_auH :: Data.Fixed.HasResolution a_agI)
2410	(@ b_avG)
2411	($dIntegral_avH :: GHC.Real.Integral b_avG) ->
2412	let {
2413	$dReal_avM :: GHC.Real.Real (Data.Fixed.Fixed a_agI)
2414	[LclId]
2415	$dReal_avM =
2416	Data.Fixed.$fRealFixed @ a_agI $dHasResolution_auH } in
2417	let {
2418	$dRealFrac_avJ :: GHC.Real.RealFrac GHC.Real.Rational
2419	[LclId]
2420	$dRealFrac_avJ =
2421	GHC.Real.$fRealFracRatio
2422	@ GHC.Integer.Type.Integer GHC.Real.$fIntegralInteger } in
2423	\ (f_agO :: Data.Fixed.Fixed a_agI) ->
2424	GHC.Real.floor
2425	@ GHC.Real.Rational
2426	$dRealFrac_avJ
2427	@ b_avG
2428	$dIntegral_avH
2429	(GHC.Real.toRational @ (Data.Fixed.Fixed a_agI) $dReal_avM f_agO)
2430
2431	Rec {
2432	Data.Fixed.$fRealFracFixed [InlPrag=[ALWAYS] CONLIKE]
2433	:: forall a_agI.
2434	Data.Fixed.HasResolution a_agI =>
2435	GHC.Real.RealFrac (Data.Fixed.Fixed a_agI)
2436	[GblId[DFunId], Arity=1]
2437	Data.Fixed.$fRealFracFixed =
2438	\ (@ a_agI)
2439	($dHasResolution_auH :: Data.Fixed.HasResolution a_agI) ->
2440	GHC.Real.D:RealFrac
2441	@ (Data.Fixed.Fixed a_agI)
2442	(Data.Fixed.$fRealFixed @ a_agI $dHasResolution_auH)
2443	(Data.Fixed.$fFractionalFixed @ a_agI $dHasResolution_auH)
2444	($cproperFraction_rHn @ a_agI $dHasResolution_auH)
2445	($ctruncate_rHj @ a_agI $dHasResolution_auH)
2446	($cround_rHk @ a_agI $dHasResolution_auH)
2447	($cceiling_rHl @ a_agI $dHasResolution_auH)
2448	($cfloor_rHm @ a_agI $dHasResolution_auH)
2449
2450	$cproperFraction_rHn
2451	:: forall a_agI.
2452	Data.Fixed.HasResolution a_agI =>
2453	forall b_auQ.
2454	GHC.Real.Integral b_auQ =>
2455	Data.Fixed.Fixed a_agI -> (b_auQ, Data.Fixed.Fixed a_agI)
2456	[GblId, Arity=2]
2457	$cproperFraction_rHn =
2458	\ (@ a_agI)
2459	($dHasResolution_auH :: Data.Fixed.HasResolution a_agI)
2460	(@ b_auR)
2461	($dIntegral_auS :: GHC.Real.Integral b_auR) ->
2462	let {
2463	$dNum_av3 :: GHC.Num.Num (Data.Fixed.Fixed a_agI)
2464	[LclId]
2465	$dNum_av3 = Data.Fixed.$fNumFixed @ a_agI $dHasResolution_auH } in
2466	let {
2467	$dRealFrac_auV :: GHC.Real.RealFrac (Data.Fixed.Fixed a_agI)
2468	[LclId]
2469	$dRealFrac_auV =
2470	Data.Fixed.$fRealFracFixed @ a_agI $dHasResolution_auH } in
2471	\ (a17_agJ :: Data.Fixed.Fixed a_agI) ->
2472	let {
2473	i_agK :: b_auR
2474	[LclId]
2475	i_agK =
2476	GHC.Real.truncate
2477	@ (Data.Fixed.Fixed a_agI)
2478	$dRealFrac_auV
2479	@ b_auR
2480	$dIntegral_auS
2481	a17_agJ } in
2482	(i_agK,
2483	GHC.Num.-
2484	@ (Data.Fixed.Fixed a_agI)
2485	$dNum_av3
2486	a17_agJ
2487	(GHC.Real.fromIntegral
2488	@ b_auR @ (Data.Fixed.Fixed a_agI) $dIntegral_auS $dNum_av3 i_agK))
2489	end Rec }
2490
2491
2492
2493
2494	==================== CorePrep ====================
2495	Result size = 2198
2496
2497	Data.Fixed.resolution [InlPrag=INLINE]
2498	:: forall a_abR.
2499	Data.Fixed.HasResolution a_abR =>
2500	forall (p_abS :: * -> *). p_abS a_abR -> GHC.Integer.Type.Integer
2501	[GblId[ClassOp],
2502	Arity=1,
2503	Caf=NoCafRefs,
2504	Str=DmdType S,
2505	Unf=OtherCon []]
2506	Data.Fixed.resolution =
2507	\ (@ a_abR)
2508	(tpl_sHp [Occ=Once] :: Data.Fixed.HasResolution a_abR) ->
2509	tpl_sHp
2510	`cast` (Data.Fixed.NTCo:HasResolution <a_abR>
2511	:: Data.Fixed.HasResolution a_abR
2512	~
2513	(forall (p_abS :: * -> *).
2514	p_abS a_abR -> GHC.Integer.Type.Integer))
2515
2516	Rec {
2517	sat_sIo :: GHC.Base.String
2518	[LclId]
2519	sat_sIo = GHC.CString.unpackCString# "MkFixed"
2520
2521	sat_sIi :: [Data.Data.Constr]
2522	[LclId]
2523	sat_sIi =
2524	GHC.Types.:
2525	@ Data.Data.Constr conMkFixed_rbK (GHC.Types.[] @ Data.Data.Constr)
2526
2527	sat_sIj :: GHC.Base.String
2528	[LclId]
2529	sat_sIj = GHC.CString.unpackCString# "Data.Fixed.Fixed"
2530
2531	conMkFixed_rbK :: Data.Data.Constr
2532	[GblId]
2533	conMkFixed_rbK =
2534	Data.Data.mkConstr
2535	tyFixed_rbJ
2536	sat_sIo
2537	(GHC.Types.[] @ GHC.Base.String)
2538	Data.Data.Prefix
2539
2540	tyFixed_rbJ :: Data.Data.DataType
2541	[GblId]
2542	tyFixed_rbJ = Data.Data.mkDataType sat_sIj sat_sIi
2543	end Rec }
2544
2545	Data.Fixed.div'
2546	:: forall a_ac4 b_ac5.
2547	(GHC.Real.Real a_ac4, GHC.Real.Integral b_ac5) =>
2548	a_ac4 -> a_ac4 -> b_ac5
2549	[GblId, Arity=2, Unf=OtherCon []]
2550	Data.Fixed.div' =
2551	\ (@ a_arU)
2552	(@ b_arV)
2553	($dReal_sHC :: GHC.Real.Real a_arU)
2554	($dIntegral_sHB [Occ=OnceL] :: GHC.Real.Integral b_arV) ->
2555	let {
2556	$dFractional_sHw [Occ=OnceL]
2557	:: GHC.Real.Fractional GHC.Real.Rational
2558	[LclId]
2559	$dFractional_sHw =
2560	GHC.Real.$fFractionalRatio
2561	@ GHC.Integer.Type.Integer GHC.Real.$fIntegralInteger } in
2562	let {
2563	$dRealFrac_sHy [Occ=OnceL] :: GHC.Real.RealFrac GHC.Real.Rational
2564	[LclId]
2565	$dRealFrac_sHy =
2566	GHC.Real.$fRealFracRatio
2567	@ GHC.Integer.Type.Integer GHC.Real.$fIntegralInteger } in
2568	let {
2569	sat_sT3 [Occ=Once] :: a_arU -> a_arU -> b_arV
2570	[LclId]
2571	sat_sT3 =
2572	\ (n_sHD [Occ=Once] :: a_arU) (d_sHF [Occ=Once] :: a_arU) ->
2573	let {
2574	sat_sHK [Occ=Once] :: GHC.Real.Rational
2575	[LclId]
2576	sat_sHK =
2577	let {
2578	sat_sHH [Occ=Once] :: GHC.Real.Rational
2579	[LclId]
2580	sat_sHH = GHC.Real.toRational @ a_arU $dReal_sHC d_sHF } in
2581	let {
2582	sat_sHI [Occ=Once] :: GHC.Real.Rational
2583	[LclId]
2584	sat_sHI = GHC.Real.toRational @ a_arU $dReal_sHC n_sHD } in
2585	GHC.Real./
2586	@ GHC.Real.Rational $dFractional_sHw sat_sHI sat_sHH } in
2587	GHC.Real.floor
2588	@ GHC.Real.Rational
2589	$dRealFrac_sHy
2590	@ b_arV
2591	$dIntegral_sHB
2592	sat_sHK } in
2593	sat_sT3
2594
2595	Data.Fixed.divMod'
2596	:: forall a_ac2 b_ac3.
2597	(GHC.Real.Real a_ac2, GHC.Real.Integral b_ac3) =>
2598	a_ac2 -> a_ac2 -> (b_ac3, a_ac2)
2599	[GblId, Arity=4, Unf=OtherCon []]
2600	Data.Fixed.divMod' =
2601	\ (@ a_as7)
2602	(@ b_as8)
2603	($dReal_sHR :: GHC.Real.Real a_as7)
2604	($dIntegral_sHU :: GHC.Real.Integral b_as8)
2605	(eta_sHV :: a_as7)
2606	(eta1_sHW :: a_as7) ->
2607	let {
2608	$dNum_sHS :: GHC.Num.Num a_as7
2609	[LclId]
2610	$dNum_sHS = GHC.Real.$p1Real @ a_as7 $dReal_sHR } in
2611	let {
2612	f_sHX :: b_as8
2613	[LclId]
2614	f_sHX =
2615	Data.Fixed.div'
2616	@ a_as7 @ b_as8 $dReal_sHR $dIntegral_sHU eta_sHV eta1_sHW } in
2617	let {
2618	sat_sT4 [Occ=Once] :: a_as7
2619	[LclId]
2620	sat_sT4 =
2621	let {
2622	sat_sI1 [Occ=Once] :: a_as7
2623	[LclId]
2624	sat_sI1 =
2625	let {
2626	sat_sHZ [Occ=Once] :: a_as7
2627	[LclId]
2628	sat_sHZ =
2629	GHC.Real.fromIntegral
2630	@ b_as8 @ a_as7 $dIntegral_sHU $dNum_sHS f_sHX } in
2631	GHC.Num.* @ a_as7 $dNum_sHS sat_sHZ eta1_sHW } in
2632	GHC.Num.- @ a_as7 $dNum_sHS eta_sHV sat_sI1 } in
2633	(f_sHX, sat_sT4)
2634
2635	Data.Fixed.mod'
2636	:: forall a_ac1. GHC.Real.Real a_ac1 => a_ac1 -> a_ac1 -> a_ac1
2637	[GblId, Arity=3, Unf=OtherCon []]
2638	Data.Fixed.mod' =
2639	\ (@ a_aso)
2640	($dReal_sI7 :: GHC.Real.Real a_aso)
2641	(eta_sI9 :: a_aso)
2642	(eta1_sIa :: a_aso) ->
2643	let {
2644	$dNum_sI8 :: GHC.Num.Num a_aso
2645	[LclId]
2646	$dNum_sI8 = GHC.Real.$p1Real @ a_aso $dReal_sI7 } in
2647	let {
2648	sat_sT5 [Occ=Once] :: a_aso
2649	[LclId]
2650	sat_sT5 =
2651	let {
2652	sat_sIe [Occ=Once] :: a_aso
2653	[LclId]
2654	sat_sIe =
2655	let {
2656	sat_sIc [Occ=Once] :: GHC.Integer.Type.Integer
2657	[LclId]
2658	sat_sIc =
2659	Data.Fixed.div'
2660	@ a_aso
2661	@ GHC.Integer.Type.Integer
2662	$dReal_sI7
2663	GHC.Real.$fIntegralInteger
2664	eta_sI9
2665	eta1_sIa } in
2666	GHC.Num.fromInteger @ a_aso $dNum_sI8 sat_sIc } in
2667	GHC.Num.* @ a_aso $dNum_sI8 sat_sIe eta1_sIa } in
2668	GHC.Num.- @ a_aso $dNum_sI8 eta_sI9 sat_sT5
2669
2670	$cdataTypeOf_rFX
2671	:: forall a_ahq.
2672	Data.Typeable.Internal.Typeable a_ahq =>
2673	Data.Fixed.Fixed a_ahq -> Data.Data.DataType
2674	[GblId, Arity=2, Unf=OtherCon []]
2675	$cdataTypeOf_rFX = \ (@ a_ahq) _ _ -> tyFixed_rbJ
2676
2677	$ctoConstr_rFY
2678	:: forall a_ahq.
2679	Data.Typeable.Internal.Typeable a_ahq =>
2680	Data.Fixed.Fixed a_ahq -> Data.Data.Constr
2681	[GblId, Arity=2, Unf=OtherCon []]
2682	$ctoConstr_rFY = \ (@ a_ahq) _ _ -> conMkFixed_rbK
2683
2684	$cgunfold_rFZ
2685	:: forall a_ahq.
2686	Data.Typeable.Internal.Typeable a_ahq =>
2687	forall (c_ayg :: * -> *).
2688	(forall b_ayh r_ayi.
2689	Data.Data.Data b_ayh =>
2690	c_ayg (b_ayh -> r_ayi) -> c_ayg r_ayi)
2691	-> (forall r_ayj. r_ayj -> c_ayg r_ayj)
2692	-> Data.Data.Constr
2693	-> c_ayg (Data.Fixed.Fixed a_ahq)
2694	[GblId, Arity=4, Unf=OtherCon []]
2695	$cgunfold_rFZ =
2696	\ (@ a_ahq)
2697	_
2698	(@ c_ayk::* -> *)
2699	(k_sIz [Occ=Once!]
2700	:: forall b_ayh r_ayi.
2701	Data.Data.Data b_ayh =>
2702	c_ayk (b_ayh -> r_ayi) -> c_ayk r_ayi)
2703	(z_sIx [Occ=Once!] :: forall r_ayj. r_ayj -> c_ayk r_ayj)
2704	_ ->
2705	let {
2706	sat_sT6 [Occ=Once]
2707	:: c_ayk (GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahq)
2708	[LclId]
2709	sat_sT6 =
2710	let {
2711	sat_sIA [Occ=Once]
2712	:: GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahq
2713	[LclId]
2714	sat_sIA =
2715	(\ (tpl_sIw [Occ=Once] :: GHC.Integer.Type.Integer) -> tpl_sIw)
2716	`cast` (<GHC.Integer.Type.Integer>
2717	-> Sym (Data.Fixed.NTCo:Fixed <a_ahq>)
2718	:: (GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
2719	~
2720	(GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahq)) } in
2721	z_sIx
2722	@ (GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahq) sat_sIA } in
2723	k_sIz
2724	@ GHC.Integer.Type.Integer
2725	@ (Data.Fixed.Fixed a_ahq)
2726	Data.Data.$fDataInteger
2727	sat_sT6
2728
2729	$cgfoldl_rG0
2730	:: forall a_ahq.
2731	Data.Typeable.Internal.Typeable a_ahq =>
2732	forall (c_ay5 :: * -> *).
2733	(forall d_ay6 b_ay7.
2734	Data.Data.Data d_ay6 =>
2735	c_ay5 (d_ay6 -> b_ay7) -> d_ay6 -> c_ay5 b_ay7)
2736	-> (forall g_ay8. g_ay8 -> c_ay5 g_ay8)
2737	-> Data.Fixed.Fixed a_ahq
2738	-> c_ay5 (Data.Fixed.Fixed a_ahq)
2739	[GblId, Arity=4, Unf=OtherCon []]
2740	$cgfoldl_rG0 =
2741	\ (@ a_ahq)
2742	_
2743	(@ c_ay9::* -> *)
2744	(k_sIM [Occ=Once!]
2745	:: forall d_ay6 b_ay7.
2746	Data.Data.Data d_ay6 =>
2747	c_ay9 (d_ay6 -> b_ay7) -> d_ay6 -> c_ay9 b_ay7)
2748	(z_sIK [Occ=Once!] :: forall g_ay8. g_ay8 -> c_ay9 g_ay8)
2749	(ds_sIP [Occ=Once] :: Data.Fixed.Fixed a_ahq) ->
2750	let {
2751	sat_sT7 [Occ=Once]
2752	:: c_ay9 (GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahq)
2753	[LclId]
2754	sat_sT7 =
2755	let {
2756	sat_sIN [Occ=Once]
2757	:: GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahq
2758	[LclId]
2759	sat_sIN =
2760	(\ (tpl_sIJ [Occ=Once] :: GHC.Integer.Type.Integer) -> tpl_sIJ)
2761	`cast` (<GHC.Integer.Type.Integer>
2762	-> Sym (Data.Fixed.NTCo:Fixed <a_ahq>)
2763	:: (GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
2764	~
2765	(GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahq)) } in
2766	z_sIK
2767	@ (GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahq) sat_sIN } in
2768	k_sIM
2769	@ GHC.Integer.Type.Integer
2770	@ (Data.Fixed.Fixed a_ahq)
2771	Data.Data.$fDataInteger
2772	sat_sT7
2773	(ds_sIP
2774	`cast` (Data.Fixed.NTCo:Fixed <a_ahq>
2775	:: Data.Fixed.Fixed a_ahq ~ GHC.Integer.Type.Integer))
2776
2777	$cenumFromThenTo_rG1
2778	:: forall a_ahe.
2779	Data.Fixed.Fixed a_ahe
2780	-> Data.Fixed.Fixed a_ahe
2781	-> Data.Fixed.Fixed a_ahe
2782	-> [Data.Fixed.Fixed a_ahe]
2783	[GblId, Arity=3, Unf=OtherCon []]
2784	$cenumFromThenTo_rG1 =
2785	\ (@ a_ahe)
2786	(ds_sIX [Occ=Once] :: Data.Fixed.Fixed a_ahe)
2787	(ds1_sIY [Occ=Once] :: Data.Fixed.Fixed a_ahe)
2788	(ds2_sIZ [Occ=Once] :: Data.Fixed.Fixed a_ahe) ->
2789	let {
2790	sat_sT9 [Occ=Once] :: [GHC.Integer.Type.Integer]
2791	[LclId]
2792	sat_sT9 =
2793	GHC.Enum.enumFromThenTo
2794	@ GHC.Integer.Type.Integer
2795	GHC.Num.$fEnumInteger
2796	(ds_sIX
2797	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
2798	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer))
2799	(ds1_sIY
2800	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
2801	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer))
2802	(ds2_sIZ
2803	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
2804	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer)) } in
2805	let {
2806	sat_sT8 [Occ=Once]
2807	:: GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahe
2808	[LclId]
2809	sat_sT8 =
2810	(\ (tpl_sIV [Occ=Once] :: GHC.Integer.Type.Integer) -> tpl_sIV)
2811	`cast` (<GHC.Integer.Type.Integer>
2812	-> Sym (Data.Fixed.NTCo:Fixed <a_ahe>)
2813	:: (GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
2814	~
2815	(GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahe)) } in
2816	GHC.Base.fmap
2817	@ []
2818	GHC.Base.$fFunctor[]
2819	@ GHC.Integer.Type.Integer
2820	@ (Data.Fixed.Fixed a_ahe)
2821	sat_sT8
2822	sat_sT9
2823
2824	$cenumFromTo_rG2
2825	:: forall a_ahe.
2826	Data.Fixed.Fixed a_ahe
2827	-> Data.Fixed.Fixed a_ahe -> [Data.Fixed.Fixed a_ahe]
2828	[GblId, Arity=2, Unf=OtherCon []]
2829	$cenumFromTo_rG2 =
2830	\ (@ a_ahe)
2831	(ds_sJ6 [Occ=Once] :: Data.Fixed.Fixed a_ahe)
2832	(ds1_sJ7 [Occ=Once] :: Data.Fixed.Fixed a_ahe) ->
2833	let {
2834	sat_sTb [Occ=Once] :: [GHC.Integer.Type.Integer]
2835	[LclId]
2836	sat_sTb =
2837	GHC.Enum.enumFromTo
2838	@ GHC.Integer.Type.Integer
2839	GHC.Num.$fEnumInteger
2840	(ds_sJ6
2841	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
2842	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer))
2843	(ds1_sJ7
2844	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
2845	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer)) } in
2846	let {
2847	sat_sTa [Occ=Once]
2848	:: GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahe
2849	[LclId]
2850	sat_sTa =
2851	(\ (tpl_sJ4 [Occ=Once] :: GHC.Integer.Type.Integer) -> tpl_sJ4)
2852	`cast` (<GHC.Integer.Type.Integer>
2853	-> Sym (Data.Fixed.NTCo:Fixed <a_ahe>)
2854	:: (GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
2855	~
2856	(GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahe)) } in
2857	GHC.Base.fmap
2858	@ []
2859	GHC.Base.$fFunctor[]
2860	@ GHC.Integer.Type.Integer
2861	@ (Data.Fixed.Fixed a_ahe)
2862	sat_sTa
2863	sat_sTb
2864
2865	$cenumFromThen_rG3
2866	:: forall a_ahe.
2867	Data.Fixed.Fixed a_ahe
2868	-> Data.Fixed.Fixed a_ahe -> [Data.Fixed.Fixed a_ahe]
2869	[GblId, Arity=2, Unf=OtherCon []]
2870	$cenumFromThen_rG3 =
2871	\ (@ a_ahe)
2872	(ds_sJe [Occ=Once] :: Data.Fixed.Fixed a_ahe)
2873	(ds1_sJf [Occ=Once] :: Data.Fixed.Fixed a_ahe) ->
2874	let {
2875	sat_sTd [Occ=Once] :: [GHC.Integer.Type.Integer]
2876	[LclId]
2877	sat_sTd =
2878	GHC.Enum.enumFromThen
2879	@ GHC.Integer.Type.Integer
2880	GHC.Num.$fEnumInteger
2881	(ds_sJe
2882	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
2883	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer))
2884	(ds1_sJf
2885	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
2886	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer)) } in
2887	let {
2888	sat_sTc [Occ=Once]
2889	:: GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahe
2890	[LclId]
2891	sat_sTc =
2892	(\ (tpl_sJc [Occ=Once] :: GHC.Integer.Type.Integer) -> tpl_sJc)
2893	`cast` (<GHC.Integer.Type.Integer>
2894	-> Sym (Data.Fixed.NTCo:Fixed <a_ahe>)
2895	:: (GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
2896	~
2897	(GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahe)) } in
2898	GHC.Base.fmap
2899	@ []
2900	GHC.Base.$fFunctor[]
2901	@ GHC.Integer.Type.Integer
2902	@ (Data.Fixed.Fixed a_ahe)
2903	sat_sTc
2904	sat_sTd
2905
2906	$cenumFrom_rG4
2907	:: forall a_ahe. Data.Fixed.Fixed a_ahe -> [Data.Fixed.Fixed a_ahe]
2908	[GblId, Arity=1, Unf=OtherCon []]
2909	$cenumFrom_rG4 =
2910	\ (@ a_ahe) (ds_sJl [Occ=Once] :: Data.Fixed.Fixed a_ahe) ->
2911	let {
2912	sat_sTf [Occ=Once] :: [GHC.Integer.Type.Integer]
2913	[LclId]
2914	sat_sTf =
2915	GHC.Enum.enumFrom
2916	@ GHC.Integer.Type.Integer
2917	GHC.Num.$fEnumInteger
2918	(ds_sJl
2919	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
2920	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer)) } in
2921	let {
2922	sat_sTe [Occ=Once]
2923	:: GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahe
2924	[LclId]
2925	sat_sTe =
2926	(\ (tpl_sJj [Occ=Once] :: GHC.Integer.Type.Integer) -> tpl_sJj)
2927	`cast` (<GHC.Integer.Type.Integer>
2928	-> Sym (Data.Fixed.NTCo:Fixed <a_ahe>)
2929	:: (GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
2930	~
2931	(GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahe)) } in
2932	GHC.Base.fmap
2933	@ []
2934	GHC.Base.$fFunctor[]
2935	@ GHC.Integer.Type.Integer
2936	@ (Data.Fixed.Fixed a_ahe)
2937	sat_sTe
2938	sat_sTf
2939
2940	$cfromEnum_rG5
2941	:: forall a_ahe. Data.Fixed.Fixed a_ahe -> GHC.Types.Int
2942	[GblId, Arity=1, Unf=OtherCon []]
2943	$cfromEnum_rG5 =
2944	\ (@ a_ahe) (ds_sJo [Occ=Once] :: Data.Fixed.Fixed a_ahe) ->
2945	GHC.Enum.fromEnum
2946	@ GHC.Integer.Type.Integer
2947	GHC.Num.$fEnumInteger
2948	(ds_sJo
2949	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
2950	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer))
2951
2952	$ctoEnum_rG6
2953	:: forall a_ahe. GHC.Types.Int -> Data.Fixed.Fixed a_ahe
2954	[GblId]
2955	$ctoEnum_rG6 =
2956	\ (@ a_ahe) ->
2957	let {
2958	sat_sJx [Occ=Once] :: GHC.Types.Int -> GHC.Integer.Type.Integer
2959	[LclId]
2960	sat_sJx =
2961	GHC.Enum.toEnum
2962	@ GHC.Integer.Type.Integer GHC.Num.$fEnumInteger } in
2963	let {
2964	sat_sJy [Occ=Once]
2965	:: GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahe
2966	[LclId]
2967	sat_sJy =
2968	(\ (tpl_sJq [Occ=Once] :: GHC.Integer.Type.Integer) -> tpl_sJq)
2969	`cast` (<GHC.Integer.Type.Integer>
2970	-> Sym (Data.Fixed.NTCo:Fixed <a_ahe>)
2971	:: (GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
2972	~
2973	(GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ahe)) } in
2974	GHC.Base..
2975	@ GHC.Integer.Type.Integer
2976	@ (Data.Fixed.Fixed a_ahe)
2977	@ GHC.Types.Int
2978	sat_sJy
2979	sat_sJx
2980
2981	a_rG7
2982	:: forall a_ahe. Data.Fixed.Fixed a_ahe -> GHC.Integer.Type.Integer
2983	[GblId, Arity=1, Unf=OtherCon []]
2984	a_rG7 =
2985	\ (@ a_ahe) (ds_sJu [Occ=Once] :: Data.Fixed.Fixed a_ahe) ->
2986	GHC.Enum.pred
2987	@ GHC.Integer.Type.Integer
2988	GHC.Num.$fEnumInteger
2989	(ds_sJu
2990	`cast` (Data.Fixed.NTCo:Fixed <a_ahe>
2991	:: Data.Fixed.Fixed a_ahe ~ GHC.Integer.Type.Integer))
2992
2993	$cpred_rG8
2994	:: forall a_ahe. Data.Fixed.Fixed a_ahe -> Data.Fixed.Fixed a_ahe
2995	[GblId, Arity=1, Unf=OtherCon []]
2996	$cpred_rG8 =
2997	(\ (@ a_ahe) (eta_B1 [Occ=Once] :: Data.Fixed.Fixed a_ahe) ->
2998	a_rG7 @ a_ahe eta_B1)
2999	`cast` (forall a_ahe.
3000	<Data.Fixed.Fixed a_ahe> -> Sym (Data.Fixed.NTCo:Fixed <a_ahe>)
3001	:: (forall a_ahe.
3002	Data.Fixed.Fixed a_ahe -> GHC.Integer.Type.Integer)
3003	~
3004	(forall a_ahe. Data.Fixed.Fixed a_ahe -> Data.Fixed.Fixed a_ahe))
3005
3006	a1_rG9
3007	:: forall a_Xjk. Data.Fixed.Fixed a_Xjk -> GHC.Integer.Type.Integer
3008	[GblId, Arity=1, Unf=OtherCon []]
3009	a1_rG9 =
3010	\ (@ a_Xjk) (ds_sJw [Occ=Once] :: Data.Fixed.Fixed a_Xjk) ->
3011	GHC.Enum.succ
3012	@ GHC.Integer.Type.Integer
3013	GHC.Num.$fEnumInteger
3014	(ds_sJw
3015	`cast` (Data.Fixed.NTCo:Fixed <a_Xjk>
3016	:: Data.Fixed.Fixed a_Xjk ~ GHC.Integer.Type.Integer))
3017
3018	$csucc_rGa
3019	:: forall a_ahe. Data.Fixed.Fixed a_ahe -> Data.Fixed.Fixed a_ahe
3020	[GblId, Arity=1, Unf=OtherCon []]
3021	$csucc_rGa =
3022	(\ (@ a_Xjk) (eta_B1 [Occ=Once] :: Data.Fixed.Fixed a_Xjk) ->
3023	a1_rG9 @ a_Xjk eta_B1)
3024	`cast` (forall a_Xjk.
3025	<Data.Fixed.Fixed a_Xjk> -> Sym (Data.Fixed.NTCo:Fixed <a_Xjk>)
3026	:: (forall a_Xjk.
3027	Data.Fixed.Fixed a_Xjk -> GHC.Integer.Type.Integer)
3028	~
3029	(forall a_Xjk. Data.Fixed.Fixed a_Xjk -> Data.Fixed.Fixed a_Xjk))
3030
3031	Data.Fixed.$fEnumFixed [InlPrag=[ALWAYS] CONLIKE]
3032	:: forall a_ahe. GHC.Enum.Enum (Data.Fixed.Fixed a_ahe)
3033	[GblId[DFunId], Unf=OtherCon []]
3034	Data.Fixed.$fEnumFixed =
3035	\ (@ a_Xjo) ->
3036	GHC.Enum.D:Enum
3037	@ (Data.Fixed.Fixed a_Xjo)
3038	((a1_rG9 @ a_Xjo)
3039	`cast` (<Data.Fixed.Fixed a_Xjo>
3040	-> Sym (Data.Fixed.NTCo:Fixed <a_Xjo>)
3041	:: (Data.Fixed.Fixed a_Xjo -> GHC.Integer.Type.Integer)
3042	~
3043	(Data.Fixed.Fixed a_Xjo -> Data.Fixed.Fixed a_Xjo)))
3044	((a_rG7 @ a_Xjo)
3045	`cast` (<Data.Fixed.Fixed a_Xjo>
3046	-> Sym (Data.Fixed.NTCo:Fixed <a_Xjo>)
3047	:: (Data.Fixed.Fixed a_Xjo -> GHC.Integer.Type.Integer)
3048	~
3049	(Data.Fixed.Fixed a_Xjo -> Data.Fixed.Fixed a_Xjo)))
3050	($ctoEnum_rG6 @ a_Xjo)
3051	($cfromEnum_rG5 @ a_Xjo)
3052	($cenumFrom_rG4 @ a_Xjo)
3053	($cenumFromThen_rG3 @ a_Xjo)
3054	($cenumFromTo_rG2 @ a_Xjo)
3055	($cenumFromThenTo_rG1 @ a_Xjo)
3056
3057	$cfromInteger_rGb
3058	:: forall a_ah1.
3059	Data.Fixed.HasResolution a_ah1 =>
3060	GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ah1
3061	[GblId, Arity=2, Unf=OtherCon []]
3062	$cfromInteger_rGb =
3063	\ (@ a_ah1)
3064	($dHasResolution_sJF [Occ=Once] :: Data.Fixed.HasResolution a_ah1)
3065	(i_sJC [Occ=OnceL] :: GHC.Integer.Type.Integer) ->
3066	let {
3067	sat_sTg [Occ=Once]
3068	:: GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ah1
3069	[LclId]
3070	sat_sTg =
3071	(\ (res_sJD [Occ=Once] :: GHC.Integer.Type.Integer) ->
3072	GHC.Num.*
3073	@ GHC.Integer.Type.Integer GHC.Num.$fNumInteger i_sJC res_sJD)
3074	`cast` (<GHC.Integer.Type.Integer>
3075	-> Sym (Data.Fixed.NTCo:Fixed <a_ah1>)
3076	:: (GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
3077	~
3078	(GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_ah1)) } in
3079	GHC.Base..
3080	@ GHC.Integer.Type.Integer
3081	@ (Data.Fixed.Fixed a_ah1)
3082	@ (GHC.Prim.Any(* -> *) a_ah1)
3083	sat_sTg
3084	(($dHasResolution_sJF
3085	`cast` (Data.Fixed.NTCo:HasResolution <a_ah1>
3086	:: Data.Fixed.HasResolution a_ah1
3087	~
3088	(forall (p_abS :: * -> *).
3089	p_abS a_ah1 -> GHC.Integer.Type.Integer)))
3090	@ GHC.Prim.Any(* -> *))
3091	(GHC.Err.undefined @ (GHC.Prim.Any(* -> *) a_ah1))
3092
3093	a2_rGc
3094	:: forall a_ah1.
3095	Data.Fixed.HasResolution a_ah1 =>
3096	Data.Fixed.Fixed a_ah1 -> GHC.Integer.Type.Integer
3097	[GblId, Arity=2, Unf=OtherCon []]
3098	a2_rGc =
3099	\ (@ a_ah1) _ (ds_sJI [Occ=Once] :: Data.Fixed.Fixed a_ah1) ->
3100	GHC.Num.abs
3101	@ GHC.Integer.Type.Integer
3102	GHC.Num.$fNumInteger
3103	(ds_sJI
3104	`cast` (Data.Fixed.NTCo:Fixed <a_ah1>
3105	:: Data.Fixed.Fixed a_ah1 ~ GHC.Integer.Type.Integer))
3106
3107	$cabs_rGd
3108	:: forall a_ah1.
3109	Data.Fixed.HasResolution a_ah1 =>
3110	Data.Fixed.Fixed a_ah1 -> Data.Fixed.Fixed a_ah1
3111	[GblId, Arity=2, Unf=OtherCon []]
3112	$cabs_rGd =
3113	(\ (@ a_ah1)
3114	(eta_B2 [Occ=Once] :: Data.Fixed.HasResolution a_ah1)
3115	(eta_B1 [Occ=Once] :: Data.Fixed.Fixed a_ah1) ->
3116	a2_rGc @ a_ah1 eta_B2 eta_B1)
3117	`cast` (forall a_ah1.
3118	<Data.Fixed.HasResolution a_ah1>
3119	-> <Data.Fixed.Fixed a_ah1> -> Sym (Data.Fixed.NTCo:Fixed <a_ah1>)
3120	:: (forall a_ah1.
3121	Data.Fixed.HasResolution a_ah1 =>
3122	Data.Fixed.Fixed a_ah1 -> GHC.Integer.Type.Integer)
3123	~
3124	(forall a_ah1.
3125	Data.Fixed.HasResolution a_ah1 =>
3126	Data.Fixed.Fixed a_ah1 -> Data.Fixed.Fixed a_ah1))
3127
3128	a3_rGe
3129	:: forall a_Xji.
3130	Data.Fixed.HasResolution a_Xji =>
3131	Data.Fixed.Fixed a_Xji -> GHC.Integer.Type.Integer
3132	[GblId, Arity=2, Unf=OtherCon []]
3133	a3_rGe =
3134	\ (@ a_Xji) _ (ds_sJM [Occ=Once] :: Data.Fixed.Fixed a_Xji) ->
3135	GHC.Num.negate
3136	@ GHC.Integer.Type.Integer
3137	GHC.Num.$fNumInteger
3138	(ds_sJM
3139	`cast` (Data.Fixed.NTCo:Fixed <a_Xji>
3140	:: Data.Fixed.Fixed a_Xji ~ GHC.Integer.Type.Integer))
3141
3142	$cnegate_rGf
3143	:: forall a_ah1.
3144	Data.Fixed.HasResolution a_ah1 =>
3145	Data.Fixed.Fixed a_ah1 -> Data.Fixed.Fixed a_ah1
3146	[GblId, Arity=2, Unf=OtherCon []]
3147	$cnegate_rGf =
3148	(\ (@ a_Xji)
3149	(eta_B2 [Occ=Once] :: Data.Fixed.HasResolution a_Xji)
3150	(eta_B1 [Occ=Once] :: Data.Fixed.Fixed a_Xji) ->
3151	a3_rGe @ a_Xji eta_B2 eta_B1)
3152	`cast` (forall a_Xji.
3153	<Data.Fixed.HasResolution a_Xji>
3154	-> <Data.Fixed.Fixed a_Xji> -> Sym (Data.Fixed.NTCo:Fixed <a_Xji>)
3155	:: (forall a_Xji.
3156	Data.Fixed.HasResolution a_Xji =>
3157	Data.Fixed.Fixed a_Xji -> GHC.Integer.Type.Integer)
3158	~
3159	(forall a_Xji.
3160	Data.Fixed.HasResolution a_Xji =>
3161	Data.Fixed.Fixed a_Xji -> Data.Fixed.Fixed a_Xji))
3162
3163	a4_rGg
3164	:: forall a_Xjn.
3165	Data.Fixed.HasResolution a_Xjn =>
3166	Data.Fixed.Fixed a_Xjn
3167	-> Data.Fixed.Fixed a_Xjn -> GHC.Integer.Type.Integer
3168	[GblId, Arity=3, Unf=OtherCon []]
3169	a4_rGg =
3170	\ (@ a_Xjn)
3171	_
3172	(ds_sJR [Occ=Once] :: Data.Fixed.Fixed a_Xjn)
3173	(ds1_sJS [Occ=Once] :: Data.Fixed.Fixed a_Xjn) ->
3174	GHC.Num.-
3175	@ GHC.Integer.Type.Integer
3176	GHC.Num.$fNumInteger
3177	(ds_sJR
3178	`cast` (Data.Fixed.NTCo:Fixed <a_Xjn>
3179	:: Data.Fixed.Fixed a_Xjn ~ GHC.Integer.Type.Integer))
3180	(ds1_sJS
3181	`cast` (Data.Fixed.NTCo:Fixed <a_Xjn>
3182	:: Data.Fixed.Fixed a_Xjn ~ GHC.Integer.Type.Integer))
3183
3184	$c-_rGh
3185	:: forall a_ah1.
3186	Data.Fixed.HasResolution a_ah1 =>
3187	Data.Fixed.Fixed a_ah1
3188	-> Data.Fixed.Fixed a_ah1 -> Data.Fixed.Fixed a_ah1
3189	[GblId, Arity=3, Unf=OtherCon []]
3190	$c-_rGh =
3191	(\ (@ a_Xjn)
3192	(eta_B3 [Occ=Once] :: Data.Fixed.HasResolution a_Xjn)
3193	(eta_B2 [Occ=Once] :: Data.Fixed.Fixed a_Xjn)
3194	(eta_B1 [Occ=Once] :: Data.Fixed.Fixed a_Xjn) ->
3195	a4_rGg @ a_Xjn eta_B3 eta_B2 eta_B1)
3196	`cast` (forall a_Xjn.
3197	<Data.Fixed.HasResolution a_Xjn>
3198	-> <Data.Fixed.Fixed a_Xjn>
3199	-> <Data.Fixed.Fixed a_Xjn>
3200	-> Sym (Data.Fixed.NTCo:Fixed <a_Xjn>)
3201	:: (forall a_Xjn.
3202	Data.Fixed.HasResolution a_Xjn =>
3203	Data.Fixed.Fixed a_Xjn
3204	-> Data.Fixed.Fixed a_Xjn -> GHC.Integer.Type.Integer)
3205	~
3206	(forall a_Xjn.
3207	Data.Fixed.HasResolution a_Xjn =>
3208	Data.Fixed.Fixed a_Xjn
3209	-> Data.Fixed.Fixed a_Xjn -> Data.Fixed.Fixed a_Xjn))
3210
3211	a5_rGi
3212	:: forall a_Xjt.
3213	Data.Fixed.HasResolution a_Xjt =>
3214	Data.Fixed.Fixed a_Xjt
3215	-> Data.Fixed.Fixed a_Xjt -> GHC.Integer.Type.Integer
3216	[GblId, Arity=3, Unf=OtherCon []]
3217	a5_rGi =
3218	\ (@ a_Xjt)
3219	($dHasResolution_sK0 [Occ=Once] :: Data.Fixed.HasResolution a_Xjt)
3220	(fa_sJX :: Data.Fixed.Fixed a_Xjt)
3221	(ds_sJY [Occ=Once] :: Data.Fixed.Fixed a_Xjt) ->
3222	let {
3223	sat_sTi [Occ=Once] :: GHC.Integer.Type.Integer
3224	[LclId]
3225	sat_sTi =
3226	($dHasResolution_sK0
3227	`cast` (Data.Fixed.NTCo:HasResolution <a_Xjt>
3228	:: Data.Fixed.HasResolution a_Xjt
3229	~
3230	(forall (p_abS :: * -> *).
3231	p_abS a_Xjt -> GHC.Integer.Type.Integer)))
3232	@ Data.Fixed.Fixed fa_sJX } in
3233	let {
3234	sat_sTh [Occ=Once] :: GHC.Integer.Type.Integer
3235	[LclId]
3236	sat_sTh =
3237	GHC.Num.*
3238	@ GHC.Integer.Type.Integer
3239	GHC.Num.$fNumInteger
3240	(fa_sJX
3241	`cast` (Data.Fixed.NTCo:Fixed <a_Xjt>
3242	:: Data.Fixed.Fixed a_Xjt ~ GHC.Integer.Type.Integer))
3243	(ds_sJY
3244	`cast` (Data.Fixed.NTCo:Fixed <a_Xjt>
3245	:: Data.Fixed.Fixed a_Xjt ~ GHC.Integer.Type.Integer)) } in
3246	GHC.Real.div
3247	@ GHC.Integer.Type.Integer
3248	GHC.Real.$fIntegralInteger
3249	sat_sTh
3250	sat_sTi
3251
3252	$c*_rGj
3253	:: forall a_ah1.
3254	Data.Fixed.HasResolution a_ah1 =>
3255	Data.Fixed.Fixed a_ah1
3256	-> Data.Fixed.Fixed a_ah1 -> Data.Fixed.Fixed a_ah1
3257	[GblId, Arity=3, Unf=OtherCon []]
3258	$c*_rGj =
3259	(\ (@ a_Xjt)
3260	(eta_B3 [Occ=Once] :: Data.Fixed.HasResolution a_Xjt)
3261	(eta_B2 [Occ=Once] :: Data.Fixed.Fixed a_Xjt)
3262	(eta_B1 [Occ=Once] :: Data.Fixed.Fixed a_Xjt) ->
3263	a5_rGi @ a_Xjt eta_B3 eta_B2 eta_B1)
3264	`cast` (forall a_Xjt.
3265	<Data.Fixed.HasResolution a_Xjt>
3266	-> <Data.Fixed.Fixed a_Xjt>
3267	-> <Data.Fixed.Fixed a_Xjt>
3268	-> Sym (Data.Fixed.NTCo:Fixed <a_Xjt>)
3269	:: (forall a_Xjt.
3270	Data.Fixed.HasResolution a_Xjt =>
3271	Data.Fixed.Fixed a_Xjt
3272	-> Data.Fixed.Fixed a_Xjt -> GHC.Integer.Type.Integer)
3273	~
3274	(forall a_Xjt.
3275	Data.Fixed.HasResolution a_Xjt =>
3276	Data.Fixed.Fixed a_Xjt
3277	-> Data.Fixed.Fixed a_Xjt -> Data.Fixed.Fixed a_Xjt))
3278
3279	a6_rGk
3280	:: forall a_Xjz.
3281	Data.Fixed.HasResolution a_Xjz =>
3282	Data.Fixed.Fixed a_Xjz
3283	-> Data.Fixed.Fixed a_Xjz -> GHC.Integer.Type.Integer
3284	[GblId, Arity=3, Unf=OtherCon []]
3285	a6_rGk =
3286	\ (@ a_Xjz)
3287	_
3288	(ds_sK5 [Occ=Once] :: Data.Fixed.Fixed a_Xjz)
3289	(ds1_sK6 [Occ=Once] :: Data.Fixed.Fixed a_Xjz) ->
3290	GHC.Num.+
3291	@ GHC.Integer.Type.Integer
3292	GHC.Num.$fNumInteger
3293	(ds_sK5
3294	`cast` (Data.Fixed.NTCo:Fixed <a_Xjz>
3295	:: Data.Fixed.Fixed a_Xjz ~ GHC.Integer.Type.Integer))
3296	(ds1_sK6
3297	`cast` (Data.Fixed.NTCo:Fixed <a_Xjz>
3298	:: Data.Fixed.Fixed a_Xjz ~ GHC.Integer.Type.Integer))
3299
3300	$c+_rGl
3301	:: forall a_ah1.
3302	Data.Fixed.HasResolution a_ah1 =>
3303	Data.Fixed.Fixed a_ah1
3304	-> Data.Fixed.Fixed a_ah1 -> Data.Fixed.Fixed a_ah1
3305	[GblId, Arity=3, Unf=OtherCon []]
3306	$c+_rGl =
3307	(\ (@ a_Xjz)
3308	(eta_B3 [Occ=Once] :: Data.Fixed.HasResolution a_Xjz)
3309	(eta_B2 [Occ=Once] :: Data.Fixed.Fixed a_Xjz)
3310	(eta_B1 [Occ=Once] :: Data.Fixed.Fixed a_Xjz) ->
3311	a6_rGk @ a_Xjz eta_B3 eta_B2 eta_B1)
3312	`cast` (forall a_Xjz.
3313	<Data.Fixed.HasResolution a_Xjz>
3314	-> <Data.Fixed.Fixed a_Xjz>
3315	-> <Data.Fixed.Fixed a_Xjz>
3316	-> Sym (Data.Fixed.NTCo:Fixed <a_Xjz>)
3317	:: (forall a_Xjz.
3318	Data.Fixed.HasResolution a_Xjz =>
3319	Data.Fixed.Fixed a_Xjz
3320	-> Data.Fixed.Fixed a_Xjz -> GHC.Integer.Type.Integer)
3321	~
3322	(forall a_Xjz.
3323	Data.Fixed.HasResolution a_Xjz =>
3324	Data.Fixed.Fixed a_Xjz
3325	-> Data.Fixed.Fixed a_Xjz -> Data.Fixed.Fixed a_Xjz))
3326
3327	$ctoRational_rGm
3328	:: forall a_agY.
3329	Data.Fixed.HasResolution a_agY =>
3330	Data.Fixed.Fixed a_agY -> GHC.Real.Rational
3331	[GblId, Arity=1, Unf=OtherCon []]
3332	$ctoRational_rGm =
3333	\ (@ a_agY)
3334	($dHasResolution_sKe [Occ=OnceL]
3335	:: Data.Fixed.HasResolution a_agY) ->
3336	let {
3337	$dFractional_sKa [Occ=OnceL]
3338	:: GHC.Real.Fractional GHC.Real.Rational
3339	[LclId]
3340	$dFractional_sKa =
3341	GHC.Real.$fFractionalRatio
3342	@ GHC.Integer.Type.Integer GHC.Real.$fIntegralInteger } in
3343	let {
3344	sat_sTj [Occ=Once] :: Data.Fixed.Fixed a_agY -> GHC.Real.Rational
3345	[LclId]
3346	sat_sTj =
3347	\ (fa_sKc :: Data.Fixed.Fixed a_agY) ->
3348	let {
3349	sat_sKj [Occ=Once] :: GHC.Real.Rational
3350	[LclId]
3351	sat_sKj =
3352	let {
3353	sat_sKg [Occ=Once] :: GHC.Integer.Type.Integer
3354	[LclId]
3355	sat_sKg =
3356	($dHasResolution_sKe
3357	`cast` (Data.Fixed.NTCo:HasResolution <a_agY>
3358	:: Data.Fixed.HasResolution a_agY
3359	~
3360	(forall (p_abS :: * -> *).
3361	p_abS a_agY -> GHC.Integer.Type.Integer)))
3362	@ Data.Fixed.Fixed fa_sKc } in
3363	GHC.Real.toRational
3364	@ GHC.Integer.Type.Integer GHC.Real.$fRealInteger sat_sKg } in
3365	let {
3366	sat_sKi [Occ=Once] :: GHC.Real.Rational
3367	[LclId]
3368	sat_sKi =
3369	GHC.Real.toRational
3370	@ GHC.Integer.Type.Integer
3371	GHC.Real.$fRealInteger
3372	(fa_sKc
3373	`cast` (Data.Fixed.NTCo:Fixed <a_agY>
3374	:: Data.Fixed.Fixed a_agY ~ GHC.Integer.Type.Integer)) } in
3375	GHC.Real./
3376	@ GHC.Real.Rational $dFractional_sKa sat_sKi sat_sKj } in
3377	sat_sTj
3378
3379	$cfromRational_rGn
3380	:: forall a_agP.
3381	Data.Fixed.HasResolution a_agP =>
3382	GHC.Real.Rational -> Data.Fixed.Fixed a_agP
3383	[GblId, Arity=1, Unf=OtherCon []]
3384	$cfromRational_rGn =
3385	\ (@ a_agP)
3386	($dHasResolution_sKy [Occ=OnceL]
3387	:: Data.Fixed.HasResolution a_agP) ->
3388	let {
3389	$dNum_sKn [Occ=OnceL] :: GHC.Num.Num GHC.Real.Rational
3390	[LclId]
3391	$dNum_sKn =
3392	GHC.Real.$fNumRatio
3393	@ GHC.Integer.Type.Integer GHC.Real.$fIntegralInteger } in
3394	let {
3395	$dRealFrac_sKp [Occ=OnceL] :: GHC.Real.RealFrac GHC.Real.Rational
3396	[LclId]
3397	$dRealFrac_sKp =
3398	GHC.Real.$fRealFracRatio
3399	@ GHC.Integer.Type.Integer GHC.Real.$fIntegralInteger } in
3400	let {
3401	sat_sTk [Occ=Once] :: GHC.Real.Rational -> Data.Fixed.Fixed a_agP
3402	[LclId]
3403	sat_sTk =
3404	\ (r_sKs [Occ=OnceL] :: GHC.Real.Rational) ->
3405	let {
3406	sat_sKA [Occ=Once]
3407	:: GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_agP
3408	[LclId]
3409	sat_sKA =
3410	(\ (res_sKt [Occ=Once] :: GHC.Integer.Type.Integer) ->
3411	let {
3412	sat_sKz [Occ=Once] :: GHC.Real.Rational
3413	[LclId]
3414	sat_sKz =
3415	let {
3416	sat_sKv [Occ=Once] :: GHC.Real.Rational
3417	[LclId]
3418	sat_sKv =
3419	GHC.Real.toRational
3420	@ GHC.Integer.Type.Integer GHC.Real.$fRealInteger res_sKt } in
3421	GHC.Num.* @ GHC.Real.Rational $dNum_sKn r_sKs sat_sKv } in
3422	GHC.Real.floor
3423	@ GHC.Real.Rational
3424	$dRealFrac_sKp
3425	@ GHC.Integer.Type.Integer
3426	GHC.Real.$fIntegralInteger
3427	sat_sKz)
3428	`cast` (<GHC.Integer.Type.Integer>
3429	-> Sym (Data.Fixed.NTCo:Fixed <a_agP>)
3430	:: (GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
3431	~
3432	(GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_agP)) } in
3433	GHC.Base..
3434	@ GHC.Integer.Type.Integer
3435	@ (Data.Fixed.Fixed a_agP)
3436	@ (GHC.Prim.Any(* -> *) a_agP)
3437	sat_sKA
3438	(($dHasResolution_sKy
3439	`cast` (Data.Fixed.NTCo:HasResolution <a_agP>
3440	:: Data.Fixed.HasResolution a_agP
3441	~
3442	(forall (p_abS :: * -> *).
3443	p_abS a_agP -> GHC.Integer.Type.Integer)))
3444	@ GHC.Prim.Any(* -> *))
3445	(GHC.Err.undefined @ (GHC.Prim.Any(* -> *) a_agP)) } in
3446	sat_sTk
3447
3448	$crecip_rGo
3449	:: forall a_agP.
3450	Data.Fixed.HasResolution a_agP =>
3451	Data.Fixed.Fixed a_agP -> Data.Fixed.Fixed a_agP
3452	[GblId, Arity=2, Unf=OtherCon []]
3453	$crecip_rGo =
3454	\ (@ a_agP)
3455	($dHasResolution_sKG :: Data.Fixed.HasResolution a_agP)
3456	(fa_sKF :: Data.Fixed.Fixed a_agP) ->
3457	let {
3458	res_sKH :: GHC.Integer.Type.Integer
3459	[LclId]
3460	res_sKH =
3461	($dHasResolution_sKG
3462	`cast` (Data.Fixed.NTCo:HasResolution <a_agP>
3463	:: Data.Fixed.HasResolution a_agP
3464	~
3465	(forall (p_abS :: * -> *).
3466	p_abS a_agP -> GHC.Integer.Type.Integer)))
3467	@ Data.Fixed.Fixed fa_sKF } in
3468	let {
3469	sat_sTl [Occ=Once] :: GHC.Integer.Type.Integer
3470	[LclId]
3471	sat_sTl =
3472	GHC.Num.*
3473	@ GHC.Integer.Type.Integer
3474	GHC.Num.$fNumInteger
3475	res_sKH
3476	res_sKH } in
3477	(GHC.Real.div
3478	@ GHC.Integer.Type.Integer
3479	GHC.Real.$fIntegralInteger
3480	sat_sTl
3481	(fa_sKF
3482	`cast` (Data.Fixed.NTCo:Fixed <a_agP>
3483	:: Data.Fixed.Fixed a_agP ~ GHC.Integer.Type.Integer)))
3484	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_agP>)
3485	:: GHC.Integer.Type.Integer ~ Data.Fixed.Fixed a_agP)
3486
3487	a7_rGp
3488	:: forall a_agP.
3489	Data.Fixed.HasResolution a_agP =>
3490	Data.Fixed.Fixed a_agP
3491	-> Data.Fixed.Fixed a_agP -> GHC.Integer.Type.Integer
3492	[GblId, Arity=3, Unf=OtherCon []]
3493	a7_rGp =
3494	\ (@ a_agP)
3495	($dHasResolution_sKN [Occ=Once] :: Data.Fixed.HasResolution a_agP)
3496	(fa_sKM :: Data.Fixed.Fixed a_agP)
3497	(ds_sKR [Occ=Once] :: Data.Fixed.Fixed a_agP) ->
3498	let {
3499	sat_sTm [Occ=Once] :: GHC.Integer.Type.Integer
3500	[LclId]
3501	sat_sTm =
3502	let {
3503	sat_sKP [Occ=Once] :: GHC.Integer.Type.Integer
3504	[LclId]
3505	sat_sKP =
3506	($dHasResolution_sKN
3507	`cast` (Data.Fixed.NTCo:HasResolution <a_agP>
3508	:: Data.Fixed.HasResolution a_agP
3509	~
3510	(forall (p_abS :: * -> *).
3511	p_abS a_agP -> GHC.Integer.Type.Integer)))
3512	@ Data.Fixed.Fixed fa_sKM } in
3513	GHC.Num.*
3514	@ GHC.Integer.Type.Integer
3515	GHC.Num.$fNumInteger
3516	(fa_sKM
3517	`cast` (Data.Fixed.NTCo:Fixed <a_agP>
3518	:: Data.Fixed.Fixed a_agP ~ GHC.Integer.Type.Integer))
3519	sat_sKP } in
3520	GHC.Real.div
3521	@ GHC.Integer.Type.Integer
3522	GHC.Real.$fIntegralInteger
3523	sat_sTm
3524	(ds_sKR
3525	`cast` (Data.Fixed.NTCo:Fixed <a_agP>
3526	:: Data.Fixed.Fixed a_agP ~ GHC.Integer.Type.Integer))
3527
3528	$c/_rGq
3529	:: forall a_agP.
3530	Data.Fixed.HasResolution a_agP =>
3531	Data.Fixed.Fixed a_agP
3532	-> Data.Fixed.Fixed a_agP -> Data.Fixed.Fixed a_agP
3533	[GblId, Arity=3, Unf=OtherCon []]
3534	$c/_rGq =
3535	(\ (@ a_agP)
3536	(eta_B3 [Occ=Once] :: Data.Fixed.HasResolution a_agP)
3537	(eta_B2 [Occ=Once] :: Data.Fixed.Fixed a_agP)
3538	(eta_B1 [Occ=Once] :: Data.Fixed.Fixed a_agP) ->
3539	a7_rGp @ a_agP eta_B3 eta_B2 eta_B1)
3540	`cast` (forall a_agP.
3541	<Data.Fixed.HasResolution a_agP>
3542	-> <Data.Fixed.Fixed a_agP>
3543	-> <Data.Fixed.Fixed a_agP>
3544	-> Sym (Data.Fixed.NTCo:Fixed <a_agP>)
3545	:: (forall a_agP.
3546	Data.Fixed.HasResolution a_agP =>
3547	Data.Fixed.Fixed a_agP
3548	-> Data.Fixed.Fixed a_agP -> GHC.Integer.Type.Integer)
3549	~
3550	(forall a_agP.
3551	Data.Fixed.HasResolution a_agP =>
3552	Data.Fixed.Fixed a_agP
3553	-> Data.Fixed.Fixed a_agP -> Data.Fixed.Fixed a_agP))
3554
3555	$cresolution_rGr
3556	:: forall (p_abS :: * -> *).
3557	p_abS Data.Fixed.E0 -> GHC.Integer.Type.Integer
3558	[GblId, Arity=1, Caf=NoCafRefs, Unf=OtherCon []]
3559	$cresolution_rGr = \ (@ p_au3::* -> *) _ -> GHC.Integer.Type.S# 1
3560
3561	Data.Fixed.$fHasResolutionE0 [InlPrag=INLINE (sat-args=0)]
3562	:: Data.Fixed.HasResolution Data.Fixed.E0
3563	[GblId[DFunId(nt)], Unf=OtherCon []]
3564	Data.Fixed.$fHasResolutionE0 =
3565	$cresolution_rGr
3566	`cast` (Sym (Data.Fixed.NTCo:HasResolution <Data.Fixed.E0>)
3567	:: (forall (p_abS :: * -> *).
3568	p_abS Data.Fixed.E0 -> GHC.Integer.Type.Integer)
3569	~
3570	Data.Fixed.HasResolution Data.Fixed.E0)
3571
3572	$cresolution1_rGs
3573	:: forall (p_abS :: * -> *).
3574	p_abS Data.Fixed.E1 -> GHC.Integer.Type.Integer
3575	[GblId, Arity=1, Caf=NoCafRefs, Unf=OtherCon []]
3576	$cresolution1_rGs = \ (@ p_atY::* -> *) _ -> GHC.Integer.Type.S# 10
3577
3578	Data.Fixed.$fHasResolutionE1 [InlPrag=INLINE (sat-args=0)]
3579	:: Data.Fixed.HasResolution Data.Fixed.E1
3580	[GblId[DFunId(nt)], Unf=OtherCon []]
3581	Data.Fixed.$fHasResolutionE1 =
3582	$cresolution1_rGs
3583	`cast` (Sym (Data.Fixed.NTCo:HasResolution <Data.Fixed.E1>)
3584	:: (forall (p_abS :: * -> *).
3585	p_abS Data.Fixed.E1 -> GHC.Integer.Type.Integer)
3586	~
3587	Data.Fixed.HasResolution Data.Fixed.E1)
3588
3589	$cresolution2_rGt
3590	:: forall (p_abS :: * -> *).
3591	p_abS Data.Fixed.E2 -> GHC.Integer.Type.Integer
3592	[GblId, Arity=1, Caf=NoCafRefs, Unf=OtherCon []]
3593	$cresolution2_rGt =
3594	\ (@ p_atT::* -> *) _ -> GHC.Integer.Type.S# 100
3595
3596	Data.Fixed.$fHasResolutionE2 [InlPrag=INLINE (sat-args=0)]
3597	:: Data.Fixed.HasResolution Data.Fixed.E2
3598	[GblId[DFunId(nt)], Unf=OtherCon []]
3599	Data.Fixed.$fHasResolutionE2 =
3600	$cresolution2_rGt
3601	`cast` (Sym (Data.Fixed.NTCo:HasResolution <Data.Fixed.E2>)
3602	:: (forall (p_abS :: * -> *).
3603	p_abS Data.Fixed.E2 -> GHC.Integer.Type.Integer)
3604	~
3605	Data.Fixed.HasResolution Data.Fixed.E2)
3606
3607	$cresolution3_rGu
3608	:: forall (p_abS :: * -> *).
3609	p_abS Data.Fixed.E3 -> GHC.Integer.Type.Integer
3610	[GblId, Arity=1, Caf=NoCafRefs, Unf=OtherCon []]
3611	$cresolution3_rGu =
3612	\ (@ p_atO::* -> *) _ -> GHC.Integer.Type.S# 1000
3613
3614	Data.Fixed.$fHasResolutionE3 [InlPrag=INLINE (sat-args=0)]
3615	:: Data.Fixed.HasResolution Data.Fixed.E3
3616	[GblId[DFunId(nt)], Unf=OtherCon []]
3617	Data.Fixed.$fHasResolutionE3 =
3618	$cresolution3_rGu
3619	`cast` (Sym (Data.Fixed.NTCo:HasResolution <Data.Fixed.E3>)
3620	:: (forall (p_abS :: * -> *).
3621	p_abS Data.Fixed.E3 -> GHC.Integer.Type.Integer)
3622	~
3623	Data.Fixed.HasResolution Data.Fixed.E3)
3624
3625	$cresolution4_rGv
3626	:: forall (p_abS :: * -> *).
3627	p_abS Data.Fixed.E6 -> GHC.Integer.Type.Integer
3628	[GblId, Arity=1, Caf=NoCafRefs, Unf=OtherCon []]
3629	$cresolution4_rGv =
3630	\ (@ p_atJ::* -> *) _ -> GHC.Integer.Type.S# 1000000
3631
3632	Data.Fixed.$fHasResolutionE6 [InlPrag=INLINE (sat-args=0)]
3633	:: Data.Fixed.HasResolution Data.Fixed.E6
3634	[GblId[DFunId(nt)], Unf=OtherCon []]
3635	Data.Fixed.$fHasResolutionE6 =
3636	$cresolution4_rGv
3637	`cast` (Sym (Data.Fixed.NTCo:HasResolution <Data.Fixed.E6>)
3638	:: (forall (p_abS :: * -> *).
3639	p_abS Data.Fixed.E6 -> GHC.Integer.Type.Integer)
3640	~
3641	Data.Fixed.HasResolution Data.Fixed.E6)
3642
3643	$cresolution5_rGw
3644	:: forall (p_abS :: * -> *).
3645	p_abS Data.Fixed.E9 -> GHC.Integer.Type.Integer
3646	[GblId, Arity=1, Caf=NoCafRefs, Unf=OtherCon []]
3647	$cresolution5_rGw =
3648	\ (@ p_atE::* -> *) _ -> GHC.Integer.Type.S# 1000000000
3649
3650	Data.Fixed.$fHasResolutionE9 [InlPrag=INLINE (sat-args=0)]
3651	:: Data.Fixed.HasResolution Data.Fixed.E9
3652	[GblId[DFunId(nt)], Unf=OtherCon []]
3653	Data.Fixed.$fHasResolutionE9 =
3654	$cresolution5_rGw
3655	`cast` (Sym (Data.Fixed.NTCo:HasResolution <Data.Fixed.E9>)
3656	:: (forall (p_abS :: * -> *).
3657	p_abS Data.Fixed.E9 -> GHC.Integer.Type.Integer)
3658	~
3659	Data.Fixed.HasResolution Data.Fixed.E9)
3660
3661	$cresolution6_rGx
3662	:: forall (p_abS :: * -> *).
3663	p_abS Data.Fixed.E12 -> GHC.Integer.Type.Integer
3664	[GblId, Arity=1, Caf=NoCafRefs, Unf=OtherCon []]
3665	$cresolution6_rGx =
3666	\ (@ p_atz::* -> *) _ ->
3667	let {
3668	sat_sTo [Occ=Once] :: GHC.Integer.Type.Integer
3669	[LclId]
3670	sat_sTo =
3671	let {
3672	sat_sL7 [Occ=Once] :: GHC.Integer.Type.Integer
3673	[LclId]
3674	sat_sL7 = GHC.Integer.Type.S# 931 } in
3675	GHC.Integer.Type.shiftLInteger sat_sL7 30 } in
3676	let {
3677	sat_sTn [Occ=Once] :: GHC.Integer.Type.Integer
3678	[LclId]
3679	sat_sTn = GHC.Integer.Type.S# 346361856 } in
3680	GHC.Integer.Type.orInteger sat_sTn sat_sTo
3681
3682	Data.Fixed.$fHasResolutionE12 [InlPrag=INLINE (sat-args=0)]
3683	:: Data.Fixed.HasResolution Data.Fixed.E12
3684	[GblId[DFunId(nt)], Unf=OtherCon []]
3685	Data.Fixed.$fHasResolutionE12 =
3686	$cresolution6_rGx
3687	`cast` (Sym (Data.Fixed.NTCo:HasResolution <Data.Fixed.E12>)
3688	:: (forall (p_abS :: * -> *).
3689	p_abS Data.Fixed.E12 -> GHC.Integer.Type.Integer)
3690	~
3691	Data.Fixed.HasResolution Data.Fixed.E12)
3692
3693	a8_rGy
3694	:: GHC.Integer.Type.Integer
3695	-> GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer
3696	[GblId]
3697	a8_rGy =
3698	GHC.Classes.min
3699	@ GHC.Integer.Type.Integer GHC.Integer.Type.$fOrdInteger
3700
3701	$cmin_rGz
3702	:: forall a_abT.
3703	Data.Fixed.Fixed a_abT
3704	-> Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT
3705	[GblId]
3706	$cmin_rGz =
3707	(\ (@ a_abT) -> a8_rGy)
3708	`cast` (forall a_abT.
3709	Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3710	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3711	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3712	:: (forall a_abT.
3713	GHC.Integer.Type.Integer
3714	-> GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
3715	~
3716	(forall a_abT.
3717	Data.Fixed.Fixed a_abT
3718	-> Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT))
3719
3720	a9_rGA
3721	:: GHC.Integer.Type.Integer
3722	-> GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer
3723	[GblId]
3724	a9_rGA =
3725	GHC.Classes.max
3726	@ GHC.Integer.Type.Integer GHC.Integer.Type.$fOrdInteger
3727
3728	$cmax_rGB
3729	:: forall a_abT.
3730	Data.Fixed.Fixed a_abT
3731	-> Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT
3732	[GblId]
3733	$cmax_rGB =
3734	(\ (@ a_abT) -> a9_rGA)
3735	`cast` (forall a_abT.
3736	Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3737	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3738	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3739	:: (forall a_abT.
3740	GHC.Integer.Type.Integer
3741	-> GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
3742	~
3743	(forall a_abT.
3744	Data.Fixed.Fixed a_abT
3745	-> Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT))
3746
3747	a10_rGC
3748	:: GHC.Integer.Type.Integer
3749	-> GHC.Integer.Type.Integer -> GHC.Types.Bool
3750	[GblId]
3751	a10_rGC =
3752	GHC.Classes.<=
3753	@ GHC.Integer.Type.Integer GHC.Integer.Type.$fOrdInteger
3754
3755	$c<=_rGD
3756	:: forall a_abT.
3757	Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT -> GHC.Types.Bool
3758	[GblId]
3759	$c<=_rGD =
3760	(\ (@ a_abT) -> a10_rGC)
3761	`cast` (forall a_abT.
3762	Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3763	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
3764	:: (forall a_abT.
3765	GHC.Integer.Type.Integer
3766	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
3767	~
3768	(forall a_abT.
3769	Data.Fixed.Fixed a_abT
3770	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool))
3771
3772	a11_rGE
3773	:: GHC.Integer.Type.Integer
3774	-> GHC.Integer.Type.Integer -> GHC.Types.Bool
3775	[GblId]
3776	a11_rGE =
3777	GHC.Classes.>
3778	@ GHC.Integer.Type.Integer GHC.Integer.Type.$fOrdInteger
3779
3780	$c>_rGF
3781	:: forall a_abT.
3782	Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT -> GHC.Types.Bool
3783	[GblId]
3784	$c>_rGF =
3785	(\ (@ a_abT) -> a11_rGE)
3786	`cast` (forall a_abT.
3787	Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3788	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
3789	:: (forall a_abT.
3790	GHC.Integer.Type.Integer
3791	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
3792	~
3793	(forall a_abT.
3794	Data.Fixed.Fixed a_abT
3795	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool))
3796
3797	a12_rGG
3798	:: GHC.Integer.Type.Integer
3799	-> GHC.Integer.Type.Integer -> GHC.Types.Bool
3800	[GblId]
3801	a12_rGG =
3802	GHC.Classes.>=
3803	@ GHC.Integer.Type.Integer GHC.Integer.Type.$fOrdInteger
3804
3805	$c>=_rGH
3806	:: forall a_abT.
3807	Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT -> GHC.Types.Bool
3808	[GblId]
3809	$c>=_rGH =
3810	(\ (@ a_abT) -> a12_rGG)
3811	`cast` (forall a_abT.
3812	Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3813	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
3814	:: (forall a_abT.
3815	GHC.Integer.Type.Integer
3816	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
3817	~
3818	(forall a_abT.
3819	Data.Fixed.Fixed a_abT
3820	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool))
3821
3822	a13_rGI
3823	:: GHC.Integer.Type.Integer
3824	-> GHC.Integer.Type.Integer -> GHC.Types.Bool
3825	[GblId]
3826	a13_rGI =
3827	GHC.Classes.<
3828	@ GHC.Integer.Type.Integer GHC.Integer.Type.$fOrdInteger
3829
3830	$c<_rGJ
3831	:: forall a_abT.
3832	Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT -> GHC.Types.Bool
3833	[GblId]
3834	$c<_rGJ =
3835	(\ (@ a_abT) -> a13_rGI)
3836	`cast` (forall a_abT.
3837	Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3838	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
3839	:: (forall a_abT.
3840	GHC.Integer.Type.Integer
3841	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
3842	~
3843	(forall a_abT.
3844	Data.Fixed.Fixed a_abT
3845	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool))
3846
3847	a14_rGK
3848	:: GHC.Integer.Type.Integer
3849	-> GHC.Integer.Type.Integer -> GHC.Types.Ordering
3850	[GblId]
3851	a14_rGK =
3852	GHC.Classes.compare
3853	@ GHC.Integer.Type.Integer GHC.Integer.Type.$fOrdInteger
3854
3855	$ccompare_rGL
3856	:: forall a_abT.
3857	Data.Fixed.Fixed a_abT
3858	-> Data.Fixed.Fixed a_abT -> GHC.Types.Ordering
3859	[GblId]
3860	$ccompare_rGL =
3861	(\ (@ a_abT) -> a14_rGK)
3862	`cast` (forall a_abT.
3863	Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3864	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Ordering>
3865	:: (forall a_abT.
3866	GHC.Integer.Type.Integer
3867	-> GHC.Integer.Type.Integer -> GHC.Types.Ordering)
3868	~
3869	(forall a_abT.
3870	Data.Fixed.Fixed a_abT
3871	-> Data.Fixed.Fixed a_abT -> GHC.Types.Ordering))
3872
3873	a15_rGM
3874	:: GHC.Integer.Type.Integer
3875	-> GHC.Integer.Type.Integer -> GHC.Types.Bool
3876	[GblId]
3877	a15_rGM =
3878	GHC.Classes./=
3879	@ GHC.Integer.Type.Integer GHC.Integer.Type.$fEqInteger
3880
3881	$c/=_rGN
3882	:: forall a_abT.
3883	Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT -> GHC.Types.Bool
3884	[GblId]
3885	$c/=_rGN =
3886	(\ (@ a_abT) -> a15_rGM)
3887	`cast` (forall a_abT.
3888	Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3889	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
3890	:: (forall a_abT.
3891	GHC.Integer.Type.Integer
3892	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
3893	~
3894	(forall a_abT.
3895	Data.Fixed.Fixed a_abT
3896	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool))
3897
3898	a16_rGO
3899	:: GHC.Integer.Type.Integer
3900	-> GHC.Integer.Type.Integer -> GHC.Types.Bool
3901	[GblId]
3902	a16_rGO =
3903	GHC.Classes.==
3904	@ GHC.Integer.Type.Integer GHC.Integer.Type.$fEqInteger
3905
3906	$c==_rGP
3907	:: forall a_abT.
3908	Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT -> GHC.Types.Bool
3909	[GblId]
3910	$c==_rGP =
3911	(\ (@ a_abT) -> a16_rGO)
3912	`cast` (forall a_abT.
3913	Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3914	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
3915	:: (forall a_abT.
3916	GHC.Integer.Type.Integer
3917	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
3918	~
3919	(forall a_abT.
3920	Data.Fixed.Fixed a_abT
3921	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool))
3922
3923	Data.Fixed.$fEqFixed [InlPrag=[ALWAYS] CONLIKE]
3924	:: forall a_abT. GHC.Classes.Eq (Data.Fixed.Fixed a_abT)
3925	[GblId[DFunId], Unf=OtherCon []]
3926	Data.Fixed.$fEqFixed =
3927	\ (@ a_abT) ->
3928	GHC.Classes.D:Eq
3929	@ (Data.Fixed.Fixed a_abT)
3930	(a16_rGO
3931	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3932	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
3933	:: (GHC.Integer.Type.Integer
3934	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
3935	~
3936	(Data.Fixed.Fixed a_abT
3937	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool)))
3938	(a15_rGM
3939	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3940	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
3941	:: (GHC.Integer.Type.Integer
3942	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
3943	~
3944	(Data.Fixed.Fixed a_abT
3945	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool)))
3946
3947	Data.Fixed.$fOrdFixed [InlPrag=[ALWAYS] CONLIKE]
3948	:: forall a_abT. GHC.Classes.Ord (Data.Fixed.Fixed a_abT)
3949	[GblId[DFunId], Unf=OtherCon []]
3950	Data.Fixed.$fOrdFixed =
3951	\ (@ a_abT) ->
3952	GHC.Classes.D:Ord
3953	@ (Data.Fixed.Fixed a_abT)
3954	(Data.Fixed.$fEqFixed @ a_abT)
3955	(a14_rGK
3956	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3957	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Ordering>
3958	:: (GHC.Integer.Type.Integer
3959	-> GHC.Integer.Type.Integer -> GHC.Types.Ordering)
3960	~
3961	(Data.Fixed.Fixed a_abT
3962	-> Data.Fixed.Fixed a_abT -> GHC.Types.Ordering)))
3963	(a13_rGI
3964	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3965	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
3966	:: (GHC.Integer.Type.Integer
3967	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
3968	~
3969	(Data.Fixed.Fixed a_abT
3970	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool)))
3971	(a12_rGG
3972	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3973	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
3974	:: (GHC.Integer.Type.Integer
3975	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
3976	~
3977	(Data.Fixed.Fixed a_abT
3978	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool)))
3979	(a11_rGE
3980	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3981	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
3982	:: (GHC.Integer.Type.Integer
3983	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
3984	~
3985	(Data.Fixed.Fixed a_abT
3986	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool)))
3987	(a10_rGC
3988	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3989	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>) -> <GHC.Types.Bool>
3990	:: (GHC.Integer.Type.Integer
3991	-> GHC.Integer.Type.Integer -> GHC.Types.Bool)
3992	~
3993	(Data.Fixed.Fixed a_abT
3994	-> Data.Fixed.Fixed a_abT -> GHC.Types.Bool)))
3995	(a9_rGA
3996	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3997	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3998	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>)
3999	:: (GHC.Integer.Type.Integer
4000	-> GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
4001	~
4002	(Data.Fixed.Fixed a_abT
4003	-> Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT)))
4004	(a8_rGy
4005	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_abT>)
4006	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>)
4007	-> Sym (Data.Fixed.NTCo:Fixed <a_abT>)
4008	:: (GHC.Integer.Type.Integer
4009	-> GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer)
4010	~
4011	(Data.Fixed.Fixed a_abT
4012	-> Data.Fixed.Fixed a_abT -> Data.Fixed.Fixed a_abT)))
4013
4014	$c$p2Real_rGQ
4015	:: forall a_agY.
4016	Data.Fixed.HasResolution a_agY =>
4017	GHC.Classes.Ord (Data.Fixed.Fixed a_agY)
4018	[GblId, Arity=1, Unf=OtherCon []]
4019	$c$p2Real_rGQ = \ (@ a_agY) _ -> Data.Fixed.$fOrdFixed @ a_agY
4020
4021	$c$p1Num_rGR
4022	:: forall a_ah1.
4023	Data.Fixed.HasResolution a_ah1 =>
4024	GHC.Classes.Eq (Data.Fixed.Fixed a_ah1)
4025	[GblId, Arity=1, Unf=OtherCon []]
4026	$c$p1Num_rGR = \ (@ a_Xkn) _ -> Data.Fixed.$fEqFixed @ a_Xkn
4027
4028	$ctypeOf1_rGS
4029	:: forall a_at2.
4030	Data.Fixed.Fixed a_at2 -> Data.Typeable.Internal.TypeRep
4031	[GblId, Arity=1, Unf=OtherCon []]
4032	$ctypeOf1_rGS =
4033	\ (@ a_at3) _ ->
4034	let {
4035	sat_sTp [Occ=Once] :: Data.Typeable.Internal.TyCon
4036	[LclId]
4037	sat_sTp =
4038	let {
4039	sat_sLi [Occ=Once] :: GHC.Base.String
4040	[LclId]
4041	sat_sLi = GHC.CString.unpackCString# "Fixed" } in
4042	let {
4043	sat_sLk [Occ=Once] :: GHC.Base.String
4044	[LclId]
4045	sat_sLk = GHC.CString.unpackCString# "Data.Fixed" } in
4046	let {
4047	sat_sLj [Occ=Once] :: GHC.Base.String
4048	[LclId]
4049	sat_sLj = GHC.CString.unpackCString# "base" } in
4050	Data.Typeable.Internal.mkTyCon
4051	__word64 8981914714902393322
4052	__word64 1690778749145253851
4053	sat_sLj
4054	sat_sLk
4055	sat_sLi } in
4056	Data.Typeable.Internal.mkTyConApp
4057	sat_sTp (GHC.Types.[] @ Data.Typeable.Internal.TypeRep)
4058
4059	Data.Fixed.$fTypeable1Fixed [InlPrag=INLINE (sat-args=0)]
4060	:: Data.Typeable.Internal.Typeable1 Data.Fixed.Fixed
4061	[GblId[DFunId(nt)], Unf=OtherCon []]
4062	Data.Fixed.$fTypeable1Fixed =
4063	$ctypeOf1_rGS
4064	`cast` (Sym
4065	(Data.Typeable.Internal.NTCo:Typeable1 <Data.Fixed.Fixed>)
4066	:: (forall a_at2.
4067	Data.Fixed.Fixed a_at2 -> Data.Typeable.Internal.TypeRep)
4068	~
4069	Data.Typeable.Internal.Typeable1 Data.Fixed.Fixed)
4070
4071	$c$p1Data_rGT
4072	:: forall a_ahq.
4073	Data.Typeable.Internal.Typeable a_ahq =>
4074	Data.Typeable.Internal.Typeable (Data.Fixed.Fixed a_ahq)
4075	[GblId, Arity=1, Unf=OtherCon []]
4076	$c$p1Data_rGT =
4077	\ (@ a_ahq)
4078	($dTypeable_sLo [Occ=Once]
4079	:: Data.Typeable.Internal.Typeable a_ahq) ->
4080	Data.Typeable.Internal.$fTypeables
4081	@ Data.Fixed.Fixed
4082	@ a_ahq
4083	($ctypeOf1_rGS
4084	`cast` (Sym
4085	(Data.Typeable.Internal.NTCo:Typeable1 <Data.Fixed.Fixed>)
4086	:: (forall a_at2.
4087	Data.Fixed.Fixed a_at2 -> Data.Typeable.Internal.TypeRep)
4088	~
4089	Data.Typeable.Internal.Typeable1 Data.Fixed.Fixed))
4090	$dTypeable_sLo
4091
4092	Rec {
4093	Data.Fixed.$fDataFixed [InlPrag=[ALWAYS] CONLIKE]
4094	:: forall a_ahq.
4095	Data.Typeable.Internal.Typeable a_ahq =>
4096	Data.Data.Data (Data.Fixed.Fixed a_ahq)
4097	[GblId[DFunId], Arity=1, Unf=OtherCon []]
4098	Data.Fixed.$fDataFixed =
4099	\ (@ a_ahq)
4100	($dTypeable_sLq :: Data.Typeable.Internal.Typeable a_ahq) ->
4101	let {
4102	sat_sTr [Occ=Once]
4103	:: forall (m_aD0 :: * -> *).
4104	Control.Monad.MonadPlus m_aD0 =>
4105	(forall d_aD1. Data.Data.Data d_aD1 => d_aD1 -> m_aD0 d_aD1)
4106	-> Data.Fixed.Fixed a_ahq -> m_aD0 (Data.Fixed.Fixed a_ahq)
4107	[LclId]
4108	sat_sTr = $cgmapMo_rGU @ a_ahq $dTypeable_sLq } in
4109	let {
4110	sat_sTs [Occ=Once]
4111	:: forall (m_aCW :: * -> *).
4112	Control.Monad.MonadPlus m_aCW =>
4113	(forall d_aCX. Data.Data.Data d_aCX => d_aCX -> m_aCW d_aCX)
4114	-> Data.Fixed.Fixed a_ahq -> m_aCW (Data.Fixed.Fixed a_ahq)
4115	[LclId]
4116	sat_sTs = $cgmapMp_rGV @ a_ahq $dTypeable_sLq } in
4117	let {
4118	sat_sTt [Occ=Once]
4119	:: forall (m_aCS :: * -> *).
4120	GHC.Base.Monad m_aCS =>
4121	(forall d_aCT. Data.Data.Data d_aCT => d_aCT -> m_aCS d_aCT)
4122	-> Data.Fixed.Fixed a_ahq -> m_aCS (Data.Fixed.Fixed a_ahq)
4123	[LclId]
4124	sat_sTt = $cgmapM_rGW @ a_ahq $dTypeable_sLq } in
4125	let {
4126	sat_sTu [Occ=Once]
4127	:: forall u_aCQ.
4128	GHC.Types.Int
4129	-> (forall d_aCR. Data.Data.Data d_aCR => d_aCR -> u_aCQ)
4130	-> Data.Fixed.Fixed a_ahq
4131	-> u_aCQ
4132	[LclId]
4133	sat_sTu = $cgmapQi_rGX @ a_ahq $dTypeable_sLq } in
4134	let {
4135	sat_sTv [Occ=Once]
4136	:: forall u_aCO.
4137	(forall d_aCP. Data.Data.Data d_aCP => d_aCP -> u_aCO)
4138	-> Data.Fixed.Fixed a_ahq -> [u_aCO]
4139	[LclId]
4140	sat_sTv = $cgmapQ_rGY @ a_ahq $dTypeable_sLq } in
4141	let {
4142	sat_sTw [Occ=Once]
4143	:: forall r_aCL r'_aCM.
4144	(r'_aCM -> r_aCL -> r_aCL)
4145	-> r_aCL
4146	-> (forall d_aCN. Data.Data.Data d_aCN => d_aCN -> r'_aCM)
4147	-> Data.Fixed.Fixed a_ahq
4148	-> r_aCL
4149	[LclId]
4150	sat_sTw = $cgmapQr_rGZ @ a_ahq $dTypeable_sLq } in
4151	let {
4152	sat_sTx [Occ=Once]
4153	:: forall r_aCI r'_aCJ.
4154	(r_aCI -> r'_aCJ -> r_aCI)
4155	-> r_aCI
4156	-> (forall d_aCK. Data.Data.Data d_aCK => d_aCK -> r'_aCJ)
4157	-> Data.Fixed.Fixed a_ahq
4158	-> r_aCI
4159	[LclId]
4160	sat_sTx = $cgmapQl_rH0 @ a_ahq $dTypeable_sLq } in
4161	let {
4162	sat_sTy [Occ=Once]
4163	:: (forall b_aCH. Data.Data.Data b_aCH => b_aCH -> b_aCH)
4164	-> Data.Fixed.Fixed a_ahq -> Data.Fixed.Fixed a_ahq
4165	[LclId]
4166	sat_sTy = $cgmapT_rH1 @ a_ahq $dTypeable_sLq } in
4167	let {
4168	sat_sTz [Occ=Once]
4169	:: forall (t_aCB :: * -> * -> ) (c_aCC :: -> *).
4170	Data.Typeable.Internal.Typeable2 t_aCB =>
4171	(forall d_aCD e_aCE.
4172	(Data.Data.Data d_aCD, Data.Data.Data e_aCE) =>
4173	c_aCC (t_aCB d_aCD e_aCE))
4174	-> Data.Maybe.Maybe (c_aCC (Data.Fixed.Fixed a_ahq))
4175	[LclId]
4176	sat_sTz = $cdataCast2_rH2 @ a_ahq $dTypeable_sLq } in
4177	let {
4178	sat_sTA [Occ=Once]
4179	:: forall (t_aCr :: * -> ) (c_aCs :: -> *).
4180	Data.Typeable.Internal.Typeable1 t_aCr =>
4181	(forall d_aCt. Data.Data.Data d_aCt => c_aCs (t_aCr d_aCt))
4182	-> Data.Maybe.Maybe (c_aCs (Data.Fixed.Fixed a_ahq))
4183	[LclId]
4184	sat_sTA = $cdataCast1_rH3 @ a_ahq $dTypeable_sLq } in
4185	let {
4186	sat_sTB [Occ=Once] :: Data.Fixed.Fixed a_ahq -> Data.Data.DataType
4187	[LclId]
4188	sat_sTB = \ _ -> tyFixed_rbJ } in
4189	let {
4190	sat_sTC [Occ=Once] :: Data.Fixed.Fixed a_ahq -> Data.Data.Constr
4191	[LclId]
4192	sat_sTC = \ _ -> conMkFixed_rbK } in
4193	let {
4194	sat_sTD [Occ=Once]
4195	:: forall (c_ayg :: * -> *).
4196	(forall b_ayh r_ayi.
4197	Data.Data.Data b_ayh =>
4198	c_ayg (b_ayh -> r_ayi) -> c_ayg r_ayi)
4199	-> (forall r_ayj. r_ayj -> c_ayg r_ayj)
4200	-> Data.Data.Constr
4201	-> c_ayg (Data.Fixed.Fixed a_ahq)
4202	[LclId]
4203	sat_sTD =
4204	\ (@ c_ayg::* -> *)
4205	(eta_B3 [Occ=Once]
4206	:: forall b_ayh r_ayi.
4207	Data.Data.Data b_ayh =>
4208	c_ayg (b_ayh -> r_ayi) -> c_ayg r_ayi)
4209	(eta_B2 [Occ=Once] :: forall r_ayj. r_ayj -> c_ayg r_ayj)
4210	(eta_B1 [Occ=Once] :: Data.Data.Constr) ->
4211	$cgunfold_rFZ
4212	@ a_ahq $dTypeable_sLq @ c_ayg eta_B3 eta_B2 eta_B1 } in
4213	let {
4214	sat_sTE [Occ=Once]
4215	:: forall (c_ay5 :: * -> *).
4216	(forall d_ay6 b_ay7.
4217	Data.Data.Data d_ay6 =>
4218	c_ay5 (d_ay6 -> b_ay7) -> d_ay6 -> c_ay5 b_ay7)
4219	-> (forall g_ay8. g_ay8 -> c_ay5 g_ay8)
4220	-> Data.Fixed.Fixed a_ahq
4221	-> c_ay5 (Data.Fixed.Fixed a_ahq)
4222	[LclId]
4223	sat_sTE =
4224	\ (@ c_ay5::* -> *)
4225	(eta_B3 [Occ=Once]
4226	:: forall d_ay6 b_ay7.
4227	Data.Data.Data d_ay6 =>
4228	c_ay5 (d_ay6 -> b_ay7) -> d_ay6 -> c_ay5 b_ay7)
4229	(eta_B2 [Occ=Once] :: forall g_ay8. g_ay8 -> c_ay5 g_ay8)
4230	(eta_B1 [Occ=Once] :: Data.Fixed.Fixed a_ahq) ->
4231	$cgfoldl_rG0
4232	@ a_ahq $dTypeable_sLq @ c_ay5 eta_B3 eta_B2 eta_B1 } in
4233	let {
4234	sat_sTq [Occ=Once]
4235	:: Data.Typeable.Internal.Typeable (Data.Fixed.Fixed a_ahq)
4236	[LclId]
4237	sat_sTq = $c$p1Data_rGT @ a_ahq $dTypeable_sLq } in
4238	Data.Data.D:Data
4239	@ (Data.Fixed.Fixed a_ahq)
4240	sat_sTq
4241	sat_sTE
4242	sat_sTD
4243	sat_sTC
4244	sat_sTB
4245	sat_sTA
4246	sat_sTz
4247	sat_sTy
4248	sat_sTx
4249	sat_sTw
4250	sat_sTv
4251	sat_sTu
4252	sat_sTt
4253	sat_sTs
4254	sat_sTr
4255
4256	$cgmapMo_rGU
4257	:: forall a_ahq.
4258	Data.Typeable.Internal.Typeable a_ahq =>
4259	forall (m_aD0 :: * -> *).
4260	Control.Monad.MonadPlus m_aD0 =>
4261	(forall d_aD1. Data.Data.Data d_aD1 => d_aD1 -> m_aD0 d_aD1)
4262	-> Data.Fixed.Fixed a_ahq -> m_aD0 (Data.Fixed.Fixed a_ahq)
4263	[GblId, Arity=1, Unf=OtherCon []]
4264	$cgmapMo_rGU =
4265	\ (@ a_ahq)
4266	($dTypeable_sLL [Occ=Once]
4267	:: Data.Typeable.Internal.Typeable a_ahq) ->
4268	let {
4269	sat_sTF [Occ=Once] :: Data.Data.Data (Data.Fixed.Fixed a_ahq)
4270	[LclId]
4271	sat_sTF = Data.Fixed.$fDataFixed @ a_ahq $dTypeable_sLL } in
4272	Data.Data.$dmgmapMo @ (Data.Fixed.Fixed a_ahq) sat_sTF
4273
4274	$cgmapMp_rGV
4275	:: forall a_ahq.
4276	Data.Typeable.Internal.Typeable a_ahq =>
4277	forall (m_aCW :: * -> *).
4278	Control.Monad.MonadPlus m_aCW =>
4279	(forall d_aCX. Data.Data.Data d_aCX => d_aCX -> m_aCW d_aCX)
4280	-> Data.Fixed.Fixed a_ahq -> m_aCW (Data.Fixed.Fixed a_ahq)
4281	[GblId, Arity=1, Unf=OtherCon []]
4282	$cgmapMp_rGV =
4283	\ (@ a_ahq)
4284	($dTypeable_sLO [Occ=Once]
4285	:: Data.Typeable.Internal.Typeable a_ahq) ->
4286	let {
4287	sat_sTG [Occ=Once] :: Data.Data.Data (Data.Fixed.Fixed a_ahq)
4288	[LclId]
4289	sat_sTG = Data.Fixed.$fDataFixed @ a_ahq $dTypeable_sLO } in
4290	Data.Data.$dmgmapMp @ (Data.Fixed.Fixed a_ahq) sat_sTG
4291
4292	$cgmapM_rGW
4293	:: forall a_ahq.
4294	Data.Typeable.Internal.Typeable a_ahq =>
4295	forall (m_aCS :: * -> *).
4296	GHC.Base.Monad m_aCS =>
4297	(forall d_aCT. Data.Data.Data d_aCT => d_aCT -> m_aCS d_aCT)
4298	-> Data.Fixed.Fixed a_ahq -> m_aCS (Data.Fixed.Fixed a_ahq)
4299	[GblId, Arity=1, Unf=OtherCon []]
4300	$cgmapM_rGW =
4301	\ (@ a_ahq)
4302	($dTypeable_sLR [Occ=Once]
4303	:: Data.Typeable.Internal.Typeable a_ahq) ->
4304	let {
4305	sat_sTH [Occ=Once] :: Data.Data.Data (Data.Fixed.Fixed a_ahq)
4306	[LclId]
4307	sat_sTH = Data.Fixed.$fDataFixed @ a_ahq $dTypeable_sLR } in
4308	Data.Data.$dmgmapM @ (Data.Fixed.Fixed a_ahq) sat_sTH
4309
4310	$cgmapQi_rGX
4311	:: forall a_ahq.
4312	Data.Typeable.Internal.Typeable a_ahq =>
4313	forall u_aCQ.
4314	GHC.Types.Int
4315	-> (forall d_aCR. Data.Data.Data d_aCR => d_aCR -> u_aCQ)
4316	-> Data.Fixed.Fixed a_ahq
4317	-> u_aCQ
4318	[GblId, Arity=1, Unf=OtherCon []]
4319	$cgmapQi_rGX =
4320	\ (@ a_ahq)
4321	($dTypeable_sLU [Occ=Once]
4322	:: Data.Typeable.Internal.Typeable a_ahq) ->
4323	let {
4324	sat_sTI [Occ=Once] :: Data.Data.Data (Data.Fixed.Fixed a_ahq)
4325	[LclId]
4326	sat_sTI = Data.Fixed.$fDataFixed @ a_ahq $dTypeable_sLU } in
4327	Data.Data.$dmgmapQi @ (Data.Fixed.Fixed a_ahq) sat_sTI
4328
4329	$cgmapQ_rGY
4330	:: forall a_ahq.
4331	Data.Typeable.Internal.Typeable a_ahq =>
4332	forall u_aCO.
4333	(forall d_aCP. Data.Data.Data d_aCP => d_aCP -> u_aCO)
4334	-> Data.Fixed.Fixed a_ahq -> [u_aCO]
4335	[GblId, Arity=1, Unf=OtherCon []]
4336	$cgmapQ_rGY =
4337	\ (@ a_ahq)
4338	($dTypeable_sLX [Occ=Once]
4339	:: Data.Typeable.Internal.Typeable a_ahq) ->
4340	let {
4341	sat_sTJ [Occ=Once] :: Data.Data.Data (Data.Fixed.Fixed a_ahq)
4342	[LclId]
4343	sat_sTJ = Data.Fixed.$fDataFixed @ a_ahq $dTypeable_sLX } in
4344	Data.Data.$dmgmapQ @ (Data.Fixed.Fixed a_ahq) sat_sTJ
4345
4346	$cgmapQr_rGZ
4347	:: forall a_ahq.
4348	Data.Typeable.Internal.Typeable a_ahq =>
4349	forall r_aCL r'_aCM.
4350	(r'_aCM -> r_aCL -> r_aCL)
4351	-> r_aCL
4352	-> (forall d_aCN. Data.Data.Data d_aCN => d_aCN -> r'_aCM)
4353	-> Data.Fixed.Fixed a_ahq
4354	-> r_aCL
4355	[GblId, Arity=1, Unf=OtherCon []]
4356	$cgmapQr_rGZ =
4357	\ (@ a_ahq)
4358	($dTypeable_sM0 [Occ=Once]
4359	:: Data.Typeable.Internal.Typeable a_ahq) ->
4360	let {
4361	sat_sTK [Occ=Once] :: Data.Data.Data (Data.Fixed.Fixed a_ahq)
4362	[LclId]
4363	sat_sTK = Data.Fixed.$fDataFixed @ a_ahq $dTypeable_sM0 } in
4364	Data.Data.$dmgmapQr @ (Data.Fixed.Fixed a_ahq) sat_sTK
4365
4366	$cgmapQl_rH0
4367	:: forall a_ahq.
4368	Data.Typeable.Internal.Typeable a_ahq =>
4369	forall r_aCI r'_aCJ.
4370	(r_aCI -> r'_aCJ -> r_aCI)
4371	-> r_aCI
4372	-> (forall d_aCK. Data.Data.Data d_aCK => d_aCK -> r'_aCJ)
4373	-> Data.Fixed.Fixed a_ahq
4374	-> r_aCI
4375	[GblId, Arity=1, Unf=OtherCon []]
4376	$cgmapQl_rH0 =
4377	\ (@ a_ahq)
4378	($dTypeable_sM3 [Occ=Once]
4379	:: Data.Typeable.Internal.Typeable a_ahq) ->
4380	let {
4381	sat_sTL [Occ=Once] :: Data.Data.Data (Data.Fixed.Fixed a_ahq)
4382	[LclId]
4383	sat_sTL = Data.Fixed.$fDataFixed @ a_ahq $dTypeable_sM3 } in
4384	Data.Data.$dmgmapQl @ (Data.Fixed.Fixed a_ahq) sat_sTL
4385
4386	$cgmapT_rH1
4387	:: forall a_ahq.
4388	Data.Typeable.Internal.Typeable a_ahq =>
4389	(forall b_aCH. Data.Data.Data b_aCH => b_aCH -> b_aCH)
4390	-> Data.Fixed.Fixed a_ahq -> Data.Fixed.Fixed a_ahq
4391	[GblId, Arity=1, Unf=OtherCon []]
4392	$cgmapT_rH1 =
4393	\ (@ a_ahq)
4394	($dTypeable_sM6 [Occ=Once]
4395	:: Data.Typeable.Internal.Typeable a_ahq) ->
4396	let {
4397	sat_sTM [Occ=Once] :: Data.Data.Data (Data.Fixed.Fixed a_ahq)
4398	[LclId]
4399	sat_sTM = Data.Fixed.$fDataFixed @ a_ahq $dTypeable_sM6 } in
4400	Data.Data.$dmgmapT @ (Data.Fixed.Fixed a_ahq) sat_sTM
4401
4402	$cdataCast2_rH2
4403	:: forall a_ahq.
4404	Data.Typeable.Internal.Typeable a_ahq =>
4405	forall (t_aCB :: * -> * -> ) (c_aCC :: -> *).
4406	Data.Typeable.Internal.Typeable2 t_aCB =>
4407	(forall d_aCD e_aCE.
4408	(Data.Data.Data d_aCD, Data.Data.Data e_aCE) =>
4409	c_aCC (t_aCB d_aCD e_aCE))
4410	-> Data.Maybe.Maybe (c_aCC (Data.Fixed.Fixed a_ahq))
4411	[GblId, Arity=1, Unf=OtherCon []]
4412	$cdataCast2_rH2 =
4413	\ (@ a_ahq)
4414	($dTypeable_sM9 [Occ=Once]
4415	:: Data.Typeable.Internal.Typeable a_ahq) ->
4416	let {
4417	sat_sTN [Occ=Once] :: Data.Data.Data (Data.Fixed.Fixed a_ahq)
4418	[LclId]
4419	sat_sTN = Data.Fixed.$fDataFixed @ a_ahq $dTypeable_sM9 } in
4420	Data.Data.$dmdataCast2 @ (Data.Fixed.Fixed a_ahq) sat_sTN
4421
4422	$cdataCast1_rH3
4423	:: forall a_ahq.
4424	Data.Typeable.Internal.Typeable a_ahq =>
4425	forall (t_aCr :: * -> ) (c_aCs :: -> *).
4426	Data.Typeable.Internal.Typeable1 t_aCr =>
4427	(forall d_aCt. Data.Data.Data d_aCt => c_aCs (t_aCr d_aCt))
4428	-> Data.Maybe.Maybe (c_aCs (Data.Fixed.Fixed a_ahq))
4429	[GblId, Arity=1, Unf=OtherCon []]
4430	$cdataCast1_rH3 =
4431	\ (@ a_ahq)
4432	($dTypeable_sMc [Occ=Once]
4433	:: Data.Typeable.Internal.Typeable a_ahq) ->
4434	let {
4435	sat_sTO [Occ=Once] :: Data.Data.Data (Data.Fixed.Fixed a_ahq)
4436	[LclId]
4437	sat_sTO = Data.Fixed.$fDataFixed @ a_ahq $dTypeable_sMc } in
4438	Data.Data.$dmdataCast1 @ (Data.Fixed.Fixed a_ahq) sat_sTO
4439	end Rec }
4440
4441	$ctypeOf_rH4 :: Data.Fixed.E9 -> Data.Typeable.Internal.TypeRep
4442	[GblId, Arity=1, Unf=OtherCon []]
4443	$ctypeOf_rH4 =
4444	\ _ ->
4445	let {
4446	sat_sTP [Occ=Once] :: Data.Typeable.Internal.TyCon
4447	[LclId]
4448	sat_sTP =
4449	let {
4450	sat_sMi [Occ=Once] :: GHC.Base.String
4451	[LclId]
4452	sat_sMi = GHC.CString.unpackCString# "E9" } in
4453	let {
4454	sat_sMk [Occ=Once] :: GHC.Base.String
4455	[LclId]
4456	sat_sMk = GHC.CString.unpackCString# "Data.Fixed" } in
4457	let {
4458	sat_sMj [Occ=Once] :: GHC.Base.String
4459	[LclId]
4460	sat_sMj = GHC.CString.unpackCString# "base" } in
4461	Data.Typeable.Internal.mkTyCon
4462	__word64 15570456028367132479
4463	__word64 4914954968114546561
4464	sat_sMj
4465	sat_sMk
4466	sat_sMi } in
4467	Data.Typeable.Internal.mkTyConApp
4468	sat_sTP (GHC.Types.[] @ Data.Typeable.Internal.TypeRep)
4469
4470	Data.Fixed.$fTypeableE9 [InlPrag=INLINE (sat-args=0)]
4471	:: Data.Typeable.Internal.Typeable Data.Fixed.E9
4472	[GblId[DFunId(nt)], Unf=OtherCon []]
4473	Data.Fixed.$fTypeableE9 =
4474	$ctypeOf_rH4
4475	`cast` (Sym (Data.Typeable.Internal.NTCo:Typeable <Data.Fixed.E9>)
4476	:: (Data.Fixed.E9 -> Data.Typeable.Internal.TypeRep)
4477	~
4478	Data.Typeable.Internal.Typeable Data.Fixed.E9)
4479
4480	$ctypeOf2_rH5 :: Data.Fixed.E6 -> Data.Typeable.Internal.TypeRep
4481	[GblId, Arity=1, Unf=OtherCon []]
4482	$ctypeOf2_rH5 =
4483	\ _ ->
4484	let {
4485	sat_sTQ [Occ=Once] :: Data.Typeable.Internal.TyCon
4486	[LclId]
4487	sat_sTQ =
4488	let {
4489	sat_sMr [Occ=Once] :: GHC.Base.String
4490	[LclId]
4491	sat_sMr = GHC.CString.unpackCString# "E6" } in
4492	let {
4493	sat_sMt [Occ=Once] :: GHC.Base.String
4494	[LclId]
4495	sat_sMt = GHC.CString.unpackCString# "Data.Fixed" } in
4496	let {
4497	sat_sMs [Occ=Once] :: GHC.Base.String
4498	[LclId]
4499	sat_sMs = GHC.CString.unpackCString# "base" } in
4500	Data.Typeable.Internal.mkTyCon
4501	__word64 11048415573138885452
4502	__word64 1217778767540836678
4503	sat_sMs
4504	sat_sMt
4505	sat_sMr } in
4506	Data.Typeable.Internal.mkTyConApp
4507	sat_sTQ (GHC.Types.[] @ Data.Typeable.Internal.TypeRep)
4508
4509	Data.Fixed.$fTypeableE6 [InlPrag=INLINE (sat-args=0)]
4510	:: Data.Typeable.Internal.Typeable Data.Fixed.E6
4511	[GblId[DFunId(nt)], Unf=OtherCon []]
4512	Data.Fixed.$fTypeableE6 =
4513	$ctypeOf2_rH5
4514	`cast` (Sym (Data.Typeable.Internal.NTCo:Typeable <Data.Fixed.E6>)
4515	:: (Data.Fixed.E6 -> Data.Typeable.Internal.TypeRep)
4516	~
4517	Data.Typeable.Internal.Typeable Data.Fixed.E6)
4518
4519	$ctypeOf3_rH6 :: Data.Fixed.E3 -> Data.Typeable.Internal.TypeRep
4520	[GblId, Arity=1, Unf=OtherCon []]
4521	$ctypeOf3_rH6 =
4522	\ _ ->
4523	let {
4524	sat_sTR [Occ=Once] :: Data.Typeable.Internal.TyCon
4525	[LclId]
4526	sat_sTR =
4527	let {
4528	sat_sMA [Occ=Once] :: GHC.Base.String
4529	[LclId]
4530	sat_sMA = GHC.CString.unpackCString# "E3" } in
4531	let {
4532	sat_sMC [Occ=Once] :: GHC.Base.String
4533	[LclId]
4534	sat_sMC = GHC.CString.unpackCString# "Data.Fixed" } in
4535	let {
4536	sat_sMB [Occ=Once] :: GHC.Base.String
4537	[LclId]
4538	sat_sMB = GHC.CString.unpackCString# "base" } in
4539	Data.Typeable.Internal.mkTyCon
4540	__word64 13298396492034960756
4541	__word64 1749862863353200892
4542	sat_sMB
4543	sat_sMC
4544	sat_sMA } in
4545	Data.Typeable.Internal.mkTyConApp
4546	sat_sTR (GHC.Types.[] @ Data.Typeable.Internal.TypeRep)
4547
4548	Data.Fixed.$fTypeableE3 [InlPrag=INLINE (sat-args=0)]
4549	:: Data.Typeable.Internal.Typeable Data.Fixed.E3
4550	[GblId[DFunId(nt)], Unf=OtherCon []]
4551	Data.Fixed.$fTypeableE3 =
4552	$ctypeOf3_rH6
4553	`cast` (Sym (Data.Typeable.Internal.NTCo:Typeable <Data.Fixed.E3>)
4554	:: (Data.Fixed.E3 -> Data.Typeable.Internal.TypeRep)
4555	~
4556	Data.Typeable.Internal.Typeable Data.Fixed.E3)
4557
4558	$ctypeOf4_rH7 :: Data.Fixed.E2 -> Data.Typeable.Internal.TypeRep
4559	[GblId, Arity=1, Unf=OtherCon []]
4560	$ctypeOf4_rH7 =
4561	\ _ ->
4562	let {
4563	sat_sTS [Occ=Once] :: Data.Typeable.Internal.TyCon
4564	[LclId]
4565	sat_sTS =
4566	let {
4567	sat_sMJ [Occ=Once] :: GHC.Base.String
4568	[LclId]
4569	sat_sMJ = GHC.CString.unpackCString# "E2" } in
4570	let {
4571	sat_sML [Occ=Once] :: GHC.Base.String
4572	[LclId]
4573	sat_sML = GHC.CString.unpackCString# "Data.Fixed" } in
4574	let {
4575	sat_sMK [Occ=Once] :: GHC.Base.String
4576	[LclId]
4577	sat_sMK = GHC.CString.unpackCString# "base" } in
4578	Data.Typeable.Internal.mkTyCon
4579	__word64 8989219525033637755
4580	__word64 13661419010171873568
4581	sat_sMK
4582	sat_sML
4583	sat_sMJ } in
4584	Data.Typeable.Internal.mkTyConApp
4585	sat_sTS (GHC.Types.[] @ Data.Typeable.Internal.TypeRep)
4586
4587	Data.Fixed.$fTypeableE2 [InlPrag=INLINE (sat-args=0)]
4588	:: Data.Typeable.Internal.Typeable Data.Fixed.E2
4589	[GblId[DFunId(nt)], Unf=OtherCon []]
4590	Data.Fixed.$fTypeableE2 =
4591	$ctypeOf4_rH7
4592	`cast` (Sym (Data.Typeable.Internal.NTCo:Typeable <Data.Fixed.E2>)
4593	:: (Data.Fixed.E2 -> Data.Typeable.Internal.TypeRep)
4594	~
4595	Data.Typeable.Internal.Typeable Data.Fixed.E2)
4596
4597	$ctypeOf5_rH8 :: Data.Fixed.E12 -> Data.Typeable.Internal.TypeRep
4598	[GblId, Arity=1, Unf=OtherCon []]
4599	$ctypeOf5_rH8 =
4600	\ _ ->
4601	let {
4602	sat_sTT [Occ=Once] :: Data.Typeable.Internal.TyCon
4603	[LclId]
4604	sat_sTT =
4605	let {
4606	sat_sMS [Occ=Once] :: GHC.Base.String
4607	[LclId]
4608	sat_sMS = GHC.CString.unpackCString# "E12" } in
4609	let {
4610	sat_sMU [Occ=Once] :: GHC.Base.String
4611	[LclId]
4612	sat_sMU = GHC.CString.unpackCString# "Data.Fixed" } in
4613	let {
4614	sat_sMT [Occ=Once] :: GHC.Base.String
4615	[LclId]
4616	sat_sMT = GHC.CString.unpackCString# "base" } in
4617	Data.Typeable.Internal.mkTyCon
4618	__word64 9075049927748704200
4619	__word64 8344311484273083929
4620	sat_sMT
4621	sat_sMU
4622	sat_sMS } in
4623	Data.Typeable.Internal.mkTyConApp
4624	sat_sTT (GHC.Types.[] @ Data.Typeable.Internal.TypeRep)
4625
4626	Data.Fixed.$fTypeableE12 [InlPrag=INLINE (sat-args=0)]
4627	:: Data.Typeable.Internal.Typeable Data.Fixed.E12
4628	[GblId[DFunId(nt)], Unf=OtherCon []]
4629	Data.Fixed.$fTypeableE12 =
4630	$ctypeOf5_rH8
4631	`cast` (Sym (Data.Typeable.Internal.NTCo:Typeable <Data.Fixed.E12>)
4632	:: (Data.Fixed.E12 -> Data.Typeable.Internal.TypeRep)
4633	~
4634	Data.Typeable.Internal.Typeable Data.Fixed.E12)
4635
4636	$ctypeOf6_rH9 :: Data.Fixed.E1 -> Data.Typeable.Internal.TypeRep
4637	[GblId, Arity=1, Unf=OtherCon []]
4638	$ctypeOf6_rH9 =
4639	\ _ ->
4640	let {
4641	sat_sTU [Occ=Once] :: Data.Typeable.Internal.TyCon
4642	[LclId]
4643	sat_sTU =
4644	let {
4645	sat_sN1 [Occ=Once] :: GHC.Base.String
4646	[LclId]
4647	sat_sN1 = GHC.CString.unpackCString# "E1" } in
4648	let {
4649	sat_sN3 [Occ=Once] :: GHC.Base.String
4650	[LclId]
4651	sat_sN3 = GHC.CString.unpackCString# "Data.Fixed" } in
4652	let {
4653	sat_sN2 [Occ=Once] :: GHC.Base.String
4654	[LclId]
4655	sat_sN2 = GHC.CString.unpackCString# "base" } in
4656	Data.Typeable.Internal.mkTyCon
4657	__word64 16638603867001532453
4658	__word64 10347644405225028637
4659	sat_sN2
4660	sat_sN3
4661	sat_sN1 } in
4662	Data.Typeable.Internal.mkTyConApp
4663	sat_sTU (GHC.Types.[] @ Data.Typeable.Internal.TypeRep)
4664
4665	Data.Fixed.$fTypeableE1 [InlPrag=INLINE (sat-args=0)]
4666	:: Data.Typeable.Internal.Typeable Data.Fixed.E1
4667	[GblId[DFunId(nt)], Unf=OtherCon []]
4668	Data.Fixed.$fTypeableE1 =
4669	$ctypeOf6_rH9
4670	`cast` (Sym (Data.Typeable.Internal.NTCo:Typeable <Data.Fixed.E1>)
4671	:: (Data.Fixed.E1 -> Data.Typeable.Internal.TypeRep)
4672	~
4673	Data.Typeable.Internal.Typeable Data.Fixed.E1)
4674
4675	$ctypeOf7_rHa :: Data.Fixed.E0 -> Data.Typeable.Internal.TypeRep
4676	[GblId, Arity=1, Unf=OtherCon []]
4677	$ctypeOf7_rHa =
4678	\ _ ->
4679	let {
4680	sat_sTV [Occ=Once] :: Data.Typeable.Internal.TyCon
4681	[LclId]
4682	sat_sTV =
4683	let {
4684	sat_sNa [Occ=Once] :: GHC.Base.String
4685	[LclId]
4686	sat_sNa = GHC.CString.unpackCString# "E0" } in
4687	let {
4688	sat_sNc [Occ=Once] :: GHC.Base.String
4689	[LclId]
4690	sat_sNc = GHC.CString.unpackCString# "Data.Fixed" } in
4691	let {
4692	sat_sNb [Occ=Once] :: GHC.Base.String
4693	[LclId]
4694	sat_sNb = GHC.CString.unpackCString# "base" } in
4695	Data.Typeable.Internal.mkTyCon
4696	__word64 12015880189365713514
4697	__word64 15325664370360632505
4698	sat_sNb
4699	sat_sNc
4700	sat_sNa } in
4701	Data.Typeable.Internal.mkTyConApp
4702	sat_sTV (GHC.Types.[] @ Data.Typeable.Internal.TypeRep)
4703
4704	Data.Fixed.$fTypeableE0 [InlPrag=INLINE (sat-args=0)]
4705	:: Data.Typeable.Internal.Typeable Data.Fixed.E0
4706	[GblId[DFunId(nt)], Unf=OtherCon []]
4707	Data.Fixed.$fTypeableE0 =
4708	$ctypeOf7_rHa
4709	`cast` (Sym (Data.Typeable.Internal.NTCo:Typeable <Data.Fixed.E0>)
4710	:: (Data.Fixed.E0 -> Data.Typeable.Internal.TypeRep)
4711	~
4712	Data.Typeable.Internal.Typeable Data.Fixed.E0)
4713
4714	Rec {
4715	chopZeros_rbN :: GHC.Integer.Type.Integer -> GHC.Base.String
4716	[GblId, Arity=1, Unf=OtherCon []]
4717	chopZeros_rbN =
4718	\ (ds_sNg :: GHC.Integer.Type.Integer) ->
4719	let {
4720	sat_sTW [Occ=Once] :: GHC.Integer.Type.Integer
4721	[LclId]
4722	sat_sTW = GHC.Integer.Type.S# 0 } in
4723	case GHC.Classes.==
4724	@ GHC.Integer.Type.Integer
4725	GHC.Integer.Type.$fEqInteger
4726	ds_sNg
4727	sat_sTW
4728	of _ {
4729	GHC.Types.False ->
4730	let {
4731	sat_sTY [Occ=Once] :: GHC.Integer.Type.Integer
4732	[LclId]
4733	sat_sTY = GHC.Integer.Type.S# 0 } in
4734	let {
4735	sat_sTZ [Occ=Once] :: GHC.Integer.Type.Integer
4736	[LclId]
4737	sat_sTZ =
4738	let {
4739	sat_sNk [Occ=Once] :: GHC.Integer.Type.Integer
4740	[LclId]
4741	sat_sNk = GHC.Integer.Type.S# 10 } in
4742	GHC.Real.mod
4743	@ GHC.Integer.Type.Integer
4744	GHC.Real.$fIntegralInteger
4745	ds_sNg
4746	sat_sNk } in
4747	case GHC.Classes.==
4748	@ GHC.Integer.Type.Integer
4749	GHC.Integer.Type.$fEqInteger
4750	sat_sTZ
4751	sat_sTY
4752	of _ {
4753	GHC.Types.False ->
4754	GHC.Show.show
4755	@ GHC.Integer.Type.Integer GHC.Num.$fShowInteger ds_sNg;
4756	GHC.Types.True ->
4757	let {
4758	sat_sU1 [Occ=Once] :: GHC.Integer.Type.Integer
4759	[LclId]
4760	sat_sU1 =
4761	let {
4762	sat_sNp [Occ=Once] :: GHC.Integer.Type.Integer
4763	[LclId]
4764	sat_sNp = GHC.Integer.Type.S# 10 } in
4765	GHC.Real.div
4766	@ GHC.Integer.Type.Integer
4767	GHC.Real.$fIntegralInteger
4768	ds_sNg
4769	sat_sNp } in
4770	chopZeros_rbN sat_sU1
4771	};
4772	GHC.Types.True -> GHC.Types.[] @ GHC.Types.Char
4773	}
4774	end Rec }
4775
4776	Rec {
4777	Data.Fixed.showFixed [Occ=LoopBreaker]
4778	:: forall a_abV.
4779	Data.Fixed.HasResolution a_abV =>
4780	GHC.Types.Bool -> Data.Fixed.Fixed a_abV -> GHC.Base.String
4781	[GblId, Arity=3, Unf=OtherCon []]
4782	Data.Fixed.showFixed =
4783	\ (@ a_aqP)
4784	($dHasResolution_sNy :: Data.Fixed.HasResolution a_aqP)
4785	(chopTrailingZeros_sOu :: GHC.Types.Bool)
4786	(fa_sNu :: Data.Fixed.Fixed a_aqP) ->
4787	let {
4788	sat_sU2 [Occ=Once] :: GHC.Integer.Type.Integer
4789	[LclId]
4790	sat_sU2 = GHC.Integer.Type.S# 0 } in
4791	case GHC.Classes.<
4792	@ GHC.Integer.Type.Integer
4793	GHC.Integer.Type.$fOrdInteger
4794	(fa_sNu
4795	`cast` (Data.Fixed.NTCo:Fixed <a_aqP>
4796	:: Data.Fixed.Fixed a_aqP ~ GHC.Integer.Type.Integer))
4797	sat_sU2
4798	of _ {
4799	GHC.Types.False ->
4800	let {
4801	res_sNz :: GHC.Integer.Type.Integer
4802	[LclId]
4803	res_sNz =
4804	($dHasResolution_sNy
4805	`cast` (Data.Fixed.NTCo:HasResolution <a_aqP>
4806	:: Data.Fixed.HasResolution a_aqP
4807	~
4808	(forall (p_abS :: * -> *).
4809	p_abS a_aqP -> GHC.Integer.Type.Integer)))
4810	@ Data.Fixed.Fixed fa_sNu } in
4811	let {
4812	ds_sNB :: (GHC.Integer.Type.Integer, GHC.Integer.Type.Integer)
4813	[LclId]
4814	ds_sNB =
4815	GHC.Real.divMod
4816	@ GHC.Integer.Type.Integer
4817	GHC.Real.$fIntegralInteger
4818	(fa_sNu
4819	`cast` (Data.Fixed.NTCo:Fixed <a_aqP>
4820	:: Data.Fixed.Fixed a_aqP ~ GHC.Integer.Type.Integer))
4821	res_sNz } in
4822	let {
4823	d_sNH :: GHC.Integer.Type.Integer
4824	[LclId]
4825	d_sNH = case ds_sNB of _ { (_, d1_sNG [Occ=Once]) -> d1_sNG } } in
4826	let {
4827	i_sNN :: GHC.Integer.Type.Integer
4828	[LclId]
4829	i_sNN = case ds_sNB of _ { (i1_sNM [Occ=Once], _) -> i1_sNM } } in
4830	let {
4831	ds1_sNP :: (GHC.Integer.Type.Integer, GHC.Integer.Type.Integer)
4832	[LclId, Unf=OtherCon []]
4833	ds1_sNP = (i_sNN, d_sNH) } in
4834	let {
4835	digits_sNX :: GHC.Types.Int
4836	[LclId]
4837	digits_sNX =
4838	let {
4839	sat_sNW [Occ=Once] :: GHC.Types.Double
4840	[LclId]
4841	sat_sNW =
4842	let {
4843	sat_sNT [Occ=Once] :: GHC.Types.Double
4844	[LclId]
4845	sat_sNT =
4846	GHC.Num.fromInteger
4847	@ GHC.Types.Double GHC.Float.$fNumDouble res_sNz } in
4848	let {
4849	sat_sNU [Occ=Once] :: GHC.Types.Double
4850	[LclId]
4851	sat_sNU = GHC.Types.D# 10.0 } in
4852	GHC.Float.logBase
4853	@ GHC.Types.Double GHC.Float.$fFloatingDouble sat_sNU sat_sNT } in
4854	GHC.Real.ceiling
4855	@ GHC.Types.Double
4856	GHC.Float.$fRealFracDouble
4857	@ GHC.Types.Int
4858	GHC.Real.$fIntegralInt
4859	sat_sNW } in
4860	let {
4861	sat_sU5 [Occ=Once] :: [GHC.Types.Char]
4862	[LclId]
4863	sat_sU5 =
4864	let {
4865	ds2_sOi :: GHC.Integer.Type.Integer
4866	[LclId]
4867	ds2_sOi =
4868	let {
4869	sat_sOh [Occ=Once] :: GHC.Integer.Type.Integer
4870	[LclId]
4871	sat_sOh =
4872	let {
4873	sat_sOe [Occ=Once] :: GHC.Integer.Type.Integer
4874	[LclId]
4875	sat_sOe =
4876	let {
4877	sat_sOc [Occ=Once] :: GHC.Integer.Type.Integer
4878	[LclId]
4879	sat_sOc = GHC.Integer.Type.S# 10 } in
4880	GHC.Real.^
4881	@ GHC.Integer.Type.Integer
4882	@ GHC.Types.Int
4883	GHC.Num.$fNumInteger
4884	GHC.Real.$fIntegralInt
4885	sat_sOc
4886	digits_sNX } in
4887	let {
4888	sat_sOf [Occ=Once] :: GHC.Integer.Type.Integer
4889	[LclId]
4890	sat_sOf =
4891	case ds1_sNP of _ { (_, d1_sO9 [Occ=Once]) -> d1_sO9 } } in
4892	GHC.Num.*
4893	@ GHC.Integer.Type.Integer
4894	GHC.Num.$fNumInteger
4895	sat_sOf
4896	sat_sOe } in
4897	GHC.Real.div
4898	@ GHC.Integer.Type.Integer
4899	GHC.Real.$fIntegralInteger
4900	sat_sOh
4901	res_sNz } in
4902	let {
4903	fail_sOy [Occ=Once*!]
4904	:: GHC.Prim.State# GHC.Prim.RealWorld -> [GHC.Types.Char]
4905	[LclId, Arity=1, Unf=OtherCon []]
4906	fail_sOy =
4907	\ _ ->
4908	let {
4909	s_sOm :: GHC.Base.String
4910	[LclId]
4911	s_sOm =
4912	GHC.Show.show
4913	@ GHC.Integer.Type.Integer GHC.Num.$fShowInteger ds2_sOi } in
4914	let {
4915	sat_sUi [Occ=Once] :: [GHC.Types.Char]
4916	[LclId]
4917	sat_sUi =
4918	case chopTrailingZeros_sOu of _ {
4919	GHC.Types.False -> s_sOm;
4920	GHC.Types.True -> chopZeros_rbN ds2_sOi
4921	} } in
4922	let {
4923	sat_sUh [Occ=Once] :: [GHC.Types.Char]
4924	[LclId]
4925	sat_sUh =
4926	let {
4927	sat_sOr [Occ=Once] :: GHC.Types.Char
4928	[LclId]
4929	sat_sOr = GHC.Types.C# '0' } in
4930	let {
4931	sat_sOs [Occ=Once] :: GHC.Types.Int
4932	[LclId]
4933	sat_sOs =
4934	let {
4935	sat_sOo [Occ=Once] :: GHC.Types.Int
4936	[LclId]
4937	sat_sOo = GHC.List.length @ GHC.Types.Char s_sOm } in
4938	GHC.Num.- @ GHC.Types.Int GHC.Num.$fNumInt digits_sNX sat_sOo } in
4939	GHC.List.replicate @ GHC.Types.Char sat_sOs sat_sOr } in
4940	GHC.Base.++ @ GHC.Types.Char sat_sUh sat_sUi } in
4941	case chopTrailingZeros_sOu of _ {
4942	GHC.Types.False ->
4943	case fail_sOy GHC.Prim.realWorld# of wild2_sOE {
4944	[] -> GHC.Types.[] @ GHC.Types.Char;
4945	: _ _ ->
4946	let {
4947	sat_sU9 [Occ=Once] :: GHC.Types.Char
4948	[LclId]
4949	sat_sU9 = GHC.Types.C# '.' } in
4950	GHC.Types.: @ GHC.Types.Char sat_sU9 wild2_sOE
4951	};
4952	GHC.Types.True ->
4953	let {
4954	sat_sUc [Occ=Once] :: GHC.Integer.Type.Integer
4955	[LclId]
4956	sat_sUc = GHC.Integer.Type.S# 0 } in
4957	case GHC.Classes.==
4958	@ GHC.Integer.Type.Integer
4959	GHC.Integer.Type.$fEqInteger
4960	ds2_sOi
4961	sat_sUc
4962	of _ {
4963	GHC.Types.False ->
4964	case fail_sOy GHC.Prim.realWorld# of wild3_sOL {
4965	[] -> GHC.Types.[] @ GHC.Types.Char;
4966	: _ _ ->
4967	let {
4968	sat_sUe [Occ=Once] :: GHC.Types.Char
4969	[LclId]
4970	sat_sUe = GHC.Types.C# '.' } in
4971	GHC.Types.: @ GHC.Types.Char sat_sUe wild3_sOL
4972	};
4973	GHC.Types.True -> GHC.Types.[] @ GHC.Types.Char
4974	}
4975	} } in
4976	let {
4977	sat_sU4 [Occ=Once] :: [GHC.Types.Char]
4978	[LclId]
4979	sat_sU4 =
4980	let {
4981	sat_sO3 [Occ=Once] :: GHC.Integer.Type.Integer
4982	[LclId]
4983	sat_sO3 =
4984	case ds1_sNP of _ { (i1_sO1 [Occ=Once], _) -> i1_sO1 } } in
4985	GHC.Show.show
4986	@ GHC.Integer.Type.Integer GHC.Num.$fShowInteger sat_sO3 } in
4987	GHC.Base.++ @ GHC.Types.Char sat_sU4 sat_sU5;
4988	GHC.Types.True ->
4989	let {
4990	sat_sUr [Occ=Once] :: [GHC.Types.Char]
4991	[LclId]
4992	sat_sUr =
4993	let {
4994	sat_sOT [Occ=Once] :: Data.Fixed.Fixed a_aqP
4995	[LclId]
4996	sat_sOT =
4997	let {
4998	sat_sOR [Occ=Once] :: Data.Fixed.Fixed a_aqP
4999	[LclId]
5000	sat_sOR =
5001	(GHC.Num.negate
5002	@ GHC.Integer.Type.Integer
5003	GHC.Num.$fNumInteger
5004	(fa_sNu
5005	`cast` (Data.Fixed.NTCo:Fixed <a_aqP>
5006	:: Data.Fixed.Fixed a_aqP ~ GHC.Integer.Type.Integer)))
5007	`cast` (Sym (Data.Fixed.NTCo:Fixed <a_aqP>)
5008	:: GHC.Integer.Type.Integer ~ Data.Fixed.Fixed a_aqP) } in
5009	GHC.Base.asTypeOf @ (Data.Fixed.Fixed a_aqP) sat_sOR fa_sNu } in
5010	Data.Fixed.showFixed
5011	@ a_aqP $dHasResolution_sNy chopTrailingZeros_sOu sat_sOT } in
5012	let {
5013	sat_sOO [Occ=Once] :: GHC.Types.Char
5014	[LclId]
5015	sat_sOO = GHC.Types.C# '-' } in
5016	let {
5017	sat_sUq [Occ=Once] :: [GHC.Types.Char]
5018	[LclId]
5019	sat_sUq =
5020	GHC.Types.:
5021	@ GHC.Types.Char sat_sOO (GHC.Types.[] @ GHC.Types.Char) } in
5022	GHC.Base.++ @ GHC.Types.Char sat_sUq sat_sUr
5023	}
5024	end Rec }
5025
5026	$cshow_rHb
5027	:: forall a_agH.
5028	Data.Fixed.HasResolution a_agH =>
5029	Data.Fixed.Fixed a_agH -> GHC.Base.String
5030	[GblId, Arity=2, Unf=OtherCon []]
5031	$cshow_rHb =
5032	\ (@ a_agH)
5033	($dHasResolution_sOX [Occ=Once] :: Data.Fixed.HasResolution a_agH)
5034	(eta_sOY [Occ=Once] :: Data.Fixed.Fixed a_agH) ->
5035	Data.Fixed.showFixed
5036	@ a_agH $dHasResolution_sOX GHC.Types.False eta_sOY
5037
5038	Rec {
5039	Data.Fixed.$fShowFixed [InlPrag=[ALWAYS] CONLIKE]
5040	:: forall a_agH.
5041	Data.Fixed.HasResolution a_agH =>
5042	GHC.Show.Show (Data.Fixed.Fixed a_agH)
5043	[GblId[DFunId], Arity=1, Unf=OtherCon []]
5044	Data.Fixed.$fShowFixed =
5045	\ (@ a_agH)
5046	($dHasResolution_sP0 :: Data.Fixed.HasResolution a_agH) ->
5047	let {
5048	sat_sUt [Occ=Once] :: [Data.Fixed.Fixed a_agH] -> GHC.Show.ShowS
5049	[LclId]
5050	sat_sUt = $cshowList_rHc @ a_agH $dHasResolution_sP0 } in
5051	let {
5052	sat_sUu [Occ=Once] :: Data.Fixed.Fixed a_agH -> GHC.Base.String
5053	[LclId]
5054	sat_sUu =
5055	\ (eta_B1 [Occ=Once] :: Data.Fixed.Fixed a_agH) ->
5056	$cshow_rHb @ a_agH $dHasResolution_sP0 eta_B1 } in
5057	let {
5058	sat_sUs [Occ=Once]
5059	:: GHC.Types.Int -> Data.Fixed.Fixed a_agH -> GHC.Show.ShowS
5060	[LclId]
5061	sat_sUs = $cshowsPrec_rHd @ a_agH $dHasResolution_sP0 } in
5062	GHC.Show.D:Show @ (Data.Fixed.Fixed a_agH) sat_sUs sat_sUu sat_sUt
5063
5064	$cshowList_rHc
5065	:: forall a_agH.
5066	Data.Fixed.HasResolution a_agH =>
5067	[Data.Fixed.Fixed a_agH] -> GHC.Show.ShowS
5068	[GblId, Arity=1, Unf=OtherCon []]
5069	$cshowList_rHc =
5070	\ (@ a_agH)
5071	($dHasResolution_sP5 [Occ=Once]
5072	:: Data.Fixed.HasResolution a_agH) ->
5073	let {
5074	sat_sUv [Occ=Once] :: GHC.Show.Show (Data.Fixed.Fixed a_agH)
5075	[LclId]
5076	sat_sUv = Data.Fixed.$fShowFixed @ a_agH $dHasResolution_sP5 } in
5077	GHC.Show.$dmshowList @ (Data.Fixed.Fixed a_agH) sat_sUv
5078
5079	$cshowsPrec_rHd
5080	:: forall a_agH.
5081	Data.Fixed.HasResolution a_agH =>
5082	GHC.Types.Int -> Data.Fixed.Fixed a_agH -> GHC.Show.ShowS
5083	[GblId, Arity=1, Unf=OtherCon []]
5084	$cshowsPrec_rHd =
5085	\ (@ a_agH)
5086	($dHasResolution_sP8 [Occ=Once]
5087	:: Data.Fixed.HasResolution a_agH) ->
5088	let {
5089	sat_sUw [Occ=Once] :: GHC.Show.Show (Data.Fixed.Fixed a_agH)
5090	[LclId]
5091	sat_sUw = Data.Fixed.$fShowFixed @ a_agH $dHasResolution_sP8 } in
5092	GHC.Show.$dmshowsPrec @ (Data.Fixed.Fixed a_agH) sat_sUw
5093	end Rec }
5094
5095	Rec {
5096	Data.Fixed.$fNumFixed [InlPrag=[ALWAYS] CONLIKE]
5097	:: forall a_ah1.
5098	Data.Fixed.HasResolution a_ah1 =>
5099	GHC.Num.Num (Data.Fixed.Fixed a_ah1)
5100	[GblId[DFunId], Arity=1, Unf=OtherCon []]
5101	Data.Fixed.$fNumFixed =
5102	\ (@ a_XkW)
5103	($dHasResolution_sPb :: Data.Fixed.HasResolution a_XkW) ->
5104	let {
5105	sat_sUy [Occ=Once]
5106	:: GHC.Integer.Type.Integer -> Data.Fixed.Fixed a_XkW
5107	[LclId]
5108	sat_sUy =
5109	\ (eta_B1 [Occ=Once] :: GHC.Integer.Type.Integer) ->
5110	$cfromInteger_rGb @ a_XkW $dHasResolution_sPb eta_B1 } in
5111	let {
5112	sat_sUz [Occ=Once]
5113	:: Data.Fixed.Fixed a_XkW -> Data.Fixed.Fixed a_XkW
5114	[LclId]
5115	sat_sUz = $csignum_rHe @ a_XkW $dHasResolution_sPb } in
5116	let {
5117	sat_sUA [Occ=Once]
5118	:: Data.Fixed.Fixed a_XkW -> Data.Fixed.Fixed a_XkW
5119	[LclId]
5120	sat_sUA =
5121	(\ (ds_sPs [Occ=Once] :: Data.Fixed.Fixed a_XkW) ->
5122	GHC.Num.abs
5123	@ GHC.Integer.Type.Integer
5124	GHC.Num.$fNumInteger
5125	(ds_sPs
5126	`cast` (Data.Fixed.NTCo:Fixed <a_XkW>
5127	:: Data.Fixed.Fixed a_XkW ~ GHC.Integer.Type.Integer)))
5128	`cast` (<Data.Fixed.Fixed a_XkW>
5129	-> Sym (Data.Fixed.NTCo:Fixed <a_XkW>)
5130	:: (Data.Fixed.Fixed a_XkW -> GHC.Integer.Type.Integer)
5131	~
5132	(Data.Fixed.Fixed a_XkW -> Data.Fixed.Fixed a_XkW)) } in
5133	let {
5134	sat_sUB [Occ=Once]
5135	:: Data.Fixed.Fixed a_XkW -> Data.Fixed.Fixed a_XkW
5136	[LclId]
5137	sat_sUB =
5138	(\ (ds_sPp [Occ=Once] :: Data.Fixed.Fixed a_XkW) ->
5139	GHC.Num.negate
5140	@ GHC.Integer.Type.Integer
5141	GHC.Num.$fNumInteger
5142	(ds_sPp
5143	`cast` (Data.Fixed.NTCo:Fixed <a_XkW>
5144	:: Data.Fixed.Fixed a_XkW ~ GHC.Integer.Type.Integer)))
5145	`cast` (<Data.Fixed.Fixed a_XkW>
5146	-> Sym (Data.Fixed.NTCo:Fixed <a_XkW>)
5147	:: (Data.Fixed.Fixed a_XkW -> GHC.Integer.Type.Integer)
5148	~
5149	(Data.Fixed.Fixed a_XkW -> Data.Fixed.Fixed a_XkW)) } in
5150	let {
5151	sat_sUC [Occ=Once]
5152	:: Data.Fixed.Fixed a_XkW
5153	-> Data.Fixed.Fixed a_XkW -> Data.Fixed.Fixed a_XkW
5154	[LclId]
5155	sat_sUC =
5156	(\ (ds_sPl [Occ=Once] :: Data.Fixed.Fixed a_XkW)
5157	(ds1_sPm [Occ=Once] :: Data.Fixed.Fixed a_XkW) ->
5158	GHC.Num.-
5159	@ GHC.Integer.Type.Integer
5160	GHC.Num.$fNumInteger
5161	(ds_sPl
5162	`cast` (Data.Fixed.NTCo:Fixed <a_XkW>
5163	:: Data.Fixed.Fixed a_XkW ~ GHC.Integer.Type.Integer))
5164	(ds1_sPm
5165	`cast` (Data.Fixed.NTCo:Fixed <a_XkW>
5166	:: Data.Fixed.Fixed a_XkW ~ GHC.Integer.Type.Integer)))
5167	`cast` (<Data.Fixed.Fixed a_XkW>
5168	-> <Data.Fixed.Fixed a_XkW> -> Sym (Data.Fixed.NTCo:Fixed <a_XkW>)
5169	:: (Data.Fixed.Fixed a_XkW
5170	-> Data.Fixed.Fixed a_XkW -> GHC.Integer.Type.Integer)
5171	~
5172	(Data.Fixed.Fixed a_XkW
5173	-> Data.Fixed.Fixed a_XkW -> Data.Fixed.Fixed a_XkW)) } in
5174	let {
5175	sat_sUD [Occ=Once]
5176	:: Data.Fixed.Fixed a_XkW
5177	-> Data.Fixed.Fixed a_XkW -> Data.Fixed.Fixed a_XkW
5178	[LclId]
5179	sat_sUD =
5180	(\ (eta_B2 [Occ=Once] :: Data.Fixed.Fixed a_XkW)
5181	(eta_B1 [Occ=Once] :: Data.Fixed.Fixed a_XkW) ->
5182	a5_rGi @ a_XkW $dHasResolution_sPb eta_B2 eta_B1)
5183	`cast` (<Data.Fixed.Fixed a_XkW>
5184	-> <Data.Fixed.Fixed a_XkW> -> Sym (Data.Fixed.NTCo:Fixed <a_XkW>)
5185	:: (Data.Fixed.Fixed a_XkW
5186	-> Data.Fixed.Fixed a_XkW -> GHC.Integer.Type.Integer)
5187	~
5188	(Data.Fixed.Fixed a_XkW
5189	-> Data.Fixed.Fixed a_XkW -> Data.Fixed.Fixed a_XkW)) } in
5190	let {
5191	sat_sUE [Occ=Once]
5192	:: Data.Fixed.Fixed a_XkW
5193	-> Data.Fixed.Fixed a_XkW -> Data.Fixed.Fixed a_XkW
5194	[LclId]
5195	sat_sUE =
5196	(\ (ds_sPf [Occ=Once] :: Data.Fixed.Fixed a_XkW)
5197	(ds1_sPg [Occ=Once] :: Data.Fixed.Fixed a_XkW) ->
5198	GHC.Num.+
5199	@ GHC.Integer.Type.Integer
5200	GHC.Num.$fNumInteger
5201	(ds_sPf
5202	`cast` (Data.Fixed.NTCo:Fixed <a_XkW>
5203	:: Data.Fixed.Fixed a_XkW ~ GHC.Integer.Type.Integer))
5204	(ds1_sPg
5205	`cast` (Data.Fixed.NTCo:Fixed <a_XkW>
5206	:: Data.Fixed.Fixed a_XkW ~ GHC.Integer.Type.Integer)))
5207	`cast` (<Data.Fixed.Fixed a_XkW>
5208	-> <Data.Fixed.Fixed a_XkW> -> Sym (Data.Fixed.NTCo:Fixed <a_XkW>)
5209	:: (Data.Fixed.Fixed a_XkW
5210	-> Data.Fixed.Fixed a_XkW -> GHC.Integer.Type.Integer)
5211	~
5212	(Data.Fixed.Fixed a_XkW
5213	-> Data.Fixed.Fixed a_XkW -> Data.Fixed.Fixed a_XkW)) } in
5214	let {
5215	sat_sUx [Occ=Once] :: GHC.Show.Show (Data.Fixed.Fixed a_XkW)
5216	[LclId]
5217	sat_sUx = Data.Fixed.$fShowFixed @ a_XkW $dHasResolution_sPb } in
5218	GHC.Num.D:Num
5219	@ (Data.Fixed.Fixed a_XkW)
5220	(Data.Fixed.$fEqFixed @ a_XkW)
5221	sat_sUx
5222	sat_sUE
5223	sat_sUD
5224	sat_sUC
5225	sat_sUB
5226	sat_sUA
5227	sat_sUz
5228	sat_sUy
5229
5230	$csignum_rHe
5231	:: forall a_ah1.
5232	Data.Fixed.HasResolution a_ah1 =>
5233	Data.Fixed.Fixed a_ah1 -> Data.Fixed.Fixed a_ah1
5234	[GblId, Arity=1, Unf=OtherCon []]
5235	$csignum_rHe =
5236	\ (@ a_XkX)
5237	($dHasResolution_sPy :: Data.Fixed.HasResolution a_XkX) ->
5238	let {
5239	$dNum_sPz [Occ=OnceL] :: GHC.Num.Num (Data.Fixed.Fixed a_XkX)
5240	[LclId]
5241	$dNum_sPz = Data.Fixed.$fNumFixed @ a_XkX $dHasResolution_sPy } in
5242	let {
5243	sat_sUF [Occ=Once]
5244	:: Data.Fixed.Fixed a_XkX -> Data.Fixed.Fixed a_XkX
5245	[LclId]
5246	sat_sUF =
5247	\ (ds_sPB [Occ=Once] :: Data.Fixed.Fixed a_XkX) ->
5248	let {
5249	sat_sPD [Occ=Once] :: GHC.Integer.Type.Integer
5250	[LclId]
5251	sat_sPD =
5252	GHC.Num.signum
5253	@ GHC.Integer.Type.Integer
5254	GHC.Num.$fNumInteger
5255	(ds_sPB
5256	`cast` (Data.Fixed.NTCo:Fixed <a_XkX>
5257	:: Data.Fixed.Fixed a_XkX ~ GHC.Integer.Type.Integer)) } in
5258	GHC.Num.fromInteger
5259	@ (Data.Fixed.Fixed a_XkX) $dNum_sPz sat_sPD } in
5260	sat_sUF
5261	end Rec }
5262
5263	Data.Fixed.$fFractionalFixed [InlPrag=[ALWAYS] CONLIKE]
5264	:: forall a_agP.
5265	Data.Fixed.HasResolution a_agP =>
5266	GHC.Real.Fractional (Data.Fixed.Fixed a_agP)
5267	[GblId[DFunId], Arity=1, Unf=OtherCon []]
5268	Data.Fixed.$fFractionalFixed =
5269	\ (@ a_XkM)
5270	($dHasResolution_sPG :: Data.Fixed.HasResolution a_XkM) ->
5271	let {
5272	sat_sUH [Occ=Once] :: GHC.Real.Rational -> Data.Fixed.Fixed a_XkM
5273	[LclId]
5274	sat_sUH = $cfromRational_rGn @ a_XkM $dHasResolution_sPG } in
5275	let {
5276	sat_sUI [Occ=Once]
5277	:: Data.Fixed.Fixed a_XkM -> Data.Fixed.Fixed a_XkM
5278	[LclId]
5279	sat_sUI =
5280	\ (eta_B1 [Occ=Once] :: Data.Fixed.Fixed a_XkM) ->
5281	$crecip_rGo @ a_XkM $dHasResolution_sPG eta_B1 } in
5282	let {
5283	sat_sUJ [Occ=Once]
5284	:: Data.Fixed.Fixed a_XkM
5285	-> Data.Fixed.Fixed a_XkM -> Data.Fixed.Fixed a_XkM
5286	[LclId]
5287	sat_sUJ =
5288	(\ (eta_B2 [Occ=Once] :: Data.Fixed.Fixed a_XkM)
5289	(eta_B1 [Occ=Once] :: Data.Fixed.Fixed a_XkM) ->
5290	a7_rGp @ a_XkM $dHasResolution_sPG eta_B2 eta_B1)
5291	`cast` (<Data.Fixed.Fixed a_XkM>
5292	-> <Data.Fixed.Fixed a_XkM> -> Sym (Data.Fixed.NTCo:Fixed <a_XkM>)
5293	:: (Data.Fixed.Fixed a_XkM
5294	-> Data.Fixed.Fixed a_XkM -> GHC.Integer.Type.Integer)
5295	~
5296	(Data.Fixed.Fixed a_XkM
5297	-> Data.Fixed.Fixed a_XkM -> Data.Fixed.Fixed a_XkM)) } in
5298	let {
5299	sat_sUG [Occ=Once] :: GHC.Num.Num (Data.Fixed.Fixed a_XkM)
5300	[LclId]
5301	sat_sUG = Data.Fixed.$fNumFixed @ a_XkM $dHasResolution_sPG } in
5302	GHC.Real.D:Fractional
5303	@ (Data.Fixed.Fixed a_XkM) sat_sUG sat_sUJ sat_sUI sat_sUH
5304
5305	$creadsPrec_rHf
5306	:: forall a_agG.
5307	Data.Fixed.HasResolution a_agG =>
5308	GHC.Types.Int
5309	-> Text.ParserCombinators.ReadP.ReadS (Data.Fixed.Fixed a_agG)
5310	[GblId, Arity=2, Unf=OtherCon []]
5311	$creadsPrec_rHf =
5312	\ (@ a_agG)
5313	($dHasResolution_sQT :: Data.Fixed.HasResolution a_agG)
5314	_ ->
5315	let {
5316	readsUnsigned_sQR [Occ=OnceL*!]
5317	:: forall t_apZ.
5318	GHC.Real.Fractional t_apZ =>
5319	[GHC.Types.Char] -> [(t_apZ, [GHC.Types.Char])]
5320	[LclId, Arity=2, Unf=OtherCon []]
5321	readsUnsigned_sQR =
5322	\ (@ t_aq3)
5323	($dFractional_sPR :: GHC.Real.Fractional t_aq3)
5324	(eta_sPT [Occ=Once] :: [GHC.Types.Char]) ->
5325	let {
5326	$dNum_sPS :: GHC.Num.Num t_aq3
5327	[LclId]
5328	$dNum_sPS = GHC.Real.$p1Fractional @ t_aq3 $dFractional_sPR } in
5329	case GHC.List.span @ GHC.Types.Char GHC.Unicode.isDigit eta_sPT
5330	of _ { (ds1_sPX [Occ=Once!], ds2_sQ1 [Occ=Once!]) ->
5331	case ds1_sPX of wild1_sQ3 {
5332	[] -> GHC.Types.[] @ (t_aq3, [GHC.Types.Char]);
5333	: _ _ ->
5334	case ds2_sQ1 of wild2_sQj {
5335	[] ->
5336	let {
5337	sat_sQ7 [Occ=Once] :: t_aq3
5338	[LclId]
5339	sat_sQ7 =
5340	let {
5341	sat_sQ5 [Occ=Once] :: GHC.Integer.Type.Integer
5342	[LclId]
5343	sat_sQ5 =
5344	Text.Read.read
5345	@ GHC.Integer.Type.Integer GHC.Read.$fReadInteger wild1_sQ3 } in
5346	GHC.Num.fromInteger @ t_aq3 $dNum_sPS sat_sQ5 } in
5347	let {
5348	sat_sUT [Occ=Once] :: (t_aq3, [GHC.Types.Char])
5349	[LclId]
5350	sat_sUT = (sat_sQ7, GHC.Types.[] @ GHC.Types.Char) } in
5351	GHC.Types.:
5352	@ (t_aq3, [GHC.Types.Char])
5353	sat_sUT
5354	(GHC.Types.[] @ (t_aq3, [GHC.Types.Char]));
5355	: ds3_sQb [Occ=Once!] xs''_sQm [Occ=Once] ->
5356	case ds3_sQb of _ { GHC.Types.C# ds4_sQe [Occ=Once!] ->
5357	case ds4_sQe of _ {
5358	__DEFAULT ->
5359	let {
5360	sat_sQk [Occ=Once] :: t_aq3
5361	[LclId]
5362	sat_sQk =
5363	let {
5364	sat_sQh [Occ=Once] :: GHC.Integer.Type.Integer
5365	[LclId]
5366	sat_sQh =
5367	Text.Read.read
5368	@ GHC.Integer.Type.Integer GHC.Read.$fReadInteger wild1_sQ3 } in
5369	GHC.Num.fromInteger @ t_aq3 $dNum_sPS sat_sQh } in
5370	let {
5371	sat_sUY [Occ=Once] :: (t_aq3, [GHC.Types.Char])
5372	[LclId]
5373	sat_sUY = (sat_sQk, wild2_sQj) } in
5374	GHC.Types.:
5375	@ (t_aq3, [GHC.Types.Char])
5376	sat_sUY
5377	(GHC.Types.[] @ (t_aq3, [GHC.Types.Char]));
5378	'.' ->
5379	case GHC.List.span @ GHC.Types.Char GHC.Unicode.isDigit xs''_sQm
5380	of _ { (ds6_sQq [Occ=Once!], ds7_sQO [Occ=Once]) ->
5381	case ds6_sQq of wild5_sQx {
5382	[] -> GHC.Types.[] @ (t_aq3, [GHC.Types.Char]);
5383	: _ _ ->
5384	let {
5385	sat_sQP [Occ=Once] :: t_aq3
5386	[LclId]
5387	sat_sQP =
5388	let {
5389	sat_sQL [Occ=Once] :: t_aq3
5390	[LclId]
5391	sat_sQL =
5392	let {
5393	sat_sQI [Occ=Once] :: t_aq3
5394	[LclId]
5395	sat_sQI =
5396	let {
5397	sat_sQF [Occ=Once] :: GHC.Integer.Type.Integer
5398	[LclId]
5399	sat_sQF =
5400	Data.List.genericLength
5401	@ GHC.Integer.Type.Integer
5402	@ GHC.Types.Char
5403	GHC.Num.$fNumInteger
5404	wild5_sQx } in
5405	let {
5406	sat_sQG [Occ=Once] :: t_aq3
5407	[LclId]
5408	sat_sQG =
5409	let {
5410	sat_sQC [Occ=Once] :: GHC.Integer.Type.Integer
5411	[LclId]
5412	sat_sQC = GHC.Integer.Type.S# 10 } in
5413	GHC.Num.fromInteger @ t_aq3 $dNum_sPS sat_sQC } in
5414	GHC.Real.^
5415	@ t_aq3
5416	@ GHC.Integer.Type.Integer
5417	$dNum_sPS
5418	GHC.Real.$fIntegralInteger
5419	sat_sQG
5420	sat_sQF } in
5421	let {
5422	sat_sQJ [Occ=Once] :: t_aq3
5423	[LclId]
5424	sat_sQJ =
5425	let {
5426	sat_sQz [Occ=Once] :: GHC.Integer.Type.Integer
5427	[LclId]
5428	sat_sQz =
5429	Text.Read.read
5430	@ GHC.Integer.Type.Integer
5431	GHC.Read.$fReadInteger
5432	wild5_sQx } in
5433	GHC.Num.fromInteger @ t_aq3 $dNum_sPS sat_sQz } in
5434	GHC.Real./ @ t_aq3 $dFractional_sPR sat_sQJ sat_sQI } in
5435	let {
5436	sat_sQM [Occ=Once] :: t_aq3
5437	[LclId]
5438	sat_sQM =
5439	let {
5440	sat_sQv [Occ=Once] :: GHC.Integer.Type.Integer
5441	[LclId]
5442	sat_sQv =
5443	Text.Read.read
5444	@ GHC.Integer.Type.Integer
5445	GHC.Read.$fReadInteger
5446	wild1_sQ3 } in
5447	GHC.Num.fromInteger @ t_aq3 $dNum_sPS sat_sQv } in
5448	GHC.Num.+ @ t_aq3 $dNum_sPS sat_sQM sat_sQL } in
5449	let {
5450	sat_sV0 [Occ=Once] :: (t_aq3, [GHC.Types.Char])
5451	[LclId]
5452	sat_sV0 = (sat_sQP, ds7_sQO) } in
5453	GHC.Types.:
5454	@ (t_aq3, [GHC.Types.Char])
5455	sat_sV0
5456	(GHC.Types.[] @ (t_aq3, [GHC.Types.Char]))
5457	}
5458	}
5459	}
5460	}
5461	}
5462	}
5463	} } in
5464	let {
5465	$dFractional_sQU :: GHC.Real.Fractional (Data.Fixed.Fixed a_agG)
5466	[LclId]
5467	$dFractional_sQU =
5468	Data.Fixed.$fFractionalFixed @ a_agG $dHasResolution_sQT } in
5469	let {
5470	$dNum_sQW [Occ=OnceL] :: GHC.Num.Num (Data.Fixed.Fixed a_agG)
5471	[LclId]
5472	$dNum_sQW =
5473	GHC.Real.$p1Fractional
5474	@ (Data.Fixed.Fixed a_agG) $dFractional_sQU } in
5475	let {
5476	sat_sUK [Occ=Once]
5477	:: [GHC.Types.Char] -> [(Data.Fixed.Fixed a_agG, [GHC.Types.Char])]
5478	[LclId]
5479	sat_sUK =
5480	\ (ds1_sQY [Occ=Once!] :: [GHC.Types.Char]) ->
5481	case ds1_sQY of wild_sR7 {
5482	[] ->
5483	readsUnsigned_sQR
5484	@ (Data.Fixed.Fixed a_agG)
5485	$dFractional_sQU
5486	(GHC.Types.[] @ GHC.Types.Char);
5487	: ds2_sR2 [Occ=Once!] xs_sRq [Occ=Once] ->
5488	case ds2_sR2 of _ { GHC.Types.C# ds3_sR5 [Occ=Once!] ->
5489	case ds3_sR5 of _ {
5490	__DEFAULT ->
5491	readsUnsigned_sQR
5492	@ (Data.Fixed.Fixed a_agG) $dFractional_sQU wild_sR7;
5493	'-' ->
5494	letrec {
5495	ds5_sRo [Occ=LoopBreaker]
5496	:: [(Data.Fixed.Fixed a_agG, [GHC.Types.Char])]
5497	-> [(Data.Fixed.Fixed a_agG, [GHC.Types.Char])]
5498	[LclId, Arity=1, Unf=OtherCon []]
5499	ds5_sRo =
5500	\ (ds6_sRa [Occ=Once!]
5501	:: [(Data.Fixed.Fixed a_agG, [GHC.Types.Char])]) ->
5502	case ds6_sRa of _ {
5503	[] -> GHC.Types.[] @ (Data.Fixed.Fixed a_agG, [GHC.Types.Char]);
5504	: ds8_sRe [Occ=Once!] ds9_sRn [Occ=Once] ->
5505	case ds8_sRe of _ { (x_sRi [Occ=Once], rest_sRk [Occ=Once]) ->
5506	let {
5507	sat_sUR [Occ=Once] :: [(Data.Fixed.Fixed a_agG, [GHC.Types.Char])]
5508	[LclId]
5509	sat_sUR = ds5_sRo ds9_sRn } in
5510	let {
5511	sat_sRl [Occ=Once] :: Data.Fixed.Fixed a_agG
5512	[LclId]
5513	sat_sRl =
5514	GHC.Num.negate @ (Data.Fixed.Fixed a_agG) $dNum_sQW x_sRi } in
5515	let {
5516	sat_sUQ [Occ=Once] :: (Data.Fixed.Fixed a_agG, [GHC.Types.Char])
5517	[LclId]
5518	sat_sUQ = (sat_sRl, rest_sRk) } in
5519	GHC.Types.:
5520	@ (Data.Fixed.Fixed a_agG, [GHC.Types.Char]) sat_sUQ sat_sUR
5521	}
5522	}; } in
5523	let {
5524	sat_sUN [Occ=Once] :: [(Data.Fixed.Fixed a_agG, [GHC.Types.Char])]
5525	[LclId]
5526	sat_sUN =
5527	readsUnsigned_sQR
5528	@ (Data.Fixed.Fixed a_agG) $dFractional_sQU xs_sRq } in
5529	ds5_sRo sat_sUN
5530	}
5531	}
5532	} } in
5533	sat_sUK
5534
5535	Rec {
5536	Data.Fixed.$fReadFixed [InlPrag=[ALWAYS] CONLIKE]
5537	:: forall a_agG.
5538	Data.Fixed.HasResolution a_agG =>
5539	GHC.Read.Read (Data.Fixed.Fixed a_agG)
5540	[GblId[DFunId], Arity=1, Unf=OtherCon []]
5541	Data.Fixed.$fReadFixed =
5542	\ (@ a_agG)
5543	($dHasResolution_sRv :: Data.Fixed.HasResolution a_agG) ->
5544	let {
5545	sat_sV4 [Occ=Once]
5546	:: Text.ParserCombinators.ReadPrec.ReadPrec
5547	[Data.Fixed.Fixed a_agG]
5548	[LclId]
5549	sat_sV4 = $creadListPrec_rHg @ a_agG $dHasResolution_sRv } in
5550	let {
5551	sat_sV5 [Occ=Once]
5552	:: Text.ParserCombinators.ReadPrec.ReadPrec
5553	(Data.Fixed.Fixed a_agG)
5554	[LclId]
5555	sat_sV5 = $creadPrec_rHh @ a_agG $dHasResolution_sRv } in
5556	let {
5557	sat_sV6 [Occ=Once]
5558	:: Text.ParserCombinators.ReadP.ReadS [Data.Fixed.Fixed a_agG]
5559	[LclId]
5560	sat_sV6 = $creadList_rHi @ a_agG $dHasResolution_sRv } in
5561	let {
5562	sat_sV3 [Occ=Once]
5563	:: GHC.Types.Int
5564	-> Text.ParserCombinators.ReadP.ReadS (Data.Fixed.Fixed a_agG)
5565	[LclId]
5566	sat_sV3 =
5567	\ (eta_B1 [Occ=Once] :: GHC.Types.Int) ->
5568	$creadsPrec_rHf @ a_agG $dHasResolution_sRv eta_B1 } in
5569	GHC.Read.D:Read
5570	@ (Data.Fixed.Fixed a_agG) sat_sV3 sat_sV6 sat_sV5 sat_sV4
5571
5572	$creadListPrec_rHg
5573	:: forall a_agG.
5574	Data.Fixed.HasResolution a_agG =>
5575	Text.ParserCombinators.ReadPrec.ReadPrec [Data.Fixed.Fixed a_agG]
5576	[GblId, Arity=1, Unf=OtherCon []]
5577	$creadListPrec_rHg =
5578	\ (@ a_agG)
5579	($dHasResolution_sRB [Occ=Once]
5580	:: Data.Fixed.HasResolution a_agG) ->
5581	let {
5582	sat_sV7 [Occ=Once] :: GHC.Read.Read (Data.Fixed.Fixed a_agG)
5583	[LclId]
5584	sat_sV7 = Data.Fixed.$fReadFixed @ a_agG $dHasResolution_sRB } in
5585	GHC.Read.$dmreadListPrec @ (Data.Fixed.Fixed a_agG) sat_sV7
5586
5587	$creadPrec_rHh
5588	:: forall a_agG.
5589	Data.Fixed.HasResolution a_agG =>
5590	Text.ParserCombinators.ReadPrec.ReadPrec (Data.Fixed.Fixed a_agG)
5591	[GblId, Arity=1, Unf=OtherCon []]
5592	$creadPrec_rHh =
5593	\ (@ a_agG)
5594	($dHasResolution_sRE [Occ=Once]
5595	:: Data.Fixed.HasResolution a_agG) ->
5596	let {
5597	sat_sV8 [Occ=Once] :: GHC.Read.Read (Data.Fixed.Fixed a_agG)
5598	[LclId]
5599	sat_sV8 = Data.Fixed.$fReadFixed @ a_agG $dHasResolution_sRE } in
5600	GHC.Read.$dmreadPrec @ (Data.Fixed.Fixed a_agG) sat_sV8
5601
5602	$creadList_rHi
5603	:: forall a_agG.
5604	Data.Fixed.HasResolution a_agG =>
5605	Text.ParserCombinators.ReadP.ReadS [Data.Fixed.Fixed a_agG]
5606	[GblId, Arity=1, Unf=OtherCon []]
5607	$creadList_rHi =
5608	\ (@ a_agG)
5609	($dHasResolution_sRH [Occ=Once]
5610	:: Data.Fixed.HasResolution a_agG) ->
5611	let {
5612	sat_sV9 [Occ=Once] :: GHC.Read.Read (Data.Fixed.Fixed a_agG)
5613	[LclId]
5614	sat_sV9 = Data.Fixed.$fReadFixed @ a_agG $dHasResolution_sRH } in
5615	GHC.Read.$dmreadList @ (Data.Fixed.Fixed a_agG) sat_sV9
5616	end Rec }
5617
5618	Data.Fixed.$fRealFixed [InlPrag=[ALWAYS] CONLIKE]
5619	:: forall a_agY.
5620	Data.Fixed.HasResolution a_agY =>
5621	GHC.Real.Real (Data.Fixed.Fixed a_agY)
5622	[GblId[DFunId], Arity=1, Unf=OtherCon []]
5623	Data.Fixed.$fRealFixed =
5624	\ (@ a_agY)
5625	($dHasResolution_sRK :: Data.Fixed.HasResolution a_agY) ->
5626	let {
5627	sat_sVb [Occ=Once] :: Data.Fixed.Fixed a_agY -> GHC.Real.Rational
5628	[LclId]
5629	sat_sVb = $ctoRational_rGm @ a_agY $dHasResolution_sRK } in
5630	let {
5631	sat_sVa [Occ=Once] :: GHC.Num.Num (Data.Fixed.Fixed a_agY)
5632	[LclId]
5633	sat_sVa = Data.Fixed.$fNumFixed @ a_agY $dHasResolution_sRK } in
5634	GHC.Real.D:Real
5635	@ (Data.Fixed.Fixed a_agY)
5636	sat_sVa
5637	(Data.Fixed.$fOrdFixed @ a_agY)
5638	sat_sVb
5639
5640	$ctruncate_rHj
5641	:: forall a_agI.
5642	Data.Fixed.HasResolution a_agI =>
5643	forall b_auU.
5644	GHC.Real.Integral b_auU =>
5645	Data.Fixed.Fixed a_agI -> b_auU
5646	[GblId, Arity=2, Unf=OtherCon []]
5647	$ctruncate_rHj =
5648	\ (@ a_agI)
5649	($dHasResolution_sRQ :: Data.Fixed.HasResolution a_agI)
5650	(@ b_av8)
5651	($dIntegral_sRV [Occ=OnceL] :: GHC.Real.Integral b_av8) ->
5652	let {
5653	$dReal_sRR [Occ=OnceL] :: GHC.Real.Real (Data.Fixed.Fixed a_agI)
5654	[LclId]
5655	$dReal_sRR =
5656	Data.Fixed.$fRealFixed @ a_agI $dHasResolution_sRQ } in
5657	let {
5658	$dRealFrac_sRT [Occ=OnceL] :: GHC.Real.RealFrac GHC.Real.Rational
5659	[LclId]
5660	$dRealFrac_sRT =
5661	GHC.Real.$fRealFracRatio
5662	@ GHC.Integer.Type.Integer GHC.Real.$fIntegralInteger } in
5663	let {
5664	sat_sVc [Occ=Once] :: Data.Fixed.Fixed a_agI -> b_av8
5665	[LclId]
5666	sat_sVc =
5667	\ (f_sRW [Occ=Once] :: Data.Fixed.Fixed a_agI) ->
5668	let {
5669	sat_sRY [Occ=Once] :: GHC.Real.Rational
5670	[LclId]
5671	sat_sRY =
5672	GHC.Real.toRational
5673	@ (Data.Fixed.Fixed a_agI) $dReal_sRR f_sRW } in
5674	GHC.Real.truncate
5675	@ GHC.Real.Rational
5676	$dRealFrac_sRT
5677	@ b_av8
5678	$dIntegral_sRV
5679	sat_sRY } in
5680	sat_sVc
5681
5682	$cround_rHk
5683	:: forall a_agI.
5684	Data.Fixed.HasResolution a_agI =>
5685	forall b_avj.
5686	GHC.Real.Integral b_avj =>
5687	Data.Fixed.Fixed a_agI -> b_avj
5688	[GblId, Arity=2, Unf=OtherCon []]
5689	$cround_rHk =
5690	\ (@ a_agI)
5691	($dHasResolution_sS3 :: Data.Fixed.HasResolution a_agI)
5692	(@ b_avk)
5693	($dIntegral_sS8 [Occ=OnceL] :: GHC.Real.Integral b_avk) ->
5694	let {
5695	$dReal_sS4 [Occ=OnceL] :: GHC.Real.Real (Data.Fixed.Fixed a_agI)
5696	[LclId]
5697	$dReal_sS4 =
5698	Data.Fixed.$fRealFixed @ a_agI $dHasResolution_sS3 } in
5699	let {
5700	$dRealFrac_sS6 [Occ=OnceL] :: GHC.Real.RealFrac GHC.Real.Rational
5701	[LclId]
5702	$dRealFrac_sS6 =
5703	GHC.Real.$fRealFracRatio
5704	@ GHC.Integer.Type.Integer GHC.Real.$fIntegralInteger } in
5705	let {
5706	sat_sVd [Occ=Once] :: Data.Fixed.Fixed a_agI -> b_avk
5707	[LclId]
5708	sat_sVd =
5709	\ (f_sS9 [Occ=Once] :: Data.Fixed.Fixed a_agI) ->
5710	let {
5711	sat_sSb [Occ=Once] :: GHC.Real.Rational
5712	[LclId]
5713	sat_sSb =
5714	GHC.Real.toRational
5715	@ (Data.Fixed.Fixed a_agI) $dReal_sS4 f_sS9 } in
5716	GHC.Real.round
5717	@ GHC.Real.Rational
5718	$dRealFrac_sS6
5719	@ b_avk
5720	$dIntegral_sS8
5721	sat_sSb } in
5722	sat_sVd
5723
5724	$cceiling_rHl
5725	:: forall a_agI.
5726	Data.Fixed.HasResolution a_agI =>
5727	forall b_ar8.
5728	GHC.Real.Integral b_ar8 =>
5729	Data.Fixed.Fixed a_agI -> b_ar8
5730	[GblId, Arity=2, Unf=OtherCon []]
5731	$cceiling_rHl =
5732	\ (@ a_agI)
5733	($dHasResolution_sSg :: Data.Fixed.HasResolution a_agI)
5734	(@ b_avv)
5735	($dIntegral_sSl [Occ=OnceL] :: GHC.Real.Integral b_avv) ->
5736	let {
5737	$dReal_sSh [Occ=OnceL] :: GHC.Real.Real (Data.Fixed.Fixed a_agI)
5738	[LclId]
5739	$dReal_sSh =
5740	Data.Fixed.$fRealFixed @ a_agI $dHasResolution_sSg } in
5741	let {
5742	$dRealFrac_sSj [Occ=OnceL] :: GHC.Real.RealFrac GHC.Real.Rational
5743	[LclId]
5744	$dRealFrac_sSj =
5745	GHC.Real.$fRealFracRatio
5746	@ GHC.Integer.Type.Integer GHC.Real.$fIntegralInteger } in
5747	let {
5748	sat_sVe [Occ=Once] :: Data.Fixed.Fixed a_agI -> b_avv
5749	[LclId]
5750	sat_sVe =
5751	\ (f_sSm [Occ=Once] :: Data.Fixed.Fixed a_agI) ->
5752	let {
5753	sat_sSo [Occ=Once] :: GHC.Real.Rational
5754	[LclId]
5755	sat_sSo =
5756	GHC.Real.toRational
5757	@ (Data.Fixed.Fixed a_agI) $dReal_sSh f_sSm } in
5758	GHC.Real.ceiling
5759	@ GHC.Real.Rational
5760	$dRealFrac_sSj
5761	@ b_avv
5762	$dIntegral_sSl
5763	sat_sSo } in
5764	sat_sVe
5765
5766	$cfloor_rHm
5767	:: forall a_agI.
5768	Data.Fixed.HasResolution a_agI =>
5769	forall b_arZ.
5770	GHC.Real.Integral b_arZ =>
5771	Data.Fixed.Fixed a_agI -> b_arZ
5772	[GblId, Arity=2, Unf=OtherCon []]
5773	$cfloor_rHm =
5774	\ (@ a_agI)
5775	($dHasResolution_sSt :: Data.Fixed.HasResolution a_agI)
5776	(@ b_avG)
5777	($dIntegral_sSy [Occ=OnceL] :: GHC.Real.Integral b_avG) ->
5778	let {
5779	$dReal_sSu [Occ=OnceL] :: GHC.Real.Real (Data.Fixed.Fixed a_agI)
5780	[LclId]
5781	$dReal_sSu =
5782	Data.Fixed.$fRealFixed @ a_agI $dHasResolution_sSt } in
5783	let {
5784	$dRealFrac_sSw [Occ=OnceL] :: GHC.Real.RealFrac GHC.Real.Rational
5785	[LclId]
5786	$dRealFrac_sSw =
5787	GHC.Real.$fRealFracRatio
5788	@ GHC.Integer.Type.Integer GHC.Real.$fIntegralInteger } in
5789	let {
5790	sat_sVf [Occ=Once] :: Data.Fixed.Fixed a_agI -> b_avG
5791	[LclId]
5792	sat_sVf =
5793	\ (f_sSz [Occ=Once] :: Data.Fixed.Fixed a_agI) ->
5794	let {
5795	sat_sSB [Occ=Once] :: GHC.Real.Rational
5796	[LclId]
5797	sat_sSB =
5798	GHC.Real.toRational
5799	@ (Data.Fixed.Fixed a_agI) $dReal_sSu f_sSz } in
5800	GHC.Real.floor
5801	@ GHC.Real.Rational
5802	$dRealFrac_sSw
5803	@ b_avG
5804	$dIntegral_sSy
5805	sat_sSB } in
5806	sat_sVf
5807
5808	Rec {
5809	Data.Fixed.$fRealFracFixed [InlPrag=[ALWAYS] CONLIKE]
5810	:: forall a_agI.
5811	Data.Fixed.HasResolution a_agI =>
5812	GHC.Real.RealFrac (Data.Fixed.Fixed a_agI)
5813	[GblId[DFunId], Arity=1, Unf=OtherCon []]
5814	Data.Fixed.$fRealFracFixed =
5815	\ (@ a_agI)
5816	($dHasResolution_sSE :: Data.Fixed.HasResolution a_agI) ->
5817	let {
5818	sat_sVh [Occ=Once]
5819	:: forall b_arZ.
5820	GHC.Real.Integral b_arZ =>
5821	Data.Fixed.Fixed a_agI -> b_arZ
5822	[LclId]
5823	sat_sVh =
5824	\ (@ b_arZ) (eta_B1 [Occ=Once] :: GHC.Real.Integral b_arZ) ->
5825	$cfloor_rHm @ a_agI $dHasResolution_sSE @ b_arZ eta_B1 } in
5826	let {
5827	sat_sVi [Occ=Once]
5828	:: forall b_ar8.
5829	GHC.Real.Integral b_ar8 =>
5830	Data.Fixed.Fixed a_agI -> b_ar8
5831	[LclId]
5832	sat_sVi =
5833	\ (@ b_ar8) (eta_B1 [Occ=Once] :: GHC.Real.Integral b_ar8) ->
5834	$cceiling_rHl @ a_agI $dHasResolution_sSE @ b_ar8 eta_B1 } in
5835	let {
5836	sat_sVj [Occ=Once]
5837	:: forall b_avj.
5838	GHC.Real.Integral b_avj =>
5839	Data.Fixed.Fixed a_agI -> b_avj
5840	[LclId]
5841	sat_sVj =
5842	\ (@ b_avj) (eta_B1 [Occ=Once] :: GHC.Real.Integral b_avj) ->
5843	$cround_rHk @ a_agI $dHasResolution_sSE @ b_avj eta_B1 } in
5844	let {
5845	sat_sVk [Occ=Once]
5846	:: forall b_auU.
5847	GHC.Real.Integral b_auU =>
5848	Data.Fixed.Fixed a_agI -> b_auU
5849	[LclId]
5850	sat_sVk =
5851	\ (@ b_auU) (eta_B1 [Occ=Once] :: GHC.Real.Integral b_auU) ->
5852	$ctruncate_rHj @ a_agI $dHasResolution_sSE @ b_auU eta_B1 } in
5853	let {
5854	sat_sVl [Occ=Once]
5855	:: forall b_auQ.
5856	GHC.Real.Integral b_auQ =>
5857	Data.Fixed.Fixed a_agI -> (b_auQ, Data.Fixed.Fixed a_agI)
5858	[LclId]
5859	sat_sVl =
5860	\ (@ b_auQ) (eta_B1 [Occ=Once] :: GHC.Real.Integral b_auQ) ->
5861	$cproperFraction_rHn
5862	@ a_agI $dHasResolution_sSE @ b_auQ eta_B1 } in
5863	let {
5864	sat_sVm [Occ=Once] :: GHC.Real.Fractional (Data.Fixed.Fixed a_agI)
5865	[LclId]
5866	sat_sVm =
5867	Data.Fixed.$fFractionalFixed @ a_agI $dHasResolution_sSE } in
5868	let {
5869	sat_sVg [Occ=Once] :: GHC.Real.Real (Data.Fixed.Fixed a_agI)
5870	[LclId]
5871	sat_sVg = Data.Fixed.$fRealFixed @ a_agI $dHasResolution_sSE } in
5872	GHC.Real.D:RealFrac
5873	@ (Data.Fixed.Fixed a_agI)
5874	sat_sVg
5875	sat_sVm
5876	sat_sVl
5877	sat_sVk
5878	sat_sVj
5879	sat_sVi
5880	sat_sVh
5881
5882	$cproperFraction_rHn
5883	:: forall a_agI.
5884	Data.Fixed.HasResolution a_agI =>
5885	forall b_auQ.
5886	GHC.Real.Integral b_auQ =>
5887	Data.Fixed.Fixed a_agI -> (b_auQ, Data.Fixed.Fixed a_agI)
5888	[GblId, Arity=2, Unf=OtherCon []]
5889	$cproperFraction_rHn =
5890	\ (@ a_agI)
5891	($dHasResolution_sSP :: Data.Fixed.HasResolution a_agI)
5892	(@ b_auR)
5893	($dIntegral_sSV :: GHC.Real.Integral b_auR) ->
5894	let {
5895	$dNum_sSQ :: GHC.Num.Num (Data.Fixed.Fixed a_agI)
5896	[LclId]
5897	$dNum_sSQ = Data.Fixed.$fNumFixed @ a_agI $dHasResolution_sSP } in
5898	let {
5899	$dRealFrac_sSS [Occ=OnceL]
5900	:: GHC.Real.RealFrac (Data.Fixed.Fixed a_agI)
5901	[LclId]
5902	$dRealFrac_sSS =
5903	Data.Fixed.$fRealFracFixed @ a_agI $dHasResolution_sSP } in
5904	let {
5905	sat_sVn [Occ=Once]
5906	:: Data.Fixed.Fixed a_agI -> (b_auR, Data.Fixed.Fixed a_agI)
5907	[LclId]
5908	sat_sVn =
5909	\ (a17_sSW :: Data.Fixed.Fixed a_agI) ->
5910	let {
5911	i_sSX :: b_auR
5912	[LclId]
5913	i_sSX =
5914	GHC.Real.truncate
5915	@ (Data.Fixed.Fixed a_agI)
5916	$dRealFrac_sSS
5917	@ b_auR
5918	$dIntegral_sSV
5919	a17_sSW } in
5920	let {
5921	sat_sT1 [Occ=Once] :: Data.Fixed.Fixed a_agI
5922	[LclId]
5923	sat_sT1 =
5924	let {
5925	sat_sSZ [Occ=Once] :: Data.Fixed.Fixed a_agI
5926	[LclId]
5927	sat_sSZ =
5928	GHC.Real.fromIntegral
5929	@ b_auR
5930	@ (Data.Fixed.Fixed a_agI)
5931	$dIntegral_sSV
5932	$dNum_sSQ
5933	i_sSX } in
5934	GHC.Num.- @ (Data.Fixed.Fixed a_agI) $dNum_sSQ a17_sSW sat_sSZ } in
5935	(i_sSX, sat_sT1) } in
5936	sat_sVn
5937	end Rec }
5938
5939	Data.Fixed.E9 :: Data.Fixed.E9
5940	[GblId[DataCon], Caf=NoCafRefs, Str=DmdType, Unf=OtherCon []]
5941	Data.Fixed.E9 = Data.Fixed.E9
5942
5943	Data.Fixed.E6 :: Data.Fixed.E6
5944	[GblId[DataCon], Caf=NoCafRefs, Str=DmdType, Unf=OtherCon []]
5945	Data.Fixed.E6 = Data.Fixed.E6
5946
5947	Data.Fixed.E3 :: Data.Fixed.E3
5948	[GblId[DataCon], Caf=NoCafRefs, Str=DmdType, Unf=OtherCon []]
5949	Data.Fixed.E3 = Data.Fixed.E3
5950
5951	Data.Fixed.E2 :: Data.Fixed.E2
5952	[GblId[DataCon], Caf=NoCafRefs, Str=DmdType, Unf=OtherCon []]
5953	Data.Fixed.E2 = Data.Fixed.E2
5954
5955	Data.Fixed.E12 :: Data.Fixed.E12
5956	[GblId[DataCon], Caf=NoCafRefs, Str=DmdType, Unf=OtherCon []]
5957	Data.Fixed.E12 = Data.Fixed.E12
5958
5959	Data.Fixed.E1 :: Data.Fixed.E1
5960	[GblId[DataCon], Caf=NoCafRefs, Str=DmdType, Unf=OtherCon []]
5961	Data.Fixed.E1 = Data.Fixed.E1
5962
5963	Data.Fixed.E0 :: Data.Fixed.E0
5964	[GblId[DataCon], Caf=NoCafRefs, Str=DmdType, Unf=OtherCon []]
5965	Data.Fixed.E0 = Data.Fixed.E0
5966
5967

Download in other formats:

Original Format