-
-
-================================================================================
-Desugared:
-Rec {
-+_a14Y :: PrelBase.Double{-3a,W-}
- -> PrelBase.Double{-3a,W-}
- -> PrelBase.Double{-3a,W-}
-{-# L #-}
-+_a14Y =
- +_a13j
-h_aUa :: PrelBase.Double{-3a,W-}
-{-# L #-}
-h_aUa =
- let { ds_d18Q :: PrelBase.Double{-3a,W-}
- {-# L #-}
- ds_d18Q =
- let {
- ds_d192 :: PrelBase.Double{-3a,W-}
- {-# L #-}
- ds_d192 =
- +_a14Y lit_a13l lit_a13m
- } in -_a13k ds_d192 lit_a13n
- } in
- let {
- ds_d18U :: PrelBase.Double{-3a,W-}
- {-# L #-}
- ds_d18U =
- *_a13o lit_a13p lit_a13q
- } in +_a13j ds_d18Q ds_d18U
-h{-r4,x-} :: PrelBase.Double{-3a,W-}
-{-# L #-}
-h{-r4,x-} =
- h_aUa
-+_a148 :: PrelBase.Float{-3c,W-}
- -> PrelBase.Float{-3c,W-}
- -> PrelBase.Float{-3c,W-}
-{-# L #-}
-+_a148 =
- +_a134
-g_aUB :: PrelBase.Float{-3c,W-}
-{-# L #-}
-g_aUB =
- let { ds_d19B :: PrelBase.Float{-3c,W-}
- {-# L #-}
- ds_d19B =
- let {
- ds_d19N :: PrelBase.Float{-3c,W-}
- {-# L #-}
- ds_d19N =
- +_a148 lit_a137 lit_a139
- } in -_a135 ds_d19N lit_a13b
- } in
- let {
- ds_d19F :: PrelBase.Float{-3c,W-}
- {-# L #-}
- ds_d19F =
- *_a13c lit_a13f lit_a13i
- } in +_a134 ds_d19B ds_d19F
-g{-r2,x-} :: PrelBase.Float{-3c,W-}
-{-# L #-}
-g{-r2,x-} =
- g_aUB
-+_a12R :: PrelBase.Double{-3a,W-}
- -> PrelBase.Double{-3a,W-}
- -> PrelBase.Double{-3a,W-}
-{-# L #-}
-+_a12R =
- +_a12S
-f_aV2 :: PrelBase.Double{-3a,W-}
-{-# L #-}
-f_aV2 =
- let { ds_d1am :: PrelBase.Double{-3a,W-}
- {-# L #-}
- ds_d1am =
- let {
- ds_d1ay :: PrelBase.Double{-3a,W-}
- {-# L #-}
- ds_d1ay =
- +_a12R lit_a12U lit_a12W
- } in -_a12Q ds_d1ay lit_a12Y
- } in
- let {
- ds_d1aq :: PrelBase.Double{-3a,W-}
- {-# L #-}
- ds_d1aq =
- *_a12Z lit_a131 lit_a133
- } in +_a12S ds_d1am ds_d1aq
-f{-r5,x-} :: PrelBase.Double{-3a,W-}
-{-# L #-}
-f{-r5,x-} =
- f_aV2
-d.Num_aWi :: {PrelBase.Num{-2c,p-} PrelBase.Double{-3a,W-}}
-{-# L #-}
-d.Num_aWi =
- PrelNum.$d16{-rnW,p-}
-+_a12S :: PrelBase.Double{-3a,W-}
- -> PrelBase.Double{-3a,W-}
- -> PrelBase.Double{-3a,W-}
-{-# L #-}
-+_a12S =
- PrelBase.+{-rfj,p-} _@_ PrelBase.Double{-3a,W-} d.Num_aWi
-d.Num_aWl :: {PrelBase.Num{-2c,p-} PrelBase.Double{-3a,W-}}
-{-# L #-}
-d.Num_aWl =
- d.Num_aWi
--_a12Q :: PrelBase.Double{-3a,W-}
- -> PrelBase.Double{-3a,W-}
- -> PrelBase.Double{-3a,W-}
-{-# L #-}
--_a12Q =
- PrelBase.-{-817,p-} _@_ PrelBase.Double{-3a,W-} d.Num_aWl
-d.Fractional_aWo :: {PrelNum.Fractional{-26,p-} PrelBase.Double{-3a,W-}}
-{-# L #-}
-d.Fractional_aWo =
- PrelNum.$d14{-rnU,p-}
-fromRational_a12T :: PrelNum.Rational{-3r,p-}
- -> PrelBase.Double{-3a,W-}
-{-# L #-}
-fromRational_a12T =
- PrelNum.fromRational{-8T,p-}
- _@_ PrelBase.Double{-3a,W-} d.Fractional_aWo
-lit_a12U :: PrelBase.Double{-3a,W-}
-{-# L #-}
-lit_a12U =
- fromRational_a12T _rational_ 3 2
-fromRational_a12V :: PrelNum.Rational{-3r,p-}
- -> PrelBase.Double{-3a,W-}
-{-# L #-}
-fromRational_a12V =
- fromRational_a12T
-lit_a12W :: PrelBase.Double{-3a,W-}
-{-# L #-}
-lit_a12W =
- fromRational_a12V _rational_ 2 1
-fromRational_a12X :: PrelNum.Rational{-3r,p-}
- -> PrelBase.Double{-3a,W-}
-{-# L #-}
-fromRational_a12X =
- fromRational_a12T
-lit_a12Y :: PrelBase.Double{-3a,W-}
-{-# L #-}
-lit_a12Y =
- fromRational_a12X _rational_ 62831853 20000000
-d.Num_aWt :: {PrelBase.Num{-2c,p-} PrelBase.Double{-3a,W-}}
-{-# L #-}
-d.Num_aWt =
- d.Num_aWi
-*_a12Z :: PrelBase.Double{-3a,W-}
- -> PrelBase.Double{-3a,W-}
- -> PrelBase.Double{-3a,W-}
-{-# L #-}
-*_a12Z =
- PrelBase.*{-rX,p-} _@_ PrelBase.Double{-3a,W-} d.Num_aWt
-fromRational_a130 :: PrelNum.Rational{-3r,p-}
- -> PrelBase.Double{-3a,W-}
-{-# L #-}
-fromRational_a130 =
- fromRational_a12T
-lit_a131 :: PrelBase.Double{-3a,W-}
-{-# L #-}
-lit_a131 =
- fromRational_a130 _rational_ 21 5
-fromRational_a132 :: PrelNum.Rational{-3r,p-}
- -> PrelBase.Double{-3a,W-}
-{-# L #-}
-fromRational_a132 =
- fromRational_a12T
-lit_a133 :: PrelBase.Double{-3a,W-}
-{-# L #-}
-lit_a133 =
- fromRational_a132
- _rational_ 5111111111111111111111111111 1000000000000000000000000000
-d.Num_aWx :: {PrelBase.Num{-2c,p-} PrelBase.Float{-3c,W-}}
-{-# L #-}
-d.Num_aWx =
- PrelNum.$d25{-ro6,p-}
-+_a134 :: PrelBase.Float{-3c,W-}
- -> PrelBase.Float{-3c,W-}
- -> PrelBase.Float{-3c,W-}
-{-# L #-}
-+_a134 =
- PrelBase.+{-rfj,p-} _@_ PrelBase.Float{-3c,W-} d.Num_aWx
-d.Num_aWA :: {PrelBase.Num{-2c,p-} PrelBase.Float{-3c,W-}}
-{-# L #-}
-d.Num_aWA =
- d.Num_aWx
--_a135 :: PrelBase.Float{-3c,W-}
- -> PrelBase.Float{-3c,W-}
- -> PrelBase.Float{-3c,W-}
-{-# L #-}
--_a135 =
- PrelBase.-{-817,p-} _@_ PrelBase.Float{-3c,W-} d.Num_aWA
-d.Fractional_aWD :: {PrelNum.Fractional{-26,p-} PrelBase.Float{-3c,W-}}
-{-# L #-}
-d.Fractional_aWD =
- PrelNum.$d23{-ro4,p-}
-fromRational_a136 :: PrelNum.Rational{-3r,p-}
- -> PrelBase.Float{-3c,W-}
-{-# L #-}
-fromRational_a136 =
- PrelNum.fromRational{-8T,p-}
- _@_ PrelBase.Float{-3c,W-} d.Fractional_aWD
-lit_a137 :: PrelBase.Float{-3c,W-}
-{-# L #-}
-lit_a137 =
- fromRational_a136 _rational_ 3 2
-fromRational_a138 :: PrelNum.Rational{-3r,p-}
- -> PrelBase.Float{-3c,W-}
-{-# L #-}
-fromRational_a138 =
- fromRational_a136
-lit_a139 :: PrelBase.Float{-3c,W-}
-{-# L #-}
-lit_a139 =
- fromRational_a138 _rational_ 2 1
-fromRational_a13a :: PrelNum.Rational{-3r,p-}
- -> PrelBase.Float{-3c,W-}
-{-# L #-}
-fromRational_a13a =
- fromRational_a136
-lit_a13b :: PrelBase.Float{-3c,W-}
-{-# L #-}
-lit_a13b =
- fromRational_a13a _rational_ 62831853 20000000
-d.Num_aWI :: {PrelBase.Num{-2c,p-} PrelBase.Float{-3c,W-}}
-{-# L #-}
-d.Num_aWI =
- d.Num_aWx
-*_a13c :: PrelBase.Float{-3c,W-}
- -> PrelBase.Float{-3c,W-}
- -> PrelBase.Float{-3c,W-}
-{-# L #-}
-*_a13c =
- PrelBase.*{-rX,p-} _@_ PrelBase.Float{-3c,W-} d.Num_aWI
-fromRational_a13e :: PrelNum.Rational{-3r,p-}
- -> PrelBase.Float{-3c,W-}
-{-# L #-}
-fromRational_a13e =
- fromRational_a136
-lit_a13f :: PrelBase.Float{-3c,W-}
-{-# L #-}
-lit_a13f =
- fromRational_a13e _rational_ 21 5
-fromRational_a13h :: PrelNum.Rational{-3r,p-}
- -> PrelBase.Float{-3c,W-}
-{-# L #-}
-fromRational_a13h =
- fromRational_a136
-lit_a13i :: PrelBase.Float{-3c,W-}
-{-# L #-}
-lit_a13i =
- fromRational_a13h
- _rational_ 5111111111111111111111111111 1000000000000000000000000000
-+_a13j :: PrelBase.Double{-3a,W-}
- -> PrelBase.Double{-3a,W-}
- -> PrelBase.Double{-3a,W-}
-{-# L #-}
-+_a13j =
- +_a12S
--_a13k :: PrelBase.Double{-3a,W-}
- -> PrelBase.Double{-3a,W-}
- -> PrelBase.Double{-3a,W-}
-{-# L #-}
--_a13k =
- -_a12Q
-lit_a13l :: PrelBase.Double{-3a,W-}
-{-# L #-}
-lit_a13l =
- lit_a12U
-lit_a13m :: PrelBase.Double{-3a,W-}
-{-# L #-}
-lit_a13m =
- lit_a12W
-lit_a13n :: PrelBase.Double{-3a,W-}
-{-# L #-}
-lit_a13n =
- lit_a12Y
-*_a13o :: PrelBase.Double{-3a,W-}
- -> PrelBase.Double{-3a,W-}
- -> PrelBase.Double{-3a,W-}
-{-# L #-}
-*_a13o =
- *_a12Z
-lit_a13p :: PrelBase.Double{-3a,W-}
-{-# L #-}
-lit_a13p =
- lit_a131
-lit_a13q :: PrelBase.Double{-3a,W-}
-{-# L #-}
-lit_a13q =
- lit_a133
-end Rec }