Ticket #5485: dump-output.txt

File dump-output.txt, 203.5 KB (added by erikd, 3 years ago)

Requested dump output

Line 
1
2==================== Tidy Core ====================
3Result size = 1662
4
5Data.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)}]
16Data.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
26Rec {
27conMkFixed_rbK :: Data.Data.Constr
28[GblId]
29conMkFixed_rbK =
30  Data.Data.mkConstr
31    tyFixed_rbJ
32    (GHC.CString.unpackCString# "MkFixed")
33    (GHC.Types.[] @ GHC.Base.String)
34    Data.Data.Prefix
35
36tyFixed_rbJ :: Data.Data.DataType
37[GblId]
38tyFixed_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))
45end Rec }
46
47Data.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]
52Data.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
81Data.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]
86Data.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
115Data.Fixed.mod'
116  :: forall a_ac1. GHC.Real.Real a_ac1 => a_ac1 -> a_ac1 -> a_ac1
117[GblId, Arity=3]
118Data.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
379a_rG7
380  :: forall a_ahe. Data.Fixed.Fixed a_ahe -> GHC.Integer.Type.Integer
381[GblId, Arity=1]
382a_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
403a1_rG9
404  :: forall a_Xjk. Data.Fixed.Fixed a_Xjk -> GHC.Integer.Type.Integer
405[GblId, Arity=1]
406a1_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
427Data.Fixed.$fEnumFixed [InlPrag=[ALWAYS] CONLIKE]
428  :: forall a_ahe. GHC.Enum.Enum (Data.Fixed.Fixed a_ahe)
429[GblId[DFunId]]
430Data.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
483a2_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]
488a2_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
515a3_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]
520a3_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
547a4_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]
553a4_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
591a5_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]
597a5_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
645a6_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]
651a6_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
806a7_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]
812a7_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
866Data.Fixed.$fHasResolutionE0 [InlPrag=INLINE (sat-args=0)]
867  :: Data.Fixed.HasResolution Data.Fixed.E0
868[GblId[DFunId(nt)]]
869Data.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
883Data.Fixed.$fHasResolutionE1 [InlPrag=INLINE (sat-args=0)]
884  :: Data.Fixed.HasResolution Data.Fixed.E1
885[GblId[DFunId(nt)]]
886Data.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
900Data.Fixed.$fHasResolutionE2 [InlPrag=INLINE (sat-args=0)]
901  :: Data.Fixed.HasResolution Data.Fixed.E2
902[GblId[DFunId(nt)]]
903Data.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
917Data.Fixed.$fHasResolutionE3 [InlPrag=INLINE (sat-args=0)]
918  :: Data.Fixed.HasResolution Data.Fixed.E3
919[GblId[DFunId(nt)]]
920Data.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
934Data.Fixed.$fHasResolutionE6 [InlPrag=INLINE (sat-args=0)]
935  :: Data.Fixed.HasResolution Data.Fixed.E6
936[GblId[DFunId(nt)]]
937Data.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
951Data.Fixed.$fHasResolutionE9 [InlPrag=INLINE (sat-args=0)]
952  :: Data.Fixed.HasResolution Data.Fixed.E9
953[GblId[DFunId(nt)]]
954Data.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
969Data.Fixed.$fHasResolutionE12 [InlPrag=INLINE (sat-args=0)]
970  :: Data.Fixed.HasResolution Data.Fixed.E12
971[GblId[DFunId(nt)]]
972Data.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
980a8_rGy
981  :: GHC.Integer.Type.Integer
982     -> GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer
983[GblId]
984a8_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
1007a9_rGA
1008  :: GHC.Integer.Type.Integer
1009     -> GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer
1010[GblId]
1011a9_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
1034a10_rGC
1035  :: GHC.Integer.Type.Integer
1036     -> GHC.Integer.Type.Integer -> GHC.Types.Bool
1037[GblId]
1038a10_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
1059a11_rGE
1060  :: GHC.Integer.Type.Integer
1061     -> GHC.Integer.Type.Integer -> GHC.Types.Bool
1062[GblId]
1063a11_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
1084a12_rGG
1085  :: GHC.Integer.Type.Integer
1086     -> GHC.Integer.Type.Integer -> GHC.Types.Bool
1087[GblId]
1088a12_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
1109a13_rGI
1110  :: GHC.Integer.Type.Integer
1111     -> GHC.Integer.Type.Integer -> GHC.Types.Bool
1112[GblId]
1113a13_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
1134a14_rGK
1135  :: GHC.Integer.Type.Integer
1136     -> GHC.Integer.Type.Integer -> GHC.Types.Ordering
1137[GblId]
1138a14_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
1160a15_rGM
1161  :: GHC.Integer.Type.Integer
1162     -> GHC.Integer.Type.Integer -> GHC.Types.Bool
1163[GblId]
1164a15_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
1185a16_rGO
1186  :: GHC.Integer.Type.Integer
1187     -> GHC.Integer.Type.Integer -> GHC.Types.Bool
1188[GblId]
1189a16_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
1210Data.Fixed.$fEqFixed [InlPrag=[ALWAYS] CONLIKE]
1211  :: forall a_abT. GHC.Classes.Eq (Data.Fixed.Fixed a_abT)
1212[GblId[DFunId]]
1213Data.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
1234Data.Fixed.$fOrdFixed [InlPrag=[ALWAYS] CONLIKE]
1235  :: forall a_abT. GHC.Classes.Ord (Data.Fixed.Fixed a_abT)
1236[GblId[DFunId]]
1237Data.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
1330Data.Fixed.$fTypeable1Fixed [InlPrag=INLINE (sat-args=0)]
1331  :: Data.Typeable.Internal.Typeable1 Data.Fixed.Fixed
1332[GblId[DFunId(nt)]]
1333Data.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
1362Rec {
1363Data.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]
1368Data.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)
1542end 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
1557Data.Fixed.$fTypeableE9 [InlPrag=INLINE (sat-args=0)]
1558  :: Data.Typeable.Internal.Typeable Data.Fixed.E9
1559[GblId[DFunId(nt)]]
1560Data.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
1580Data.Fixed.$fTypeableE6 [InlPrag=INLINE (sat-args=0)]
1581  :: Data.Typeable.Internal.Typeable Data.Fixed.E6
1582[GblId[DFunId(nt)]]
1583Data.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
1603Data.Fixed.$fTypeableE3 [InlPrag=INLINE (sat-args=0)]
1604  :: Data.Typeable.Internal.Typeable Data.Fixed.E3
1605[GblId[DFunId(nt)]]
1606Data.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
1626Data.Fixed.$fTypeableE2 [InlPrag=INLINE (sat-args=0)]
1627  :: Data.Typeable.Internal.Typeable Data.Fixed.E2
1628[GblId[DFunId(nt)]]
1629Data.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
1649Data.Fixed.$fTypeableE12 [InlPrag=INLINE (sat-args=0)]
1650  :: Data.Typeable.Internal.Typeable Data.Fixed.E12
1651[GblId[DFunId(nt)]]
1652Data.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
1672Data.Fixed.$fTypeableE1 [InlPrag=INLINE (sat-args=0)]
1673  :: Data.Typeable.Internal.Typeable Data.Fixed.E1
1674[GblId[DFunId(nt)]]
1675Data.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
1695Data.Fixed.$fTypeableE0 [InlPrag=INLINE (sat-args=0)]
1696  :: Data.Typeable.Internal.Typeable Data.Fixed.E0
1697[GblId[DFunId(nt)]]
1698Data.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
1705Rec {
1706chopZeros_rbN :: GHC.Integer.Type.Integer -> GHC.Base.String
1707[GblId, Arity=1]
1708chopZeros_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    }
1740end Rec }
1741
1742Rec {
1743Data.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]
1748Data.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    }
1907end 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
1921Rec {
1922Data.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]
1927Data.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)
1959end Rec }
1960
1961Rec {
1962Data.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]
1967Data.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)))
2067end Rec }
2068
2069Data.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]
2074Data.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
2240Rec {
2241Data.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]
2246Data.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)
2291end Rec }
2292
2293Data.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]
2298Data.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
2431Rec {
2432Data.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]
2437Data.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))
2489end Rec }
2490
2491
2492
2493
2494==================== CorePrep ====================
2495Result size = 2198
2496
2497Data.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 []]
2506Data.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
2516Rec {
2517sat_sIo :: GHC.Base.String
2518[LclId]
2519sat_sIo = GHC.CString.unpackCString# "MkFixed"
2520
2521sat_sIi :: [Data.Data.Constr]
2522[LclId]
2523sat_sIi =
2524  GHC.Types.:
2525    @ Data.Data.Constr conMkFixed_rbK (GHC.Types.[] @ Data.Data.Constr)
2526
2527sat_sIj :: GHC.Base.String
2528[LclId]
2529sat_sIj = GHC.CString.unpackCString# "Data.Fixed.Fixed"
2530
2531conMkFixed_rbK :: Data.Data.Constr
2532[GblId]
2533conMkFixed_rbK =
2534  Data.Data.mkConstr
2535    tyFixed_rbJ
2536    sat_sIo
2537    (GHC.Types.[] @ GHC.Base.String)
2538    Data.Data.Prefix
2539
2540tyFixed_rbJ :: Data.Data.DataType
2541[GblId]
2542tyFixed_rbJ = Data.Data.mkDataType sat_sIj sat_sIi
2543end Rec }
2544
2545Data.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 []]
2550Data.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
2595Data.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 []]
2600Data.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
2635Data.Fixed.mod'
2636  :: forall a_ac1. GHC.Real.Real a_ac1 => a_ac1 -> a_ac1 -> a_ac1
2637[GblId, Arity=3, Unf=OtherCon []]
2638Data.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
2981a_rG7
2982  :: forall a_ahe. Data.Fixed.Fixed a_ahe -> GHC.Integer.Type.Integer
2983[GblId, Arity=1, Unf=OtherCon []]
2984a_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
3006a1_rG9
3007  :: forall a_Xjk. Data.Fixed.Fixed a_Xjk -> GHC.Integer.Type.Integer
3008[GblId, Arity=1, Unf=OtherCon []]
3009a1_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
3031Data.Fixed.$fEnumFixed [InlPrag=[ALWAYS] CONLIKE]
3032  :: forall a_ahe. GHC.Enum.Enum (Data.Fixed.Fixed a_ahe)
3033[GblId[DFunId], Unf=OtherCon []]
3034Data.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
3093a2_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 []]
3098a2_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
3128a3_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 []]
3133a3_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
3163a4_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 []]
3169a4_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
3211a5_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 []]
3217a5_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
3279a6_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 []]
3285a6_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
3487a7_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 []]
3493a7_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
3561Data.Fixed.$fHasResolutionE0 [InlPrag=INLINE (sat-args=0)]
3562  :: Data.Fixed.HasResolution Data.Fixed.E0
3563[GblId[DFunId(nt)], Unf=OtherCon []]
3564Data.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
3578Data.Fixed.$fHasResolutionE1 [InlPrag=INLINE (sat-args=0)]
3579  :: Data.Fixed.HasResolution Data.Fixed.E1
3580[GblId[DFunId(nt)], Unf=OtherCon []]
3581Data.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
3596Data.Fixed.$fHasResolutionE2 [InlPrag=INLINE (sat-args=0)]
3597  :: Data.Fixed.HasResolution Data.Fixed.E2
3598[GblId[DFunId(nt)], Unf=OtherCon []]
3599Data.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
3614Data.Fixed.$fHasResolutionE3 [InlPrag=INLINE (sat-args=0)]
3615  :: Data.Fixed.HasResolution Data.Fixed.E3
3616[GblId[DFunId(nt)], Unf=OtherCon []]
3617Data.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
3632Data.Fixed.$fHasResolutionE6 [InlPrag=INLINE (sat-args=0)]
3633  :: Data.Fixed.HasResolution Data.Fixed.E6
3634[GblId[DFunId(nt)], Unf=OtherCon []]
3635Data.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
3650Data.Fixed.$fHasResolutionE9 [InlPrag=INLINE (sat-args=0)]
3651  :: Data.Fixed.HasResolution Data.Fixed.E9
3652[GblId[DFunId(nt)], Unf=OtherCon []]
3653Data.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
3682Data.Fixed.$fHasResolutionE12 [InlPrag=INLINE (sat-args=0)]
3683  :: Data.Fixed.HasResolution Data.Fixed.E12
3684[GblId[DFunId(nt)], Unf=OtherCon []]
3685Data.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
3693a8_rGy
3694  :: GHC.Integer.Type.Integer
3695     -> GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer
3696[GblId]
3697a8_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
3720a9_rGA
3721  :: GHC.Integer.Type.Integer
3722     -> GHC.Integer.Type.Integer -> GHC.Integer.Type.Integer
3723[GblId]
3724a9_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
3747a10_rGC
3748  :: GHC.Integer.Type.Integer
3749     -> GHC.Integer.Type.Integer -> GHC.Types.Bool
3750[GblId]
3751a10_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
3772a11_rGE
3773  :: GHC.Integer.Type.Integer
3774     -> GHC.Integer.Type.Integer -> GHC.Types.Bool
3775[GblId]
3776a11_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
3797a12_rGG
3798  :: GHC.Integer.Type.Integer
3799     -> GHC.Integer.Type.Integer -> GHC.Types.Bool
3800[GblId]
3801a12_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
3822a13_rGI
3823  :: GHC.Integer.Type.Integer
3824     -> GHC.Integer.Type.Integer -> GHC.Types.Bool
3825[GblId]
3826a13_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
3847a14_rGK
3848  :: GHC.Integer.Type.Integer
3849     -> GHC.Integer.Type.Integer -> GHC.Types.Ordering
3850[GblId]
3851a14_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
3873a15_rGM
3874  :: GHC.Integer.Type.Integer
3875     -> GHC.Integer.Type.Integer -> GHC.Types.Bool
3876[GblId]
3877a15_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
3898a16_rGO
3899  :: GHC.Integer.Type.Integer
3900     -> GHC.Integer.Type.Integer -> GHC.Types.Bool
3901[GblId]
3902a16_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
3923Data.Fixed.$fEqFixed [InlPrag=[ALWAYS] CONLIKE]
3924  :: forall a_abT. GHC.Classes.Eq (Data.Fixed.Fixed a_abT)
3925[GblId[DFunId], Unf=OtherCon []]
3926Data.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
3947Data.Fixed.$fOrdFixed [InlPrag=[ALWAYS] CONLIKE]
3948  :: forall a_abT. GHC.Classes.Ord (Data.Fixed.Fixed a_abT)
3949[GblId[DFunId], Unf=OtherCon []]
3950Data.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
4059Data.Fixed.$fTypeable1Fixed [InlPrag=INLINE (sat-args=0)]
4060  :: Data.Typeable.Internal.Typeable1 Data.Fixed.Fixed
4061[GblId[DFunId(nt)], Unf=OtherCon []]
4062Data.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
4092Rec {
4093Data.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 []]
4098Data.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
4439end 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
4470Data.Fixed.$fTypeableE9 [InlPrag=INLINE (sat-args=0)]
4471  :: Data.Typeable.Internal.Typeable Data.Fixed.E9
4472[GblId[DFunId(nt)], Unf=OtherCon []]
4473Data.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
4509Data.Fixed.$fTypeableE6 [InlPrag=INLINE (sat-args=0)]
4510  :: Data.Typeable.Internal.Typeable Data.Fixed.E6
4511[GblId[DFunId(nt)], Unf=OtherCon []]
4512Data.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
4548Data.Fixed.$fTypeableE3 [InlPrag=INLINE (sat-args=0)]
4549  :: Data.Typeable.Internal.Typeable Data.Fixed.E3
4550[GblId[DFunId(nt)], Unf=OtherCon []]
4551Data.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
4587Data.Fixed.$fTypeableE2 [InlPrag=INLINE (sat-args=0)]
4588  :: Data.Typeable.Internal.Typeable Data.Fixed.E2
4589[GblId[DFunId(nt)], Unf=OtherCon []]
4590Data.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
4626Data.Fixed.$fTypeableE12 [InlPrag=INLINE (sat-args=0)]
4627  :: Data.Typeable.Internal.Typeable Data.Fixed.E12
4628[GblId[DFunId(nt)], Unf=OtherCon []]
4629Data.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
4665Data.Fixed.$fTypeableE1 [InlPrag=INLINE (sat-args=0)]
4666  :: Data.Typeable.Internal.Typeable Data.Fixed.E1
4667[GblId[DFunId(nt)], Unf=OtherCon []]
4668Data.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
4704Data.Fixed.$fTypeableE0 [InlPrag=INLINE (sat-args=0)]
4705  :: Data.Typeable.Internal.Typeable Data.Fixed.E0
4706[GblId[DFunId(nt)], Unf=OtherCon []]
4707Data.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
4714Rec {
4715chopZeros_rbN :: GHC.Integer.Type.Integer -> GHC.Base.String
4716[GblId, Arity=1, Unf=OtherCon []]
4717chopZeros_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    }
4774end Rec }
4775
4776Rec {
4777Data.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 []]
4782Data.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    }
5024end 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
5038Rec {
5039Data.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 []]
5044Data.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
5093end Rec }
5094
5095Rec {
5096Data.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 []]
5101Data.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
5261end Rec }
5262
5263Data.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 []]
5268Data.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
5535Rec {
5536Data.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 []]
5541Data.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
5616end Rec }
5617
5618Data.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 []]
5623Data.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
5808Rec {
5809Data.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 []]
5814Data.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
5937end Rec }
5938
5939Data.Fixed.E9 :: Data.Fixed.E9
5940[GblId[DataCon], Caf=NoCafRefs, Str=DmdType, Unf=OtherCon []]
5941Data.Fixed.E9 = Data.Fixed.E9
5942
5943Data.Fixed.E6 :: Data.Fixed.E6
5944[GblId[DataCon], Caf=NoCafRefs, Str=DmdType, Unf=OtherCon []]
5945Data.Fixed.E6 = Data.Fixed.E6
5946
5947Data.Fixed.E3 :: Data.Fixed.E3
5948[GblId[DataCon], Caf=NoCafRefs, Str=DmdType, Unf=OtherCon []]
5949Data.Fixed.E3 = Data.Fixed.E3
5950
5951Data.Fixed.E2 :: Data.Fixed.E2
5952[GblId[DataCon], Caf=NoCafRefs, Str=DmdType, Unf=OtherCon []]
5953Data.Fixed.E2 = Data.Fixed.E2
5954
5955Data.Fixed.E12 :: Data.Fixed.E12
5956[GblId[DataCon], Caf=NoCafRefs, Str=DmdType, Unf=OtherCon []]
5957Data.Fixed.E12 = Data.Fixed.E12
5958
5959Data.Fixed.E1 :: Data.Fixed.E1
5960[GblId[DataCon], Caf=NoCafRefs, Str=DmdType, Unf=OtherCon []]
5961Data.Fixed.E1 = Data.Fixed.E1
5962
5963Data.Fixed.E0 :: Data.Fixed.E0
5964[GblId[DataCon], Caf=NoCafRefs, Str=DmdType, Unf=OtherCon []]
5965Data.Fixed.E0 = Data.Fixed.E0
5966
5967
5968