module Hat.PreludeBasic
  (gyield,hyield,glift,hlift,gthenAp,gthenLex,hthenLex,galt,halt,Eq(..),Ord(..)
    ,Enum(..),Bounded(..),Num(..),Real(..),Integral(..),Fractional(..)
    ,Floating(..),RealFrac(..),RealFloat(..),gsubtract,geven,heven,godd,ggcd
    ,hgcd,glcm,hlcm,(!^),(*^),(!^^),(*^^),gfromIntegral,grealToFrac,Functor(..)
    ,Monad(..),gsequence,gsequence_,gmapM,hmapM,gmapM_,hmapM_,(!=<<),(*=<<),gid
    ,hid,gconst,hconst,(!.),(*.),gflip,hflip,(!$),(*$),(!$!),(*$!),(!&&),(*&&)
    ,(!||),(*||),gnot,hnot,gotherwise,Maybe(..),gmaybe,hmaybe,Either(..),geither
    ,heither,Ordering(..),gintEnumFromByTo,hintEnumFromByTo,gnumericEnumFrom
    ,gnumericEnumFromThen,hnumericEnumFromThen,gnumericEnumFromTo
    ,hnumericEnumFromTo,gnumericEnumFromThenTo,hnumericEnumFromThenTo,gfst,hfst
    ,gsnd,hsnd,gcurry,hcurry,guncurry,huncurry,guntil,huntil,gasTypeOf,g_foldr
    ,h_foldr,g_filter,h_filter,gmap,hmap,(!++),(*++),gfilter,hfilter,gconcat
    ,hconcat,ghead,hhead,glast,hlast,gtail,htail,ginit,hinit,gnull,hnull,glength
    ,hlength,(!!!),(*!!),gfoldl,hfoldl,gfoldl1,hfoldl1,gscanl,hscanl,gscanl1
    ,hscanl1,gfoldr,hfoldr,gfoldr1,hfoldr1,gscanr,hscanr,gscanr1,hscanr1
    ,giterate,hiterate,grepeat,hrepeat,greplicate,hreplicate,gcycle,hcycle,gtake
    ,htake,gdrop,hdrop,gsplitAt,hsplitAt,gtakeWhile,htakeWhile,gdropWhile
    ,hdropWhile,gspan,hspan,gbreak,hbreak,glines,hlines,gwords,hwords,gunlines
    ,gunwords,hunwords,greverse,gand,gor,gany,hany,gall,hall,gelem,helem
    ,gnotElem,hnotElem,glookup,hlookup,gsum,gproduct,gmaximum,hmaximum,gminimum
    ,hminimum,gconcatMap,hconcatMap,gzip,gzip3,gzipWith,hzipWith,gzipWith3
    ,hzipWith3,gunzip,gunzip3,ReadS(),ReadS___1(),ReadS___2(),ShowS()
    ,ShowS___1(),ShowS___2(),Read(..),Show(..),greads,gshows,gread,hread
    ,gshowChar,gshowString,gshowParen,hshowParen,greadParen,hreadParen,glex,hlex
    ,FilePath(),gputStr,hputStr,gputStrLn,hputStrLn,gprint,hprint,ggetLine
    ,ginteract,hinteract,greadIO,hreadIO,greadLn,gdigitToInt,hdigitToInt
    ,gintToDigit,hintToDigit,gord,gchr,greadLitChar,hreadLitChar,gshowLitChar
    ,hshowLitChar,gprotectEsc,hprotectEsc,gasciiTab,glexLitChar,hlexLitChar
    ,gfromRat,hfromRat,gfromRat',hfromRat',gscaleRat,hscaleRat,gminExpt,gmaxExpt
    ,gexpt,hexpt,gexpts,gintegerLogBase,hintegerLogBase,gshowSigned,hshowSigned
    ,gshowOct,gshowInt,gshowHex,gshowIntAtBase,hshowIntAtBase,greadSigned
    ,hreadSigned,greadInt,hreadInt,greadDec,greadOct,greadHex,gshowEFloat
    ,hshowEFloat,gshowFFloat,hshowFFloat,gshowGFloat,hshowGFloat,gshowFloat
    ,FFFormat(..),gformatRealFloat,hformatRealFloat,groundTo,hroundTo
    ,gfloatToDigits,hfloatToDigits,greadFloat,hreadFloat,glexDigits,gnonnull
    ,hnonnull,gprec,Ratio(..),Rational(),greduce,hreduce,(!%),(*%),gnumerator
    ,hnumerator,gdenominator,hdenominator,gapproxRational,happroxRational
    ,aNothing,aJust,aLeft,aRight,aLT,aEQ,aGT,aFFExponent,aFFFixed,aFFGeneric
    ,(+:%),ayield,alift,athenAp,athenLex,aalt,asubtract,aeven,aodd,agcd,alcm
    ,(+^),(+^^),afromIntegral,arealToFrac,asequence,asequence_,amapM,amapM_
    ,(+=<<),aid,aconst,(+.),aflip,(+$),(+$!),(+&&),(+||),anot,aotherwise,amaybe
    ,aeither,aintEnumFromByTo,anumericEnumFrom,anumericEnumFromThen
    ,anumericEnumFromTo,anumericEnumFromThenTo,afst,asnd,acurry,auncurry,auntil
    ,aasTypeOf,a_foldr,a_filter,amap,(+++),afilter,aconcat,ahead,alast,atail
    ,ainit,anull,alength,(+!!),afoldl,afoldl1,ascanl,ascanl1,afoldr,afoldr1
    ,ascanr,ascanr1,aiterate,arepeat,areplicate,acycle,atake,adrop,asplitAt
    ,atakeWhile,adropWhile,aspan,abreak,alines,awords,aunlines,aunwords,areverse
    ,aand,aor,aany,aall,aelem,anotElem,alookup,asum,aproduct,amaximum,aminimum
    ,aconcatMap,azip,azip3,azipWith,azipWith3,aunzip,aunzip3,areads,ashows,aread
    ,ashowChar,ashowString,ashowParen,areadParen,alex,aputStr,aputStrLn,aprint
    ,agetLine,ainteract,areadIO,areadLn,adigitToInt,aintToDigit,aord,achr
    ,areadLitChar,ashowLitChar,aprotectEsc,aasciiTab,alexLitChar,afromRat
    ,afromRat',ascaleRat,aminExpt,amaxExpt,aexpt,aexpts,aintegerLogBase
    ,ashowSigned,ashowOct,ashowInt,ashowHex,ashowIntAtBase,areadSigned,areadInt
    ,areadDec,areadOct,areadHex,ashowEFloat,ashowFFloat,ashowGFloat,ashowFloat
    ,aformatRealFloat,aroundTo,afloatToDigits,areadFloat,alexDigits,anonnull
    ,aprec,areduce,(+%),anumerator,adenominator,aapproxRational
    ,module Hat.PreludeBuiltin) where

import qualified Prelude 
import Hat.Hack 
import qualified Hat.Hat as T 
import Hat.Hat  (WrapVal(wrapVal))
import Hat.PreludeBuiltinTypes 
import Hat.PreludeBuiltin 

gyield :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (ReadS a))

hyield :: (T.R a) -> (T.R (ReadS___1 a)) -> T.RefExp -> T.R (ReadS___2 a)

gyield pyield p = T.ufun2 ayield pyield p hyield

hyield fx fr p =
  T.fromExpList T.mkNoSrcPos p [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 fx fr]

glift ::
  T.RefSrcPos ->
    T.RefExp ->
      T.R
        (T.Fun (T.Fun a (T.Fun b (ReadS c)))
          (T.Fun (ReadS a) (T.Fun (ReadS b) (ReadS c))))

hlift ::
  (T.R (T.Fun a (T.Fun b (ReadS c)))) ->
    (T.R (ReadS a)) ->
      (T.R (ReadS b)) -> (T.R (ReadS___1 c)) -> T.RefExp -> T.R (ReadS___2 c)

glift plift p = T.ufun4 alift plift p hlift

hlift fc ff fg fr p =
  T.uap2 T.mkNoSrcPos p (gconcatMap T.mkNoSrcPos p)
    (T.ufun1 T.mkLambda T.mkNoSrcPos p
      (\ v43v27v43v70v1 p ->
        case (v43v27v43v70v1) of
          (T.R (T.Tuple2 fx fs) _) ->
            T.uap2 T.mkNoSrcPos p (gconcatMap T.mkNoSrcPos p)
              (T.ufun1 T.mkLambda T.mkNoSrcPos p
                (\ v43v48v43v64v1 p ->
                  case (v43v48v43v64v1) of
                    (T.R (T.Tuple2 fy ft) _) ->
                      T.uap3 T.mkNoSrcPos p fc fx fy ft
                    _ -> T.fatal p)) (T.uap1 T.mkNoSrcPos p fg fs)
          _ -> T.fatal p)) (T.uap1 T.mkNoSrcPos p ff fr)

gthenAp ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (ReadS (T.Fun a b)) (T.Fun (ReadS a) (ReadS b)))

sthenAp :: T.R (T.Fun (ReadS (T.Fun a b)) (T.Fun (ReadS a) (ReadS b)))

gthenAp pthenAp p = T.uconstUse pthenAp p sthenAp

sthenAp =
  T.uconstDef T.mkRoot athenAp
    (\ p ->
      T.uap1 T.mkNoSrcPos p (glift T.mkNoSrcPos p)
        (T.ufun3 T.mkLambda T.mkNoSrcPos p
          (\ fh fx ft p ->
            T.fromExpList T.mkNoSrcPos p
              [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                  (T.uap1 T.mkNoSrcPos p fh fx) ft])))

gthenLex ::
  T.RefSrcPos -> T.RefExp -> T.R (T.Fun (ReadS a) (T.Fun String (ReadS a)))

hthenLex :: (T.R (ReadS a)) -> (T.R String) -> T.RefExp -> T.R (ReadS a)

gthenLex pthenLex p = T.ufun2 athenLex pthenLex p hthenLex

hthenLex ff fxs p =
  T.uap3 T.mkNoSrcPos p (glift T.mkNoSrcPos p)
    (T.ufun3 T.mkLambda T.mkNoSrcPos p
      (\ fx fy ft p ->
        T.ucif p (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fy fxs)
          (T.fromExpList T.mkNoSrcPos p
            [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 fx ft])
          (T.con0 T.mkNoSrcPos p T.List T.aList))) ff (glex T.mkNoSrcPos p)

galt ::
  T.RefSrcPos -> T.RefExp -> T.R (T.Fun (ReadS a) (T.Fun (ReadS a) (ReadS a)))

halt ::
  (T.R (ReadS a)) ->
    (T.R (ReadS a)) -> (T.R (ReadS___1 a)) -> T.RefExp -> T.R (ReadS___2 a)

galt palt p = T.ufun3 aalt palt p halt

halt ff fg fr p =
  T.uwrapForward p
    (((T.uap1 T.mkNoSrcPos p ff fr) *++ (T.uap1 T.mkNoSrcPos p fg fr)) p)

class Eq a
  where
  
  (!==),(!/=) :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a Bool))
  
  (!/=) (%/=) p =
    T.ufun2 (++%=^=+%=@/=) (%/=) p (*/=)
    where
    
    (*/=) fx fy p =
      T.uwrapForward p
        (hnot (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fx fy) p)
    
  
  (!==) (%==) p =
    T.ufun2 (++&=^=+&=@==) (%==) p (*==)
    where
    
    (*==) fx fy p =
      T.uwrapForward p
        (hnot (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/= p) fx fy) p)
    
  
  (|==),(|/=) :: T.R (T.Fun a (T.Fun a Bool))
  

class Eq a => Ord a
  where
  
  gcompare :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a Ordering))
  
  (!<),(!<=),(!>=),(!>) ::
    T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a Bool))
  
  gmax,gmin :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a a))
  
  gcompare pcompare p =
    T.ufun2 a75v5v78v26compare pcompare p hcompare
    where
    
    hcompare fx fy p =
      T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fx fy)
        (T.con0 T.mkNoSrcPos p EQ aEQ)
        (T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !<= p) fx fy)
          (T.con0 T.mkNoSrcPos p LT aLT)
          (T.ucguard (gotherwise T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p GT aGT)
            (T.fatal p)))
    
  
  (!<=) (%<=) p =
    T.ufun2 (+@!=^=@!=@<=) (%<=) p (*<=)
    where
    
    (*<=) fx fy p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/= p)
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fx fy)
        (T.con0 T.mkNoSrcPos p GT aGT)
    
  
  (!<) (%<) p =
    T.ufun2 (+@#=^=@#=^<) (%<) p (*<)
    where
    
    (*<) fx fy p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p)
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fx fy)
        (T.con0 T.mkNoSrcPos p LT aLT)
    
  
  (!>=) (%>=) p =
    T.ufun2 (+@$=^=@$=@>=) (%>=) p (*>=)
    where
    
    (*>=) fx fy p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/= p)
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fx fy)
        (T.con0 T.mkNoSrcPos p LT aLT)
    
  
  (!>) (%>) p =
    T.ufun2 (+@%=^=@%=^>) (%>) p (*>)
    where
    
    (*>) fx fy p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p)
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fx fy)
        (T.con0 T.mkNoSrcPos p GT aGT)
    
  
  gmax pmax p =
    T.ufun2 a86v5v88v25max pmax p hmax
    where
    
    hmax fx fy p =
      T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !<= p) fx fy)
        (T.projection T.mkNoSrcPos p fy)
        (T.ucguard (gotherwise T.mkNoSrcPos p) (T.projection T.mkNoSrcPos p fx)
          (T.fatal p))
    
  
  gmin pmin p =
    T.ufun2 a89v5v91v25min pmin p hmin
    where
    
    hmin fx fy p =
      T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !<= p) fx fy)
        (T.projection T.mkNoSrcPos p fx)
        (T.ucguard (gotherwise T.mkNoSrcPos p) (T.projection T.mkNoSrcPos p fy)
          (T.fatal p))
    
  
  scompare :: T.R (T.Fun a (T.Fun a Ordering))
  
  (|<),(|<=),(|>=),(|>) :: T.R (T.Fun a (T.Fun a Bool))
  
  smax,smin :: T.R (T.Fun a (T.Fun a a))
  

class Enum a
  where
  
  gsucc,gpred :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a a)
  
  gtoEnum :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Int a)
  
  gfromEnum :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a Int)
  
  genumFrom :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.List a))
  
  genumFromThen :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a (T.List a)))
  
  genumFromTo :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a (T.List a)))
  
  genumFromThenTo ::
    T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a (T.Fun a (T.List a))))
  
  gsucc psucc p = T.uconstUse psucc p ssucc
  
  ssucc =
    T.uconstDef T.mkRoot a111v5v111v48succ
      (\ p ->
        T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p) (gtoEnum T.mkNoSrcPos p)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !+ p)
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 1))) (gfromEnum T.mkNoSrcPos p)))
  
  gpred ppred p = T.uconstUse ppred p spred
  
  spred =
    T.uconstDef T.mkRoot a112v5v112v56pred
      (\ p ->
        T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p) (gtoEnum T.mkNoSrcPos p)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gsubtract T.mkNoSrcPos p)
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 1))) (gfromEnum T.mkNoSrcPos p)))
  
  genumFrom penumFrom p =
    T.ufun1 a113v5v113v36enumFrom penumFrom p henumFrom
    where
    
    henumFrom fx p =
      T.uwrapForward p
        (hmap (gtoEnum T.mkNoSrcPos p)
          (T.uap1 T.mkNoSrcPos p (genumFrom T.mkNoSrcPos p)
            (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fx)) p)
    
  
  genumFromTo penumFromTo p =
    T.ufun2 a114v5v114v36enumFromTo penumFromTo p henumFromTo
    where
    
    henumFromTo fx fy p =
      T.uwrapForward p
        (hmap (gtoEnum T.mkNoSrcPos p)
          (T.uap2 T.mkNoSrcPos p (genumFromTo T.mkNoSrcPos p)
            (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fx)
            (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fy)) p)
    
  
  genumFromThen penumFromThen p =
    T.ufun2 a115v5v115v36enumFromThen penumFromThen p henumFromThen
    where
    
    henumFromThen fx fy p =
      T.uwrapForward p
        (hmap (gtoEnum T.mkNoSrcPos p)
          (T.uap2 T.mkNoSrcPos p (genumFromThen T.mkNoSrcPos p)
            (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fx)
            (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fy)) p)
    
  
  genumFromThenTo penumFromThenTo p =
    T.ufun3 a116v5v117v36enumFromThenTo penumFromThenTo p henumFromThenTo
    where
    
    henumFromThenTo fx fy fz p =
      T.uwrapForward p
        (hmap (gtoEnum T.mkNoSrcPos p)
          (T.uap3 T.mkNoSrcPos p (genumFromThenTo T.mkNoSrcPos p)
            (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fx)
            (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fy)
            (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fz)) p)
    
  
  ssucc,spred :: T.R (T.Fun a a)
  
  stoEnum :: T.R (T.Fun Int a)
  
  sfromEnum :: T.R (T.Fun a Int)
  
  senumFrom :: T.R (T.Fun a (T.List a))
  
  senumFromThen :: T.R (T.Fun a (T.Fun a (T.List a)))
  
  senumFromTo :: T.R (T.Fun a (T.Fun a (T.List a)))
  
  senumFromThenTo :: T.R (T.Fun a (T.Fun a (T.Fun a (T.List a))))
  

class Bounded a
  where
  
  gminBound :: T.RefSrcPos -> T.RefExp -> T.R a
  
  gmaxBound :: T.RefSrcPos -> T.RefExp -> T.R a
  
  sminBound :: T.R a
  
  smaxBound :: T.R a
  

class (Eq a,Show a) => Num a
  where
  
  (!+),(!-),(!*) :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a a))
  
  gnegate :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a a)
  
  gabs,gsignum :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a a)
  
  gfromInteger :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Integer a)
  
  (!-) (%-) p =
    T.ufun2 (+#%*=^=#%*=^-) (%-) p (*-)
    where
    
    (*-) fx fy p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fx
        (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p) fy)
    
  
  gnegate pnegate p =
    T.ufun1 a136v5v136v29negate pnegate p hnegate
    where
    
    hnegate fx p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 0)) fx
    
  
  (|+),(|-),(|*) :: T.R (T.Fun a (T.Fun a a))
  
  snegate :: T.R (T.Fun a a)
  
  sabs,ssignum :: T.R (T.Fun a a)
  
  sfromInteger :: T.R (T.Fun Integer a)
  

class (Num a,Ord a) => Real a
  where
  
  gtoRational :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a Rational)
  
  stoRational :: T.R (T.Fun a Rational)
  

class (Real a,Enum a) => Integral a
  where
  
  gquot,grem :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a a))
  
  gdiv,gmod :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a a))
  
  gquotRem,gdivMod ::
    T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a (T.Tuple2 a a)))
  
  gtoInteger :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a Integer)
  
  gquot pquot p =
    T.ufun2 a151v8v151v11quot pquot p hquot
    where
    
    hquot fn fd p =
      gq T.mkNoSrcPos p
      where
      
      gq pq p = T.uconstUse pq p sq
      
      gr pq p = T.uconstUse pq p sr
      
      j151v34v151v38q =
        case T.uap2 T.mkNoSrcPos p (gquotRem T.mkNoSrcPos p) fn fd of
          T.R (T.Tuple2 fq fr) kq -> (kq,fq,fr)
          _ -> T.fatal p
      
      sq =
        T.uconstDef p a151v35v151v35q
          (\ _ -> case j151v34v151v38q of (kq,fq,fr) -> fq)
      
      sr =
        T.uconstDef p a151v37v151v37r
          (\ _ -> case j151v34v151v38q of (kq,fq,fr) -> fr)
      
    
  
  grem prem p =
    T.ufun2 a152v8v152v10rem prem p hrem
    where
    
    hrem fn fd p =
      gr T.mkNoSrcPos p
      where
      
      gq pq p = T.uconstUse pq p sq
      
      gr pq p = T.uconstUse pq p sr
      
      j152v34v152v38q =
        case T.uap2 T.mkNoSrcPos p (gquotRem T.mkNoSrcPos p) fn fd of
          T.R (T.Tuple2 fq fr) kq -> (kq,fq,fr)
          _ -> T.fatal p
      
      sq =
        T.uconstDef p a152v35v152v35q
          (\ _ -> case j152v34v152v38q of (kq,fq,fr) -> fq)
      
      sr =
        T.uconstDef p a152v37v152v37r
          (\ _ -> case j152v34v152v38q of (kq,fq,fr) -> fr)
      
    
  
  gdiv pdiv p =
    T.ufun2 a153v8v153v10div pdiv p hdiv
    where
    
    hdiv fn fd p =
      gq T.mkNoSrcPos p
      where
      
      gq pq p = T.uconstUse pq p sq
      
      gr pq p = T.uconstUse pq p sr
      
      j153v34v153v38q =
        case T.uap2 T.mkNoSrcPos p (gdivMod T.mkNoSrcPos p) fn fd of
          T.R (T.Tuple2 fq fr) kq -> (kq,fq,fr)
          _ -> T.fatal p
      
      sq =
        T.uconstDef p a153v35v153v35q
          (\ _ -> case j153v34v153v38q of (kq,fq,fr) -> fq)
      
      sr =
        T.uconstDef p a153v37v153v37r
          (\ _ -> case j153v34v153v38q of (kq,fq,fr) -> fr)
      
    
  
  gmod pmod p =
    T.ufun2 a154v8v154v10mod pmod p hmod
    where
    
    hmod fn fd p =
      gr T.mkNoSrcPos p
      where
      
      gq pq p = T.uconstUse pq p sq
      
      gr pq p = T.uconstUse pq p sr
      
      j154v34v154v38q =
        case T.uap2 T.mkNoSrcPos p (gdivMod T.mkNoSrcPos p) fn fd of
          T.R (T.Tuple2 fq fr) kq -> (kq,fq,fr)
          _ -> T.fatal p
      
      sq =
        T.uconstDef p a154v35v154v35q
          (\ _ -> case j154v34v154v38q of (kq,fq,fr) -> fq)
      
      sr =
        T.uconstDef p a154v37v154v37r
          (\ _ -> case j154v34v154v38q of (kq,fq,fr) -> fr)
      
    
  
  gdivMod pdivMod p =
    T.ufun2 a155v5v158v52divMod pdivMod p hdivMod
    where
    
    hdivMod fn fd p =
      T.ucif p
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p)
          (T.uap1 T.mkNoSrcPos p (gsignum T.mkNoSrcPos p) (gr T.mkNoSrcPos p))
          (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p)
            (T.uap1 T.mkNoSrcPos p (gsignum T.mkNoSrcPos p) fd)))
        (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) (gq T.mkNoSrcPos p)
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 1)))
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) (gr T.mkNoSrcPos p) fd))
        (gqr T.mkNoSrcPos p)
      where
      
      gqr pqr p = T.uconstUse pqr p sqr
      
      sqr =
        T.uconstDef p a158v31v158v32qr
          (\ p -> T.uap2 T.mkNoSrcPos p (gquotRem T.mkNoSrcPos p) fn fd)
      
      gq pq p = T.uconstUse pq p sq
      
      gr pq p = T.uconstUse pq p sr
      
      j158v34v158v38q =
        case gqr T.mkNoSrcPos p of
          T.R (T.Tuple2 fq fr) kq -> (kq,fq,fr)
          _ -> T.fatal p
      
      sq =
        T.uconstDef p a158v35v158v35q
          (\ _ -> case j158v34v158v38q of (kq,fq,fr) -> fq)
      
      sr =
        T.uconstDef p a158v37v158v37r
          (\ _ -> case j158v34v158v38q of (kq,fq,fr) -> fr)
      
    
  
  squot,srem :: T.R (T.Fun a (T.Fun a a))
  
  sdiv,smod :: T.R (T.Fun a (T.Fun a a))
  
  squotRem,sdivMod :: T.R (T.Fun a (T.Fun a (T.Tuple2 a a)))
  
  stoInteger :: T.R (T.Fun a Integer)
  

class Num a => Fractional a
  where
  
  (!/) :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a a))
  
  grecip :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a a)
  
  gfromRational :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Rational a)
  
  grecip precip p =
    T.ufun1 a168v5v168v29recip precip p hrecip
    where
    
    hrecip fx p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 1)) fx
    
  
  (!/) (%/) p =
    T.ufun2 (+#+>=^=#+>=^/) (%/) p (*/)
    where
    
    (*/) fx fy p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fx
        (T.uap1 T.mkNoSrcPos p (grecip T.mkNoSrcPos p) fy)
    
  
  (|/) :: T.R (T.Fun a (T.Fun a a))
  
  srecip :: T.R (T.Fun a a)
  
  sfromRational :: T.R (T.Fun Rational a)
  

class Fractional a => Floating a
  where
  
  gpi :: T.RefSrcPos -> T.RefExp -> T.R a
  
  gexp,glog,gsqrt :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a a)
  
  (!**),glogBase :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a a))
  
  gsin,gcos,gtan :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a a)
  
  gasin,gacos,gatan :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a a)
  
  gsinh,gcosh,gtanh :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a a)
  
  gasinh,gacosh,gatanh :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a a)
  
  (!**) (%**) p =
    T.ufun2 (+#@*=^=#@*=@**) (%**) p (***)
    where
    
    (***) fx fy p =
      T.uap1 T.mkNoSrcPos p (gexp T.mkNoSrcPos p)
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
          (T.uap1 T.mkNoSrcPos p (glog T.mkNoSrcPos p) fx) fy)
    
  
  glogBase plogBase p =
    T.ufun2 a186v5v186v37logBase plogBase p hlogBase
    where
    
    hlogBase fx fy p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p)
        (T.uap1 T.mkNoSrcPos p (glog T.mkNoSrcPos p) fy)
        (T.uap1 T.mkNoSrcPos p (glog T.mkNoSrcPos p) fx)
    
  
  gsqrt psqrt p =
    T.ufun1 a187v5v187v31sqrt psqrt p hsqrt
    where
    
    hsqrt fx p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !** p) fx
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromRational T.mkNoSrcPos p)
          (T.R
            ((T.conInteger T.mkNoSrcPos p 1)
              Hat.PreludeBasic.:%
              (T.conInteger T.mkNoSrcPos p 2))
            (T.mkAtomRational T.mkNoSrcPos p 0.5)))
    
  
  gtan ptan p =
    T.ufun1 a188v5v188v39tan ptan p htan
    where
    
    htan fx p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p)
        (T.uap1 T.mkNoSrcPos p (gsin T.mkNoSrcPos p) fx)
        (T.uap1 T.mkNoSrcPos p (gcos T.mkNoSrcPos p) fx)
    
  
  gtanh ptanh p =
    T.ufun1 a189v5v189v39tanh ptanh p htanh
    where
    
    htanh fx p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p)
        (T.uap1 T.mkNoSrcPos p (gsinh T.mkNoSrcPos p) fx)
        (T.uap1 T.mkNoSrcPos p (gcosh T.mkNoSrcPos p) fx)
    
  
  spi :: T.R a
  
  sexp,slog,ssqrt :: T.R (T.Fun a a)
  
  (|**),slogBase :: T.R (T.Fun a (T.Fun a a))
  
  ssin,scos,stan :: T.R (T.Fun a a)
  
  sasin,sacos,satan :: T.R (T.Fun a a)
  
  ssinh,scosh,stanh :: T.R (T.Fun a a)
  
  sasinh,sacosh,satanh :: T.R (T.Fun a a)
  

class (Real a,Fractional a) => RealFrac a
  where
  
  gproperFraction ::
    Integral b => T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Tuple2 b a))
  
  gtruncate,ground :: Integral b => T.RefSrcPos -> T.RefExp -> T.R (T.Fun a b)
  
  gceiling,gfloor :: Integral b => T.RefSrcPos -> T.RefExp -> T.R (T.Fun a b)
  
  gtruncate ptruncate p =
    T.ufun1 a200v5v200v57truncate ptruncate p htruncate
    where
    
    htruncate fx p =
      gm T.mkNoSrcPos p
      where
      
      gm pm p = T.uconstUse pm p sm
      
      j200v34v200v38m =
        case T.uap1 T.mkNoSrcPos p (gproperFraction T.mkNoSrcPos p) fx of
          T.R (T.Tuple2 fm _) km -> (km,fm)
          _ -> T.fatal p
      
      sm =
        T.uconstDef p a200v35v200v35m
          (\ _ -> case j200v34v200v38m of (km,fm) -> fm)
      
    
  
  ground pround p =
    T.ufun1 a202v5v207v40round pround p hround
    where
    
    hround fx p =
      let
        gn pn p = T.uconstUse pn p sn
        gr pn p = T.uconstUse pn p sr
        j202v29v202v33n =
          case T.uap1 T.mkNoSrcPos p (gproperFraction T.mkNoSrcPos p) fx of
            T.R (T.Tuple2 fn fr) kn -> (kn,fn,fr)
            _ -> T.fatal p
        sn =
          T.uconstDef p a202v30v202v30n
            (\ _ -> case j202v29v202v33n of (kn,fn,fr) -> fn)
        sr =
          T.uconstDef p a202v32v202v32r
            (\ _ -> case j202v29v202v33n of (kn,fn,fr) -> fr)
        gm pm p = T.uconstUse pm p sm
        sm =
          T.uconstDef p a203v29v203v66m
            (\ p ->
              T.ucif p
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) (gr T.mkNoSrcPos p)
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                    (T.conInteger T.mkNoSrcPos p 0)))
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) (gn T.mkNoSrcPos p)
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                    (T.conInteger T.mkNoSrcPos p 1)))
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) (gn T.mkNoSrcPos p)
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                    (T.conInteger T.mkNoSrcPos p 1)))) in
        (T.uccase T.mkNoSrcPos p
          (let
            v204v30v207v40v1 (T.R LT _) p = gn T.mkNoSrcPos p
            v204v30v207v40v1 (T.R EQ _) p =
              T.ucif p (T.uwrapForward p (heven (gn T.mkNoSrcPos p) p))
                (gn T.mkNoSrcPos p) (gm T.mkNoSrcPos p)
            v204v30v207v40v1 (T.R GT _) p = gm T.mkNoSrcPos p
            v204v30v207v40v1 _ p = T.fatal p in (v204v30v207v40v1))
          (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p)
            (T.uap1 T.mkNoSrcPos p (gsignum T.mkNoSrcPos p)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
                (T.uap1 T.mkNoSrcPos p (gabs T.mkNoSrcPos p)
                  (gr T.mkNoSrcPos p))
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromRational T.mkNoSrcPos p)
                  (T.R
                    ((T.conInteger T.mkNoSrcPos p 1)
                      Hat.PreludeBasic.:%
                      (T.conInteger T.mkNoSrcPos p 2))
                    (T.mkAtomRational T.mkNoSrcPos p 0.5)))))
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 0))))
    
  
  gceiling pceiling p =
    T.ufun1 a215v5v216v54ceiling pceiling p hceiling
    where
    
    hceiling fx p =
      T.ucif p
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) (gr T.mkNoSrcPos p)
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 0)))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) (gn T.mkNoSrcPos p)
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 1))) (gn T.mkNoSrcPos p)
      where
      
      gn pn p = T.uconstUse pn p sn
      
      gr pn p = T.uconstUse pn p sr
      
      j216v31v216v35n =
        case T.uap1 T.mkNoSrcPos p (gproperFraction T.mkNoSrcPos p) fx of
          T.R (T.Tuple2 fn fr) kn -> (kn,fn,fr)
          _ -> T.fatal p
      
      sn =
        T.uconstDef p a216v32v216v32n
          (\ _ -> case j216v31v216v35n of (kn,fn,fr) -> fn)
      
      sr =
        T.uconstDef p a216v34v216v34r
          (\ _ -> case j216v31v216v35n of (kn,fn,fr) -> fr)
      
    
  
  gfloor pfloor p =
    T.ufun1 a218v5v219v54floor pfloor p hfloor
    where
    
    hfloor fx p =
      T.ucif p
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) (gr T.mkNoSrcPos p)
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 0)))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) (gn T.mkNoSrcPos p)
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 1))) (gn T.mkNoSrcPos p)
      where
      
      gn pn p = T.uconstUse pn p sn
      
      gr pn p = T.uconstUse pn p sr
      
      j219v31v219v35n =
        case T.uap1 T.mkNoSrcPos p (gproperFraction T.mkNoSrcPos p) fx of
          T.R (T.Tuple2 fn fr) kn -> (kn,fn,fr)
          _ -> T.fatal p
      
      sn =
        T.uconstDef p a219v32v219v32n
          (\ _ -> case j219v31v219v35n of (kn,fn,fr) -> fn)
      
      sr =
        T.uconstDef p a219v34v219v34r
          (\ _ -> case j219v31v219v35n of (kn,fn,fr) -> fr)
      
    
  
  sproperFraction :: Integral b => T.R (T.Fun a (T.Tuple2 b a))
  
  struncate,sround :: Integral b => T.R (T.Fun a b)
  
  sceiling,sfloor :: Integral b => T.R (T.Fun a b)
  

class (RealFrac a,Floating a) => RealFloat a
  where
  
  gfloatRadix :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a Integer)
  
  gfloatDigits :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a Int)
  
  gfloatRange :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Tuple2 Int Int))
  
  gdecodeFloat ::
    T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Tuple2 Integer Int))
  
  gencodeFloat :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Integer (T.Fun Int a))
  
  gexponent :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a Int)
  
  gsignificand :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a a)
  
  gscaleFloat :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Int (T.Fun a a))
  
  gisNaN,gisInfinite,gisDenormalized,gisNegativeZero,gisIEEE ::
    T.RefSrcPos -> T.RefExp -> T.R (T.Fun a Bool)
  
  gatan2 :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a a))
  
  gexponent pexponent p =
    T.ufun1 a238v5v239v51exponent pexponent p hexponent
    where
    
    hexponent fx p =
      T.ucif p
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) (gm T.mkNoSrcPos p)
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 0)))
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 0))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) (gn T.mkNoSrcPos p)
          (T.uap1 T.mkNoSrcPos p (gfloatDigits T.mkNoSrcPos p) fx))
      where
      
      gm pm p = T.uconstUse pm p sm
      
      gn pm p = T.uconstUse pm p sn
      
      j239v31v239v35m =
        case T.uap1 T.mkNoSrcPos p (gdecodeFloat T.mkNoSrcPos p) fx of
          T.R (T.Tuple2 fm fn) km -> (km,fm,fn)
          _ -> T.fatal p
      
      sm =
        T.uconstDef p a239v32v239v32m
          (\ _ -> case j239v31v239v35m of (km,fm,fn) -> fm)
      
      sn =
        T.uconstDef p a239v34v239v34n
          (\ _ -> case j239v31v239v35m of (km,fm,fn) -> fn)
      
    
  
  gsignificand psignificand p =
    T.ufun1 a241v5v242v51significand psignificand p hsignificand
    where
    
    hsignificand fx p =
      T.uap2 T.mkNoSrcPos p (gencodeFloat T.mkNoSrcPos p) (gm T.mkNoSrcPos p)
        (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p)
          (T.uap1 T.mkNoSrcPos p (gfloatDigits T.mkNoSrcPos p) fx))
      where
      
      gm pm p = T.uconstUse pm p sm
      
      j242v31v242v35m =
        case T.uap1 T.mkNoSrcPos p (gdecodeFloat T.mkNoSrcPos p) fx of
          T.R (T.Tuple2 fm _) km -> (km,fm)
          _ -> T.fatal p
      
      sm =
        T.uconstDef p a242v32v242v32m
          (\ _ -> case j242v31v242v35m of (km,fm) -> fm)
      
    
  
  gscaleFloat pscaleFloat p =
    T.ufun2 a244v5v245v51scaleFloat pscaleFloat p hscaleFloat
    where
    
    hscaleFloat fk fx p =
      T.uap2 T.mkNoSrcPos p (gencodeFloat T.mkNoSrcPos p) (gm T.mkNoSrcPos p)
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) (gn T.mkNoSrcPos p) fk)
      where
      
      gm pm p = T.uconstUse pm p sm
      
      gn pm p = T.uconstUse pm p sn
      
      j245v31v245v35m =
        case T.uap1 T.mkNoSrcPos p (gdecodeFloat T.mkNoSrcPos p) fx of
          T.R (T.Tuple2 fm fn) km -> (km,fm,fn)
          _ -> T.fatal p
      
      sm =
        T.uconstDef p a245v32v245v32m
          (\ _ -> case j245v31v245v35m of (km,fm,fn) -> fm)
      
      sn =
        T.uconstDef p a245v34v245v34n
          (\ _ -> case j245v31v245v35m of (km,fm,fn) -> fn)
      
    
  
  gatan2 patan2 p =
    T.ufun2 a247v5v258v30atan2 patan2 p hatan2
    where
    
    hatan2 fy fx p =
      T.ucguard
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) fx
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 0)))
        (T.uap1 T.mkNoSrcPos p (gatan T.mkNoSrcPos p)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p) fy fx))
        (T.ucguard
          (T.uwrapForward p
            (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fx
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                    (T.conInteger T.mkNoSrcPos p 0)))
                *&&
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) fy
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                    (T.conInteger T.mkNoSrcPos p 0)))) p))
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p) (gpi T.mkNoSrcPos p)
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 2)))
          (T.ucguard
            (T.uwrapForward p
              (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) fx
                    (T.uap1 T.mkNoSrcPos p
                      (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                      (T.conInteger T.mkNoSrcPos p 0)))
                  *&&
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) fy
                    (T.uap1 T.mkNoSrcPos p
                      (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                      (T.conInteger T.mkNoSrcPos p 0)))) p))
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) (gpi T.mkNoSrcPos p)
              (T.uap1 T.mkNoSrcPos p (gatan T.mkNoSrcPos p)
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p) fy fx)))
            (T.ucguard
              (T.uwrapForward p
                (((T.uwrapForward p
                      (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !<= p) fx
                            (T.uap1 T.mkNoSrcPos p
                              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                              (T.conInteger T.mkNoSrcPos p 0)))
                          *&&
                          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) fy
                            (T.uap1 T.mkNoSrcPos p
                              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                              (T.conInteger T.mkNoSrcPos p 0)))) p))
                    *||
                    (T.uwrapForward p
                      (((T.uwrapForward p
                            (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) fx
                                  (T.uap1 T.mkNoSrcPos p
                                    (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
                                      p) (T.conInteger T.mkNoSrcPos p 0)))
                                *&&
                                (T.uap1 T.mkNoSrcPos p
                                  (gisNegativeZero T.mkNoSrcPos p) fy)) p))
                          *||
                          (T.uwrapForward p
                            (((T.uap1 T.mkNoSrcPos p
                                  (gisNegativeZero T.mkNoSrcPos p) fx)
                                *&&
                                (T.uap1 T.mkNoSrcPos p
                                  (gisNegativeZero T.mkNoSrcPos p) fy)) p)))
                        p))) p))
              (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p)
                (T.uap2 T.mkNoSrcPos p (gatan2 T.mkNoSrcPos p)
                  (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p) fy) fx))
              (T.ucguard
                (T.uwrapForward p
                  (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fy
                        (T.uap1 T.mkNoSrcPos p
                          (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                          (T.conInteger T.mkNoSrcPos p 0)))
                      *&&
                      (T.uwrapForward p
                        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) fx
                              (T.uap1 T.mkNoSrcPos p
                                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                                (T.conInteger T.mkNoSrcPos p 0)))
                            *||
                            (T.uap1 T.mkNoSrcPos p
                              (gisNegativeZero T.mkNoSrcPos p) fx)) p))) p))
                (gpi T.mkNoSrcPos p)
                (T.ucguard
                  (T.uwrapForward p
                    (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fx
                          (T.uap1 T.mkNoSrcPos p
                            (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                            (T.conInteger T.mkNoSrcPos p 0)))
                        *&&
                        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fy
                          (T.uap1 T.mkNoSrcPos p
                            (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                            (T.conInteger T.mkNoSrcPos p 0)))) p))
                  (T.projection T.mkNoSrcPos p fy)
                  (T.ucguard (gotherwise T.mkNoSrcPos p)
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fx fy)
                    (T.fatal p)))))))
    
  
  sfloatRadix :: T.R (T.Fun a Integer)
  
  sfloatDigits :: T.R (T.Fun a Int)
  
  sfloatRange :: T.R (T.Fun a (T.Tuple2 Int Int))
  
  sdecodeFloat :: T.R (T.Fun a (T.Tuple2 Integer Int))
  
  sencodeFloat :: T.R (T.Fun Integer (T.Fun Int a))
  
  sexponent :: T.R (T.Fun a Int)
  
  ssignificand :: T.R (T.Fun a a)
  
  sscaleFloat :: T.R (T.Fun Int (T.Fun a a))
  
  sisNaN,sisInfinite,sisDenormalized,sisNegativeZero,sisIEEE ::
    T.R (T.Fun a Bool)
  
  satan2 :: T.R (T.Fun a (T.Fun a a))
  

gsubtract :: Num a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a a))

ssubtract :: Num a => T.R (T.Fun a (T.Fun a a))

gsubtract psubtract p = T.uconstUse psubtract p ssubtract

ssubtract =
  T.uconstDef T.mkRoot asubtract
    (\ p -> T.uap1 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !- p))

geven,godd :: Integral a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun a Bool)

heven :: Integral a => (T.R a) -> T.RefExp -> T.R Bool

sodd :: Integral a => T.R (T.Fun a Bool)

geven peven p = T.ufun1 aeven peven p heven

heven fn p =
  T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p)
    (T.uap2 T.mkNoSrcPos p (grem T.mkNoSrcPos p) fn
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 2)))
    (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
      (T.conInteger T.mkNoSrcPos p 0))

godd podd p = T.uconstUse podd p sodd

sodd =
  T.uconstDef T.mkRoot aodd
    (\ p ->
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p) (gnot T.mkNoSrcPos p)
        (geven T.mkNoSrcPos p))

ggcd :: Integral a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a a))

hgcd :: Integral a => (T.R a) -> (T.R a) -> T.RefExp -> T.R a

ggcd pgcd p = T.ufun2 agcd pgcd p hgcd

hgcd fv273v5v273v5n v273v7v273v7n p =
  T.ucguard
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fv273v5v273v5n
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0))) (h v273v7v273v7n p)
    (y1gcd fv273v5v273v5n v273v7v273v7n p)
  where
  
  h fv273v7v273v7n p =
    T.ucguard
      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fv273v7v273v7n
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 0))) (h p)
      (y1gcd fv273v5v273v5n v273v7v273v7n p)
    where
    
    h p =
      T.uwrapForward p
        (herror
          (T.fromLitString T.mkNoSrcPos p "Prelude.gcd: gcd 0 0 is undefined")
          p)
    h p = y1gcd fv273v5v273v5n v273v7v273v7n p
    
  h _ p = y1gcd fv273v5v273v5n v273v7v273v7n p
  
hgcd fv273v5v273v5n v273v7v273v7n p = y1gcd fv273v5v273v5n v273v7v273v7n p

y1gcd fx fy p =
  T.uwrapForward p
    (hgcd' (T.uap1 T.mkNoSrcPos p (gabs T.mkNoSrcPos p) fx)
      (T.uap1 T.mkNoSrcPos p (gabs T.mkNoSrcPos p) fy) p)
  where
  
  ggcd' pgcd' p = T.ufun2 a275v27v276v56gcd' pgcd' p hgcd'
  
  agcd' = a275v27v276v56gcd'
  
  hgcd' fx fv275v34v275v34n p =
    T.ucguard
      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fv275v34v275v34n
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 0))) (h p) (y1gcd' fx fv275v34v275v34n p)
    where
    
    h p = T.projection T.mkNoSrcPos p fx
    h p = y1gcd' fx fv275v34v275v34n p
    
  hgcd' fx fv275v34v275v34n p = y1gcd' fx fv275v34v275v34n p
  
  y1gcd' fx fy p =
    T.uwrapForward p
      (hgcd' fy (T.uap2 T.mkNoSrcPos p (grem T.mkNoSrcPos p) fx fy) p)
  

glcm :: Integral a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a a))

hlcm :: Integral a => (T.R a) -> (T.R a) -> T.RefExp -> T.R a

glcm plcm p = T.ufun2 alcm plcm p hlcm

hlcm (z1lcm@_) fv280v7v280v7n p =
  T.ucguard
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fv280v7v280v7n
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0))) (h p) (y1lcm z1lcm fv280v7v280v7n p)
  where
  
  h p =
    T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
      (T.conInteger T.mkNoSrcPos p 0)
  h p = y1lcm z1lcm fv280v7v280v7n p
  
hlcm z1lcm fv280v7v280v7n p = y1lcm z1lcm fv280v7v280v7n p

y1lcm fv281v5v281v5n v281v7v281v7n p =
  T.ucguard
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fv281v5v281v5n
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0))) (h v281v7v281v7n p)
    (y2lcm fv281v5v281v5n v281v7v281v7n p)
  where
  
  h _ p =
    T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
      (T.conInteger T.mkNoSrcPos p 0)
  h _ p = y2lcm fv281v5v281v5n v281v7v281v7n p
  
y1lcm fv281v5v281v5n v281v7v281v7n p = y2lcm fv281v5v281v5n v281v7v281v7n p

y2lcm fx fy p =
  T.uap1 T.mkNoSrcPos p (gabs T.mkNoSrcPos p)
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
      (T.uap2 T.mkNoSrcPos p (gquot T.mkNoSrcPos p) fx
        (T.uwrapForward p (hgcd fx fy p))) fy)

(!^) ::
  (Num a,Integral b) => T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun b a))

(*^) :: (Num a,Integral b) => (T.R a) -> (T.R b) -> T.RefExp -> T.R a

(!^) (%^) p = T.ufun2 (+^) (%^) p (*^)

(*^) fx fv286v5v286v5n p =
  T.ucguard
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fv286v5v286v5n
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0))) (h p) ((fx >#^ fv286v5v286v5n) p)
  where
  
  h p =
    T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
      (T.conInteger T.mkNoSrcPos p 1)
  h p = (fx >#^ fv286v5v286v5n) p
  
(*^) fx fv286v5v286v5n p = (fx >#^ fv286v5v286v5n) p

(>#^) fx fn p =
  T.ucguard
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) fn
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0)))
    (T.uwrapForward p
      (hf fx
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fn
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 1))) fx p)) ((fx >$^ fn) p)
  where
  
  gf pf p = T.ufun3 a288v27v291v70f pf p hf
  
  af = a288v27v291v70f
  
  hf (z1f@_) fv288v31v288v31n fy p =
    T.ucguard
      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fv288v31v288v31n
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 0))) (h fy p)
      (y1f z1f fv288v31v288v31n fy p)
    where
    
    h fy p = T.projection T.mkNoSrcPos p fy
    h _ p = y1f z1f fv288v31v288v31n fy p
    
  hf z1f fv288v31v288v31n fy p = y1f z1f fv288v31v288v31n fy p
  
  y1f fx fn fy p =
    T.uwrapForward p (hg fx fn p)
    where
    
    gg pg p = T.ufun2 a290v37v291v70g pg p hg
    
    ag = a290v37v291v70g
    
    hg fx fn p =
      T.ucguard (T.uwrapForward p (heven fn p))
        (T.uwrapForward p
          (hg (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fx fx)
            (T.uap2 T.mkNoSrcPos p (gquot T.mkNoSrcPos p) fn
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 2))) p))
        (T.ucguard (gotherwise T.mkNoSrcPos p)
          (T.uwrapForward p
            (hf fx
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fn
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 1)))
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fx fy) p)) (T.fatal p))
    
  
(>#^) fx fn p = (fx >$^ fn) p

(>$^) _ _ p =
  T.uwrapForward p
    (herror (T.fromLitString T.mkNoSrcPos p "Prelude.^: negative exponent") p)

(!^^) ::
  (Fractional a,Integral b) =>
  T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun b a))

(*^^) :: (Fractional a,Integral b) => (T.R a) -> (T.R b) -> T.RefExp -> T.R a

(!^^) (%^^) p = T.ufun2 (+^^) (%^^) p (*^^)

(*^^) fx fn p =
  T.ucif p
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) fn
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0))) (T.uwrapForward p ((fx *^ fn) p))
    (T.uap1 T.mkNoSrcPos p (grecip T.mkNoSrcPos p)
      (T.uwrapForward p
        ((fx *^ (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p) fn)) p)))

gfromIntegral ::
  (Integral a,Num b) => T.RefSrcPos -> T.RefExp -> T.R (T.Fun a b)

sfromIntegral :: (Integral a,Num b) => T.R (T.Fun a b)

gfromIntegral pfromIntegral p = T.uconstUse pfromIntegral p sfromIntegral

sfromIntegral =
  T.uconstDef T.mkRoot afromIntegral
    (\ p ->
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p) (gfromInteger T.mkNoSrcPos p)
        (gtoInteger T.mkNoSrcPos p))

grealToFrac ::
  (Real a,Fractional b) => T.RefSrcPos -> T.RefExp -> T.R (T.Fun a b)

srealToFrac :: (Real a,Fractional b) => T.R (T.Fun a b)

grealToFrac prealToFrac p = T.uconstUse prealToFrac p srealToFrac

srealToFrac =
  T.uconstDef T.mkRoot arealToFrac
    (\ p ->
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p) (gfromRational T.mkNoSrcPos p)
        (gtoRational T.mkNoSrcPos p))

class Functor f
  where
  
  gfmap ::
    T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.Fun a b) (T.Fun (f a) (f b)))
  
  sfmap :: T.R (T.Fun (T.Fun a b) (T.Fun (f a) (f b)))
  

class Monad m
  where
  
  (!>>=) ::
    T.RefSrcPos -> T.RefExp -> T.R (T.Fun (m a) (T.Fun (T.Fun a (m b)) (m b)))
  
  (!>>) :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun (m a) (T.Fun (m b) (m b)))
  
  greturn :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (m a))
  
  gfail :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun String (m a))
  
  (!>>) (%>>) p =
    T.ufun2 (+%$#=^=%$#=@>>) (%>>) p (*>>)
    where
    
    (*>>) fm fk p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>>= p) fm
        (T.ufun1 T.mkLambda T.mkNoSrcPos p
          (\ _ p -> T.projection T.mkNoSrcPos p fk))
    
  
  gfail pfail p =
    T.ufun1 a322v5v322v21fail pfail p hfail
    where
    
    hfail fs p = T.uwrapForward p (herror fs p)
    
  
  (|>>=) :: T.R (T.Fun (m a) (T.Fun (T.Fun a (m b)) (m b)))
  
  (|>>) :: T.R (T.Fun (m a) (T.Fun (m b) (m b)))
  
  sreturn :: T.R (T.Fun a (m a))
  
  sfail :: T.R (T.Fun String (m a))
  

gsequence ::
  Monad m =>
  T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.List (m a)) (m (T.List a)))

ssequence :: Monad m => T.R (T.Fun (T.List (m a)) (m (T.List a)))

gsequence psequence p = T.uconstUse psequence p ssequence

ssequence =
  T.uconstDef T.mkRoot asequence
    (\ p ->
      let
        gmcons pmcons p = T.ufun2 a327v27v327v73mcons pmcons p hmcons
        amcons = a327v27v327v73mcons
        hmcons fp fq p =
          T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>>= p) fp
            (T.ufun1 T.mkLambda T.mkNoSrcPos p
              (\ fx p ->
                T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>>= p) fq
                  (T.ufun1 T.mkLambda T.mkNoSrcPos p
                    (\ fy p ->
                      T.uap1 T.mkNoSrcPos p (greturn T.mkNoSrcPos p)
                        (T.con2 T.mkNoSrcPos p T.Cons T.aCons fx fy))))) in
        (T.uap2 T.mkNoSrcPos p (gfoldr T.mkNoSrcPos p) (gmcons T.mkNoSrcPos p)
          (T.uap1 T.mkNoSrcPos p (greturn T.mkNoSrcPos p)
            (T.con0 T.mkNoSrcPos p T.List T.aList))))

gsequence_ ::
  Monad m => T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.List (m a)) (m T.Tuple0))

ssequence_ :: Monad m => T.R (T.Fun (T.List (m a)) (m T.Tuple0))

gsequence_ psequence_ p = T.uconstUse psequence_ p ssequence_

ssequence_ =
  T.uconstDef T.mkRoot asequence_
    (\ p ->
      T.uap2 T.mkNoSrcPos p (gfoldr T.mkNoSrcPos p) (T.mkNoSrcPos !>> p)
        (T.uap1 T.mkNoSrcPos p (greturn T.mkNoSrcPos p)
          (T.con0 T.mkNoSrcPos p T.Tuple0 T.aTuple0)))

gmapM ::
  Monad m =>
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun a (m b)) (T.Fun (T.List a) (m (T.List b))))

hmapM ::
  Monad m =>
  (T.R (T.Fun a (m b))) -> (T.R (T.List a)) -> T.RefExp -> T.R (m (T.List b))

gmapM pmapM p = T.ufun2 amapM pmapM p hmapM

hmapM ff fas p =
  T.uap1 T.mkNoSrcPos p (gsequence T.mkNoSrcPos p)
    (T.uwrapForward p (hmap ff fas p))

gmapM_ ::
  Monad m =>
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun a (m b)) (T.Fun (T.List a) (m T.Tuple0)))

hmapM_ ::
  Monad m =>
  (T.R (T.Fun a (m b))) -> (T.R (T.List a)) -> T.RefExp -> T.R (m T.Tuple0)

gmapM_ pmapM_ p = T.ufun2 amapM_ pmapM_ p hmapM_

hmapM_ ff fas p =
  T.uap1 T.mkNoSrcPos p (gsequence_ T.mkNoSrcPos p)
    (T.uwrapForward p (hmap ff fas p))

(!=<<) ::
  Monad m =>
  T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.Fun a (m b)) (T.Fun (m a) (m b)))

(*=<<) ::
  Monad m => (T.R (T.Fun a (m b))) -> (T.R (m a)) -> T.RefExp -> T.R (m b)

(!=<<) (%=<<) p = T.ufun2 (+=<<) (%=<<) p (*=<<)

(*=<<) ff fx p = T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>>= p) fx ff

instance Eq (T.Tuple0)
  where
  
  (!==) (%==) p =
    T.ufun2 (+%*&=^=%*&=@==) (%==) p (*==)
    where
    
    (*==) (T.R T.Tuple0 _) (T.R T.Tuple0 _) p = T.con0 T.mkNoSrcPos p True aTrue
    (*==) _ _ p = T.fatal p
    
  

instance Ord (T.Tuple0)
  where
  
  gcompare pcompare p =
    T.ufun2 a357v3v357v22compare pcompare p hcompare
    where
    
    hcompare (T.R T.Tuple0 _) (T.R T.Tuple0 _) p = T.con0 T.mkNoSrcPos p EQ aEQ
    hcompare _ _ p = T.fatal p
    
  

instance Enum (T.Tuple0)
  where
  
  gfromEnum pfromEnum p =
    T.ufun1 a360v3v360v18fromEnum pfromEnum p hfromEnum
    where
    
    hfromEnum (T.R T.Tuple0 _) p =
      T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0)
    hfromEnum _ p = T.fatal p
    
  
  gtoEnum ptoEnum p =
    T.ufun1 a361v3v362v78toEnum ptoEnum p htoEnum
    where
    
    htoEnum fn p =
      T.ucguard
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fn
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 0)))
        (T.con0 T.mkNoSrcPos p T.Tuple0 T.aTuple0) (y1toEnum fn p)
    htoEnum fn p = y1toEnum fn p
    
    y1toEnum fn p =
      T.uwrapForward p
        (herror
          (T.uwrapForward p
            (((T.fromLitString T.mkNoSrcPos p
                  "Prelude.Enum_Prelude.Unit_toEnum on ")
                *++
                (T.uap1 T.mkNoSrcPos p (gshow T.mkNoSrcPos p) fn)) p)) p)
    
  

instance Bounded (T.Tuple0)
  where
  
  gminBound pminBound p = T.uconstUse pminBound p sminBound
  
  sminBound =
    T.uconstDef T.mkRoot a365v3v365v16minBound
      (\ p -> T.con0 T.mkNoSrcPos p T.Tuple0 T.aTuple0)
  
  gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
  
  smaxBound =
    T.uconstDef T.mkRoot a366v3v366v16maxBound
      (\ p -> T.con0 T.mkNoSrcPos p T.Tuple0 T.aTuple0)
  

gid :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a a)

hid :: (T.R a) -> T.RefExp -> T.R a

gid pid p = T.ufun1 aid pid p hid

hid fx p = T.projection T.mkNoSrcPos p fx

gconst :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun b a))

hconst :: (T.R a) -> (T.R b) -> T.RefExp -> T.R a

gconst pconst p = T.ufun2 aconst pconst p hconst

hconst fx _ p = T.projection T.mkNoSrcPos p fx

(!.) ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun b c) (T.Fun (T.Fun a b) (T.Fun a c)))

(*.) :: (T.R (T.Fun b c)) -> (T.R (T.Fun a b)) -> (T.R a) -> T.RefExp -> T.R c

(!.) (%.) p = T.ufun3 (+.) (%.) p (*.)

(*.) ff fg fx p = T.uap1 T.mkNoSrcPos p ff (T.uap1 T.mkNoSrcPos p fg fx)

gflip ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun a (T.Fun b c)) (T.Fun b (T.Fun a c)))

hflip :: (T.R (T.Fun a (T.Fun b c))) -> (T.R b) -> (T.R a) -> T.RefExp -> T.R c

gflip pflip p = T.ufun3 aflip pflip p hflip

hflip ff fx fy p = T.uap2 T.mkNoSrcPos p ff fy fx

(!$),(!$!) :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.Fun a b) (T.Fun a b))

(*$) :: (T.R (T.Fun a b)) -> (T.R a) -> T.RefExp -> T.R b

(*$!) :: (T.R (T.Fun a b)) -> (T.R a) -> T.RefExp -> T.R b

(!$) (%$) p = T.ufun2 (+$) (%$) p (*$)

(*$) ff fx p = T.uap1 T.mkNoSrcPos p ff fx

(!$!) (%$!) p = T.ufun2 (+$!) (%$!) p (*$!)

(*$!) ff fx p = T.uwrapForward p (hseq fx (T.uap1 T.mkNoSrcPos p ff fx) p)

instance Eq (Bool)
  where
  
  (!==) (%==) p =
    T.ufun2 (+&##=>=&#%=#!==) (%==) p (*==)
    where
    
    (*==) (T.R True _) (T.R True _) p = T.con0 T.mkNoSrcPos p True aTrue
    (*==) (T.R False _) (T.R False _) p = T.con0 T.mkNoSrcPos p True aTrue
    (*==) _ _ p = T.con0 T.mkNoSrcPos p False aFalse
    
  

instance Ord (Bool)
  where
  
  gcompare pcompare p =
    T.ufun2 a416v3v419v26compare pcompare p hcompare
    where
    
    hcompare (T.R False _) (T.R False _) p = T.con0 T.mkNoSrcPos p EQ aEQ
    hcompare (T.R False _) (T.R True _) p = T.con0 T.mkNoSrcPos p LT aLT
    hcompare (T.R True _) (T.R False _) p = T.con0 T.mkNoSrcPos p GT aGT
    hcompare (T.R True _) (T.R True _) p = T.con0 T.mkNoSrcPos p EQ aEQ
    hcompare _ _ p = T.fatal p
    
  

instance Enum (Bool)
  where
  
  gfromEnum pfromEnum p =
    T.ufun1 a422v3v423v22fromEnum pfromEnum p hfromEnum
    where
    
    hfromEnum (T.R False _) p =
      T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0)
    hfromEnum (T.R True _) p =
      T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 1)
    hfromEnum _ p = T.fatal p
    
  
  gtoEnum ptoEnum p =
    T.ufun1 a425v3v427v70toEnum ptoEnum p htoEnum
    where
    
    htoEnum fv425v12v425v12n p =
      T.ucguard
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fv425v12v425v12n
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 0))) (h p)
        (y1toEnum fv425v12v425v12n p)
      where
      
      h p = T.con0 T.mkNoSrcPos p False aFalse
      h p = y1toEnum fv425v12v425v12n p
      
    htoEnum fv425v12v425v12n p = y1toEnum fv425v12v425v12n p
    
    y1toEnum fv426v12v426v12n p =
      T.ucguard
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fv426v12v426v12n
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 1))) (h p)
        (y2toEnum fv426v12v426v12n p)
      where
      
      h p = T.con0 T.mkNoSrcPos p True aTrue
      h p = y2toEnum fv426v12v426v12n p
      
    y1toEnum fv426v12v426v12n p = y2toEnum fv426v12v426v12n p
    
    y2toEnum fn p =
      T.uwrapForward p
        (herror
          (T.uwrapForward p
            (((T.fromLitString T.mkNoSrcPos p "(Prelude.toEnum ")
                *++
                (T.uwrapForward p
                  (((T.uap1 T.mkNoSrcPos p (gshow T.mkNoSrcPos p) fn)
                      *++
                      (T.fromLitString T.mkNoSrcPos p " :: Bool) is wrong"))
                    p))) p)) p)
    
  
  genumFrom penumFrom p =
    T.ufun1 a429v3v429v32enumFrom penumFrom p henumFrom
    where
    
    henumFrom fb p =
      T.uap2 T.mkNoSrcPos p (genumFromTo T.mkNoSrcPos p) fb
        (T.con0 T.mkNoSrcPos p True aTrue)
    
  
  genumFromThen penumFromThen p =
    T.ufun2 a430v3v430v53enumFromThen penumFromThen p henumFromThen
    where
    
    henumFromThen fb1 fb2 p =
      T.uap3 T.mkNoSrcPos p (genumFromThenTo T.mkNoSrcPos p) fb1 fb2
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) fb2 fb1)
    
  

instance Read (Bool)
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a433v3v434v20readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p
        (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
          (T.ufun1 T.mkLambda T.mkNoSrcPos p
            (\ fr p ->
              T.uwrapForward p
                (((T.uap1 T.mkNoSrcPos p
                      (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                        (T.ufun2 T.mkLambda T.mkNoSrcPos p
                          (\ f_x f_y p ->
                            T.uccase T.mkNoSrcPos p
                              (let
                                v0v0v0v0v1
                                  (T.R
                                    (T.Tuple2
                                      (T.R
                                        (T.Cons (T.R 'F' _)
                                          (T.R
                                            (T.Cons (T.R 'a' _)
                                              (T.R
                                                (T.Cons (T.R 'l' _)
                                                  (T.R
                                                    (T.Cons (T.R 's' _)
                                                      (T.R
                                                        (T.Cons (T.R 'e' _)
                                                          (T.R T.List _)) _))
                                                    _)) _)) _)) _) fs) _) p =
                                  T.uap1 T.mkNoSrcPos p
                                    (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                                      (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                                        (T.con0 T.mkNoSrcPos p False aFalse)
                                        fs)) f_y
                                v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y
                                in (v0v0v0v0v1)) f_x))
                        (T.uwrapForward p (hlex fr p)))
                      (T.fromExpList T.mkNoSrcPos p []))
                    *++
                    (T.uap1 T.mkNoSrcPos p
                      (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                        (T.ufun2 T.mkLambda T.mkNoSrcPos p
                          (\ f_x f_y p ->
                            T.uccase T.mkNoSrcPos p
                              (let
                                v0v0v0v0v1
                                  (T.R
                                    (T.Tuple2
                                      (T.R
                                        (T.Cons (T.R 'T' _)
                                          (T.R
                                            (T.Cons (T.R 'r' _)
                                              (T.R
                                                (T.Cons (T.R 'u' _)
                                                  (T.R
                                                    (T.Cons (T.R 'e' _)
                                                      (T.R T.List _)) _)) _))
                                            _)) _) fs) _) p =
                                  T.uap1 T.mkNoSrcPos p
                                    (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                                      (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                                        (T.con0 T.mkNoSrcPos p True aTrue) fs))
                                    f_y
                                v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y
                                in (v0v0v0v0v1)) f_x))
                        (T.uwrapForward p (hlex fr p)))
                      (T.fromExpList T.mkNoSrcPos p []))) p))) p)
    
  

instance Show (Bool)
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a438v3v439v38showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp (T.R False _) p =
      T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
        (T.fromLitString T.mkNoSrcPos p "False")
    hshowsPrec fp (T.R True _) p =
      T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
        (T.fromLitString T.mkNoSrcPos p "True")
    hshowsPrec _ _ p = T.fatal p
    
  

instance Bounded (Bool)
  where
  
  gminBound pminBound p = T.uconstUse pminBound p sminBound
  
  sminBound =
    T.uconstDef T.mkRoot a442v3v442v18minBound
      (\ p -> T.con0 T.mkNoSrcPos p False aFalse)
  
  gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
  
  smaxBound =
    T.uconstDef T.mkRoot a443v3v443v17maxBound
      (\ p -> T.con0 T.mkNoSrcPos p True aTrue)
  

(!&&),(!||) :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Bool (T.Fun Bool Bool))

(*&&) :: (T.R Bool) -> (T.R Bool) -> T.RefExp -> T.R Bool

(*||) :: (T.R Bool) -> (T.R Bool) -> T.RefExp -> T.R Bool

(!&&) (%&&) p = T.ufun2 (+&&) (%&&) p (*&&)

(*&&) (T.R True _) fx p = T.projection T.mkNoSrcPos p fx
(*&&) (T.R False _) _ p = T.con0 T.mkNoSrcPos p False aFalse
(*&&) _ _ p = T.fatal p

(!||) (%||) p = T.ufun2 (+||) (%||) p (*||)

(*||) (T.R True _) _ p = T.con0 T.mkNoSrcPos p True aTrue
(*||) (T.R False _) fx p = T.projection T.mkNoSrcPos p fx
(*||) _ _ p = T.fatal p

gnot :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Bool Bool)

hnot :: (T.R Bool) -> T.RefExp -> T.R Bool

gnot pnot p = T.ufun1 anot pnot p hnot

hnot (T.R True _) p = T.con0 T.mkNoSrcPos p False aFalse
hnot (T.R False _) p = T.con0 T.mkNoSrcPos p True aTrue
hnot _ p = T.fatal p

gotherwise :: T.RefSrcPos -> T.RefExp -> T.R Bool

sotherwise :: T.R Bool

gotherwise potherwise p = T.uconstUse potherwise p sotherwise

sotherwise =
  T.uconstDef T.mkRoot aotherwise (\ p -> T.con0 T.mkNoSrcPos p True aTrue)

instance Eq (Char)
  where
  
  (!==) (%==) p =
    T.ufun2 (+&^$=^=&^$=@==) (%==) p (*==)
    where
    
    (*==) fc fc' p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p)
        (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fc)
        (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fc')
    
  

instance Ord (Char)
  where
  
  (!<=) (%<=) p =
    T.ufun2 (+&^+=^=&^+=@<=) (%<=) p (*<=)
    where
    
    (*<=) fc fc' p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !<= p)
        (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fc)
        (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fc')
    
  

instance Enum (Char)
  where
  
  gtoEnum ptoEnum p = T.uconstUse ptoEnum p stoEnum
  
  stoEnum =
    T.uconstDef T.mkRoot a480v5v480v37toEnum
      (\ p -> gprimIntToChar T.mkNoSrcPos p)
  
  gfromEnum pfromEnum p = T.uconstUse pfromEnum p sfromEnum
  
  sfromEnum =
    T.uconstDef T.mkRoot a481v5v481v37fromEnum
      (\ p -> gprimCharToInt T.mkNoSrcPos p)
  
  genumFrom penumFrom p =
    T.ufun1 a482v5v482v36enumFrom penumFrom p henumFrom
    where
    
    henumFrom fc p =
      T.uwrapForward p
        (hmap (gtoEnum T.mkNoSrcPos p)
          (T.uap2 T.mkNoSrcPos p (genumFromTo T.mkNoSrcPos p)
            (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fc)
            (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p)
              (gmaxBound T.mkNoSrcPos p :: T.R Char))) p)
    
  
  genumFromThen penumFromThen p =
    T.ufun2 a483v5v486v59enumFromThen penumFromThen p henumFromThen
    where
    
    henumFromThen fc fc' p =
      T.uwrapForward p
        (hmap (gtoEnum T.mkNoSrcPos p)
          (T.uap3 T.mkNoSrcPos p (genumFromThenTo T.mkNoSrcPos p)
            (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fc)
            (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fc')
            (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p)
              (glastChar T.mkNoSrcPos p))) p)
      where
      
      glastChar :: T.RefSrcPos -> T.RefExp -> T.R Char
      
      slastChar :: T.R Char
      
      glastChar plastChar p = T.uconstUse plastChar p slastChar
      
      slastChar =
        T.uconstDef p a485v29v486v59lastChar
          (\ p ->
            T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) fc' fc)
              (gminBound T.mkNoSrcPos p)
              (T.ucguard (gotherwise T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
                (T.fatal p)))
      
    
  

instance Bounded (Char)
  where
  
  gminBound pminBound p = T.uconstUse pminBound p sminBound
  
  sminBound =
    T.uconstDef T.mkRoot a490v5v490v31minBound
      (\ p -> T.conChar T.mkNoSrcPos p '\o000')
  
  gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
  
  smaxBound =
    T.uconstDef T.mkRoot a491v5v491v46maxBound
      (\ p -> gprimUnicodeMaxBound T.mkNoSrcPos p)
  

data Maybe a = Nothing  | Just (T.R a)

instance T.WrapVal ((Maybe a))
  where
  
  wrapVal pwrapVal (kwrapVal@Nothing) p =
    T.R kwrapVal (T.mkValueUse p pwrapVal aNothing)
  wrapVal pwrapVal (kwrapVal@(Just (T.R _ z1wrapVal))) p =
    T.R kwrapVal (T.mkValueApp1 p pwrapVal aJust z1wrapVal)
  

instance Eq a => Eq ((Maybe a))
  where
  
  (!==) (%==) p =
    T.ufun2 (+*!!=*#=*!!=*$==) (%==) p (*==)
    where
    
    (*==) (T.R Nothing _) (T.R Nothing _) p = T.con0 T.mkNoSrcPos p True aTrue
    (*==) (T.R (Just fy1) _) (T.R (Just fy2) _) p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fy1 fy2
    (*==) _ _ p = T.con0 T.mkNoSrcPos p False aFalse
    
  

instance Ord a => Ord ((Maybe a))
  where
  
  gcompare pcompare p =
    T.ufun2 a500v55v500v57compare pcompare p hcompare
    where
    
    hcompare (T.R (Just fy3) _) (T.R (Just fy4) _) p =
      T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fy3 fy4
    hcompare fy1 fy2 p =
      T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p)
        (T.uwrapForward p (hlocalFromEnum fy1 p) :: T.R Int)
        (T.uwrapForward p (hlocalFromEnum fy2 p))
      where
      
      glocalFromEnum plocalFromEnum p =
        T.ufun1 a500v55v500v57localFromEnum plocalFromEnum p hlocalFromEnum
      
      alocalFromEnum = a500v55v500v57localFromEnum
      
      hlocalFromEnum (T.R (Nothing) _) p =
        T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 0)
      hlocalFromEnum (T.R (Just _) _) p =
        T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 1)
      hlocalFromEnum _ p = T.fatal p
      
    
  

instance Read a => Read ((Maybe a))
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a500v60v500v63readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fy1 p =
      T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p)
        (T.uwrapForward p
          (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
            (T.uwrapForward p
              (Hat.PreludeBasic.hthenLex
                (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p)
                  (T.con0 T.mkNoSrcPos p Nothing aNothing))
                (T.fromLitString T.mkNoSrcPos p "Nothing") p)) p))
        (T.uwrapForward p
          (hreadParen
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) fy1
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 9)))
            (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p)
              (T.uwrapForward p
                (Hat.PreludeBasic.hthenLex
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gyield T.mkNoSrcPos p)
                    (T.pa0 Just T.cn1 T.mkNoSrcPos p aJust))
                  (T.fromLitString T.mkNoSrcPos p "Just") p))
              (T.uap1 T.mkNoSrcPos p (greadsPrec T.mkNoSrcPos p)
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 10)))) p))
    
  

instance Show a => Show ((Maybe a))
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a500v66v500v69showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fy1 (T.R (Nothing) _) p =
      T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
        (T.fromLitString T.mkNoSrcPos p "Nothing")
    hshowsPrec fy1 (T.R (Just fy2) _) p =
      T.uwrapForward p
        (hshowParen
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) fy1
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 9)))
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
              (T.fromLitString T.mkNoSrcPos p "Just "))
            (T.uap2 T.mkNoSrcPos p (gshowsPrec T.mkNoSrcPos p)
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 10)) fy2)) p)
    hshowsPrec _ _ p = T.fatal p
    
  

gmaybe ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun b (T.Fun (T.Fun a b) (T.Fun (Maybe a) b)))

hmaybe :: (T.R b) -> (T.R (T.Fun a b)) -> (T.R (Maybe a)) -> T.RefExp -> T.R b

gmaybe pmaybe p = T.ufun3 amaybe pmaybe p hmaybe

hmaybe fn ff (T.R Nothing _) p = T.projection T.mkNoSrcPos p fn
hmaybe fn ff (T.R (Just fx) _) p = T.uap1 T.mkNoSrcPos p ff fx
hmaybe _ _ _ p = T.fatal p

instance Functor (Maybe)
  where
  
  gfmap pfmap p =
    T.ufun2 a509v5v510v34fmap pfmap p hfmap
    where
    
    hfmap ff (T.R Nothing _) p = T.con0 T.mkNoSrcPos p Nothing aNothing
    hfmap ff (T.R (Just fx) _) p =
      T.con1 T.mkNoSrcPos p Just aJust (T.uap1 T.mkNoSrcPos p ff fx)
    hfmap _ _ p = T.fatal p
    
  

instance Monad (Maybe)
  where
  
  (!>>=) (%>>=) p =
    T.ufun2 (+*#&=#&=*#*=#+>>=) (%>>=) p (*>>=)
    where
    
    (*>>=) (T.R (Just fx) _) fk p = T.uap1 T.mkNoSrcPos p fk fx
    (*>>=) (T.R Nothing _) fk p = T.con0 T.mkNoSrcPos p Nothing aNothing
    (*>>=) _ _ p = T.fatal p
    
  
  greturn preturn p = T.uconstUse preturn p sreturn
  
  sreturn =
    T.uconstDef T.mkRoot a516v5v516v28return
      (\ p -> T.pa0 Just T.cn1 T.mkNoSrcPos p aJust)
  
  gfail pfail p =
    T.ufun1 a517v5v517v31fail pfail p hfail
    where
    
    hfail fs p = T.con0 T.mkNoSrcPos p Nothing aNothing
    
  

data Either a b = Left (T.R a) | Right (T.R b)

instance T.WrapVal ((Either a b))
  where
  
  wrapVal pwrapVal (kwrapVal@(Left (T.R _ z1wrapVal))) p =
    T.R kwrapVal (T.mkValueApp1 p pwrapVal aLeft z1wrapVal)
  wrapVal pwrapVal (kwrapVal@(Right (T.R _ z1wrapVal))) p =
    T.R kwrapVal (T.mkValueApp1 p pwrapVal aRight z1wrapVal)
  

instance (Eq a,Eq b) => Eq ((Either a b))
  where
  
  (!==) (%==) p =
    T.ufun2 (+*$$=*#=*$$=*$==) (%==) p (*==)
    where
    
    (*==) (T.R (Left fy1) _) (T.R (Left fy2) _) p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fy1 fy2
    (*==) (T.R (Right fy1) _) (T.R (Right fy2) _) p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fy1 fy2
    (*==) _ _ p = T.con0 T.mkNoSrcPos p False aFalse
    
  

instance (Ord a,Ord b) => Ord ((Either a b))
  where
  
  gcompare pcompare p =
    T.ufun2 a522v55v522v57compare pcompare p hcompare
    where
    
    hcompare (T.R (Left fy3) _) (T.R (Left fy4) _) p =
      T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fy3 fy4
    hcompare (T.R (Right fy3) _) (T.R (Right fy4) _) p =
      T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fy3 fy4
    hcompare fy1 fy2 p =
      T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p)
        (T.uwrapForward p (hlocalFromEnum fy1 p) :: T.R Int)
        (T.uwrapForward p (hlocalFromEnum fy2 p))
      where
      
      glocalFromEnum plocalFromEnum p =
        T.ufun1 a522v55v522v57localFromEnum plocalFromEnum p hlocalFromEnum
      
      alocalFromEnum = a522v55v522v57localFromEnum
      
      hlocalFromEnum (T.R (Left _) _) p =
        T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 0)
      hlocalFromEnum (T.R (Right _) _) p =
        T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 1)
      hlocalFromEnum _ p = T.fatal p
      
    
  

instance (Read a,Read b) => Read ((Either a b))
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a522v60v522v63readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fy1 p =
      T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p)
        (T.uwrapForward p
          (hreadParen
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) fy1
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 9)))
            (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p)
              (T.uwrapForward p
                (Hat.PreludeBasic.hthenLex
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gyield T.mkNoSrcPos p)
                    (T.pa0 Left T.cn1 T.mkNoSrcPos p aLeft))
                  (T.fromLitString T.mkNoSrcPos p "Left") p))
              (T.uap1 T.mkNoSrcPos p (greadsPrec T.mkNoSrcPos p)
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 10)))) p))
        (T.uwrapForward p
          (hreadParen
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) fy1
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 9)))
            (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p)
              (T.uwrapForward p
                (Hat.PreludeBasic.hthenLex
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gyield T.mkNoSrcPos p)
                    (T.pa0 Right T.cn1 T.mkNoSrcPos p aRight))
                  (T.fromLitString T.mkNoSrcPos p "Right") p))
              (T.uap1 T.mkNoSrcPos p (greadsPrec T.mkNoSrcPos p)
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 10)))) p))
    
  

instance (Show a,Show b) => Show ((Either a b))
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a522v66v522v69showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fy1 (T.R (Left fy2) _) p =
      T.uwrapForward p
        (hshowParen
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) fy1
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 9)))
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
              (T.fromLitString T.mkNoSrcPos p "Left "))
            (T.uap2 T.mkNoSrcPos p (gshowsPrec T.mkNoSrcPos p)
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 10)) fy2)) p)
    hshowsPrec fy1 (T.R (Right fy2) _) p =
      T.uwrapForward p
        (hshowParen
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) fy1
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 9)))
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
              (T.fromLitString T.mkNoSrcPos p "Right "))
            (T.uap2 T.mkNoSrcPos p (gshowsPrec T.mkNoSrcPos p)
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 10)) fy2)) p)
    hshowsPrec _ _ p = T.fatal p
    
  

geither ::
  T.RefSrcPos ->
    T.RefExp ->
      T.R (T.Fun (T.Fun a c) (T.Fun (T.Fun b c) (T.Fun (Either a b) c)))

heither ::
  (T.R (T.Fun a c)) ->
    (T.R (T.Fun b c)) -> (T.R (Either a b)) -> T.RefExp -> T.R c

geither peither p = T.ufun3 aeither peither p heither

heither ff fg (T.R (Left fx) _) p = T.uap1 T.mkNoSrcPos p ff fx
heither ff fg (T.R (Right fy) _) p = T.uap1 T.mkNoSrcPos p fg fy
heither _ _ _ p = T.fatal p

instance Functor (IO)
  where
  
  gfmap pfmap p =
    T.ufun2 a536v4v536v42fmap pfmap p hfmap
    where
    
    hfmap ff fx p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>>= p) fx
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p) (greturn T.mkNoSrcPos p) ff)
    
  

instance Monad (IO)
  where
  
  (!>>=) (%>>=) p = T.uconstUse (%>>=) p (|>>=)
  
  (|>>=) =
    T.uconstDef T.mkRoot (+*&!=*=*&!=$$>>=) (\ p -> gprimIOBind T.mkNoSrcPos p)
  
  greturn preturn p = T.uconstUse preturn p sreturn
  
  sreturn =
    T.uconstDef T.mkRoot a541v4v541v24return
      (\ p -> gprimIOReturn T.mkNoSrcPos p)
  
  gfail pfail p =
    T.ufun1 a542v4v542v32fail pfail p hfail
    where
    
    hfail fs p =
      T.uwrapForward p (hioError (T.uwrapForward p (huserError fs p)) p)
    
  

data Ordering = LT  | EQ  | GT 

instance T.WrapVal (Ordering)
  where
  
  wrapVal pwrapVal (kwrapVal@LT) p = T.R kwrapVal (T.mkValueUse p pwrapVal aLT)
  wrapVal pwrapVal (kwrapVal@EQ) p = T.R kwrapVal (T.mkValueUse p pwrapVal aEQ)
  wrapVal pwrapVal (kwrapVal@GT) p = T.R kwrapVal (T.mkValueUse p pwrapVal aGT)
  

instance Eq (Ordering)
  where
  
  (!==) (%==) p =
    T.ufun2 (+*&@=$#=*&@=$$==) (%==) p (*==)
    where
    
    (*==) (T.R LT _) (T.R LT _) p = T.con0 T.mkNoSrcPos p True aTrue
    (*==) (T.R EQ _) (T.R EQ _) p = T.con0 T.mkNoSrcPos p True aTrue
    (*==) (T.R GT _) (T.R GT _) p = T.con0 T.mkNoSrcPos p True aTrue
    (*==) _ _ p = T.con0 T.mkNoSrcPos p False aFalse
    
  

instance Ord (Ordering)
  where
  
  gcompare pcompare p =
    T.ufun2 a548v25v548v27compare pcompare p hcompare
    where
    
    hcompare fy1 fy2 p =
      T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p)
        (T.uwrapForward p (hlocalFromEnum fy1 p) :: T.R Int)
        (T.uwrapForward p (hlocalFromEnum fy2 p))
      where
      
      glocalFromEnum plocalFromEnum p =
        T.ufun1 a548v25v548v27localFromEnum plocalFromEnum p hlocalFromEnum
      
      alocalFromEnum = a548v25v548v27localFromEnum
      
      hlocalFromEnum (T.R (LT) _) p =
        T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 0)
      hlocalFromEnum (T.R (EQ) _) p =
        T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 1)
      hlocalFromEnum (T.R (GT) _) p =
        T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 2)
      hlocalFromEnum _ p = T.fatal p
      
    
  

instance Enum (Ordering)
  where
  
  gfromEnum pfromEnum p =
    T.ufun1 a548v30v548v33fromEnum pfromEnum p hfromEnum
    where
    
    hfromEnum (T.R LT _) p =
      T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0)
    hfromEnum (T.R EQ _) p =
      T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 1)
    hfromEnum (T.R GT _) p =
      T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 2)
    hfromEnum _ p = T.fatal p
    
  
  gtoEnum ptoEnum p =
    T.ufun1 a548v30v548v33toEnum ptoEnum p htoEnum
    where
    
    htoEnum fv548v30v548v33n p =
      T.ucguard
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fv548v30v548v33n
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 0))) (h p)
        (y1toEnum fv548v30v548v33n p)
      where
      
      h p = T.con0 T.mkNoSrcPos p LT aLT
      h p = y1toEnum fv548v30v548v33n p
      
    htoEnum fv548v30v548v33n p = y1toEnum fv548v30v548v33n p
    
    y1toEnum fv548v30v548v33n p =
      T.ucguard
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fv548v30v548v33n
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 1))) (h p)
        (y2toEnum fv548v30v548v33n p)
      where
      
      h p = T.con0 T.mkNoSrcPos p EQ aEQ
      h p = y2toEnum fv548v30v548v33n p
      
    y1toEnum fv548v30v548v33n p = y2toEnum fv548v30v548v33n p
    
    y2toEnum fv548v30v548v33n p =
      T.ucguard
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fv548v30v548v33n
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 2))) (h p)
        (y3toEnum fv548v30v548v33n p)
      where
      
      h p = T.con0 T.mkNoSrcPos p GT aGT
      h p = y3toEnum fv548v30v548v33n p
      
    y2toEnum fv548v30v548v33n p = y3toEnum fv548v30v548v33n p
    
    y3toEnum _ p =
      T.uwrapForward p
        (herror
          (T.fromLitString T.mkNoSrcPos p "toEnum: argument out of bounds") p)
    
  
  genumFrom penumFrom p =
    T.ufun1 a548v30v548v33enumFrom penumFrom p henumFrom
    where
    
    henumFrom fy1 p =
      T.uap2 T.mkNoSrcPos p (genumFromTo T.mkNoSrcPos p) fy1
        (T.con0 T.mkNoSrcPos p GT aGT)
    
  
  genumFromThen penumFromThen p =
    T.ufun2 a548v30v548v33enumFromThen penumFromThen p henumFromThen
    where
    
    henumFromThen fy1 fy2 p =
      T.uap3 T.mkNoSrcPos p (genumFromThenTo T.mkNoSrcPos p) fy1 fy2
        (T.ucif p
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p)
            (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fy1)
            (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fy2))
          (T.con0 T.mkNoSrcPos p GT aGT) (T.con0 T.mkNoSrcPos p LT aLT))
    
  

instance Read (Ordering)
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a548v36v548v39readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fy1 p =
      T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p)
        (T.uwrapForward p
          (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
            (T.uwrapForward p
              (Hat.PreludeBasic.hthenLex
                (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p)
                  (T.con0 T.mkNoSrcPos p LT aLT))
                (T.fromLitString T.mkNoSrcPos p "LT") p)) p))
        (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p)
          (T.uwrapForward p
            (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
              (T.uwrapForward p
                (Hat.PreludeBasic.hthenLex
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gyield T.mkNoSrcPos p)
                    (T.con0 T.mkNoSrcPos p EQ aEQ))
                  (T.fromLitString T.mkNoSrcPos p "EQ") p)) p))
          (T.uwrapForward p
            (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
              (T.uwrapForward p
                (Hat.PreludeBasic.hthenLex
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gyield T.mkNoSrcPos p)
                    (T.con0 T.mkNoSrcPos p GT aGT))
                  (T.fromLitString T.mkNoSrcPos p "GT") p)) p)))
    
  

instance Show (Ordering)
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a548v42v548v45showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fy1 (T.R (LT) _) p =
      T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
        (T.fromLitString T.mkNoSrcPos p "LT")
    hshowsPrec fy1 (T.R (EQ) _) p =
      T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
        (T.fromLitString T.mkNoSrcPos p "EQ")
    hshowsPrec fy1 (T.R (GT) _) p =
      T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
        (T.fromLitString T.mkNoSrcPos p "GT")
    hshowsPrec _ _ p = T.fatal p
    
  

instance Bounded (Ordering)
  where
  
  gminBound pminBound p = T.uconstUse pminBound p sminBound
  
  sminBound =
    T.uconstDef T.mkRoot a548v48v548v54minBound
      (\ p -> T.con0 T.mkNoSrcPos p LT aLT)
  
  gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
  
  smaxBound =
    T.uconstDef T.mkRoot a548v48v548v54maxBound
      (\ p -> T.con0 T.mkNoSrcPos p GT aGT)
  

instance Eq (Int)
  where
  
  (!==) (%==) p =
    T.ufun2 (+**>=*=**>=+==) (%==) p (*==)
    where
    
    (*==) fa fb p = T.uwrapForward p (hprimIntEq fa fb p)
    
  
  (!/=) (%/=) p =
    T.ufun2 (+*+!=*=*+!=+/=) (%/=) p (*/=)
    where
    
    (*/=) fa fb p = T.uwrapForward p (hprimIntNe fa fb p)
    
  

instance Ord (Int)
  where
  
  (!<) (%<) p =
    T.ufun2 (+*+%=*=*+%=*<) (%<) p (*<)
    where
    
    (*<) fa fb p = T.uwrapForward p (hprimIntLt fa fb p)
    
  
  (!<=) (%<=) p =
    T.ufun2 (+*+&=*=*+&=+<=) (%<=) p (*<=)
    where
    
    (*<=) fa fb p = T.uwrapForward p (hprimIntLe fa fb p)
    
  
  (!>=) (%>=) p =
    T.ufun2 (+*+*=*=*+*=+>=) (%>=) p (*>=)
    where
    
    (*>=) fa fb p = T.uwrapForward p (hprimIntGe fa fb p)
    
  
  (!>) (%>) p =
    T.ufun2 (+*++=*=*++=*>) (%>) p (*>)
    where
    
    (*>) fa fb p = T.uwrapForward p (hprimIntGt fa fb p)
    
  

instance Num (Int)
  where
  
  (!+) (%+) p =
    T.ufun2 (+*+>=&=*+>=&+) (%+) p (*+)
    where
    
    (*+) fa fb p = T.uwrapForward p (hprimIntPlus fa fb p)
    
  
  (!-) (%-) p =
    T.ufun2 (+*^!=&=*^!=&-) (%-) p (*-)
    where
    
    (*-) fa fb p = T.uwrapForward p (hprimIntMinus fa fb p)
    
  
  (!*) (%*) p =
    T.ufun2 (+*^#=&=*^#=&*) (%*) p (**)
    where
    
    (**) fa fb p = T.uwrapForward p (hprimIntTimes fa fb p)
    
  
  gnegate pnegate p =
    T.ufun1 a572v2v572v27negate pnegate p hnegate
    where
    
    hnegate fa p = T.uwrapForward p (hprimIntNegate fa p)
    
  
  gabs pabs p =
    T.ufun1 a573v2v573v24abs pabs p habs
    where
    
    habs fa p = T.uwrapForward p (hprimIntAbs fa p)
    
  
  gsignum psignum p =
    T.ufun1 a574v2v574v27signum psignum p hsignum
    where
    
    hsignum fa p = T.uwrapForward p (hprimIntSignum fa p)
    
  
  gfromInteger pfromInteger p =
    T.ufun1 a575v2v575v37fromInteger pfromInteger p hfromInteger
    where
    
    hfromInteger fi p = T.uwrapForward p (hprimIntFromInteger fi p)
    
  

instance Real (Int)
  where
  
  gtoRational ptoRational p =
    T.ufun1 a578v5v578v36toRational ptoRational p htoRational
    where
    
    htoRational fi p =
      T.uwrapForward p
        (((T.uap1 T.mkNoSrcPos p (gtoInteger T.mkNoSrcPos p) fi)
            *%
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 1))) p)
    
  

instance Integral (Int)
  where
  
  gquot pquot p =
    T.ufun2 a581v8v581v11quot pquot p hquot
    where
    
    hquot fn fd p = T.uwrapForward p (hprimIntQuot fn fd p)
    
  
  grem prem p =
    T.ufun2 a582v8v582v10rem prem p hrem
    where
    
    hrem fn fd p = T.uwrapForward p (hprimIntRem fn fd p)
    
  
  gquotRem pquotRem p =
    T.ufun2 a583v8v583v14quotRem pquotRem p hquotRem
    where
    
    hquotRem fn fd p =
      T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
        (T.uap2 T.mkNoSrcPos p (gquot T.mkNoSrcPos p) fn fd)
        (T.uap2 T.mkNoSrcPos p (grem T.mkNoSrcPos p) fn fd)
    
  
  gtoInteger ptoInteger p =
    T.ufun1 a585v5v585v46toInteger ptoInteger p htoInteger
    where
    
    htoInteger fn p = T.uwrapForward p (hprimIntegerFromInt fn p)
    
  

instance Enum (Int)
  where
  
  gtoEnum ptoEnum p = T.uconstUse ptoEnum p stoEnum
  
  stoEnum = T.uconstDef T.mkRoot a588v3v588v13toEnum (\ p -> gid T.mkNoSrcPos p)
  
  gfromEnum pfromEnum p = T.uconstUse pfromEnum p sfromEnum
  
  sfromEnum =
    T.uconstDef T.mkRoot a589v3v589v15fromEnum (\ p -> gid T.mkNoSrcPos p)
  
  genumFrom penumFrom p =
    T.ufun1 a591v3v591v36enumFrom penumFrom p henumFrom
    where
    
    henumFrom fx p =
      T.uap2 T.mkNoSrcPos p (genumFromTo T.mkNoSrcPos p) fx
        (gmaxBound T.mkNoSrcPos p)
    
  
  genumFromThen penumFromThen p =
    T.ufun2 a592v3v592v78enumFromThen penumFromThen p henumFromThen
    where
    
    henumFromThen fx fy p =
      T.uap3 T.mkNoSrcPos p (genumFromThenTo T.mkNoSrcPos p) fx fy
        (T.ucif p (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) fy fx)
          (gmaxBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p))
    
  
  genumFromTo penumFromTo p =
    T.ufun2 a593v3v593v40enumFromTo penumFromTo p henumFromTo
    where
    
    henumFromTo fn fm p =
      T.uwrapForward p
        (hintEnumFromByTo fn
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 1)) fm p)
    
  
  genumFromThenTo penumFromThenTo p =
    T.ufun3 a594v3v594v52enumFromThenTo penumFromThenTo p henumFromThenTo
    where
    
    henumFromThenTo fn fn' fm p =
      T.uwrapForward p
        (hintEnumFromByTo fn (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fn' fn)
          fm p)
    
  

gintEnumFromByTo ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun Int (T.Fun Int (T.Fun Int (T.List Int))))

hintEnumFromByTo ::
  (T.R Int) -> (T.R Int) -> (T.R Int) -> T.RefExp -> T.R (T.List Int)

gintEnumFromByTo pintEnumFromByTo p =
  T.ufun3 aintEnumFromByTo pintEnumFromByTo p hintEnumFromByTo

hintEnumFromByTo fn fd fm p =
  T.uccase T.mkNoSrcPos p
    (let
      v600v3v603v45v1 (T.R GT _) p =
        T.ucif p (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) fn fm)
          (T.con0 T.mkNoSrcPos p T.List T.aList)
          (T.uwrapForward p
            (hgo
              (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !<= p)
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fm fd)) fn p))
      v600v3v603v45v1 (T.R EQ _) p = T.uwrapForward p (hrepeat fn p)
      v600v3v603v45v1 (T.R LT _) p =
        T.ucif p (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) fn fm)
          (T.con0 T.mkNoSrcPos p T.List T.aList)
          (T.uwrapForward p
            (hgo
              (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !>= p)
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fm fd)) fn p))
      v600v3v603v45v1 _ p = T.fatal p in (v600v3v603v45v1))
    (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fd
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0)))
  where
  
  ggo ::
    T.RefSrcPos ->
      T.RefExp -> T.R (T.Fun (T.Fun Int Bool) (T.Fun Int (T.List Int)))
  
  hgo :: (T.R (T.Fun Int Bool)) -> (T.R Int) -> T.RefExp -> T.R (T.List Int)
  
  ggo pgo p = T.ufun2 a606v3v606v68go pgo p hgo
  
  ago = a606v3v606v68go
  
  hgo fcontinue fn p =
    T.con2 T.mkNoSrcPos p T.Cons T.aCons fn
      (T.ucif p (T.uap1 T.mkNoSrcPos p fcontinue fn)
        (T.uwrapForward p
          (hgo fcontinue (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fn fd) p))
        (T.con0 T.mkNoSrcPos p T.List T.aList))
  

instance Bounded (Int)
  where
  
  gminBound pminBound p = T.uconstUse pminBound p sminBound
  
  sminBound =
    T.uconstDef T.mkRoot a610v3v610v28minBound
      (\ p -> gprimIntMinBound T.mkNoSrcPos p)
  
  gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
  
  smaxBound =
    T.uconstDef T.mkRoot a611v3v611v28maxBound
      (\ p -> gprimIntMaxBound T.mkNoSrcPos p)
  

instance Eq (Integer)
  where
  
  (!==) (%==) p =
    T.ufun2 (++#^=*=+#^=+==) (%==) p (*==)
    where
    
    (*==) fa fb p = T.uwrapForward p (hprimIntegerEq fa fb p)
    
  
  (!/=) (%/=) p =
    T.ufun2 (++#@=*=+#@=+/=) (%/=) p (*/=)
    where
    
    (*/=) fa fb p = T.uwrapForward p (hprimIntegerNe fa fb p)
    
  

instance Ord (Integer)
  where
  
  (!<) (%<) p =
    T.ufun2 (++$#=*=+$#=*<) (%<) p (*<)
    where
    
    (*<) fa fb p = T.uwrapForward p (hprimIntegerLt fa fb p)
    
  
  (!<=) (%<=) p =
    T.ufun2 (++$$=*=+$$=+<=) (%<=) p (*<=)
    where
    
    (*<=) fa fb p = T.uwrapForward p (hprimIntegerLe fa fb p)
    
  
  (!>=) (%>=) p =
    T.ufun2 (++$%=*=+$%=+>=) (%>=) p (*>=)
    where
    
    (*>=) fa fb p = T.uwrapForward p (hprimIntegerGe fa fb p)
    
  
  (!>) (%>) p =
    T.ufun2 (++$&=*=+$&=*>) (%>) p (*>)
    where
    
    (*>) fa fb p = T.uwrapForward p (hprimIntegerGt fa fb p)
    
  

instance Num (Integer)
  where
  
  (!+) (%+) p =
    T.ufun2 (++$^=&=+$^=&+) (%+) p (*+)
    where
    
    (*+) fa fb p = T.uwrapForward p (hprimIntegerAdd fa fb p)
    
  
  (!-) (%-) p =
    T.ufun2 (++$@=&=+$@=&-) (%-) p (*-)
    where
    
    (*-) fa fb p = T.uwrapForward p (hprimIntegerSub fa fb p)
    
  
  (!*) (%*) p =
    T.ufun2 (++$>=&=+$>=&*) (%*) p (**)
    where
    
    (**) fa fb p = T.uwrapForward p (hprimIntegerMul fa fb p)
    
  
  gnegate pnegate p =
    T.ufun1 a630v2v630v28negate pnegate p hnegate
    where
    
    hnegate fa p = T.uwrapForward p (hprimIntegerNeg fa p)
    
  
  gabs pabs p =
    T.ufun1 a631v2v631v41abs pabs p habs
    where
    
    habs fi p =
      T.ucif p
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) fi
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 0)))
        (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p) fi)
        (T.projection T.mkNoSrcPos p fi)
    
  
  gsignum psignum p =
    T.ufun1 a632v2v635v24signum psignum p hsignum
    where
    
    hsignum fi p =
      T.uccase T.mkNoSrcPos p
        (let
          v632v13v635v24v1 (T.R LT _) p =
            T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p)
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 1))
          v632v13v635v24v1 (T.R EQ _) p =
            T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 0)
          v632v13v635v24v1 (T.R GT _) p =
            T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 1)
          v632v13v635v24v1 _ p = T.fatal p in (v632v13v635v24v1))
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fi
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 0)))
    
  
  gfromInteger pfromInteger p =
    T.ufun1 a636v2v636v18fromInteger pfromInteger p hfromInteger
    where
    
    hfromInteger fa p = T.projection T.mkNoSrcPos p fa
    
  

instance Real (Integer)
  where
  
  gtoRational ptoRational p =
    T.ufun1 a639v5v639v24toRational ptoRational p htoRational
    where
    
    htoRational fi p =
      T.uwrapForward p
        ((fi
            *%
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 1))) p)
    
  

instance Integral (Integer)
  where
  
  gquot pquot p =
    T.ufun2 a642v8v642v11quot pquot p hquot
    where
    
    hquot fn fd p = T.uwrapForward p (hprimIntegerQuot fn fd p)
    
  
  grem prem p =
    T.ufun2 a643v8v643v10rem prem p hrem
    where
    
    hrem fn fd p = T.uwrapForward p (hprimIntegerRem fn fd p)
    
  
  gdiv pdiv p =
    T.ufun2 a644v8v644v10div pdiv p hdiv
    where
    
    hdiv fn fd p =
      T.uwrapForward p
        (hfst (T.uap2 T.mkNoSrcPos p (gdivMod T.mkNoSrcPos p) fn fd) p)
    
  
  gmod pmod p =
    T.ufun2 a645v8v645v10mod pmod p hmod
    where
    
    hmod fn fd p =
      T.uwrapForward p
        (hsnd (T.uap2 T.mkNoSrcPos p (gdivMod T.mkNoSrcPos p) fn fd) p)
    
  
  gquotRem pquotRem p =
    T.ufun2 a647v8v647v14quotRem pquotRem p hquotRem
    where
    
    hquotRem fn fd p = T.uwrapForward p (hprimIntegerQuotRem fn fd p)
    
  
  gtoInteger ptoInteger p =
    T.ufun1 a649v5v649v21toInteger ptoInteger p htoInteger
    where
    
    htoInteger fn p = T.projection T.mkNoSrcPos p fn
    
  

instance Enum (Integer)
  where
  
  gsucc psucc p =
    T.ufun1 a652v3v652v18succ psucc p hsucc
    where
    
    hsucc fx p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fx
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 1))
    
  
  gpred ppred p =
    T.ufun1 a653v3v653v18pred ppred p hpred
    where
    
    hpred fx p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fx
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 1))
    
  
  gtoEnum ptoEnum p =
    T.ufun1 a654v3v654v26toEnum ptoEnum p htoEnum
    where
    
    htoEnum fx p = T.uap1 T.mkNoSrcPos p (gtoInteger T.mkNoSrcPos p) fx
    
  
  gfromEnum pfromEnum p =
    T.ufun1 a655v3v655v28fromEnum pfromEnum p hfromEnum
    where
    
    hfromEnum fx p = T.uap1 T.mkNoSrcPos p (gfromInteger T.mkNoSrcPos p) fx
    
  
  genumFrom penumFrom p = T.uconstUse penumFrom p senumFrom
  
  senumFrom =
    T.uconstDef T.mkRoot a657v3v657v24enumFrom
      (\ p ->
        T.uap1 T.mkNoSrcPos p (giterate T.mkNoSrcPos p)
          (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !+ p)
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 1))))
  
  genumFromThen penumFromThen p =
    T.ufun2 a658v3v658v41enumFromThen penumFromThen p henumFromThen
    where
    
    henumFromThen fn fn' p =
      T.uwrapForward p
        (hiterate
          (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !+ p)
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fn' fn)) fn p)
    
  
  genumFromTo penumFromTo p =
    T.ufun2 a659v3v659v51enumFromTo penumFromTo p henumFromTo
    where
    
    henumFromTo fn fm p =
      T.uwrapForward p
        (htakeWhile
          (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !<= p) fm)
          (T.uwrapForward p
            (hiterate
              (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !+ p)
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 1))) fn p)) p)
    
  
  genumFromThenTo penumFromThenTo p =
    T.ufun3 a660v3v663v54enumFromThenTo penumFromThenTo p henumFromThenTo
    where
    
    henumFromThenTo fn fn' fm p =
      let
        gd pd p = T.uconstUse pd p sd
        sd =
          T.uconstDef p a661v9v661v16d
            (\ p -> T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fn' fn) in
        (T.ucif p
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) (gd T.mkNoSrcPos p)
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 0)))
          (T.uwrapForward p
            (htakeWhile
              (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !<= p)
                fm)
              (T.uwrapForward p
                (hiterate
                  (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p)
                    (T.mkNoSrcPos !+ p) (gd T.mkNoSrcPos p)) fn p)) p))
          (T.uwrapForward p
            (htakeWhile
              (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !>= p)
                fm)
              (T.uwrapForward p
                (hiterate
                  (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p)
                    (T.mkNoSrcPos !+ p) (gd T.mkNoSrcPos p)) fn p)) p)))
    
  

instance Eq (Float)
  where
  
  (!==) (%==) p =
    T.ufun2 (+++>=*=++>=+==) (%==) p (*==)
    where
    
    (*==) fa fb p = T.uwrapForward p (hprimFloatEq fa fb p)
    
  
  (!/=) (%/=) p =
    T.ufun2 (++^!=*=+^!=+/=) (%/=) p (*/=)
    where
    
    (*/=) fa fb p = T.uwrapForward p (hprimFloatNe fa fb p)
    
  

instance Ord (Float)
  where
  
  (!<) (%<) p =
    T.ufun2 (++^%=*=+^%=*<) (%<) p (*<)
    where
    
    (*<) fa fb p = T.uwrapForward p (hprimFloatLt fa fb p)
    
  
  (!<=) (%<=) p =
    T.ufun2 (++^&=*=+^&=+<=) (%<=) p (*<=)
    where
    
    (*<=) fa fb p = T.uwrapForward p (hprimFloatLe fa fb p)
    
  
  (!>=) (%>=) p =
    T.ufun2 (++^*=*=+^*=+>=) (%>=) p (*>=)
    where
    
    (*>=) fa fb p = T.uwrapForward p (hprimFloatGe fa fb p)
    
  
  (!>) (%>) p =
    T.ufun2 (++^+=*=+^+=*>) (%>) p (*>)
    where
    
    (*>) fa fb p = T.uwrapForward p (hprimFloatGt fa fb p)
    
  

instance Num (Float)
  where
  
  (!+) (%+) p =
    T.ufun2 (++^>=&=+^>=&+) (%+) p (*+)
    where
    
    (*+) fa fb p = T.uwrapForward p (hprimFloatAdd fa fb p)
    
  
  (!-) (%-) p =
    T.ufun2 (++@!=&=+@!=&-) (%-) p (*-)
    where
    
    (*-) fa fb p = T.uwrapForward p (hprimFloatSub fa fb p)
    
  
  (!*) (%*) p =
    T.ufun2 (++@#=&=+@#=&*) (%*) p (**)
    where
    
    (**) fa fb p = T.uwrapForward p (hprimFloatMul fa fb p)
    
  
  gnegate pnegate p =
    T.ufun1 a682v2v682v17negate pnegate p hnegate
    where
    
    hnegate fa p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 0)) fa
    
  
  gabs pabs p =
    T.ufun1 a683v2v683v26abs pabs p habs
    where
    
    habs fa p = T.uwrapForward p (hprimFloatAbs fa p)
    
  
  gsignum psignum p =
    T.ufun1 a684v2v684v29signum psignum p hsignum
    where
    
    hsignum fa p = T.uwrapForward p (hprimFloatSignum fa p)
    
  
  gfromInteger pfromInteger p =
    T.ufun1 a685v2v685v39fromInteger pfromInteger p hfromInteger
    where
    
    hfromInteger fi p = T.uwrapForward p (hprimFloatFromInteger fi p)
    
  

instance Real (Float)
  where
  
  gtoRational ptoRational p =
    T.ufun1 a688v5v689v52toRational ptoRational p htoRational
    where
    
    htoRational fx p =
      T.uccase T.mkNoSrcPos p
        (let
          v688v20v688v65v1 (T.R (T.Tuple2 fm fn) _) p =
            T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
              (T.uwrapForward p
                ((fm
                    *%
                    (T.uap1 T.mkNoSrcPos p
                      (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                      (T.conInteger T.mkNoSrcPos p 1))) p))
              (T.uwrapForward p
                (((T.uwrapForward p
                      (((gbf T.mkNoSrcPos p)
                          *%
                          (T.uap1 T.mkNoSrcPos p
                            (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                            (T.conInteger T.mkNoSrcPos p 1))) p))
                    *^^
                    fn) p))
          v688v20v688v65v1 _ p = T.fatal p in (v688v20v688v65v1))
        (T.uap1 T.mkNoSrcPos p (gdecodeFloat T.mkNoSrcPos p) fx)
      where
      
      gbf pbf p = T.uconstUse pbf p sbf
      
      sbf =
        T.uconstDef p a689v31v689v52bf
          (\ p -> T.uap1 T.mkNoSrcPos p (gfloatRadix T.mkNoSrcPos p) fx)
      
    
  

instance Fractional (Float)
  where
  
  (!/) (%/) p =
    T.ufun2 (++>$=*=+>$=*/) (%/) p (*/)
    where
    
    (*/) fx fy p = T.uwrapForward p (hprimFloatDiv fx fy p)
    
  
  gfromRational pfromRational p =
    T.ufun1 a693v3v701v76fromRational pfromRational p hfromRational
    where
    
    hfromRational fx p =
      gx0 T.mkNoSrcPos p
      where
      
      gx0 px0 p = T.uconstUse px0 p sx0
      
      sx0 =
        T.uconstDef p a694v13v694v25x0
          (\ p -> T.uwrapForward p (hff (gef T.mkNoSrcPos p) p))
      
      gff pff p = T.ufun1 a695v13v699v48ff pff p hff
      
      aff = a695v13v699v48ff
      
      hff fef p =
        T.ucif p
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) (gef' T.mkNoSrcPos p) fef)
          (gyf T.mkNoSrcPos p) (T.uwrapForward p (hff (gef' T.mkNoSrcPos p) p))
        where
        
        gyf :: T.RefSrcPos -> T.RefExp -> T.R Float
        
        syf :: T.R Float
        
        gyf pyf p = T.uconstUse pyf p syf
        
        syf =
          T.uconstDef p a697v26v697v78yf
            (\ p ->
              T.uap2 T.mkNoSrcPos p (gencodeFloat T.mkNoSrcPos p)
                (T.uap1 T.mkNoSrcPos p (ground T.mkNoSrcPos p)
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fx
                    (T.uwrapForward p
                      (((T.uwrapForward p
                            (((T.uap1 T.mkNoSrcPos p
                                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                                  (T.conInteger T.mkNoSrcPos p 1))
                                *%
                                (gbf T.mkNoSrcPos p)) p))
                          *^^
                          fef) p)))) fef)
        
        gef' pef' p = T.uconstUse pef' p sef'
        
        j698v26v698v32ef' =
          case
            T.uap1 T.mkNoSrcPos p (gdecodeFloat T.mkNoSrcPos p)
              (gyf T.mkNoSrcPos p) of
            T.R (T.Tuple2 _ fef') kef' -> (kef',fef')
            _ -> T.fatal p
        
        sef' =
          T.uconstDef p a698v29v698v31ef'
            (\ _ -> case j698v26v698v32ef' of (kef',fef') -> fef')
        
        gbf pbf p = T.uconstUse pbf p sbf
        
        sbf =
          T.uconstDef p a699v26v699v48bf
            (\ p ->
              T.uap1 T.mkNoSrcPos p (gfloatRadix T.mkNoSrcPos p)
                (gx0 T.mkNoSrcPos p))
        
      
      gef pef p = T.uconstUse pef p sef
      
      j700v13v700v18ef =
        case
          T.uap1 T.mkNoSrcPos p (gdecodeFloat T.mkNoSrcPos p)
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p)
              (T.uap2 T.mkNoSrcPos p (gasTypeOf T.mkNoSrcPos p)
                (T.uap1 T.mkNoSrcPos p (gfromInteger T.mkNoSrcPos p)
                  (T.uwrapForward p (hnumerator fx p))) (gx0 T.mkNoSrcPos p))
              (T.uap1 T.mkNoSrcPos p (gfromInteger T.mkNoSrcPos p)
                (T.uwrapForward p (hdenominator fx p)))) of
          T.R (T.Tuple2 _ fef) kef -> (kef,fef)
          _ -> T.fatal p
      
      sef =
        T.uconstDef p a700v16v700v17ef
          (\ _ -> case j700v13v700v18ef of (kef,fef) -> fef)
      
    
  

instance Floating (Float)
  where
  
  gpi ppi p = T.uconstUse ppi p spi
  
  spi =
    T.uconstDef T.mkRoot a704v5v704v38pi (\ p -> gprimFloatPi T.mkNoSrcPos p)
  
  gexp pexp p =
    T.ufun1 a705v5v705v41exp pexp p hexp
    where
    
    hexp fx p = T.uwrapForward p (hprimFloatExp fx p)
    
  
  glog plog p =
    T.ufun1 a706v5v706v41log plog p hlog
    where
    
    hlog fx p = T.uwrapForward p (hprimFloatLog fx p)
    
  
  gsqrt psqrt p =
    T.ufun1 a707v5v707v42sqrt psqrt p hsqrt
    where
    
    hsqrt fx p = T.uwrapForward p (hprimFloatSqrt fx p)
    
  
  gsin psin p =
    T.ufun1 a708v5v708v41sin psin p hsin
    where
    
    hsin fx p = T.uwrapForward p (hprimFloatSin fx p)
    
  
  gcos pcos p =
    T.ufun1 a709v5v709v41cos pcos p hcos
    where
    
    hcos fx p = T.uwrapForward p (hprimFloatCos fx p)
    
  
  gtan ptan p =
    T.ufun1 a710v5v710v41tan ptan p htan
    where
    
    htan fx p = T.uwrapForward p (hprimFloatTan fx p)
    
  
  gasin pasin p =
    T.ufun1 a711v5v711v42asin pasin p hasin
    where
    
    hasin fx p = T.uwrapForward p (hprimFloatAsin fx p)
    
  
  gacos pacos p =
    T.ufun1 a712v5v712v42acos pacos p hacos
    where
    
    hacos fx p = T.uwrapForward p (hprimFloatAcos fx p)
    
  
  gatan patan p =
    T.ufun1 a713v5v713v42atan patan p hatan
    where
    
    hatan fx p = T.uwrapForward p (hprimFloatAtan fx p)
    
  
  gsinh psinh p =
    T.ufun1 a714v5v714v48sinh psinh p hsinh
    where
    
    hsinh fx p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromRational T.mkNoSrcPos p)
          (T.R
            ((T.conInteger T.mkNoSrcPos p 1)
              Hat.PreludeBasic.:%
              (T.conInteger T.mkNoSrcPos p 2))
            (T.mkAtomRational T.mkNoSrcPos p 0.5)))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
          (T.uap1 T.mkNoSrcPos p (gexp T.mkNoSrcPos p) fx)
          (T.uap1 T.mkNoSrcPos p (gexp T.mkNoSrcPos p)
            (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p) fx)))
    
  
  gcosh pcosh p =
    T.ufun1 a715v5v715v48cosh pcosh p hcosh
    where
    
    hcosh fx p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromRational T.mkNoSrcPos p)
          (T.R
            ((T.conInteger T.mkNoSrcPos p 1)
              Hat.PreludeBasic.:%
              (T.conInteger T.mkNoSrcPos p 2))
            (T.mkAtomRational T.mkNoSrcPos p 0.5)))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
          (T.uap1 T.mkNoSrcPos p (gexp T.mkNoSrcPos p) fx)
          (T.uap1 T.mkNoSrcPos p (gexp T.mkNoSrcPos p)
            (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p) fx)))
    
  
  gtanh ptanh p =
    T.ufun1 a716v5v716v73tanh ptanh p htanh
    where
    
    htanh fx p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p)
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) (gaf T.mkNoSrcPos p)
          (gbf T.mkNoSrcPos p))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) (gaf T.mkNoSrcPos p)
          (gbf T.mkNoSrcPos p))
      where
      
      gaf paf p = T.uconstUse paf p saf
      
      saf =
        T.uconstDef p a716v49v716v58af
          (\ p -> T.uap1 T.mkNoSrcPos p (gexp T.mkNoSrcPos p) fx)
      
      gbf pbf p = T.uconstUse pbf p sbf
      
      sbf =
        T.uconstDef p a716v62v716v73bf
          (\ p ->
            T.uap1 T.mkNoSrcPos p (gexp T.mkNoSrcPos p)
              (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p) fx))
      
    
  
  gasinh pasinh p =
    T.ufun1 a717v5v717v34asinh pasinh p hasinh
    where
    
    hasinh fx p =
      T.uap1 T.mkNoSrcPos p (glog T.mkNoSrcPos p)
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fx
          (T.uap1 T.mkNoSrcPos p (gsqrt T.mkNoSrcPos p)
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 1))
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fx fx))))
    
  
  gacosh pacosh p =
    T.ufun1 a718v5v718v47acosh pacosh p hacosh
    where
    
    hacosh fx p =
      T.uap1 T.mkNoSrcPos p (glog T.mkNoSrcPos p)
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fx
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fx
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 1)))
            (T.uap1 T.mkNoSrcPos p (gsqrt T.mkNoSrcPos p)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p)
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fx
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                    (T.conInteger T.mkNoSrcPos p 1)))
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fx
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                    (T.conInteger T.mkNoSrcPos p 1)))))))
    
  
  gatanh patanh p =
    T.ufun1 a719v5v719v40atanh patanh p hatanh
    where
    
    hatanh fx p =
      T.uap1 T.mkNoSrcPos p (glog T.mkNoSrcPos p)
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fx
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 1)))
          (T.uap1 T.mkNoSrcPos p (gsqrt T.mkNoSrcPos p)
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 1))
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fx fx))))
    
  

instance RealFrac (Float)
  where
  
  gproperFraction pproperFraction p =
    T.ufun1 a722v5v728v67properFraction pproperFraction p hproperFraction
    where
    
    hproperFraction fx p =
      T.uccase T.mkNoSrcPos p
        (let
          v723v9v728v67v1 (T.R (T.Tuple2 fm fn) _) p =
            T.ucif p
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) fn
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 0)))
              (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
                  (T.uap1 T.mkNoSrcPos p (gfromInteger T.mkNoSrcPos p) fm)
                  (T.uwrapForward p
                    (((T.uap1 T.mkNoSrcPos p (gfromInteger T.mkNoSrcPos p)
                          (T.uap1 T.mkNoSrcPos p (gfloatRadix T.mkNoSrcPos p)
                            fx))
                        *^
                        fn) p)))
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 0)))
              (T.uccase T.mkNoSrcPos p
                (let
                  v727v25v728v67v1 (T.R (T.Tuple2 fw fr) _) p =
                    T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                      (T.uap1 T.mkNoSrcPos p (gfromInteger T.mkNoSrcPos p) fw)
                      (T.uap2 T.mkNoSrcPos p (gencodeFloat T.mkNoSrcPos p) fr
                        fn)
                  v727v25v728v67v1 _ p = T.fatal p in (v727v25v728v67v1))
                (T.uap2 T.mkNoSrcPos p (gquotRem T.mkNoSrcPos p) fm
                  (T.uwrapForward p
                    (((T.uap1 T.mkNoSrcPos p (gfloatRadix T.mkNoSrcPos p) fx)
                        *^
                        (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p) fn))
                      p))))
          v723v9v728v67v1 _ p = T.fatal p in (v723v9v728v67v1))
        (T.uap1 T.mkNoSrcPos p (gdecodeFloat T.mkNoSrcPos p) fx)
    
  

instance RealFloat (Float)
  where
  
  gfloatRadix pfloatRadix p = T.uconstUse pfloatRadix p sfloatRadix
  
  sfloatRadix =
    T.uconstDef T.mkRoot a731v5v731v34floatRadix
      (\ p -> gprimFloatRadix T.mkNoSrcPos p)
  
  gfloatDigits pfloatDigits p = T.uconstUse pfloatDigits p sfloatDigits
  
  sfloatDigits =
    T.uconstDef T.mkRoot a732v5v732v35floatDigits
      (\ p -> gprimFloatDigits T.mkNoSrcPos p)
  
  gfloatRange pfloatRange p = T.uconstUse pfloatRange p sfloatRange
  
  sfloatRange =
    T.uconstDef T.mkRoot a733v5v733v34floatRange
      (\ p -> gprimFloatRange T.mkNoSrcPos p)
  
  gdecodeFloat pdecodeFloat p =
    T.ufun1 a734v5v734v37decodeFloat pdecodeFloat p hdecodeFloat
    where
    
    hdecodeFloat fx p = T.uwrapForward p (hprimDecodeFloat fx p)
    
  
  gencodeFloat pencodeFloat p =
    T.ufun2 a735v5v735v41encodeFloat pencodeFloat p hencodeFloat
    where
    
    hencodeFloat fx fy p = T.uwrapForward p (hprimEncodeFloat fx fy p)
    
  
  gisNaN pisNaN p = T.uconstUse pisNaN p sisNaN
  
  sisNaN =
    T.uconstDef T.mkRoot a737v5v737v35isNaN
      (\ p -> gprimFloatIsNaN T.mkNoSrcPos p)
  
  gisInfinite pisInfinite p = T.uconstUse pisInfinite p sisInfinite
  
  sisInfinite =
    T.uconstDef T.mkRoot a738v5v738v40isInfinite
      (\ p -> gprimFloatIsInfinite T.mkNoSrcPos p)
  
  gisDenormalized pisDenormalized p =
    T.uconstUse pisDenormalized p sisDenormalized
  
  sisDenormalized =
    T.uconstDef T.mkRoot a739v5v739v44isDenormalized
      (\ p -> gprimFloatIsDenormalized T.mkNoSrcPos p)
  
  gisNegativeZero pisNegativeZero p =
    T.uconstUse pisNegativeZero p sisNegativeZero
  
  sisNegativeZero =
    T.uconstDef T.mkRoot a740v5v740v44isNegativeZero
      (\ p -> gprimFloatIsNegativeZero T.mkNoSrcPos p)
  
  gisIEEE pisIEEE p = T.uconstUse pisIEEE p sisIEEE
  
  sisIEEE =
    T.uconstDef T.mkRoot a741v5v741v36isIEEE
      (\ p -> gprimFloatIsIEEE T.mkNoSrcPos p)
  

instance Eq (Double)
  where
  
  (!==) (%==) p =
    T.ufun2 (+^&^=*=^&^=+==) (%==) p (*==)
    where
    
    (*==) fa fb p = T.uwrapForward p (hprimDoubleEq fa fb p)
    
  
  (!/=) (%/=) p =
    T.ufun2 (+^&@=*=^&@=+/=) (%/=) p (*/=)
    where
    
    (*/=) fa fb p = T.uwrapForward p (hprimDoubleNe fa fb p)
    
  

instance Ord (Double)
  where
  
  (!<) (%<) p =
    T.ufun2 (+^*#=*=^*#=*<) (%<) p (*<)
    where
    
    (*<) fa fb p = T.uwrapForward p (hprimDoubleLt fa fb p)
    
  
  (!<=) (%<=) p =
    T.ufun2 (+^*$=*=^*$=+<=) (%<=) p (*<=)
    where
    
    (*<=) fa fb p = T.uwrapForward p (hprimDoubleLe fa fb p)
    
  
  (!>=) (%>=) p =
    T.ufun2 (+^*%=*=^*%=+>=) (%>=) p (*>=)
    where
    
    (*>=) fa fb p = T.uwrapForward p (hprimDoubleGe fa fb p)
    
  
  (!>) (%>) p =
    T.ufun2 (+^*&=*=^*&=*>) (%>) p (*>)
    where
    
    (*>) fa fb p = T.uwrapForward p (hprimDoubleGt fa fb p)
    
  

instance Num (Double)
  where
  
  (!+) (%+) p =
    T.ufun2 (+^*^=&=^*^=&+) (%+) p (*+)
    where
    
    (*+) fa fb p = T.uwrapForward p (hprimDoubleAdd fa fb p)
    
  
  (!-) (%-) p =
    T.ufun2 (+^*@=&=^*@=&-) (%-) p (*-)
    where
    
    (*-) fa fb p = T.uwrapForward p (hprimDoubleSub fa fb p)
    
  
  (!*) (%*) p =
    T.ufun2 (+^*>=&=^*>=&*) (%*) p (**)
    where
    
    (**) fa fb p = T.uwrapForward p (hprimDoubleMul fa fb p)
    
  
  gnegate pnegate p =
    T.ufun1 a760v2v760v18negate pnegate p hnegate
    where
    
    hnegate fa p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 0)) fa
    
  
  gabs pabs p =
    T.ufun1 a761v2v761v27abs pabs p habs
    where
    
    habs fa p = T.uwrapForward p (hprimDoubleAbs fa p)
    
  
  gsignum psignum p =
    T.ufun1 a762v2v762v30signum psignum p hsignum
    where
    
    hsignum fa p = T.uwrapForward p (hprimDoubleSignum fa p)
    
  
  gfromInteger pfromInteger p =
    T.ufun1 a763v2v763v40fromInteger pfromInteger p hfromInteger
    where
    
    hfromInteger fi p = T.uwrapForward p (hprimDoubleFromInteger fi p)
    
  

instance Real (Double)
  where
  
  gtoRational ptoRational p =
    T.ufun1 a766v5v767v51toRational ptoRational p htoRational
    where
    
    htoRational fx p =
      T.uccase T.mkNoSrcPos p
        (let
          v766v20v766v64v1 (T.R (T.Tuple2 fm fn) _) p =
            T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
              (T.uwrapForward p
                ((fm
                    *%
                    (T.uap1 T.mkNoSrcPos p
                      (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                      (T.conInteger T.mkNoSrcPos p 1))) p))
              (T.uwrapForward p
                (((T.uwrapForward p
                      (((gb T.mkNoSrcPos p)
                          *%
                          (T.uap1 T.mkNoSrcPos p
                            (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                            (T.conInteger T.mkNoSrcPos p 1))) p))
                    *^^
                    fn) p))
          v766v20v766v64v1 _ p = T.fatal p in (v766v20v766v64v1))
        (T.uap1 T.mkNoSrcPos p (gdecodeFloat T.mkNoSrcPos p) fx)
      where
      
      gb pb p = T.uconstUse pb p sb
      
      sb =
        T.uconstDef p a767v31v767v51b
          (\ p -> T.uap1 T.mkNoSrcPos p (gfloatRadix T.mkNoSrcPos p) fx)
      
    
  

instance Fractional (Double)
  where
  
  (!/) (%/) p =
    T.ufun2 (+^^!=*=^^!=*/) (%/) p (*/)
    where
    
    (*/) fx fy p = T.uwrapForward p (hprimDoubleDiv fx fy p)
    
  
  gfromRational pfromRational p =
    T.ufun1 a771v3v780v11fromRational pfromRational p hfromRational
    where
    
    hfromRational fx p =
      let
        gf pf p = T.ufun1 a772v11v776v48f pf p hf
        af = a772v11v776v48f
        hf fex p =
          let
            gy :: T.RefSrcPos -> T.RefExp -> T.R Double
            sy :: T.R Double
            gy py p = T.uconstUse py p sy
            sy =
              T.uconstDef p a773v22v773v69y
                (\ p ->
                  T.uap2 T.mkNoSrcPos p (gencodeFloat T.mkNoSrcPos p)
                    (T.uap1 T.mkNoSrcPos p (ground T.mkNoSrcPos p)
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fx
                        (T.uwrapForward p
                          (((T.uwrapForward p
                                (((T.uap1 T.mkNoSrcPos p
                                      (Hat.PreludeBasic.gfromInteger
                                        T.mkNoSrcPos p)
                                      (T.conInteger T.mkNoSrcPos p 1))
                                    *%
                                    (gbd T.mkNoSrcPos p)) p))
                              *^^
                              fex) p)))) fex)
            ge' pe' p = T.uconstUse pe' p se'
            se' =
              T.uconstDef p a774v22v774v44e'
                (\ p ->
                  T.uwrapForward p
                    (hsnd
                      (T.uap1 T.mkNoSrcPos p (gdecodeFloat T.mkNoSrcPos p)
                        (gy T.mkNoSrcPos p)) p))
            gbd pbd p = T.uconstUse pbd p sbd
            sbd =
              T.uconstDef p a775v22v775v39bd
                (\ p ->
                  T.uap1 T.mkNoSrcPos p (gfloatRadix T.mkNoSrcPos p)
                    (gx' T.mkNoSrcPos p)) in
            (T.ucif p
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) (ge' T.mkNoSrcPos p)
                fex) (gy T.mkNoSrcPos p)
              (T.uwrapForward p (hf (ge' T.mkNoSrcPos p) p)))
        ge pe p = T.uconstUse pe p se
        se =
          T.uconstDef p a777v11v778v76e
            (\ p ->
              T.uwrapForward p
                (hsnd
                  (T.uap1 T.mkNoSrcPos p (gdecodeFloat T.mkNoSrcPos p)
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p)
                      (T.uap2 T.mkNoSrcPos p (gasTypeOf T.mkNoSrcPos p)
                        (T.uap1 T.mkNoSrcPos p (gfromInteger T.mkNoSrcPos p)
                          (T.uwrapForward p (hnumerator fx p)))
                        (gx' T.mkNoSrcPos p))
                      (T.uap1 T.mkNoSrcPos p (gfromInteger T.mkNoSrcPos p)
                        (T.uwrapForward p (hdenominator fx p))))) p))
        gx' px' p = T.uconstUse px' p sx'
        sx' =
          T.uconstDef p a779v11v779v20x'
            (\ p -> T.uwrapForward p (hf (ge T.mkNoSrcPos p) p)) in
        (gx' T.mkNoSrcPos p)
    
  

instance Floating (Double)
  where
  
  gpi ppi p = T.uconstUse ppi p spi
  
  spi =
    T.uconstDef T.mkRoot a784v5v784v39pi (\ p -> gprimDoublePi T.mkNoSrcPos p)
  
  gexp pexp p =
    T.ufun1 a785v5v785v42exp pexp p hexp
    where
    
    hexp fx p = T.uwrapForward p (hprimDoubleExp fx p)
    
  
  glog plog p =
    T.ufun1 a786v5v786v42log plog p hlog
    where
    
    hlog fx p = T.uwrapForward p (hprimDoubleLog fx p)
    
  
  gsqrt psqrt p =
    T.ufun1 a787v5v787v43sqrt psqrt p hsqrt
    where
    
    hsqrt fx p = T.uwrapForward p (hprimDoubleSqrt fx p)
    
  
  gsin psin p =
    T.ufun1 a788v5v788v42sin psin p hsin
    where
    
    hsin fx p = T.uwrapForward p (hprimDoubleSin fx p)
    
  
  gcos pcos p =
    T.ufun1 a789v5v789v42cos pcos p hcos
    where
    
    hcos fx p = T.uwrapForward p (hprimDoubleCos fx p)
    
  
  gtan ptan p =
    T.ufun1 a790v5v790v42tan ptan p htan
    where
    
    htan fx p = T.uwrapForward p (hprimDoubleTan fx p)
    
  
  gasin pasin p =
    T.ufun1 a791v5v791v43asin pasin p hasin
    where
    
    hasin fx p = T.uwrapForward p (hprimDoubleAsin fx p)
    
  
  gacos pacos p =
    T.ufun1 a792v5v792v43acos pacos p hacos
    where
    
    hacos fx p = T.uwrapForward p (hprimDoubleAcos fx p)
    
  
  gatan patan p =
    T.ufun1 a793v5v793v43atan patan p hatan
    where
    
    hatan fx p = T.uwrapForward p (hprimDoubleAtan fx p)
    
  
  gsinh psinh p =
    T.ufun1 a794v5v794v63sinh psinh p hsinh
    where
    
    hsinh fx p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
        (T.uap1 T.mkNoSrcPos p (gfromRational T.mkNoSrcPos p)
          (T.uwrapForward p
            (((T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 1))
                *%
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 2))) p)))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
          (T.uap1 T.mkNoSrcPos p (gexp T.mkNoSrcPos p) fx)
          (T.uap1 T.mkNoSrcPos p (gexp T.mkNoSrcPos p)
            (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p) fx)))
    
  
  gcosh pcosh p =
    T.ufun1 a795v5v795v63cosh pcosh p hcosh
    where
    
    hcosh fx p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
        (T.uap1 T.mkNoSrcPos p (gfromRational T.mkNoSrcPos p)
          (T.uwrapForward p
            (((T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 1))
                *%
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 2))) p)))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
          (T.uap1 T.mkNoSrcPos p (gexp T.mkNoSrcPos p) fx)
          (T.uap1 T.mkNoSrcPos p (gexp T.mkNoSrcPos p)
            (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p) fx)))
    
  
  gtanh ptanh p =
    T.ufun1 a796v5v796v67tanh ptanh p htanh
    where
    
    htanh fx p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p)
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) (ga T.mkNoSrcPos p)
          (gb T.mkNoSrcPos p))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) (ga T.mkNoSrcPos p)
          (gb T.mkNoSrcPos p))
      where
      
      ga pa p = T.uconstUse pa p sa
      
      sa =
        T.uconstDef p a796v45v796v53a
          (\ p -> T.uap1 T.mkNoSrcPos p (gexp T.mkNoSrcPos p) fx)
      
      gb pb p = T.uconstUse pb p sb
      
      sb =
        T.uconstDef p a796v57v796v67b
          (\ p ->
            T.uap1 T.mkNoSrcPos p (gexp T.mkNoSrcPos p)
              (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p) fx))
      
    
  
  gasinh pasinh p =
    T.ufun1 a797v5v797v34asinh pasinh p hasinh
    where
    
    hasinh fx p =
      T.uap1 T.mkNoSrcPos p (glog T.mkNoSrcPos p)
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fx
          (T.uap1 T.mkNoSrcPos p (gsqrt T.mkNoSrcPos p)
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 1))
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fx fx))))
    
  
  gacosh pacosh p =
    T.ufun1 a798v5v798v47acosh pacosh p hacosh
    where
    
    hacosh fx p =
      T.uap1 T.mkNoSrcPos p (glog T.mkNoSrcPos p)
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fx
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fx
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 1)))
            (T.uap1 T.mkNoSrcPos p (gsqrt T.mkNoSrcPos p)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p)
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fx
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                    (T.conInteger T.mkNoSrcPos p 1)))
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fx
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                    (T.conInteger T.mkNoSrcPos p 1)))))))
    
  
  gatanh patanh p =
    T.ufun1 a799v5v799v40atanh patanh p hatanh
    where
    
    hatanh fx p =
      T.uap1 T.mkNoSrcPos p (glog T.mkNoSrcPos p)
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fx
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 1)))
          (T.uap1 T.mkNoSrcPos p (gsqrt T.mkNoSrcPos p)
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 1))
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fx fx))))
    
  

instance RealFrac (Double)
  where
  
  gproperFraction pproperFraction p =
    T.ufun1 a802v5v808v67properFraction pproperFraction p hproperFraction
    where
    
    hproperFraction fx p =
      T.uccase T.mkNoSrcPos p
        (let
          v803v9v808v67v1 (T.R (T.Tuple2 fm fn) _) p =
            T.ucif p
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) fn
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 0)))
              (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
                  (T.uap1 T.mkNoSrcPos p (gfromInteger T.mkNoSrcPos p) fm)
                  (T.uwrapForward p
                    (((T.uap1 T.mkNoSrcPos p (gfromInteger T.mkNoSrcPos p)
                          (T.uap1 T.mkNoSrcPos p (gfloatRadix T.mkNoSrcPos p)
                            fx))
                        *^
                        fn) p)))
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 0)))
              (T.uccase T.mkNoSrcPos p
                (let
                  v807v25v808v67v1 (T.R (T.Tuple2 fw fr) _) p =
                    T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                      (T.uap1 T.mkNoSrcPos p (gfromInteger T.mkNoSrcPos p) fw)
                      (T.uap2 T.mkNoSrcPos p (gencodeFloat T.mkNoSrcPos p) fr
                        fn)
                  v807v25v808v67v1 _ p = T.fatal p in (v807v25v808v67v1))
                (T.uap2 T.mkNoSrcPos p (gquotRem T.mkNoSrcPos p) fm
                  (T.uwrapForward p
                    (((T.uap1 T.mkNoSrcPos p (gfloatRadix T.mkNoSrcPos p) fx)
                        *^
                        (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p) fn))
                      p))))
          v803v9v808v67v1 _ p = T.fatal p in (v803v9v808v67v1))
        (T.uap1 T.mkNoSrcPos p (gdecodeFloat T.mkNoSrcPos p) fx)
    
  

instance RealFloat (Double)
  where
  
  gfloatRadix pfloatRadix p = T.uconstUse pfloatRadix p sfloatRadix
  
  sfloatRadix =
    T.uconstDef T.mkRoot a812v5v812v35floatRadix
      (\ p -> gprimDoubleRadix T.mkNoSrcPos p)
  
  gfloatDigits pfloatDigits p = T.uconstUse pfloatDigits p sfloatDigits
  
  sfloatDigits =
    T.uconstDef T.mkRoot a813v5v813v36floatDigits
      (\ p -> gprimDoubleDigits T.mkNoSrcPos p)
  
  gfloatRange pfloatRange p = T.uconstUse pfloatRange p sfloatRange
  
  sfloatRange =
    T.uconstDef T.mkRoot a814v5v814v35floatRange
      (\ p -> gprimDoubleRange T.mkNoSrcPos p)
  
  gdecodeFloat pdecodeFloat p =
    T.ufun1 a815v5v815v38decodeFloat pdecodeFloat p hdecodeFloat
    where
    
    hdecodeFloat fx p = T.uwrapForward p (hprimDecodeDouble fx p)
    
  
  gencodeFloat pencodeFloat p =
    T.ufun2 a816v5v816v42encodeFloat pencodeFloat p hencodeFloat
    where
    
    hencodeFloat fx fy p = T.uwrapForward p (hprimEncodeDouble fx fy p)
    
  
  gisNaN pisNaN p = T.uconstUse pisNaN p sisNaN
  
  sisNaN =
    T.uconstDef T.mkRoot a818v5v818v36isNaN
      (\ p -> gprimDoubleIsNaN T.mkNoSrcPos p)
  
  gisInfinite pisInfinite p = T.uconstUse pisInfinite p sisInfinite
  
  sisInfinite =
    T.uconstDef T.mkRoot a819v5v819v41isInfinite
      (\ p -> gprimDoubleIsInfinite T.mkNoSrcPos p)
  
  gisDenormalized pisDenormalized p =
    T.uconstUse pisDenormalized p sisDenormalized
  
  sisDenormalized =
    T.uconstDef T.mkRoot a820v5v820v45isDenormalized
      (\ p -> gprimDoubleIsDenormalized T.mkNoSrcPos p)
  
  gisNegativeZero pisNegativeZero p =
    T.uconstUse pisNegativeZero p sisNegativeZero
  
  sisNegativeZero =
    T.uconstDef T.mkRoot a821v5v821v45isNegativeZero
      (\ p -> gprimDoubleIsNegativeZero T.mkNoSrcPos p)
  
  gisIEEE pisIEEE p = T.uconstUse pisIEEE p sisIEEE
  
  sisIEEE =
    T.uconstDef T.mkRoot a822v5v822v37isIEEE
      (\ p -> gprimDoubleIsIEEE T.mkNoSrcPos p)
  

instance Enum (Float)
  where
  
  gsucc psucc p =
    T.ufun1 a833v5v833v27succ psucc p hsucc
    where
    
    hsucc fx p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fx
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 1))
    
  
  gpred ppred p =
    T.ufun1 a834v5v834v27pred ppred p hpred
    where
    
    hpred fx p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fx
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 1))
    
  
  gtoEnum ptoEnum p = T.uconstUse ptoEnum p stoEnum
  
  stoEnum =
    T.uconstDef T.mkRoot a835v5v835v36toEnum
      (\ p -> gfromIntegral T.mkNoSrcPos p)
  
  gfromEnum pfromEnum p = T.uconstUse pfromEnum p sfromEnum
  
  sfromEnum =
    T.uconstDef T.mkRoot a836v5v836v46fromEnum
      (\ p ->
        T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p) (gfromInteger T.mkNoSrcPos p)
          (gtruncate T.mkNoSrcPos p))
  
  genumFrom penumFrom p = T.uconstUse penumFrom p senumFrom
  
  senumFrom =
    T.uconstDef T.mkRoot a837v5v837v39enumFrom
      (\ p -> gnumericEnumFrom T.mkNoSrcPos p)
  
  genumFromThen penumFromThen p = T.uconstUse penumFromThen p senumFromThen
  
  senumFromThen =
    T.uconstDef T.mkRoot a838v5v838v43enumFromThen
      (\ p -> gnumericEnumFromThen T.mkNoSrcPos p)
  
  genumFromTo penumFromTo p = T.uconstUse penumFromTo p senumFromTo
  
  senumFromTo =
    T.uconstDef T.mkRoot a839v5v839v41enumFromTo
      (\ p -> gnumericEnumFromTo T.mkNoSrcPos p)
  
  genumFromThenTo penumFromThenTo p =
    T.uconstUse penumFromThenTo p senumFromThenTo
  
  senumFromThenTo =
    T.uconstDef T.mkRoot a840v5v840v45enumFromThenTo
      (\ p -> gnumericEnumFromThenTo T.mkNoSrcPos p)
  

instance Enum (Double)
  where
  
  gsucc psucc p =
    T.ufun1 a844v5v844v27succ psucc p hsucc
    where
    
    hsucc fx p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fx
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 1))
    
  
  gpred ppred p =
    T.ufun1 a845v5v845v27pred ppred p hpred
    where
    
    hpred fx p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fx
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 1))
    
  
  gtoEnum ptoEnum p = T.uconstUse ptoEnum p stoEnum
  
  stoEnum =
    T.uconstDef T.mkRoot a846v5v846v36toEnum
      (\ p -> gfromIntegral T.mkNoSrcPos p)
  
  gfromEnum pfromEnum p = T.uconstUse pfromEnum p sfromEnum
  
  sfromEnum =
    T.uconstDef T.mkRoot a847v5v847v46fromEnum
      (\ p ->
        T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p) (gfromInteger T.mkNoSrcPos p)
          (gtruncate T.mkNoSrcPos p))
  
  genumFrom penumFrom p = T.uconstUse penumFrom p senumFrom
  
  senumFrom =
    T.uconstDef T.mkRoot a848v5v848v39enumFrom
      (\ p -> gnumericEnumFrom T.mkNoSrcPos p)
  
  genumFromThen penumFromThen p = T.uconstUse penumFromThen p senumFromThen
  
  senumFromThen =
    T.uconstDef T.mkRoot a849v5v849v43enumFromThen
      (\ p -> gnumericEnumFromThen T.mkNoSrcPos p)
  
  genumFromTo penumFromTo p = T.uconstUse penumFromTo p senumFromTo
  
  senumFromTo =
    T.uconstDef T.mkRoot a850v5v850v41enumFromTo
      (\ p -> gnumericEnumFromTo T.mkNoSrcPos p)
  
  genumFromThenTo penumFromThenTo p =
    T.uconstUse penumFromThenTo p senumFromThenTo
  
  senumFromThenTo =
    T.uconstDef T.mkRoot a851v5v851v45enumFromThenTo
      (\ p -> gnumericEnumFromThenTo T.mkNoSrcPos p)
  

gnumericEnumFrom ::
  Fractional a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.List a))

snumericEnumFrom :: Fractional a => T.R (T.Fun a (T.List a))

gnumericEnumFromThen ::
  Fractional a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a (T.List a)))

hnumericEnumFromThen ::
  Fractional a => (T.R a) -> (T.R a) -> T.RefExp -> T.R (T.List a)

gnumericEnumFromTo ::
  (Fractional a,Ord a) =>
  T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a (T.List a)))

hnumericEnumFromTo ::
  (Fractional a,Ord a) => (T.R a) -> (T.R a) -> T.RefExp -> T.R (T.List a)

gnumericEnumFromThenTo ::
  (Fractional a,Ord a) =>
  T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a (T.Fun a (T.List a))))

hnumericEnumFromThenTo ::
  (Fractional a,Ord a) =>
  (T.R a) -> (T.R a) -> (T.R a) -> T.RefExp -> T.R (T.List a)

gnumericEnumFrom pnumericEnumFrom p =
  T.uconstUse pnumericEnumFrom p snumericEnumFrom

snumericEnumFrom =
  T.uconstDef T.mkRoot anumericEnumFrom
    (\ p ->
      T.uap1 T.mkNoSrcPos p (giterate T.mkNoSrcPos p)
        (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !+ p)
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 1))))

gnumericEnumFromThen pnumericEnumFromThen p =
  T.ufun2 anumericEnumFromThen pnumericEnumFromThen p hnumericEnumFromThen

hnumericEnumFromThen fn fm p =
  T.uwrapForward p
    (hiterate
      (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !+ p)
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fm fn)) fn p)

gnumericEnumFromTo pnumericEnumFromTo p =
  T.ufun2 anumericEnumFromTo pnumericEnumFromTo p hnumericEnumFromTo

hnumericEnumFromTo fn fm p =
  T.uwrapForward p
    (htakeWhile
      (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !<= p)
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fm
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p)
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 1))
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 2)))))
      (T.uap1 T.mkNoSrcPos p (gnumericEnumFrom T.mkNoSrcPos p) fn) p)

gnumericEnumFromThenTo pnumericEnumFromThenTo p =
  T.ufun3 anumericEnumFromThenTo pnumericEnumFromThenTo p hnumericEnumFromThenTo

hnumericEnumFromThenTo fn fn' fm p =
  T.uwrapForward p
    (htakeWhile (gp T.mkNoSrcPos p)
      (T.uwrapForward p (hnumericEnumFromThen fn fn' p)) p)
  where
  
  gp pp p = T.uconstUse pp p sp
  
  sp =
    T.uconstDef p a866v32v867v63p
      (\ p ->
        T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) fn' fn)
          (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !<= p)
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fm
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p)
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fn' fn)
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 2)))))
          (T.ucguard (gotherwise T.mkNoSrcPos p)
            (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !>= p)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fm
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p)
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fn' fn)
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                    (T.conInteger T.mkNoSrcPos p 2))))) (T.fatal p)))
  

instance Eq a => Eq ((T.List a))
  where
  
  (!==) (%==) p =
    T.ufun2 (+@^^=#!=@^>=##==) (%==) p (*==)
    where
    
    (*==) (T.R T.List _) (T.R T.List _) p = T.con0 T.mkNoSrcPos p True aTrue
    (*==) (T.R (T.Cons fa fas) _) (T.R (T.Cons fb fbs) _) p =
      T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fa fb)
            *&&
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fas fbs)) p)
    (*==) _ _ p = T.con0 T.mkNoSrcPos p False aFalse
    
  

instance Ord a => Ord ((T.List a))
  where
  
  gcompare pcompare p =
    T.ufun2 a882v3v889v16compare pcompare p hcompare
    where
    
    hcompare (T.R T.List _) (T.R T.List _) p = T.con0 T.mkNoSrcPos p EQ aEQ
    hcompare (T.R T.List _) (T.R (T.Cons fb fbs) _) p =
      T.con0 T.mkNoSrcPos p LT aLT
    hcompare (T.R (T.Cons fa fas) _) (T.R T.List _) p =
      T.con0 T.mkNoSrcPos p GT aGT
    hcompare (T.R (T.Cons fa fas) _) (T.R (T.Cons fb fbs) _) p =
      T.uccase T.mkNoSrcPos p
        (let
          v886v5v889v16v1 (T.R LT _) p = T.con0 T.mkNoSrcPos p LT aLT
          v886v5v889v16v1 (T.R EQ _) p =
            T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fas fbs
          v886v5v889v16v1 (T.R GT _) p = T.con0 T.mkNoSrcPos p GT aGT
          v886v5v889v16v1 _ p = T.fatal p in (v886v5v889v16v1))
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fa fb)
    hcompare _ _ p = T.fatal p
    
  

instance Functor (T.List)
  where
  
  gfmap pfmap p = T.uconstUse pfmap p sfmap
  
  sfmap = T.uconstDef T.mkRoot a893v5v893v14fmap (\ p -> gmap T.mkNoSrcPos p)
  

instance Monad (T.List)
  where
  
  (!>>=) (%>>=) p =
    T.ufun2 (+@>^=^=@>^=>>>=) (%>>=) p (*>>=)
    where
    
    (*>>=) fm fk p =
      T.uwrapForward p (hconcat (T.uwrapForward p (hmap fk fm p)) p)
    
  
  greturn preturn p =
    T.ufun1 a898v5v898v26return preturn p hreturn
    where
    
    hreturn fx p = T.fromExpList T.mkNoSrcPos p [fx]
    
  
  gfail pfail p =
    T.ufun1 a899v5v899v25fail pfail p hfail
    where
    
    hfail fs p = T.con0 T.mkNoSrcPos p T.List T.aList
    
  

instance (Eq a,Eq b) => Eq ((T.Tuple2 a b))
  where
  
  (!==) (%==) p =
    T.ufun2 (+>#!=>=>#!=#!==) (%==) p (*==)
    where
    
    (*==) (T.R (T.Tuple2 fa fb) _) (T.R (T.Tuple2 fa' fb') _) p =
      T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fa fa')
            *&&
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fb fb')) p)
    (*==) _ _ p = T.fatal p
    
  

instance (Ord a,Ord b) => Ord ((T.Tuple2 a b))
  where
  
  gcompare pcompare p =
    T.ufun2 a913v3v917v16compare pcompare p hcompare
    where
    
    hcompare (T.R (T.Tuple2 fa fb) _) (T.R (T.Tuple2 fa' fb') _) p =
      T.uccase T.mkNoSrcPos p
        (let
          v914v5v917v16v1 (T.R LT _) p = T.con0 T.mkNoSrcPos p LT aLT
          v914v5v917v16v1 (T.R EQ _) p =
            T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fb fb'
          v914v5v917v16v1 (T.R GT _) p = T.con0 T.mkNoSrcPos p GT aGT
          v914v5v917v16v1 _ p = T.fatal p in (v914v5v917v16v1))
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fa fa')
    hcompare _ _ p = T.fatal p
    
  

instance (Bounded a,Bounded b) => Bounded ((T.Tuple2 a b))
  where
  
  gminBound pminBound p = T.uconstUse pminBound p sminBound
  
  sminBound =
    T.uconstDef T.mkRoot a920v3v920v33minBound
      (\ p ->
        T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p))
  
  gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
  
  smaxBound =
    T.uconstDef T.mkRoot a921v3v921v33maxBound
      (\ p ->
        T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p))
  

instance (Eq a,Eq b,Eq c) => Eq ((T.Tuple3 a b c))
  where
  
  (!==) (%==) p =
    T.ufun2 (+>$*=##=>$*=#$==) (%==) p (*==)
    where
    
    (*==) (T.R (T.Tuple3 fa fb fc) _) (T.R (T.Tuple3 fa' fb' fc') _) p =
      T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fa fa')
            *&&
            (T.uwrapForward p
              (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fb fb')
                  *&&
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fc fc')) p))) p)
    (*==) _ _ p = T.fatal p
    
  

instance (Ord a,Ord b,Ord c) => Ord ((T.Tuple3 a b c))
  where
  
  gcompare pcompare p =
    T.ufun2 a928v3v933v15compare pcompare p hcompare
    where
    
    hcompare (T.R (T.Tuple3 fa fb fc) _) (T.R (T.Tuple3 fa' fb' fc') _) p =
      T.uccase T.mkNoSrcPos p
        (let
          v929v5v933v15v1 (T.R EQ _) p =
            T.uccase T.mkNoSrcPos p
              (let
                v930v15v932v23v1 (T.R EQ _) p =
                  T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fc fc'
                v930v15v932v23v1 fx p = T.projection T.mkNoSrcPos p fx in
                (v930v15v932v23v1))
              (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fb fb')
          v929v5v933v15v1 fx p = T.projection T.mkNoSrcPos p fx in
          (v929v5v933v15v1))
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fa fa')
    hcompare _ _ p = T.fatal p
    
  

instance (Bounded a,Bounded b,Bounded c) => Bounded ((T.Tuple3 a b c))
  where
  
  gminBound pminBound p = T.uconstUse pminBound p sminBound
  
  sminBound =
    T.uconstDef T.mkRoot a936v3v936v41minBound
      (\ p ->
        T.con3 T.mkNoSrcPos p T.Tuple3 T.aTuple3 (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p))
  
  gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
  
  smaxBound =
    T.uconstDef T.mkRoot a937v3v937v41maxBound
      (\ p ->
        T.con3 T.mkNoSrcPos p T.Tuple3 T.aTuple3 (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p))
  

instance (Eq a,Eq b,Eq c,Eq d) => Eq ((T.Tuple4 a b c d))
  where
  
  (!==) (%==) p =
    T.ufun2 (+>&#=#%=>&#=#&==) (%==) p (*==)
    where
    
    (*==) (T.R (T.Tuple4 fa fb fc fd) _) (T.R (T.Tuple4 fa' fb' fc' fd') _) p =
      T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fa fa')
            *&&
            (T.uwrapForward p
              (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fb fb')
                  *&&
                  (T.uwrapForward p
                    (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fc fc')
                        *&&
                        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fd fd'))
                      p))) p))) p)
    (*==) _ _ p = T.fatal p
    
  

instance (Ord a,Ord b,Ord c,Ord d) => Ord ((T.Tuple4 a b c d))
  where
  
  gcompare pcompare p =
    T.ufun2 a944v3v951v15compare pcompare p hcompare
    where
    
    hcompare (T.R (T.Tuple4 fa fb fc fd) _) (T.R (T.Tuple4 fa' fb' fc' fd') _)
      p =
      T.uccase T.mkNoSrcPos p
        (let
          v945v5v951v15v1 (T.R EQ _) p =
            T.uccase T.mkNoSrcPos p
              (let
                v946v15v950v23v1 (T.R EQ _) p =
                  T.uccase T.mkNoSrcPos p
                    (let
                      v947v23v949v31v1 (T.R EQ _) p =
                        T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fd fd'
                      v947v23v949v31v1 fx p = T.projection T.mkNoSrcPos p fx in
                      (v947v23v949v31v1))
                    (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fc fc')
                v946v15v950v23v1 fx p = T.projection T.mkNoSrcPos p fx in
                (v946v15v950v23v1))
              (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fb fb')
          v945v5v951v15v1 fx p = T.projection T.mkNoSrcPos p fx in
          (v945v5v951v15v1))
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fa fa')
    hcompare _ _ p = T.fatal p
    
  

instance
  (Bounded a,Bounded b,Bounded c,Bounded d) => Bounded ((T.Tuple4 a b c d))
  where
  
  gminBound pminBound p = T.uconstUse pminBound p sminBound
  
  sminBound =
    T.uconstDef T.mkRoot a954v3v954v50minBound
      (\ p ->
        T.con4 T.mkNoSrcPos p T.Tuple4 T.aTuple4 (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p))
  
  gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
  
  smaxBound =
    T.uconstDef T.mkRoot a955v3v955v50maxBound
      (\ p ->
        T.con4 T.mkNoSrcPos p T.Tuple4 T.aTuple4 (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p))
  

instance (Eq a,Eq b,Eq c,Eq d,Eq e) => Eq ((T.Tuple5 a b c d e))
  where
  
  (!==) (%==) p =
    T.ufun2 (+>*>=#*=>*>=#+==) (%==) p (*==)
    where
    
    (*==) (T.R (T.Tuple5 fa fb fc fd fe) _)
      (T.R (T.Tuple5 fa' fb' fc' fd' fe') _) p =
      T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fa fa')
            *&&
            (T.uwrapForward p
              (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fb fb')
                  *&&
                  (T.uwrapForward p
                    (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fc fc')
                        *&&
                        (T.uwrapForward p
                          (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fd fd')
                              *&&
                              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fe
                                fe')) p))) p))) p))) p)
    (*==) _ _ p = T.fatal p
    
  

instance (Ord a,Ord b,Ord c,Ord d,Ord e) => Ord ((T.Tuple5 a b c d e))
  where
  
  gcompare pcompare p =
    T.ufun2 a963v3v972v15compare pcompare p hcompare
    where
    
    hcompare (T.R (T.Tuple5 fa fb fc fd fe) _)
      (T.R (T.Tuple5 fa' fb' fc' fd' fe') _) p =
      T.uccase T.mkNoSrcPos p
        (let
          v964v5v972v15v1 (T.R EQ _) p =
            T.uccase T.mkNoSrcPos p
              (let
                v965v15v971v23v1 (T.R EQ _) p =
                  T.uccase T.mkNoSrcPos p
                    (let
                      v966v23v970v31v1 (T.R EQ _) p =
                        T.uccase T.mkNoSrcPos p
                          (let
                            v967v31v969v39v1 (T.R EQ _) p =
                              T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fe
                                fe'
                            v967v31v969v39v1 fx p =
                              T.projection T.mkNoSrcPos p fx in
                            (v967v31v969v39v1))
                          (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fd
                            fd')
                      v966v23v970v31v1 fx p = T.projection T.mkNoSrcPos p fx in
                      (v966v23v970v31v1))
                    (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fc fc')
                v965v15v971v23v1 fx p = T.projection T.mkNoSrcPos p fx in
                (v965v15v971v23v1))
              (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fb fb')
          v964v5v972v15v1 fx p = T.projection T.mkNoSrcPos p fx in
          (v964v5v972v15v1))
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fa fa')
    hcompare _ _ p = T.fatal p
    
  

instance
  (Bounded a,Bounded b,Bounded c,Bounded d,Bounded e) =>
    Bounded ((T.Tuple5 a b c d e))
  where
  
  gminBound pminBound p = T.uconstUse pminBound p sminBound
  
  sminBound =
    T.uconstDef T.mkRoot a976v3v976v59minBound
      (\ p ->
        T.con5 T.mkNoSrcPos p T.Tuple5 T.aTuple5 (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p))
  
  gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
  
  smaxBound =
    T.uconstDef T.mkRoot a977v3v977v59maxBound
      (\ p ->
        T.con5 T.mkNoSrcPos p T.Tuple5 T.aTuple5 (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p))
  

instance (Eq a,Eq b,Eq c,Eq d,Eq e,Eq f) => Eq ((T.Tuple6 a b c d e f))
  where
  
  (!==) (%==) p =
    T.ufun2 (+>@#=#^=>@#=#@==) (%==) p (*==)
    where
    
    (*==) (T.R (T.Tuple6 fa fb fc fd fe ff) _)
      (T.R (T.Tuple6 fa' fb' fc' fd' fe' ff') _) p =
      T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fa fa')
            *&&
            (T.uwrapForward p
              (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fb fb')
                  *&&
                  (T.uwrapForward p
                    (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fc fc')
                        *&&
                        (T.uwrapForward p
                          (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fd fd')
                              *&&
                              (T.uwrapForward p
                                (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fe
                                      fe')
                                    *&&
                                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p)
                                      ff ff')) p))) p))) p))) p))) p)
    (*==) _ _ p = T.fatal p
    
  

instance (Ord a,Ord b,Ord c,Ord d,Ord e,Ord f) => Ord ((T.Tuple6 a b c d e f))
  where
  
  gcompare pcompare p =
    T.ufun2 a985v3v996v15compare pcompare p hcompare
    where
    
    hcompare (T.R (T.Tuple6 fa fb fc fd fe ff) _)
      (T.R (T.Tuple6 fa' fb' fc' fd' fe' ff') _) p =
      T.uccase T.mkNoSrcPos p
        (let
          v986v5v996v15v1 (T.R EQ _) p =
            T.uccase T.mkNoSrcPos p
              (let
                v987v15v995v23v1 (T.R EQ _) p =
                  T.uccase T.mkNoSrcPos p
                    (let
                      v988v23v994v31v1 (T.R EQ _) p =
                        T.uccase T.mkNoSrcPos p
                          (let
                            v989v31v993v39v1 (T.R EQ _) p =
                              T.uccase T.mkNoSrcPos p
                                (let
                                  v990v39v992v47v1 (T.R EQ _) p =
                                    T.uap2 T.mkNoSrcPos p
                                      (gcompare T.mkNoSrcPos p) ff ff'
                                  v990v39v992v47v1 fx p =
                                    T.projection T.mkNoSrcPos p fx in
                                  (v990v39v992v47v1))
                                (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p)
                                  fe fe')
                            v989v31v993v39v1 fx p =
                              T.projection T.mkNoSrcPos p fx in
                            (v989v31v993v39v1))
                          (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fd
                            fd')
                      v988v23v994v31v1 fx p = T.projection T.mkNoSrcPos p fx in
                      (v988v23v994v31v1))
                    (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fc fc')
                v987v15v995v23v1 fx p = T.projection T.mkNoSrcPos p fx in
                (v987v15v995v23v1))
              (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fb fb')
          v986v5v996v15v1 fx p = T.projection T.mkNoSrcPos p fx in
          (v986v5v996v15v1))
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fa fa')
    hcompare _ _ p = T.fatal p
    
  

instance
  (Bounded a,Bounded b,Bounded c,Bounded d,Bounded e,Bounded f) =>
    Bounded ((T.Tuple6 a b c d e f))
  where
  
  gminBound pminBound p = T.uconstUse pminBound p sminBound
  
  sminBound =
    T.uconstDef T.mkRoot a1000v3v1000v68minBound
      (\ p ->
        T.con6 T.mkNoSrcPos p T.Tuple6 T.aTuple6 (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p))
  
  gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
  
  smaxBound =
    T.uconstDef T.mkRoot a1001v3v1001v68maxBound
      (\ p ->
        T.con6 T.mkNoSrcPos p T.Tuple6 T.aTuple6 (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p))
  

instance (Eq a,Eq b,Eq c,Eq d,Eq e,Eq f,Eq g) => Eq ((T.Tuple7 a b c d e f g))
  where
  
  (!==) (%==) p =
    T.ufun2 (+#!!*=#>=#!!*=$!==) (%==) p (*==)
    where
    
    (*==) (T.R (T.Tuple7 fa fb fc fd fe ff fg) _)
      (T.R (T.Tuple7 fa' fb' fc' fd' fe' ff' fg') _) p =
      T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fa fa')
            *&&
            (T.uwrapForward p
              (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fb fb')
                  *&&
                  (T.uwrapForward p
                    (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fc fc')
                        *&&
                        (T.uwrapForward p
                          (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fd fd')
                              *&&
                              (T.uwrapForward p
                                (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fe
                                      fe')
                                    *&&
                                    (T.uwrapForward p
                                      (((T.uap2 T.mkNoSrcPos p
                                            (T.mkNoSrcPos !== p) ff ff')
                                          *&&
                                          (T.uap2 T.mkNoSrcPos p
                                            (T.mkNoSrcPos !== p) fg fg')) p)))
                                  p))) p))) p))) p))) p)
    (*==) _ _ p = T.fatal p
    
  

instance
  (Ord a,Ord b,Ord c,Ord d,Ord e,Ord f,Ord g) => Ord ((T.Tuple7 a b c d e f g))
  where
  
  gcompare pcompare p =
    T.ufun2 a1010v3v1023v15compare pcompare p hcompare
    where
    
    hcompare (T.R (T.Tuple7 fa fb fc fd fe ff fg) _)
      (T.R (T.Tuple7 fa' fb' fc' fd' fe' ff' fg') _) p =
      T.uccase T.mkNoSrcPos p
        (let
          v1011v5v1023v15v1 (T.R EQ _) p =
            T.uccase T.mkNoSrcPos p
              (let
                v1012v15v1022v23v1 (T.R EQ _) p =
                  T.uccase T.mkNoSrcPos p
                    (let
                      v1013v23v1021v31v1 (T.R EQ _) p =
                        T.uccase T.mkNoSrcPos p
                          (let
                            v1014v31v1020v39v1 (T.R EQ _) p =
                              T.uccase T.mkNoSrcPos p
                                (let
                                  v1015v39v1019v47v1 (T.R EQ _) p =
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v1016v47v1018v55v1 (T.R EQ _) p =
                                          T.uap2 T.mkNoSrcPos p
                                            (gcompare T.mkNoSrcPos p) fg fg'
                                        v1016v47v1018v55v1 fx p =
                                          T.projection T.mkNoSrcPos p fx in
                                        (v1016v47v1018v55v1))
                                      (T.uap2 T.mkNoSrcPos p
                                        (gcompare T.mkNoSrcPos p) ff ff')
                                  v1015v39v1019v47v1 fx p =
                                    T.projection T.mkNoSrcPos p fx in
                                  (v1015v39v1019v47v1))
                                (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p)
                                  fe fe')
                            v1014v31v1020v39v1 fx p =
                              T.projection T.mkNoSrcPos p fx in
                            (v1014v31v1020v39v1))
                          (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fd
                            fd')
                      v1013v23v1021v31v1 fx p = T.projection T.mkNoSrcPos p fx
                      in (v1013v23v1021v31v1))
                    (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fc fc')
                v1012v15v1022v23v1 fx p = T.projection T.mkNoSrcPos p fx in
                (v1012v15v1022v23v1))
              (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fb fb')
          v1011v5v1023v15v1 fx p = T.projection T.mkNoSrcPos p fx in
          (v1011v5v1023v15v1))
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fa fa')
    hcompare _ _ p = T.fatal p
    
  

instance
  (Bounded a,Bounded b,Bounded c,Bounded d,Bounded e,Bounded f,Bounded g) =>
    Bounded ((T.Tuple7 a b c d e f g))
  where
  
  gminBound pminBound p = T.uconstUse pminBound p sminBound
  
  sminBound =
    T.uconstDef T.mkRoot a1028v3v1028v77minBound
      (\ p ->
        T.con7 T.mkNoSrcPos p T.Tuple7 T.aTuple7 (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p))
  
  gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
  
  smaxBound =
    T.uconstDef T.mkRoot a1029v3v1029v77maxBound
      (\ p ->
        T.con7 T.mkNoSrcPos p T.Tuple7 T.aTuple7 (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p))
  

instance
  (Eq a,Eq b,Eq c,Eq d,Eq e,Eq f,Eq g,Eq h) => Eq ((T.Tuple8 a b c d e f g h))
  where
  
  (!==) (%==) p =
    T.ufun2 (+#!%&=$#=#!%&=$$==) (%==) p (*==)
    where
    
    (*==) (T.R (T.Tuple8 fa fb fc fd fe ff fg fh) _)
      (T.R (T.Tuple8 fa' fb' fc' fd' fe' ff' fg' fh') _) p =
      T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fa fa')
            *&&
            (T.uwrapForward p
              (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fb fb')
                  *&&
                  (T.uwrapForward p
                    (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fc fc')
                        *&&
                        (T.uwrapForward p
                          (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fd fd')
                              *&&
                              (T.uwrapForward p
                                (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fe
                                      fe')
                                    *&&
                                    (T.uwrapForward p
                                      (((T.uap2 T.mkNoSrcPos p
                                            (T.mkNoSrcPos !== p) ff ff')
                                          *&&
                                          (T.uwrapForward p
                                            (((T.uap2 T.mkNoSrcPos p
                                                  (T.mkNoSrcPos !== p) fg fg')
                                                *&&
                                                (T.uap2 T.mkNoSrcPos p
                                                  (T.mkNoSrcPos !== p) fh fh'))
                                              p))) p))) p))) p))) p))) p))) p)
    (*==) _ _ p = T.fatal p
    
  

instance
  (Ord a,Ord b,Ord c,Ord d,Ord e,Ord f,Ord g,Ord h) =>
    Ord ((T.Tuple8 a b c d e f g h))
  where
  
  gcompare pcompare p =
    T.ufun2 a1040v3v1054v15compare pcompare p hcompare
    where
    
    hcompare (T.R (T.Tuple8 fa fb fc fd fe ff fg fh) _)
      (T.R (T.Tuple8 fa' fb' fc' fd' fe' ff' fg' fh') _) p =
      T.uccase T.mkNoSrcPos p
        (let
          v1041v5v1054v15v1 (T.R EQ _) p =
            T.uccase T.mkNoSrcPos p
              (let
                v1042v15v1053v23v1 (T.R EQ _) p =
                  T.uccase T.mkNoSrcPos p
                    (let
                      v1043v23v1052v31v1 (T.R EQ _) p =
                        T.uccase T.mkNoSrcPos p
                          (let
                            v1044v31v1051v39v1 (T.R EQ _) p =
                              T.uccase T.mkNoSrcPos p
                                (let
                                  v1045v39v1050v47v1 (T.R EQ _) p =
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v1046v47v1049v55v1 (T.R EQ _) p =
                                          T.uccase T.mkNoSrcPos p
                                            (let
                                              v1047v55v1048v74v1 (T.R EQ _) p =
                                                T.uap2 T.mkNoSrcPos p
                                                  (gcompare T.mkNoSrcPos p) fh
                                                  fh'
                                              v1047v55v1048v74v1 _ p = T.fatal p
                                              in (v1047v55v1048v74v1))
                                            (T.uap2 T.mkNoSrcPos p
                                              (gcompare T.mkNoSrcPos p) fg fg')
                                        v1046v47v1049v55v1 fx p =
                                          T.projection T.mkNoSrcPos p fx in
                                        (v1046v47v1049v55v1))
                                      (T.uap2 T.mkNoSrcPos p
                                        (gcompare T.mkNoSrcPos p) ff ff')
                                  v1045v39v1050v47v1 fx p =
                                    T.projection T.mkNoSrcPos p fx in
                                  (v1045v39v1050v47v1))
                                (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p)
                                  fe fe')
                            v1044v31v1051v39v1 fx p =
                              T.projection T.mkNoSrcPos p fx in
                            (v1044v31v1051v39v1))
                          (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fd
                            fd')
                      v1043v23v1052v31v1 fx p = T.projection T.mkNoSrcPos p fx
                      in (v1043v23v1052v31v1))
                    (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fc fc')
                v1042v15v1053v23v1 fx p = T.projection T.mkNoSrcPos p fx in
                (v1042v15v1053v23v1))
              (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fb fb')
          v1041v5v1054v15v1 fx p = T.projection T.mkNoSrcPos p fx in
          (v1041v5v1054v15v1))
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fa fa')
    hcompare _ _ p = T.fatal p
    
  

instance
  (Bounded a,Bounded b,Bounded c,Bounded d,Bounded e,Bounded f,Bounded g
      ,Bounded h) => Bounded ((T.Tuple8 a b c d e f g h))
  where
  
  gminBound pminBound p = T.uconstUse pminBound p sminBound
  
  sminBound =
    T.uconstDef T.mkRoot a1059v3v1060v23minBound
      (\ p ->
        T.con8 T.mkNoSrcPos p T.Tuple8 T.aTuple8 (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p))
  
  gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
  
  smaxBound =
    T.uconstDef T.mkRoot a1061v3v1062v23maxBound
      (\ p ->
        T.con8 T.mkNoSrcPos p T.Tuple8 T.aTuple8 (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p))
  

instance
  (Eq a,Eq b,Eq c,Eq d,Eq e,Eq f,Eq g,Eq h,Eq i) =>
    Eq ((T.Tuple9 a b c d e f g h i))
  where
  
  (!==) (%==) p =
    T.ufun2 (+#!++=$%=#!++=$&==) (%==) p (*==)
    where
    
    (*==) (T.R (T.Tuple9 fa fb fc fd fe ff fg fh fi) _)
      (T.R (T.Tuple9 fa' fb' fc' fd' fe' ff' fg' fh' fi') _) p =
      T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fa fa')
            *&&
            (T.uwrapForward p
              (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fb fb')
                  *&&
                  (T.uwrapForward p
                    (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fc fc')
                        *&&
                        (T.uwrapForward p
                          (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fd fd')
                              *&&
                              (T.uwrapForward p
                                (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fe
                                      fe')
                                    *&&
                                    (T.uwrapForward p
                                      (((T.uap2 T.mkNoSrcPos p
                                            (T.mkNoSrcPos !== p) ff ff')
                                          *&&
                                          (T.uwrapForward p
                                            (((T.uap2 T.mkNoSrcPos p
                                                  (T.mkNoSrcPos !== p) fg fg')
                                                *&&
                                                (T.uwrapForward p
                                                  (((T.uap2 T.mkNoSrcPos p
                                                        (T.mkNoSrcPos !== p) fh
                                                        fh')
                                                      *&&
                                                      (T.uap2 T.mkNoSrcPos p
                                                        (T.mkNoSrcPos !== p) fi
                                                        fi')) p))) p))) p)))
                                  p))) p))) p))) p))) p)
    (*==) _ _ p = T.fatal p
    
  

instance
  (Ord a,Ord b,Ord c,Ord d,Ord e,Ord f,Ord g,Ord h,Ord i) =>
    Ord ((T.Tuple9 a b c d e f g h i))
  where
  
  gcompare pcompare p =
    T.ufun2 a1072v3v1088v13compare pcompare p hcompare
    where
    
    hcompare (T.R (T.Tuple9 fa fb fc fd fe ff fg fh fi) _)
      (T.R (T.Tuple9 fa' fb' fc' fd' fe' ff' fg' fh' fi') _) p =
      T.uccase T.mkNoSrcPos p
        (let
          v1073v5v1088v13v1 (T.R EQ _) p =
            T.uccase T.mkNoSrcPos p
              (let
                v1074v12v1088v13v1 (T.R EQ _) p =
                  T.uccase T.mkNoSrcPos p
                    (let
                      v1075v13v1087v14v1 (T.R EQ _) p =
                        T.uccase T.mkNoSrcPos p
                          (let
                            v1076v14v1086v15v1 (T.R EQ _) p =
                              T.uccase T.mkNoSrcPos p
                                (let
                                  v1077v15v1085v16v1 (T.R EQ _) p =
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v1078v16v1084v17v1 (T.R EQ _) p =
                                          T.uccase T.mkNoSrcPos p
                                            (let
                                              v1079v17v1083v18v1 (T.R EQ _) p =
                                                T.uccase T.mkNoSrcPos p
                                                  (let
                                                    v1080v18v1082v19v1
                                                      (T.R EQ _) p =
                                                      T.uap2 T.mkNoSrcPos p
                                                        (gcompare T.mkNoSrcPos
                                                          p) fi fi'
                                                    v1080v18v1082v19v1 fx p =
                                                      T.projection T.mkNoSrcPos
                                                        p fx in
                                                    (v1080v18v1082v19v1))
                                                  (T.uap2 T.mkNoSrcPos p
                                                    (gcompare T.mkNoSrcPos p) fh
                                                    fh')
                                              v1079v17v1083v18v1 fx p =
                                                T.projection T.mkNoSrcPos p fx
                                              in (v1079v17v1083v18v1))
                                            (T.uap2 T.mkNoSrcPos p
                                              (gcompare T.mkNoSrcPos p) fg fg')
                                        v1078v16v1084v17v1 fx p =
                                          T.projection T.mkNoSrcPos p fx in
                                        (v1078v16v1084v17v1))
                                      (T.uap2 T.mkNoSrcPos p
                                        (gcompare T.mkNoSrcPos p) ff ff')
                                  v1077v15v1085v16v1 fx p =
                                    T.projection T.mkNoSrcPos p fx in
                                  (v1077v15v1085v16v1))
                                (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p)
                                  fe fe')
                            v1076v14v1086v15v1 fx p =
                              T.projection T.mkNoSrcPos p fx in
                            (v1076v14v1086v15v1))
                          (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fd
                            fd')
                      v1075v13v1087v14v1 fx p = T.projection T.mkNoSrcPos p fx
                      in (v1075v13v1087v14v1))
                    (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fc fc')
                v1074v12v1088v13v1 fx p = T.projection T.mkNoSrcPos p fx in
                (v1074v12v1088v13v1))
              (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fb fb')
          v1073v5v1088v13v1 _ p = T.fatal p in (v1073v5v1088v13v1))
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fa fa')
    hcompare _ _ p = T.fatal p
    
  

instance
  (Bounded a,Bounded b,Bounded c,Bounded d,Bounded e,Bounded f,Bounded g
      ,Bounded h,Bounded i) => Bounded ((T.Tuple9 a b c d e f g h i))
  where
  
  gminBound pminBound p = T.uconstUse pminBound p sminBound
  
  sminBound =
    T.uconstDef T.mkRoot a1093v3v1094v32minBound
      (\ p ->
        T.con9 T.mkNoSrcPos p T.Tuple9 T.aTuple9 (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p))
  
  gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
  
  smaxBound =
    T.uconstDef T.mkRoot a1095v3v1096v32maxBound
      (\ p ->
        T.con9 T.mkNoSrcPos p T.Tuple9 T.aTuple9 (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p))
  

instance
  (Eq a,Eq b,Eq c,Eq d,Eq e,Eq f,Eq g,Eq h,Eq i,Eq j) =>
    Eq ((T.Tuple10 a b c d e f g h i j))
  where
  
  (!==) (%==) p =
    T.ufun2 (+##!#=$*=##!#=$+==) (%==) p (*==)
    where
    
    (*==) (T.R (T.Tuple10 fa fb fc fd fe ff fg fh fi fj) _)
      (T.R (T.Tuple10 fa' fb' fc' fd' fe' ff' fg' fh' fi' fj') _) p =
      T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fa fa')
            *&&
            (T.uwrapForward p
              (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fb fb')
                  *&&
                  (T.uwrapForward p
                    (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fc fc')
                        *&&
                        (T.uwrapForward p
                          (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fd fd')
                              *&&
                              (T.uwrapForward p
                                (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fe
                                      fe')
                                    *&&
                                    (T.uwrapForward p
                                      (((T.uap2 T.mkNoSrcPos p
                                            (T.mkNoSrcPos !== p) ff ff')
                                          *&&
                                          (T.uwrapForward p
                                            (((T.uap2 T.mkNoSrcPos p
                                                  (T.mkNoSrcPos !== p) fg fg')
                                                *&&
                                                (T.uwrapForward p
                                                  (((T.uap2 T.mkNoSrcPos p
                                                        (T.mkNoSrcPos !== p) fh
                                                        fh')
                                                      *&&
                                                      (T.uwrapForward p
                                                        (((T.uap2 T.mkNoSrcPos p
                                                              (T.mkNoSrcPos
                                                                !==
                                                                p) fi fi')
                                                            *&&
                                                            (T.uap2 T.mkNoSrcPos
                                                              p
                                                              (T.mkNoSrcPos
                                                                !==
                                                                p) fj fj')) p)))
                                                    p))) p))) p))) p))) p)))
                      p))) p))) p)
    (*==) _ _ p = T.fatal p
    
  

instance
  (Ord a,Ord b,Ord c,Ord d,Ord e,Ord f,Ord g,Ord h,Ord i,Ord j) =>
    Ord ((T.Tuple10 a b c d e f g h i j))
  where
  
  gcompare pcompare p =
    T.ufun2 a1107v3v1125v13compare pcompare p hcompare
    where
    
    hcompare (T.R (T.Tuple10 fa fb fc fd fe ff fg fh fi fj) _)
      (T.R (T.Tuple10 fa' fb' fc' fd' fe' ff' fg' fh' fi' fj') _) p =
      T.uccase T.mkNoSrcPos p
        (let
          v1108v5v1125v13v1 (T.R EQ _) p =
            T.uccase T.mkNoSrcPos p
              (let
                v1109v12v1125v13v1 (T.R EQ _) p =
                  T.uccase T.mkNoSrcPos p
                    (let
                      v1110v13v1124v14v1 (T.R EQ _) p =
                        T.uccase T.mkNoSrcPos p
                          (let
                            v1111v14v1123v15v1 (T.R EQ _) p =
                              T.uccase T.mkNoSrcPos p
                                (let
                                  v1112v15v1122v16v1 (T.R EQ _) p =
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v1113v16v1121v17v1 (T.R EQ _) p =
                                          T.uccase T.mkNoSrcPos p
                                            (let
                                              v1114v17v1120v18v1 (T.R EQ _) p =
                                                T.uccase T.mkNoSrcPos p
                                                  (let
                                                    v1115v18v1119v19v1
                                                      (T.R EQ _) p =
                                                      T.uccase T.mkNoSrcPos p
                                                        (let
                                                          v1116v19v1118v20v1
                                                            (T.R EQ _) p =
                                                            T.uap2 T.mkNoSrcPos
                                                              p
                                                              (gcompare
                                                                T.mkNoSrcPos p)
                                                              fj fj'
                                                          v1116v19v1118v20v1 fx
                                                            p =
                                                            T.projection
                                                              T.mkNoSrcPos p fx
                                                          in
                                                          (v1116v19v1118v20v1))
                                                        (T.uap2 T.mkNoSrcPos p
                                                          (gcompare T.mkNoSrcPos
                                                            p) fi fi')
                                                    v1115v18v1119v19v1 fx p =
                                                      T.projection T.mkNoSrcPos
                                                        p fx in
                                                    (v1115v18v1119v19v1))
                                                  (T.uap2 T.mkNoSrcPos p
                                                    (gcompare T.mkNoSrcPos p) fh
                                                    fh')
                                              v1114v17v1120v18v1 fx p =
                                                T.projection T.mkNoSrcPos p fx
                                              in (v1114v17v1120v18v1))
                                            (T.uap2 T.mkNoSrcPos p
                                              (gcompare T.mkNoSrcPos p) fg fg')
                                        v1113v16v1121v17v1 fx p =
                                          T.projection T.mkNoSrcPos p fx in
                                        (v1113v16v1121v17v1))
                                      (T.uap2 T.mkNoSrcPos p
                                        (gcompare T.mkNoSrcPos p) ff ff')
                                  v1112v15v1122v16v1 fx p =
                                    T.projection T.mkNoSrcPos p fx in
                                  (v1112v15v1122v16v1))
                                (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p)
                                  fe fe')
                            v1111v14v1123v15v1 fx p =
                              T.projection T.mkNoSrcPos p fx in
                            (v1111v14v1123v15v1))
                          (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fd
                            fd')
                      v1110v13v1124v14v1 fx p = T.projection T.mkNoSrcPos p fx
                      in (v1110v13v1124v14v1))
                    (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fc fc')
                v1109v12v1125v13v1 fx p = T.projection T.mkNoSrcPos p fx in
                (v1109v12v1125v13v1))
              (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fb fb')
          v1108v5v1125v13v1 _ p = T.fatal p in (v1108v5v1125v13v1))
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fa fa')
    hcompare _ _ p = T.fatal p
    
  

instance
  (Bounded a,Bounded b,Bounded c,Bounded d,Bounded e,Bounded f,Bounded g
      ,Bounded h,Bounded i,Bounded j) =>
    Bounded ((T.Tuple10 a b c d e f g h i j))
  where
  
  gminBound pminBound p = T.uconstUse pminBound p sminBound
  
  sminBound =
    T.uconstDef T.mkRoot a1130v3v1131v41minBound
      (\ p ->
        T.con10 T.mkNoSrcPos p T.Tuple10 T.aTuple10 (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p))
  
  gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
  
  smaxBound =
    T.uconstDef T.mkRoot a1132v3v1133v41maxBound
      (\ p ->
        T.con10 T.mkNoSrcPos p T.Tuple10 T.aTuple10 (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p))
  

instance
  (Eq a,Eq b,Eq c,Eq d,Eq e,Eq f,Eq g,Eq h,Eq i,Eq j,Eq k) =>
    Eq ((T.Tuple11 a b c d e f g h i j k))
  where
  
  (!==) (%==) p =
    T.ufun2 (+##%@=$^=##%@=$@==) (%==) p (*==)
    where
    
    (*==) (T.R (T.Tuple11 fa fb fc fd fe ff fg fh fi fj fk) _)
      (T.R (T.Tuple11 fa' fb' fc' fd' fe' ff' fg' fh' fi' fj' fk') _) p =
      T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fa fa')
            *&&
            (T.uwrapForward p
              (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fb fb')
                  *&&
                  (T.uwrapForward p
                    (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fc fc')
                        *&&
                        (T.uwrapForward p
                          (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fd fd')
                              *&&
                              (T.uwrapForward p
                                (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fe
                                      fe')
                                    *&&
                                    (T.uwrapForward p
                                      (((T.uap2 T.mkNoSrcPos p
                                            (T.mkNoSrcPos !== p) ff ff')
                                          *&&
                                          (T.uwrapForward p
                                            (((T.uap2 T.mkNoSrcPos p
                                                  (T.mkNoSrcPos !== p) fg fg')
                                                *&&
                                                (T.uwrapForward p
                                                  (((T.uap2 T.mkNoSrcPos p
                                                        (T.mkNoSrcPos !== p) fh
                                                        fh')
                                                      *&&
                                                      (T.uwrapForward p
                                                        (((T.uap2 T.mkNoSrcPos p
                                                              (T.mkNoSrcPos
                                                                !==
                                                                p) fi fi')
                                                            *&&
                                                            (T.uwrapForward p
                                                              (((T.uap2
                                                                    T.mkNoSrcPos
                                                                    p
                                                                    (T.mkNoSrcPos
                                                                      !==
                                                                      p) fj fj')
                                                                  *&&
                                                                  (T.uap2
                                                                    T.mkNoSrcPos
                                                                    p
                                                                    (T.mkNoSrcPos
                                                                      !==
                                                                      p) fk
                                                                    fk')) p)))
                                                          p))) p))) p))) p)))
                                  p))) p))) p))) p))) p)
    (*==) _ _ p = T.fatal p
    
  

instance
  (Ord a,Ord b,Ord c,Ord d,Ord e,Ord f,Ord g,Ord h,Ord i,Ord j,Ord k) =>
    Ord ((T.Tuple11 a b c d e f g h i j k))
  where
  
  gcompare pcompare p =
    T.ufun2 a1144v3v1164v13compare pcompare p hcompare
    where
    
    hcompare (T.R (T.Tuple11 fa fb fc fd fe ff fg fh fi fj fk) _)
      (T.R (T.Tuple11 fa' fb' fc' fd' fe' ff' fg' fh' fi' fj' fk') _) p =
      T.uccase T.mkNoSrcPos p
        (let
          v1145v5v1164v13v1 (T.R EQ _) p =
            T.uccase T.mkNoSrcPos p
              (let
                v1146v12v1164v13v1 (T.R EQ _) p =
                  T.uccase T.mkNoSrcPos p
                    (let
                      v1147v13v1163v14v1 (T.R EQ _) p =
                        T.uccase T.mkNoSrcPos p
                          (let
                            v1148v14v1162v15v1 (T.R EQ _) p =
                              T.uccase T.mkNoSrcPos p
                                (let
                                  v1149v15v1161v16v1 (T.R EQ _) p =
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v1150v16v1160v17v1 (T.R EQ _) p =
                                          T.uccase T.mkNoSrcPos p
                                            (let
                                              v1151v17v1159v18v1 (T.R EQ _) p =
                                                T.uccase T.mkNoSrcPos p
                                                  (let
                                                    v1152v18v1158v19v1
                                                      (T.R EQ _) p =
                                                      T.uccase T.mkNoSrcPos p
                                                        (let
                                                          v1153v19v1157v20v1
                                                            (T.R EQ _) p =
                                                            T.uccase
                                                              T.mkNoSrcPos p
                                                              (let
                                                                v1154v20v1156v21v1
                                                                  (T.R EQ _) p =
                                                                  T.uap2
                                                                    T.mkNoSrcPos
                                                                    p
                                                                    (gcompare
                                                                      T.mkNoSrcPos
                                                                      p) fk fk'
                                                                v1154v20v1156v21v1
                                                                  fx p =
                                                                  T.projection
                                                                    T.mkNoSrcPos
                                                                    p fx in
                                                                (v1154v20v1156v21v1))
                                                              (T.uap2
                                                                T.mkNoSrcPos p
                                                                (gcompare
                                                                  T.mkNoSrcPos
                                                                  p) fj fj')
                                                          v1153v19v1157v20v1 fx
                                                            p =
                                                            T.projection
                                                              T.mkNoSrcPos p fx
                                                          in
                                                          (v1153v19v1157v20v1))
                                                        (T.uap2 T.mkNoSrcPos p
                                                          (gcompare T.mkNoSrcPos
                                                            p) fi fi')
                                                    v1152v18v1158v19v1 fx p =
                                                      T.projection T.mkNoSrcPos
                                                        p fx in
                                                    (v1152v18v1158v19v1))
                                                  (T.uap2 T.mkNoSrcPos p
                                                    (gcompare T.mkNoSrcPos p) fh
                                                    fh')
                                              v1151v17v1159v18v1 fx p =
                                                T.projection T.mkNoSrcPos p fx
                                              in (v1151v17v1159v18v1))
                                            (T.uap2 T.mkNoSrcPos p
                                              (gcompare T.mkNoSrcPos p) fg fg')
                                        v1150v16v1160v17v1 fx p =
                                          T.projection T.mkNoSrcPos p fx in
                                        (v1150v16v1160v17v1))
                                      (T.uap2 T.mkNoSrcPos p
                                        (gcompare T.mkNoSrcPos p) ff ff')
                                  v1149v15v1161v16v1 fx p =
                                    T.projection T.mkNoSrcPos p fx in
                                  (v1149v15v1161v16v1))
                                (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p)
                                  fe fe')
                            v1148v14v1162v15v1 fx p =
                              T.projection T.mkNoSrcPos p fx in
                            (v1148v14v1162v15v1))
                          (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fd
                            fd')
                      v1147v13v1163v14v1 fx p = T.projection T.mkNoSrcPos p fx
                      in (v1147v13v1163v14v1))
                    (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fc fc')
                v1146v12v1164v13v1 fx p = T.projection T.mkNoSrcPos p fx in
                (v1146v12v1164v13v1))
              (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fb fb')
          v1145v5v1164v13v1 _ p = T.fatal p in (v1145v5v1164v13v1))
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fa fa')
    hcompare _ _ p = T.fatal p
    
  

instance
  (Bounded a,Bounded b,Bounded c,Bounded d,Bounded e,Bounded f,Bounded g
      ,Bounded h,Bounded i,Bounded j,Bounded k) =>
    Bounded ((T.Tuple11 a b c d e f g h i j k))
  where
  
  gminBound pminBound p = T.uconstUse pminBound p sminBound
  
  sminBound =
    T.uconstDef T.mkRoot a1169v3v1170v50minBound
      (\ p ->
        T.con11 T.mkNoSrcPos p T.Tuple11 T.aTuple11 (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p))
  
  gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
  
  smaxBound =
    T.uconstDef T.mkRoot a1171v3v1172v50maxBound
      (\ p ->
        T.con11 T.mkNoSrcPos p T.Tuple11 T.aTuple11 (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p))
  

instance
  (Eq a,Eq b,Eq c,Eq d,Eq e,Eq f,Eq g,Eq h,Eq i,Eq j,Eq k,Eq l) =>
    Eq ((T.Tuple12 a b c d e f g h i j k l))
  where
  
  (!==) (%==) p =
    T.ufun2 (+##^^=$>=##^^=%!==) (%==) p (*==)
    where
    
    (*==) (T.R (T.Tuple12 fa fb fc fd fe ff fg fh fi fj fk fl) _)
      (T.R (T.Tuple12 fa' fb' fc' fd' fe' ff' fg' fh' fi' fj' fk' fl') _) p =
      T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fa fa')
            *&&
            (T.uwrapForward p
              (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fb fb')
                  *&&
                  (T.uwrapForward p
                    (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fc fc')
                        *&&
                        (T.uwrapForward p
                          (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fd fd')
                              *&&
                              (T.uwrapForward p
                                (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fe
                                      fe')
                                    *&&
                                    (T.uwrapForward p
                                      (((T.uap2 T.mkNoSrcPos p
                                            (T.mkNoSrcPos !== p) ff ff')
                                          *&&
                                          (T.uwrapForward p
                                            (((T.uap2 T.mkNoSrcPos p
                                                  (T.mkNoSrcPos !== p) fg fg')
                                                *&&
                                                (T.uwrapForward p
                                                  (((T.uap2 T.mkNoSrcPos p
                                                        (T.mkNoSrcPos !== p) fh
                                                        fh')
                                                      *&&
                                                      (T.uwrapForward p
                                                        (((T.uap2 T.mkNoSrcPos p
                                                              (T.mkNoSrcPos
                                                                !==
                                                                p) fi fi')
                                                            *&&
                                                            (T.uwrapForward p
                                                              (((T.uap2
                                                                    T.mkNoSrcPos
                                                                    p
                                                                    (T.mkNoSrcPos
                                                                      !==
                                                                      p) fj fj')
                                                                  *&&
                                                                  (T.uwrapForward
                                                                    p
                                                                    (((T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (T.mkNoSrcPos
                                                                            !==
                                                                            p)
                                                                          fk
                                                                          fk')
                                                                        *&&
                                                                        (T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (T.mkNoSrcPos
                                                                            !==
                                                                            p)
                                                                          fl
                                                                          fl'))
                                                                      p))) p)))
                                                          p))) p))) p))) p)))
                                  p))) p))) p))) p))) p)
    (*==) _ _ p = T.fatal p
    
  

instance
  (Ord a,Ord b,Ord c,Ord d,Ord e,Ord f,Ord g,Ord h,Ord i,Ord j,Ord k,Ord l) =>
    Ord ((T.Tuple12 a b c d e f g h i j k l))
  where
  
  gcompare pcompare p =
    T.ufun2 a1184v3v1206v13compare pcompare p hcompare
    where
    
    hcompare (T.R (T.Tuple12 fa fb fc fd fe ff fg fh fi fj fk fl) _)
      (T.R (T.Tuple12 fa' fb' fc' fd' fe' ff' fg' fh' fi' fj' fk' fl') _) p =
      T.uccase T.mkNoSrcPos p
        (let
          v1185v5v1206v13v1 (T.R EQ _) p =
            T.uccase T.mkNoSrcPos p
              (let
                v1186v12v1206v13v1 (T.R EQ _) p =
                  T.uccase T.mkNoSrcPos p
                    (let
                      v1187v13v1205v14v1 (T.R EQ _) p =
                        T.uccase T.mkNoSrcPos p
                          (let
                            v1188v14v1204v15v1 (T.R EQ _) p =
                              T.uccase T.mkNoSrcPos p
                                (let
                                  v1189v15v1203v16v1 (T.R EQ _) p =
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v1190v16v1202v17v1 (T.R EQ _) p =
                                          T.uccase T.mkNoSrcPos p
                                            (let
                                              v1191v17v1201v18v1 (T.R EQ _) p =
                                                T.uccase T.mkNoSrcPos p
                                                  (let
                                                    v1192v18v1200v19v1
                                                      (T.R EQ _) p =
                                                      T.uccase T.mkNoSrcPos p
                                                        (let
                                                          v1193v19v1199v20v1
                                                            (T.R EQ _) p =
                                                            T.uccase
                                                              T.mkNoSrcPos p
                                                              (let
                                                                v1194v20v1198v21v1
                                                                  (T.R EQ _) p =
                                                                  T.uccase
                                                                    T.mkNoSrcPos
                                                                    p
                                                                    (let
                                                                      v1195v21v1197v23v1
                                                                        (T.R EQ
                                                                          _) p =
                                                                        T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (gcompare
                                                                            T.mkNoSrcPos
                                                                            p)
                                                                          fl fl'
                                                                      v1195v21v1197v23v1
                                                                        fx p =
                                                                        T.projection
                                                                          T.mkNoSrcPos
                                                                          p fx
                                                                      in
                                                                      (v1195v21v1197v23v1))
                                                                    (T.uap2
                                                                      T.mkNoSrcPos
                                                                      p
                                                                      (gcompare
                                                                        T.mkNoSrcPos
                                                                        p) fk
                                                                      fk')
                                                                v1194v20v1198v21v1
                                                                  fx p =
                                                                  T.projection
                                                                    T.mkNoSrcPos
                                                                    p fx in
                                                                (v1194v20v1198v21v1))
                                                              (T.uap2
                                                                T.mkNoSrcPos p
                                                                (gcompare
                                                                  T.mkNoSrcPos
                                                                  p) fj fj')
                                                          v1193v19v1199v20v1 fx
                                                            p =
                                                            T.projection
                                                              T.mkNoSrcPos p fx
                                                          in
                                                          (v1193v19v1199v20v1))
                                                        (T.uap2 T.mkNoSrcPos p
                                                          (gcompare T.mkNoSrcPos
                                                            p) fi fi')
                                                    v1192v18v1200v19v1 fx p =
                                                      T.projection T.mkNoSrcPos
                                                        p fx in
                                                    (v1192v18v1200v19v1))
                                                  (T.uap2 T.mkNoSrcPos p
                                                    (gcompare T.mkNoSrcPos p) fh
                                                    fh')
                                              v1191v17v1201v18v1 fx p =
                                                T.projection T.mkNoSrcPos p fx
                                              in (v1191v17v1201v18v1))
                                            (T.uap2 T.mkNoSrcPos p
                                              (gcompare T.mkNoSrcPos p) fg fg')
                                        v1190v16v1202v17v1 fx p =
                                          T.projection T.mkNoSrcPos p fx in
                                        (v1190v16v1202v17v1))
                                      (T.uap2 T.mkNoSrcPos p
                                        (gcompare T.mkNoSrcPos p) ff ff')
                                  v1189v15v1203v16v1 fx p =
                                    T.projection T.mkNoSrcPos p fx in
                                  (v1189v15v1203v16v1))
                                (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p)
                                  fe fe')
                            v1188v14v1204v15v1 fx p =
                              T.projection T.mkNoSrcPos p fx in
                            (v1188v14v1204v15v1))
                          (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fd
                            fd')
                      v1187v13v1205v14v1 fx p = T.projection T.mkNoSrcPos p fx
                      in (v1187v13v1205v14v1))
                    (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fc fc')
                v1186v12v1206v13v1 fx p = T.projection T.mkNoSrcPos p fx in
                (v1186v12v1206v13v1))
              (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fb fb')
          v1185v5v1206v13v1 _ p = T.fatal p in (v1185v5v1206v13v1))
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fa fa')
    hcompare _ _ p = T.fatal p
    
  

instance
  (Bounded a,Bounded b,Bounded c,Bounded d,Bounded e,Bounded f,Bounded g
      ,Bounded h,Bounded i,Bounded j,Bounded k,Bounded l) =>
    Bounded ((T.Tuple12 a b c d e f g h i j k l))
  where
  
  gminBound pminBound p = T.uconstUse pminBound p sminBound
  
  sminBound =
    T.uconstDef T.mkRoot a1211v3v1212v59minBound
      (\ p ->
        T.con12 T.mkNoSrcPos p T.Tuple12 T.aTuple12 (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p))
  
  gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
  
  smaxBound =
    T.uconstDef T.mkRoot a1213v3v1214v59maxBound
      (\ p ->
        T.con12 T.mkNoSrcPos p T.Tuple12 T.aTuple12 (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p))
  

instance
  (Eq a,Eq b,Eq c,Eq d,Eq e,Eq f,Eq g,Eq h,Eq i,Eq j,Eq k,Eq l,Eq m) =>
    Eq ((T.Tuple13 a b c d e f g h i j k l m))
  where
  
  (!==) (%==) p =
    T.ufun2 (+#$#>=%#=#$#>=%$==) (%==) p (*==)
    where
    
    (*==) (T.R (T.Tuple13 fa fb fc fd fe ff fg fh fi fj fk fl fm) _)
      (T.R (T.Tuple13 fa' fb' fc' fd' fe' ff' fg' fh' fi' fj' fk' fl' fm') _)
      p =
      T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fa fa')
            *&&
            (T.uwrapForward p
              (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fb fb')
                  *&&
                  (T.uwrapForward p
                    (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fc fc')
                        *&&
                        (T.uwrapForward p
                          (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fd fd')
                              *&&
                              (T.uwrapForward p
                                (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fe
                                      fe')
                                    *&&
                                    (T.uwrapForward p
                                      (((T.uap2 T.mkNoSrcPos p
                                            (T.mkNoSrcPos !== p) ff ff')
                                          *&&
                                          (T.uwrapForward p
                                            (((T.uap2 T.mkNoSrcPos p
                                                  (T.mkNoSrcPos !== p) fg fg')
                                                *&&
                                                (T.uwrapForward p
                                                  (((T.uap2 T.mkNoSrcPos p
                                                        (T.mkNoSrcPos !== p) fh
                                                        fh')
                                                      *&&
                                                      (T.uwrapForward p
                                                        (((T.uap2 T.mkNoSrcPos p
                                                              (T.mkNoSrcPos
                                                                !==
                                                                p) fi fi')
                                                            *&&
                                                            (T.uwrapForward p
                                                              (((T.uap2
                                                                    T.mkNoSrcPos
                                                                    p
                                                                    (T.mkNoSrcPos
                                                                      !==
                                                                      p) fj fj')
                                                                  *&&
                                                                  (T.uwrapForward
                                                                    p
                                                                    (((T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (T.mkNoSrcPos
                                                                            !==
                                                                            p)
                                                                          fk
                                                                          fk')
                                                                        *&&
                                                                        (T.uwrapForward
                                                                          p
                                                                          (((T.uap2
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (T.mkNoSrcPos
                                                                                  !==
                                                                                  p)
                                                                                fl
                                                                                fl')
                                                                              *&&
                                                                              (T.uap2
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (T.mkNoSrcPos
                                                                                  !==
                                                                                  p)
                                                                                fm
                                                                                fm'))
                                                                            p)))
                                                                      p))) p)))
                                                          p))) p))) p))) p)))
                                  p))) p))) p))) p))) p)
    (*==) _ _ p = T.fatal p
    
  

instance
  (Ord a,Ord b,Ord c,Ord d,Ord e,Ord f,Ord g,Ord h,Ord i,Ord j,Ord k,Ord l
      ,Ord m) => Ord ((T.Tuple13 a b c d e f g h i j k l m))
  where
  
  gcompare pcompare p =
    T.ufun2 a1226v3v1251v13compare pcompare p hcompare
    where
    
    hcompare (T.R (T.Tuple13 fa fb fc fd fe ff fg fh fi fj fk fl fm) _)
      (T.R (T.Tuple13 fa' fb' fc' fd' fe' ff' fg' fh' fi' fj' fk' fl' fm') _)
      p =
      T.uccase T.mkNoSrcPos p
        (let
          v1228v5v1251v13v1 (T.R EQ _) p =
            T.uccase T.mkNoSrcPos p
              (let
                v1229v12v1251v13v1 (T.R EQ _) p =
                  T.uccase T.mkNoSrcPos p
                    (let
                      v1230v13v1250v14v1 (T.R EQ _) p =
                        T.uccase T.mkNoSrcPos p
                          (let
                            v1231v14v1249v15v1 (T.R EQ _) p =
                              T.uccase T.mkNoSrcPos p
                                (let
                                  v1232v15v1248v16v1 (T.R EQ _) p =
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v1233v16v1247v17v1 (T.R EQ _) p =
                                          T.uccase T.mkNoSrcPos p
                                            (let
                                              v1234v17v1246v18v1 (T.R EQ _) p =
                                                T.uccase T.mkNoSrcPos p
                                                  (let
                                                    v1235v18v1245v19v1
                                                      (T.R EQ _) p =
                                                      T.uccase T.mkNoSrcPos p
                                                        (let
                                                          v1236v19v1244v20v1
                                                            (T.R EQ _) p =
                                                            T.uccase
                                                              T.mkNoSrcPos p
                                                              (let
                                                                v1237v20v1243v21v1
                                                                  (T.R EQ _) p =
                                                                  T.uccase
                                                                    T.mkNoSrcPos
                                                                    p
                                                                    (let
                                                                      v1238v21v1242v22v1
                                                                        (T.R EQ
                                                                          _) p =
                                                                        T.uccase
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (let
                                                                            v1239v22v1241v23v1
                                                                              (T.R
                                                                                EQ
                                                                                _)
                                                                              p =
                                                                              T.uap2
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (gcompare
                                                                                  T.mkNoSrcPos
                                                                                  p)
                                                                                fm
                                                                                fm'
                                                                            v1239v22v1241v23v1
                                                                              fx
                                                                              p =
                                                                              T.projection
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                fx
                                                                            in
                                                                            (v1239v22v1241v23v1))
                                                                          (T.uap2
                                                                            T.mkNoSrcPos
                                                                            p
                                                                            (gcompare
                                                                              T.mkNoSrcPos
                                                                              p)
                                                                            fl
                                                                            fl')
                                                                      v1238v21v1242v22v1
                                                                        fx p =
                                                                        T.projection
                                                                          T.mkNoSrcPos
                                                                          p fx
                                                                      in
                                                                      (v1238v21v1242v22v1))
                                                                    (T.uap2
                                                                      T.mkNoSrcPos
                                                                      p
                                                                      (gcompare
                                                                        T.mkNoSrcPos
                                                                        p) fk
                                                                      fk')
                                                                v1237v20v1243v21v1
                                                                  fx p =
                                                                  T.projection
                                                                    T.mkNoSrcPos
                                                                    p fx in
                                                                (v1237v20v1243v21v1))
                                                              (T.uap2
                                                                T.mkNoSrcPos p
                                                                (gcompare
                                                                  T.mkNoSrcPos
                                                                  p) fj fj')
                                                          v1236v19v1244v20v1 fx
                                                            p =
                                                            T.projection
                                                              T.mkNoSrcPos p fx
                                                          in
                                                          (v1236v19v1244v20v1))
                                                        (T.uap2 T.mkNoSrcPos p
                                                          (gcompare T.mkNoSrcPos
                                                            p) fi fi')
                                                    v1235v18v1245v19v1 fx p =
                                                      T.projection T.mkNoSrcPos
                                                        p fx in
                                                    (v1235v18v1245v19v1))
                                                  (T.uap2 T.mkNoSrcPos p
                                                    (gcompare T.mkNoSrcPos p) fh
                                                    fh')
                                              v1234v17v1246v18v1 fx p =
                                                T.projection T.mkNoSrcPos p fx
                                              in (v1234v17v1246v18v1))
                                            (T.uap2 T.mkNoSrcPos p
                                              (gcompare T.mkNoSrcPos p) fg fg')
                                        v1233v16v1247v17v1 fx p =
                                          T.projection T.mkNoSrcPos p fx in
                                        (v1233v16v1247v17v1))
                                      (T.uap2 T.mkNoSrcPos p
                                        (gcompare T.mkNoSrcPos p) ff ff')
                                  v1232v15v1248v16v1 fx p =
                                    T.projection T.mkNoSrcPos p fx in
                                  (v1232v15v1248v16v1))
                                (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p)
                                  fe fe')
                            v1231v14v1249v15v1 fx p =
                              T.projection T.mkNoSrcPos p fx in
                            (v1231v14v1249v15v1))
                          (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fd
                            fd')
                      v1230v13v1250v14v1 fx p = T.projection T.mkNoSrcPos p fx
                      in (v1230v13v1250v14v1))
                    (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fc fc')
                v1229v12v1251v13v1 fx p = T.projection T.mkNoSrcPos p fx in
                (v1229v12v1251v13v1))
              (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fb fb')
          v1228v5v1251v13v1 _ p = T.fatal p in (v1228v5v1251v13v1))
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fa fa')
    hcompare _ _ p = T.fatal p
    
  

instance
  (Bounded a,Bounded b,Bounded c,Bounded d,Bounded e,Bounded f,Bounded g
      ,Bounded h,Bounded i,Bounded j,Bounded k,Bounded l,Bounded m) =>
    Bounded ((T.Tuple13 a b c d e f g h i j k l m))
  where
  
  gminBound pminBound p = T.uconstUse pminBound p sminBound
  
  sminBound =
    T.uconstDef T.mkRoot a1257v3v1258v68minBound
      (\ p ->
        T.con13 T.mkNoSrcPos p T.Tuple13 T.aTuple13 (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p))
  
  gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
  
  smaxBound =
    T.uconstDef T.mkRoot a1259v3v1260v68maxBound
      (\ p ->
        T.con13 T.mkNoSrcPos p T.Tuple13 T.aTuple13 (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p))
  

instance
  (Eq a,Eq b,Eq c,Eq d,Eq e,Eq f,Eq g,Eq h,Eq i,Eq j,Eq k,Eq l,Eq m,Eq n) =>
    Eq ((T.Tuple14 a b c d e f g h i j k l m n))
  where
  
  (!==) (%==) p =
    T.ufun2 (+#$+*=%%=#$+*=%&==) (%==) p (*==)
    where
    
    (*==) (T.R (T.Tuple14 fa fb fc fd fe ff fg fh fi fj fk fl fm fn) _)
      (T.R (T.Tuple14 fa' fb' fc' fd' fe' ff' fg' fh' fi' fj' fk' fl' fm' fn')
        _) p =
      T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fa fa')
            *&&
            (T.uwrapForward p
              (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fb fb')
                  *&&
                  (T.uwrapForward p
                    (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fc fc')
                        *&&
                        (T.uwrapForward p
                          (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fd fd')
                              *&&
                              (T.uwrapForward p
                                (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fe
                                      fe')
                                    *&&
                                    (T.uwrapForward p
                                      (((T.uap2 T.mkNoSrcPos p
                                            (T.mkNoSrcPos !== p) ff ff')
                                          *&&
                                          (T.uwrapForward p
                                            (((T.uap2 T.mkNoSrcPos p
                                                  (T.mkNoSrcPos !== p) fg fg')
                                                *&&
                                                (T.uwrapForward p
                                                  (((T.uap2 T.mkNoSrcPos p
                                                        (T.mkNoSrcPos !== p) fh
                                                        fh')
                                                      *&&
                                                      (T.uwrapForward p
                                                        (((T.uap2 T.mkNoSrcPos p
                                                              (T.mkNoSrcPos
                                                                !==
                                                                p) fi fi')
                                                            *&&
                                                            (T.uwrapForward p
                                                              (((T.uap2
                                                                    T.mkNoSrcPos
                                                                    p
                                                                    (T.mkNoSrcPos
                                                                      !==
                                                                      p) fj fj')
                                                                  *&&
                                                                  (T.uwrapForward
                                                                    p
                                                                    (((T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (T.mkNoSrcPos
                                                                            !==
                                                                            p)
                                                                          fk
                                                                          fk')
                                                                        *&&
                                                                        (T.uwrapForward
                                                                          p
                                                                          (((T.uap2
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (T.mkNoSrcPos
                                                                                  !==
                                                                                  p)
                                                                                fl
                                                                                fl')
                                                                              *&&
                                                                              (T.uwrapForward
                                                                                p
                                                                                (((T.uap2
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      (T.mkNoSrcPos
                                                                                        !==
                                                                                        p)
                                                                                      fm
                                                                                      fm')
                                                                                    *&&
                                                                                    (T.uap2
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      (T.mkNoSrcPos
                                                                                        !==
                                                                                        p)
                                                                                      fn
                                                                                      fn'))
                                                                                  p)))
                                                                            p)))
                                                                      p))) p)))
                                                          p))) p))) p))) p)))
                                  p))) p))) p))) p))) p)
    (*==) _ _ p = T.fatal p
    
  

instance
  (Ord a,Ord b,Ord c,Ord d,Ord e,Ord f,Ord g,Ord h,Ord i,Ord j,Ord k,Ord l,Ord m
      ,Ord n) => Ord ((T.Tuple14 a b c d e f g h i j k l m n))
  where
  
  gcompare pcompare p =
    T.ufun2 a1274v3v1301v13compare pcompare p hcompare
    where
    
    hcompare (T.R (T.Tuple14 fa fb fc fd fe ff fg fh fi fj fk fl fm fn) _)
      (T.R (T.Tuple14 fa' fb' fc' fd' fe' ff' fg' fh' fi' fj' fk' fl' fm' fn')
        _) p =
      T.uccase T.mkNoSrcPos p
        (let
          v1276v5v1301v13v1 (T.R EQ _) p =
            T.uccase T.mkNoSrcPos p
              (let
                v1277v12v1301v13v1 (T.R EQ _) p =
                  T.uccase T.mkNoSrcPos p
                    (let
                      v1278v13v1300v14v1 (T.R EQ _) p =
                        T.uccase T.mkNoSrcPos p
                          (let
                            v1279v14v1299v15v1 (T.R EQ _) p =
                              T.uccase T.mkNoSrcPos p
                                (let
                                  v1280v15v1298v16v1 (T.R EQ _) p =
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v1281v16v1297v17v1 (T.R EQ _) p =
                                          T.uccase T.mkNoSrcPos p
                                            (let
                                              v1282v17v1296v18v1 (T.R EQ _) p =
                                                T.uccase T.mkNoSrcPos p
                                                  (let
                                                    v1283v18v1295v19v1
                                                      (T.R EQ _) p =
                                                      T.uccase T.mkNoSrcPos p
                                                        (let
                                                          v1284v19v1294v20v1
                                                            (T.R EQ _) p =
                                                            T.uccase
                                                              T.mkNoSrcPos p
                                                              (let
                                                                v1285v20v1293v21v1
                                                                  (T.R EQ _) p =
                                                                  T.uccase
                                                                    T.mkNoSrcPos
                                                                    p
                                                                    (let
                                                                      v1286v21v1292v22v1
                                                                        (T.R EQ
                                                                          _) p =
                                                                        T.uccase
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (let
                                                                            v1287v22v1291v23v1
                                                                              (T.R
                                                                                EQ
                                                                                _)
                                                                              p =
                                                                              T.uccase
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (let
                                                                                  v1288v23v1290v24v1
                                                                                    (T.R
                                                                                      EQ
                                                                                      _)
                                                                                    p =
                                                                                    T.uap2
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      (gcompare
                                                                                        T.mkNoSrcPos
                                                                                        p)
                                                                                      fn
                                                                                      fn'
                                                                                  v1288v23v1290v24v1
                                                                                    fx
                                                                                    p =
                                                                                    T.projection
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      fx
                                                                                  in
                                                                                  (v1288v23v1290v24v1))
                                                                                (T.uap2
                                                                                  T.mkNoSrcPos
                                                                                  p
                                                                                  (gcompare
                                                                                    T.mkNoSrcPos
                                                                                    p)
                                                                                  fm
                                                                                  fm')
                                                                            v1287v22v1291v23v1
                                                                              fx
                                                                              p =
                                                                              T.projection
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                fx
                                                                            in
                                                                            (v1287v22v1291v23v1))
                                                                          (T.uap2
                                                                            T.mkNoSrcPos
                                                                            p
                                                                            (gcompare
                                                                              T.mkNoSrcPos
                                                                              p)
                                                                            fl
                                                                            fl')
                                                                      v1286v21v1292v22v1
                                                                        fx p =
                                                                        T.projection
                                                                          T.mkNoSrcPos
                                                                          p fx
                                                                      in
                                                                      (v1286v21v1292v22v1))
                                                                    (T.uap2
                                                                      T.mkNoSrcPos
                                                                      p
                                                                      (gcompare
                                                                        T.mkNoSrcPos
                                                                        p) fk
                                                                      fk')
                                                                v1285v20v1293v21v1
                                                                  fx p =
                                                                  T.projection
                                                                    T.mkNoSrcPos
                                                                    p fx in
                                                                (v1285v20v1293v21v1))
                                                              (T.uap2
                                                                T.mkNoSrcPos p
                                                                (gcompare
                                                                  T.mkNoSrcPos
                                                                  p) fj fj')
                                                          v1284v19v1294v20v1 fx
                                                            p =
                                                            T.projection
                                                              T.mkNoSrcPos p fx
                                                          in
                                                          (v1284v19v1294v20v1))
                                                        (T.uap2 T.mkNoSrcPos p
                                                          (gcompare T.mkNoSrcPos
                                                            p) fi fi')
                                                    v1283v18v1295v19v1 fx p =
                                                      T.projection T.mkNoSrcPos
                                                        p fx in
                                                    (v1283v18v1295v19v1))
                                                  (T.uap2 T.mkNoSrcPos p
                                                    (gcompare T.mkNoSrcPos p) fh
                                                    fh')
                                              v1282v17v1296v18v1 fx p =
                                                T.projection T.mkNoSrcPos p fx
                                              in (v1282v17v1296v18v1))
                                            (T.uap2 T.mkNoSrcPos p
                                              (gcompare T.mkNoSrcPos p) fg fg')
                                        v1281v16v1297v17v1 fx p =
                                          T.projection T.mkNoSrcPos p fx in
                                        (v1281v16v1297v17v1))
                                      (T.uap2 T.mkNoSrcPos p
                                        (gcompare T.mkNoSrcPos p) ff ff')
                                  v1280v15v1298v16v1 fx p =
                                    T.projection T.mkNoSrcPos p fx in
                                  (v1280v15v1298v16v1))
                                (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p)
                                  fe fe')
                            v1279v14v1299v15v1 fx p =
                              T.projection T.mkNoSrcPos p fx in
                            (v1279v14v1299v15v1))
                          (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fd
                            fd')
                      v1278v13v1300v14v1 fx p = T.projection T.mkNoSrcPos p fx
                      in (v1278v13v1300v14v1))
                    (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fc fc')
                v1277v12v1301v13v1 fx p = T.projection T.mkNoSrcPos p fx in
                (v1277v12v1301v13v1))
              (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fb fb')
          v1276v5v1301v13v1 _ p = T.fatal p in (v1276v5v1301v13v1))
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fa fa')
    hcompare _ _ p = T.fatal p
    
  

instance
  (Bounded a,Bounded b,Bounded c,Bounded d,Bounded e,Bounded f,Bounded g
      ,Bounded h,Bounded i,Bounded j,Bounded k,Bounded l,Bounded m,Bounded n) =>
    Bounded ((T.Tuple14 a b c d e f g h i j k l m n))
  where
  
  gminBound pminBound p = T.uconstUse pminBound p sminBound
  
  sminBound =
    T.uconstDef T.mkRoot a1307v3v1308v77minBound
      (\ p ->
        T.con14 T.mkNoSrcPos p T.Tuple14 T.aTuple14 (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p))
  
  gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
  
  smaxBound =
    T.uconstDef T.mkRoot a1309v3v1310v77maxBound
      (\ p ->
        T.con14 T.mkNoSrcPos p T.Tuple14 T.aTuple14 (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p))
  

instance
  (Eq a,Eq b,Eq c,Eq d,Eq e,Eq f,Eq g,Eq h,Eq i,Eq j,Eq k,Eq l,Eq m,Eq n
      ,Eq o) => Eq ((T.Tuple15 a b c d e f g h i j k l m n o))
  where
  
  (!==) (%==) p =
    T.ufun2 (+#%#+=%*=#%#+=%+==) (%==) p (*==)
    where
    
    (*==) (T.R (T.Tuple15 fa fb fc fd fe ff fg fh fi fj fk fl fm fn fo) _)
      (T.R
        (T.Tuple15 fa' fb' fc' fd' fe' ff' fg' fh' fi' fj' fk' fl' fm' fn' fo')
        _) p =
      T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fa fa')
            *&&
            (T.uwrapForward p
              (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fb fb')
                  *&&
                  (T.uwrapForward p
                    (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fc fc')
                        *&&
                        (T.uwrapForward p
                          (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fd fd')
                              *&&
                              (T.uwrapForward p
                                (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fe
                                      fe')
                                    *&&
                                    (T.uwrapForward p
                                      (((T.uap2 T.mkNoSrcPos p
                                            (T.mkNoSrcPos !== p) ff ff')
                                          *&&
                                          (T.uwrapForward p
                                            (((T.uap2 T.mkNoSrcPos p
                                                  (T.mkNoSrcPos !== p) fg fg')
                                                *&&
                                                (T.uwrapForward p
                                                  (((T.uap2 T.mkNoSrcPos p
                                                        (T.mkNoSrcPos !== p) fh
                                                        fh')
                                                      *&&
                                                      (T.uwrapForward p
                                                        (((T.uap2 T.mkNoSrcPos p
                                                              (T.mkNoSrcPos
                                                                !==
                                                                p) fi fi')
                                                            *&&
                                                            (T.uwrapForward p
                                                              (((T.uap2
                                                                    T.mkNoSrcPos
                                                                    p
                                                                    (T.mkNoSrcPos
                                                                      !==
                                                                      p) fj fj')
                                                                  *&&
                                                                  (T.uwrapForward
                                                                    p
                                                                    (((T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (T.mkNoSrcPos
                                                                            !==
                                                                            p)
                                                                          fk
                                                                          fk')
                                                                        *&&
                                                                        (T.uwrapForward
                                                                          p
                                                                          (((T.uap2
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (T.mkNoSrcPos
                                                                                  !==
                                                                                  p)
                                                                                fl
                                                                                fl')
                                                                              *&&
                                                                              (T.uwrapForward
                                                                                p
                                                                                (((T.uap2
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      (T.mkNoSrcPos
                                                                                        !==
                                                                                        p)
                                                                                      fm
                                                                                      fm')
                                                                                    *&&
                                                                                    (T.uwrapForward
                                                                                      p
                                                                                      (((T.uap2
                                                                                            T.mkNoSrcPos
                                                                                            p
                                                                                            (T.mkNoSrcPos
                                                                                              !==
                                                                                              p)
                                                                                            fn
                                                                                            fn')
                                                                                          *&&
                                                                                          (T.uap2
                                                                                            T.mkNoSrcPos
                                                                                            p
                                                                                            (T.mkNoSrcPos
                                                                                              !==
                                                                                              p)
                                                                                            fo
                                                                                            fo'))
                                                                                        p)))
                                                                                  p)))
                                                                            p)))
                                                                      p))) p)))
                                                          p))) p))) p))) p)))
                                  p))) p))) p))) p))) p)
    (*==) _ _ p = T.fatal p
    
  

instance
  (Ord a,Ord b,Ord c,Ord d,Ord e,Ord f,Ord g,Ord h,Ord i,Ord j,Ord k,Ord l,Ord m
      ,Ord n,Ord o) => Ord ((T.Tuple15 a b c d e f g h i j k l m n o))
  where
  
  gcompare pcompare p =
    T.ufun2 a1325v3v1354v13compare pcompare p hcompare
    where
    
    hcompare (T.R (T.Tuple15 fa fb fc fd fe ff fg fh fi fj fk fl fm fn fo) _)
      (T.R
        (T.Tuple15 fa' fb' fc' fd' fe' ff' fg' fh' fi' fj' fk' fl' fm' fn' fo')
        _) p =
      T.uccase T.mkNoSrcPos p
        (let
          v1327v5v1354v13v1 (T.R EQ _) p =
            T.uccase T.mkNoSrcPos p
              (let
                v1328v12v1354v13v1 (T.R EQ _) p =
                  T.uccase T.mkNoSrcPos p
                    (let
                      v1329v13v1353v14v1 (T.R EQ _) p =
                        T.uccase T.mkNoSrcPos p
                          (let
                            v1330v14v1352v15v1 (T.R EQ _) p =
                              T.uccase T.mkNoSrcPos p
                                (let
                                  v1331v15v1351v16v1 (T.R EQ _) p =
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v1332v16v1350v17v1 (T.R EQ _) p =
                                          T.uccase T.mkNoSrcPos p
                                            (let
                                              v1333v17v1349v18v1 (T.R EQ _) p =
                                                T.uccase T.mkNoSrcPos p
                                                  (let
                                                    v1334v18v1348v19v1
                                                      (T.R EQ _) p =
                                                      T.uccase T.mkNoSrcPos p
                                                        (let
                                                          v1335v19v1347v20v1
                                                            (T.R EQ _) p =
                                                            T.uccase
                                                              T.mkNoSrcPos p
                                                              (let
                                                                v1336v20v1346v21v1
                                                                  (T.R EQ _) p =
                                                                  T.uccase
                                                                    T.mkNoSrcPos
                                                                    p
                                                                    (let
                                                                      v1337v21v1345v22v1
                                                                        (T.R EQ
                                                                          _) p =
                                                                        T.uccase
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (let
                                                                            v1338v22v1344v23v1
                                                                              (T.R
                                                                                EQ
                                                                                _)
                                                                              p =
                                                                              T.uccase
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (let
                                                                                  v1339v23v1343v24v1
                                                                                    (T.R
                                                                                      EQ
                                                                                      _)
                                                                                    p =
                                                                                    T.uccase
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      (let
                                                                                        v1340v24v1342v25v1
                                                                                          (T.R
                                                                                            EQ
                                                                                            _)
                                                                                          p =
                                                                                          T.uap2
                                                                                            T.mkNoSrcPos
                                                                                            p
                                                                                            (gcompare
                                                                                              T.mkNoSrcPos
                                                                                              p)
                                                                                            fo
                                                                                            fo'
                                                                                        v1340v24v1342v25v1
                                                                                          fx
                                                                                          p =
                                                                                          T.projection
                                                                                            T.mkNoSrcPos
                                                                                            p
                                                                                            fx
                                                                                        in
                                                                                        (v1340v24v1342v25v1))
                                                                                      (T.uap2
                                                                                        T.mkNoSrcPos
                                                                                        p
                                                                                        (gcompare
                                                                                          T.mkNoSrcPos
                                                                                          p)
                                                                                        fn
                                                                                        fn')
                                                                                  v1339v23v1343v24v1
                                                                                    fx
                                                                                    p =
                                                                                    T.projection
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      fx
                                                                                  in
                                                                                  (v1339v23v1343v24v1))
                                                                                (T.uap2
                                                                                  T.mkNoSrcPos
                                                                                  p
                                                                                  (gcompare
                                                                                    T.mkNoSrcPos
                                                                                    p)
                                                                                  fm
                                                                                  fm')
                                                                            v1338v22v1344v23v1
                                                                              fx
                                                                              p =
                                                                              T.projection
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                fx
                                                                            in
                                                                            (v1338v22v1344v23v1))
                                                                          (T.uap2
                                                                            T.mkNoSrcPos
                                                                            p
                                                                            (gcompare
                                                                              T.mkNoSrcPos
                                                                              p)
                                                                            fl
                                                                            fl')
                                                                      v1337v21v1345v22v1
                                                                        fx p =
                                                                        T.projection
                                                                          T.mkNoSrcPos
                                                                          p fx
                                                                      in
                                                                      (v1337v21v1345v22v1))
                                                                    (T.uap2
                                                                      T.mkNoSrcPos
                                                                      p
                                                                      (gcompare
                                                                        T.mkNoSrcPos
                                                                        p) fk
                                                                      fk')
                                                                v1336v20v1346v21v1
                                                                  fx p =
                                                                  T.projection
                                                                    T.mkNoSrcPos
                                                                    p fx in
                                                                (v1336v20v1346v21v1))
                                                              (T.uap2
                                                                T.mkNoSrcPos p
                                                                (gcompare
                                                                  T.mkNoSrcPos
                                                                  p) fj fj')
                                                          v1335v19v1347v20v1 fx
                                                            p =
                                                            T.projection
                                                              T.mkNoSrcPos p fx
                                                          in
                                                          (v1335v19v1347v20v1))
                                                        (T.uap2 T.mkNoSrcPos p
                                                          (gcompare T.mkNoSrcPos
                                                            p) fi fi')
                                                    v1334v18v1348v19v1 fx p =
                                                      T.projection T.mkNoSrcPos
                                                        p fx in
                                                    (v1334v18v1348v19v1))
                                                  (T.uap2 T.mkNoSrcPos p
                                                    (gcompare T.mkNoSrcPos p) fh
                                                    fh')
                                              v1333v17v1349v18v1 fx p =
                                                T.projection T.mkNoSrcPos p fx
                                              in (v1333v17v1349v18v1))
                                            (T.uap2 T.mkNoSrcPos p
                                              (gcompare T.mkNoSrcPos p) fg fg')
                                        v1332v16v1350v17v1 fx p =
                                          T.projection T.mkNoSrcPos p fx in
                                        (v1332v16v1350v17v1))
                                      (T.uap2 T.mkNoSrcPos p
                                        (gcompare T.mkNoSrcPos p) ff ff')
                                  v1331v15v1351v16v1 fx p =
                                    T.projection T.mkNoSrcPos p fx in
                                  (v1331v15v1351v16v1))
                                (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p)
                                  fe fe')
                            v1330v14v1352v15v1 fx p =
                              T.projection T.mkNoSrcPos p fx in
                            (v1330v14v1352v15v1))
                          (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fd
                            fd')
                      v1329v13v1353v14v1 fx p = T.projection T.mkNoSrcPos p fx
                      in (v1329v13v1353v14v1))
                    (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fc fc')
                v1328v12v1354v13v1 fx p = T.projection T.mkNoSrcPos p fx in
                (v1328v12v1354v13v1))
              (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fb fb')
          v1327v5v1354v13v1 _ p = T.fatal p in (v1327v5v1354v13v1))
        (T.uap2 T.mkNoSrcPos p (gcompare T.mkNoSrcPos p) fa fa')
    hcompare _ _ p = T.fatal p
    
  

instance
  (Bounded a,Bounded b,Bounded c,Bounded d,Bounded e,Bounded f,Bounded g
      ,Bounded h,Bounded i,Bounded j,Bounded k,Bounded l,Bounded m,Bounded n
      ,Bounded o) => Bounded ((T.Tuple15 a b c d e f g h i j k l m n o))
  where
  
  gminBound pminBound p = T.uconstUse pminBound p sminBound
  
  sminBound =
    T.uconstDef T.mkRoot a1360v3v1362v23minBound
      (\ p ->
        T.con15 T.mkNoSrcPos p T.Tuple15 T.aTuple15 (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p)
          (gminBound T.mkNoSrcPos p) (gminBound T.mkNoSrcPos p))
  
  gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound
  
  smaxBound =
    T.uconstDef T.mkRoot a1363v3v1365v23maxBound
      (\ p ->
        T.con15 T.mkNoSrcPos p T.Tuple15 T.aTuple15 (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p)
          (gmaxBound T.mkNoSrcPos p) (gmaxBound T.mkNoSrcPos p))
  

gfst :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.Tuple2 a b) a)

hfst :: (T.R (T.Tuple2 a b)) -> T.RefExp -> T.R a

gfst pfst p = T.ufun1 afst pfst p hfst

hfst (T.R (T.Tuple2 fx fy) _) p = T.projection T.mkNoSrcPos p fx
hfst _ p = T.fatal p

gsnd :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.Tuple2 a b) b)

hsnd :: (T.R (T.Tuple2 a b)) -> T.RefExp -> T.R b

gsnd psnd p = T.ufun1 asnd psnd p hsnd

hsnd (T.R (T.Tuple2 fx fy) _) p = T.projection T.mkNoSrcPos p fy
hsnd _ p = T.fatal p

gcurry ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun (T.Tuple2 a b) c) (T.Fun a (T.Fun b c)))

hcurry ::
  (T.R (T.Fun (T.Tuple2 a b) c)) -> (T.R a) -> (T.R b) -> T.RefExp -> T.R c

gcurry pcurry p = T.ufun3 acurry pcurry p hcurry

hcurry ff fx fy p =
  T.uap1 T.mkNoSrcPos p ff (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 fx fy)

guncurry ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun a (T.Fun b c)) (T.Fun (T.Tuple2 a b) c))

huncurry ::
  (T.R (T.Fun a (T.Fun b c))) -> (T.R (T.Tuple2 a b)) -> T.RefExp -> T.R c

guncurry puncurry p = T.ufun2 auncurry puncurry p huncurry

huncurry ff fp p =
  T.uap2 T.mkNoSrcPos p ff (T.uwrapForward p (hfst fp p))
    (T.uwrapForward p (hsnd fp p))

guntil ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun a Bool) (T.Fun (T.Fun a a) (T.Fun a a)))

huntil ::
  (T.R (T.Fun a Bool)) -> (T.R (T.Fun a a)) -> (T.R a) -> T.RefExp -> T.R a

guntil puntil p = T.ufun3 auntil puntil p huntil

huntil fp ff fx p =
  T.ucguard (T.uap1 T.mkNoSrcPos p fp fx) (T.projection T.mkNoSrcPos p fx)
    (T.ucguard (gotherwise T.mkNoSrcPos p)
      (T.uwrapForward p (huntil fp ff (T.uap1 T.mkNoSrcPos p ff fx) p))
      (T.fatal p))

gasTypeOf :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a a))

sasTypeOf :: T.R (T.Fun a (T.Fun a a))

gasTypeOf pasTypeOf p = T.uconstUse pasTypeOf p sasTypeOf

sasTypeOf = T.uconstDef T.mkRoot aasTypeOf (\ p -> gconst T.mkNoSrcPos p)

g_foldr ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun a (T.Fun b b)) (T.Fun (T.List a) (T.Fun b b)))

h_foldr ::
  (T.R (T.Fun a (T.Fun b b))) ->
    (T.R (T.List a)) -> (T.R b) -> T.RefExp -> T.R b

g_foldr p_foldr p = T.ufun3 a_foldr p_foldr p h_foldr

h_foldr ff (T.R T.List _) fd p = T.projection T.mkNoSrcPos p fd
h_foldr ff (T.R (T.Cons fx fxs) _) fd p =
  T.uap2 T.mkNoSrcPos p ff fx (T.uwrapForward p (h_foldr ff fxs fd p))
h_foldr _ _ _ p = T.fatal p

g_filter ::
  T.RefSrcPos ->
    T.RefExp ->
      T.R
        (T.Fun Bool
          (T.Fun (T.Fun (T.List a) (T.List a)) (T.Fun (T.List a) (T.List a))))

h_filter ::
  (T.R Bool) ->
    (T.R (T.Fun (T.List a) (T.List a))) ->
      (T.R (T.List a)) -> T.RefExp -> T.R (T.List a)

g_filter p_filter p = T.ufun3 a_filter p_filter p h_filter

h_filter fb fe fr p =
  T.ucif p fb (T.uap1 T.mkNoSrcPos p fe fr) (T.projection T.mkNoSrcPos p fr)

gmap ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun a b) (T.Fun (T.List a) (T.List b)))

hmap :: (T.R (T.Fun a b)) -> (T.R (T.List a)) -> T.RefExp -> T.R (T.List b)

gmap pmap p = T.ufun2 amap pmap p hmap

hmap ff (T.R T.List _) p = T.con0 T.mkNoSrcPos p T.List T.aList
hmap ff (T.R (T.Cons fx fxs) _) p =
  T.con2 T.mkNoSrcPos p T.Cons T.aCons (T.uap1 T.mkNoSrcPos p ff fx)
    (T.uwrapForward p (hmap ff fxs p))
hmap _ _ p = T.fatal p

(!++) ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.List a) (T.Fun (T.List a) (T.List a)))

(*++) :: (T.R (T.List a)) -> (T.R (T.List a)) -> T.RefExp -> T.R (T.List a)

(!++) (%++) p = T.ufun2 (+++) (%++) p (*++)

(*++) (T.R T.List _) fys p = T.projection T.mkNoSrcPos p fys
(*++) (T.R (T.Cons fx fxs) _) fys p =
  T.con2 T.mkNoSrcPos p T.Cons T.aCons fx (T.uwrapForward p ((fxs *++ fys) p))
(*++) _ _ p = T.fatal p

gfilter ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun a Bool) (T.Fun (T.List a) (T.List a)))

hfilter ::
  (T.R (T.Fun a Bool)) -> (T.R (T.List a)) -> T.RefExp -> T.R (T.List a)

gfilter pfilter p = T.ufun2 afilter pfilter p hfilter

hfilter fp (T.R T.List _) p = T.con0 T.mkNoSrcPos p T.List T.aList
hfilter fp (T.R (T.Cons fx fxs) _) p =
  T.ucguard (T.uap1 T.mkNoSrcPos p fp fx)
    (T.con2 T.mkNoSrcPos p T.Cons T.aCons fx
      (T.uwrapForward p (hfilter fp fxs p)))
    (T.ucguard (gotherwise T.mkNoSrcPos p) (T.uwrapForward p (hfilter fp fxs p))
      (T.fatal p))
hfilter _ _ p = T.fatal p

gconcat :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.List (T.List a)) (T.List a))

hconcat :: (T.R (T.List (T.List a))) -> T.RefExp -> T.R (T.List a)

gconcat pconcat p = T.ufun1 aconcat pconcat p hconcat

hconcat fxss p =
  T.uwrapForward p
    (hfoldr (T.mkNoSrcPos !++ p) (T.con0 T.mkNoSrcPos p T.List T.aList) fxss p)

ghead :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.List a) a)

hhead :: (T.R (T.List a)) -> T.RefExp -> T.R a

ghead phead p = T.ufun1 ahead phead p hhead

hhead (T.R (T.Cons fx _) _) p = T.projection T.mkNoSrcPos p fx
hhead (T.R T.List _) p =
  T.uwrapForward p
    (herror (T.fromLitString T.mkNoSrcPos p "Prelude.head: empty list") p)
hhead _ p = T.fatal p

glast :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.List a) a)

hlast :: (T.R (T.List a)) -> T.RefExp -> T.R a

glast plast p = T.ufun1 alast plast p hlast

hlast (T.R (T.Cons fx (T.R T.List _)) _) p = T.projection T.mkNoSrcPos p fx
hlast (T.R (T.Cons _ fxs) _) p = T.uwrapForward p (hlast fxs p)
hlast (T.R T.List _) p =
  T.uwrapForward p
    (herror (T.fromLitString T.mkNoSrcPos p "Prelude.last: empty list") p)
hlast _ p = T.fatal p

gtail :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.List a) (T.List a))

htail :: (T.R (T.List a)) -> T.RefExp -> T.R (T.List a)

gtail ptail p = T.ufun1 atail ptail p htail

htail (T.R (T.Cons _ fxs) _) p = T.projection T.mkNoSrcPos p fxs
htail (T.R T.List _) p =
  T.uwrapForward p
    (herror (T.fromLitString T.mkNoSrcPos p "Prelude.tail: empty list") p)
htail _ p = T.fatal p

ginit :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.List a) (T.List a))

hinit :: (T.R (T.List a)) -> T.RefExp -> T.R (T.List a)

ginit pinit p = T.ufun1 ainit pinit p hinit

hinit (T.R (T.Cons fx (T.R T.List _)) _) p =
  T.con0 T.mkNoSrcPos p T.List T.aList
hinit (T.R (T.Cons fx fxs) _) p =
  T.con2 T.mkNoSrcPos p T.Cons T.aCons fx (T.uwrapForward p (hinit fxs p))
hinit (T.R T.List _) p =
  T.uwrapForward p
    (herror (T.fromLitString T.mkNoSrcPos p "Prelude.init: empty list") p)
hinit _ p = T.fatal p

gnull :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.List a) Bool)

hnull :: (T.R (T.List a)) -> T.RefExp -> T.R Bool

gnull pnull p = T.ufun1 anull pnull p hnull

hnull (T.R T.List _) p = T.con0 T.mkNoSrcPos p True aTrue
hnull (T.R (T.Cons _ _) _) p = T.con0 T.mkNoSrcPos p False aFalse
hnull _ p = T.fatal p

glength :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.List a) Int)

hlength :: (T.R (T.List a)) -> T.RefExp -> T.R Int

glength plength p = T.ufun1 alength plength p hlength

hlength (T.R T.List _) p =
  T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
    (T.conInteger T.mkNoSrcPos p 0)
hlength (T.R (T.Cons _ fl) _) p =
  T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
    (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
      (T.conInteger T.mkNoSrcPos p 1)) (T.uwrapForward p (hlength fl p))
hlength _ p = T.fatal p

(!!!) :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.List a) (T.Fun Int a))

(*!!) :: (T.R (T.List a)) -> (T.R Int) -> T.RefExp -> T.R a

(!!!) (%!!) p = T.ufun2 (+!!) (%!!) p (*!!)

(*!!) fxs fn p =
  T.ucguard
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) fn
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0)))
    (T.uwrapForward p
      (herror (T.fromLitString T.mkNoSrcPos p "Prelude.!!: negative index") p))
    ((fxs >#!! fn) p)
(*!!) fxs fn p = (fxs >#!! fn) p

(>#!!) (T.R T.List _) _ p =
  T.uwrapForward p
    (herror (T.fromLitString T.mkNoSrcPos p "Prelude.!!: index too large") p)
(>#!!) ((^#!!)@(T.R (T.Cons fx _) _)) fv1514v11v1514v11n p =
  T.ucguard
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fv1514v11v1514v11n
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0))) (h p)
    (((^#!!) >$!! fv1514v11v1514v11n) p)
  where
  
  h p = T.projection T.mkNoSrcPos p fx
  h p = ((^#!!) >$!! fv1514v11v1514v11n) p
  
(>#!!) (^#!!) fv1514v11v1514v11n p = ((^#!!) >$!! fv1514v11v1514v11n) p

(>$!!) (T.R (T.Cons _ fxs) _) fn p =
  T.uwrapForward p
    ((fxs
        *!!
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fn
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 1)))) p)
(>$!!) _ _ p = T.fatal p

gfoldl ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun a (T.Fun b a)) (T.Fun a (T.Fun (T.List b) a)))

hfoldl ::
  (T.R (T.Fun a (T.Fun b a))) ->
    (T.R a) -> (T.R (T.List b)) -> T.RefExp -> T.R a

gfoldl pfoldl p = T.ufun3 afoldl pfoldl p hfoldl

hfoldl ff fz (T.R T.List _) p = T.projection T.mkNoSrcPos p fz
hfoldl ff fz (T.R (T.Cons fx fxs) _) p =
  T.uwrapForward p (hfoldl ff (T.uap2 T.mkNoSrcPos p ff fz fx) fxs p)
hfoldl _ _ _ p = T.fatal p

gfoldl1 ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun a (T.Fun a a)) (T.Fun (T.List a) a))

hfoldl1 :: (T.R (T.Fun a (T.Fun a a))) -> (T.R (T.List a)) -> T.RefExp -> T.R a

gfoldl1 pfoldl1 p = T.ufun2 afoldl1 pfoldl1 p hfoldl1

hfoldl1 ff (T.R (T.Cons fx fxs) _) p = T.uwrapForward p (hfoldl ff fx fxs p)
hfoldl1 _ (T.R T.List _) p =
  T.uwrapForward p
    (herror (T.fromLitString T.mkNoSrcPos p "Prelude.foldl1: empty list") p)
hfoldl1 _ _ p = T.fatal p

gscanl ::
  T.RefSrcPos ->
    T.RefExp ->
      T.R (T.Fun (T.Fun a (T.Fun b a)) (T.Fun a (T.Fun (T.List b) (T.List a))))

hscanl ::
  (T.R (T.Fun a (T.Fun b a))) ->
    (T.R a) -> (T.R (T.List b)) -> T.RefExp -> T.R (T.List a)

gscanl pscanl p = T.ufun3 ascanl pscanl p hscanl

hscanl ff fq fxs p =
  T.con2 T.mkNoSrcPos p T.Cons T.aCons fq
    (T.uccase T.mkNoSrcPos p
      (let
        v1541v26v1543v54v1 (T.R T.List _) p =
          T.con0 T.mkNoSrcPos p T.List T.aList
        v1541v26v1543v54v1 (T.R (T.Cons fx fxs) _) p =
          T.uwrapForward p (hscanl ff (T.uap2 T.mkNoSrcPos p ff fq fx) fxs p)
        v1541v26v1543v54v1 _ p = T.fatal p in (v1541v26v1543v54v1)) fxs)

gscanl1 ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun a (T.Fun a a)) (T.Fun (T.List a) (T.List a)))

hscanl1 ::
  (T.R (T.Fun a (T.Fun a a))) -> (T.R (T.List a)) -> T.RefExp -> T.R (T.List a)

gscanl1 pscanl1 p = T.ufun2 ascanl1 pscanl1 p hscanl1

hscanl1 ff (T.R (T.Cons fx fxs) _) p = T.uwrapForward p (hscanl ff fx fxs p)
hscanl1 _ (T.R T.List _) p = T.con0 T.mkNoSrcPos p T.List T.aList
hscanl1 _ _ p = T.fatal p

gfoldr ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun a (T.Fun b b)) (T.Fun b (T.Fun (T.List a) b)))

hfoldr ::
  (T.R (T.Fun a (T.Fun b b))) ->
    (T.R b) -> (T.R (T.List a)) -> T.RefExp -> T.R b

gfoldr pfoldr p = T.ufun3 afoldr pfoldr p hfoldr

hfoldr ff fz (T.R T.List _) p = T.projection T.mkNoSrcPos p fz
hfoldr ff fz (T.R (T.Cons fx fxs) _) p =
  T.uap2 T.mkNoSrcPos p ff fx (T.uwrapForward p (hfoldr ff fz fxs p))
hfoldr _ _ _ p = T.fatal p

gfoldr1 ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun a (T.Fun a a)) (T.Fun (T.List a) a))

hfoldr1 :: (T.R (T.Fun a (T.Fun a a))) -> (T.R (T.List a)) -> T.RefExp -> T.R a

gfoldr1 pfoldr1 p = T.ufun2 afoldr1 pfoldr1 p hfoldr1

hfoldr1 ff (T.R (T.Cons fx (T.R T.List _)) _) p = T.projection T.mkNoSrcPos p fx
hfoldr1 ff (T.R (T.Cons fx fxs) _) p =
  T.uap2 T.mkNoSrcPos p ff fx (T.uwrapForward p (hfoldr1 ff fxs p))
hfoldr1 _ (T.R T.List _) p =
  T.uwrapForward p
    (herror (T.fromLitString T.mkNoSrcPos p "Prelude.foldr1: empty list") p)
hfoldr1 _ _ p = T.fatal p

gscanr ::
  T.RefSrcPos ->
    T.RefExp ->
      T.R (T.Fun (T.Fun a (T.Fun b b)) (T.Fun b (T.Fun (T.List a) (T.List b))))

hscanr ::
  (T.R (T.Fun a (T.Fun b b))) ->
    (T.R b) -> (T.R (T.List a)) -> T.RefExp -> T.R (T.List b)

gscanr pscanr p = T.ufun3 ascanr pscanr p hscanr

hscanr ff fq0 (T.R T.List _) p = T.fromExpList T.mkNoSrcPos p [fq0]
hscanr ff fq0 (T.R (T.Cons fx fxs) _) p =
  T.con2 T.mkNoSrcPos p T.Cons T.aCons
    (T.uap2 T.mkNoSrcPos p ff fx (gq T.mkNoSrcPos p)) (gqs T.mkNoSrcPos p)
  where
  
  gqs pqs p = T.uconstUse pqs p sqs
  
  sqs =
    T.uconstDef p a1568v28v1568v29qs
      (\ p -> T.uwrapForward p (hscanr ff fq0 fxs p))
  
  gq pq p = T.uconstUse pq p sq
  
  j1568v32v1568v34q =
    case gqs T.mkNoSrcPos p of T.R (T.Cons fq _) kq -> (kq,fq); _ -> T.fatal p
  
  sq =
    T.uconstDef p a1568v32v1568v32q
      (\ _ -> case j1568v32v1568v34q of (kq,fq) -> fq)
  
hscanr _ _ _ p = T.fatal p

gscanr1 ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun a (T.Fun a a)) (T.Fun (T.List a) (T.List a)))

hscanr1 ::
  (T.R (T.Fun a (T.Fun a a))) -> (T.R (T.List a)) -> T.RefExp -> T.R (T.List a)

gscanr1 pscanr1 p = T.ufun2 ascanr1 pscanr1 p hscanr1

hscanr1 ff (T.R T.List _) p = T.con0 T.mkNoSrcPos p T.List T.aList
hscanr1 ff (T.R (T.Cons fx (T.R T.List _)) _) p =
  T.fromExpList T.mkNoSrcPos p [fx]
hscanr1 ff (T.R (T.Cons fx fxs) _) p =
  T.con2 T.mkNoSrcPos p T.Cons T.aCons
    (T.uap2 T.mkNoSrcPos p ff fx (gq T.mkNoSrcPos p)) (gqs T.mkNoSrcPos p)
  where
  
  gqs pqs p = T.uconstUse pqs p sqs
  
  sqs =
    T.uconstDef p a1575v26v1575v27qs
      (\ p -> T.uwrapForward p (hscanr1 ff fxs p))
  
  gq pq p = T.uconstUse pq p sq
  
  j1575v30v1575v32q =
    case gqs T.mkNoSrcPos p of T.R (T.Cons fq _) kq -> (kq,fq); _ -> T.fatal p
  
  sq =
    T.uconstDef p a1575v30v1575v30q
      (\ _ -> case j1575v30v1575v32q of (kq,fq) -> fq)
  
hscanr1 _ _ p = T.fatal p

giterate ::
  T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.Fun a a) (T.Fun a (T.List a)))

hiterate :: (T.R (T.Fun a a)) -> (T.R a) -> T.RefExp -> T.R (T.List a)

giterate piterate p = T.ufun2 aiterate piterate p hiterate

hiterate ff fx p =
  T.con2 T.mkNoSrcPos p T.Cons T.aCons fx
    (T.uwrapForward p (hiterate ff (T.uap1 T.mkNoSrcPos p ff fx) p))

grepeat :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.List a))

hrepeat :: (T.R a) -> T.RefExp -> T.R (T.List a)

grepeat prepeat p = T.ufun1 arepeat prepeat p hrepeat

hrepeat fx p =
  gxs T.mkNoSrcPos p
  where
  
  gxs pxs p = T.uconstUse pxs p sxs
  
  sxs =
    T.uconstDef p a1586v30v1586v38xs
      (\ p -> T.con2 T.mkNoSrcPos p T.Cons T.aCons fx (gxs T.mkNoSrcPos p))
  

greplicate :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Int (T.Fun a (T.List a)))

hreplicate :: (T.R Int) -> (T.R a) -> T.RefExp -> T.R (T.List a)

greplicate preplicate p = T.ufun2 areplicate preplicate p hreplicate

hreplicate fn fx p =
  T.uwrapForward p (htake fn (T.uwrapForward p (hrepeat fx p)) p)

gcycle :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.List a) (T.List a))

hcycle :: (T.R (T.List a)) -> T.RefExp -> T.R (T.List a)

gcycle pcycle p = T.ufun1 acycle pcycle p hcycle

hcycle (T.R T.List _) p =
  T.uwrapForward p
    (herror (T.fromLitString T.mkNoSrcPos p "Prelude.cycle: empty list") p)
hcycle fxs p =
  gxs' T.mkNoSrcPos p
  where
  
  gxs' pxs' p = T.uconstUse pxs' p sxs'
  
  sxs' =
    T.uconstDef p a1600v31v1600v45xs'
      (\ p -> T.uwrapForward p ((fxs *++ (gxs' T.mkNoSrcPos p)) p))
  

gtake ::
  T.RefSrcPos -> T.RefExp -> T.R (T.Fun Int (T.Fun (T.List a) (T.List a)))

htake :: (T.R Int) -> (T.R (T.List a)) -> T.RefExp -> T.R (T.List a)

gtake ptake p = T.ufun2 atake ptake p htake

htake fn (z2take@_) p =
  T.ucguard
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !<= p) fn
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0))) (T.con0 T.mkNoSrcPos p T.List T.aList)
    (y1take fn z2take p)
htake fn z2take p = y1take fn z2take p

y1take _ (T.R T.List _) p = T.con0 T.mkNoSrcPos p T.List T.aList
y1take fn (T.R (T.Cons fx fxs) _) p =
  T.con2 T.mkNoSrcPos p T.Cons T.aCons fx
    (T.uwrapForward p
      (htake
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fn
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 1))) fxs p))
y1take _ _ p = T.fatal p

gdrop ::
  T.RefSrcPos -> T.RefExp -> T.R (T.Fun Int (T.Fun (T.List a) (T.List a)))

hdrop :: (T.R Int) -> (T.R (T.List a)) -> T.RefExp -> T.R (T.List a)

gdrop pdrop p = T.ufun2 adrop pdrop p hdrop

hdrop fn fxs p =
  T.ucguard
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !<= p) fn
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0))) (T.projection T.mkNoSrcPos p fxs)
    (y1drop fn fxs p)
hdrop fn fxs p = y1drop fn fxs p

y1drop _ (T.R T.List _) p = T.con0 T.mkNoSrcPos p T.List T.aList
y1drop fn (T.R (T.Cons _ fxs) _) p =
  T.uwrapForward p
    (hdrop
      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fn
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 1))) fxs p)
y1drop _ _ p = T.fatal p

gsplitAt ::
  T.RefSrcPos ->
    T.RefExp ->
      T.R (T.Fun Int (T.Fun (T.List a) (T.Tuple2 (T.List a) (T.List a))))

hsplitAt ::
  (T.R Int) ->
    (T.R (T.List a)) -> T.RefExp -> T.R (T.Tuple2 (T.List a) (T.List a))

gsplitAt psplitAt p = T.ufun2 asplitAt psplitAt p hsplitAt

hsplitAt fn fxs p =
  T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 (T.uwrapForward p (htake fn fxs p))
    (T.uwrapForward p (hdrop fn fxs p))

gtakeWhile ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun a Bool) (T.Fun (T.List a) (T.List a)))

htakeWhile ::
  (T.R (T.Fun a Bool)) -> (T.R (T.List a)) -> T.RefExp -> T.R (T.List a)

gtakeWhile ptakeWhile p = T.ufun2 atakeWhile ptakeWhile p htakeWhile

htakeWhile fp (T.R T.List _) p = T.con0 T.mkNoSrcPos p T.List T.aList
htakeWhile fp (T.R (T.Cons fx fxs) _) p =
  T.ucguard (T.uap1 T.mkNoSrcPos p fp fx)
    (T.con2 T.mkNoSrcPos p T.Cons T.aCons fx
      (T.uwrapForward p (htakeWhile fp fxs p)))
    (T.ucguard (gotherwise T.mkNoSrcPos p)
      (T.con0 T.mkNoSrcPos p T.List T.aList) (T.fatal p))
htakeWhile _ _ p = T.fatal p

gdropWhile ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun a Bool) (T.Fun (T.List a) (T.List a)))

hdropWhile ::
  (T.R (T.Fun a Bool)) -> (T.R (T.List a)) -> T.RefExp -> T.R (T.List a)

gdropWhile pdropWhile p = T.ufun2 adropWhile pdropWhile p hdropWhile

hdropWhile fp (T.R T.List _) p = T.con0 T.mkNoSrcPos p T.List T.aList
hdropWhile fp (fxs@(T.R (T.Cons fx fxs') _)) p =
  T.ucguard (T.uap1 T.mkNoSrcPos p fp fx)
    (T.uwrapForward p (hdropWhile fp fxs' p))
    (T.ucguard (gotherwise T.mkNoSrcPos p) (T.projection T.mkNoSrcPos p fxs)
      (T.fatal p))
hdropWhile _ _ p = T.fatal p

gspan,gbreak ::
  T.RefSrcPos ->
    T.RefExp ->
      T.R
        (T.Fun (T.Fun a Bool)
          (T.Fun (T.List a) (T.Tuple2 (T.List a) (T.List a))))

hspan ::
  (T.R (T.Fun a Bool)) ->
    (T.R (T.List a)) -> T.RefExp -> T.R (T.Tuple2 (T.List a) (T.List a))

hbreak ::
  (T.R (T.Fun a Bool)) ->
    T.RefExp -> T.R (T.Fun (T.List a) (T.Tuple2 (T.List a) (T.List a)))

gspan pspan p = T.ufun2 aspan pspan p hspan

hspan fp (T.R T.List _) p =
  T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
    (T.con0 T.mkNoSrcPos p T.List T.aList)
    (T.con0 T.mkNoSrcPos p T.List T.aList)
hspan fp (fxs@(T.R (T.Cons fx fxs') _)) p =
  T.ucguard (T.uap1 T.mkNoSrcPos p fp fx)
    (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
      (T.con2 T.mkNoSrcPos p T.Cons T.aCons fx (gys T.mkNoSrcPos p))
      (gzs T.mkNoSrcPos p))
    (T.ucguard (gotherwise T.mkNoSrcPos p)
      (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
        (T.con0 T.mkNoSrcPos p T.List T.aList) fxs) (T.fatal p))
  where
  
  gys pys p = T.uconstUse pys p sys
  
  gzs pys p = T.uconstUse pys p szs
  
  j1648v34v1648v40ys =
    case T.uwrapForward p (hspan fp fxs' p) of
      T.R (T.Tuple2 fys fzs) kys -> (kys,fys,fzs)
      _ -> T.fatal p
  
  sys =
    T.uconstDef p a1648v35v1648v36ys
      (\ _ -> case j1648v34v1648v40ys of (kys,fys,fzs) -> fys)
  
  szs =
    T.uconstDef p a1648v38v1648v39zs
      (\ _ -> case j1648v34v1648v40ys of (kys,fys,fzs) -> fzs)
  
hspan _ _ p = T.fatal p

gbreak pbreak p = T.ufun1 abreak pbreak p hbreak

hbreak fp p =
  T.uap1 T.mkNoSrcPos p (gspan T.mkNoSrcPos p)
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p) (gnot T.mkNoSrcPos p) fp)

glines :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun String (T.List String))

hlines :: (T.R String) -> T.RefExp -> T.R (T.List String)

glines plines p = T.ufun1 alines plines p hlines

hlines (T.R T.List _) p = T.con0 T.mkNoSrcPos p T.List T.aList
hlines fs p =
  let
    gl pl p = T.uconstUse pl p sl
    gs' pl p = T.uconstUse pl p ss'
    j1662v25v1662v31l =
      case
        T.uap2 T.mkNoSrcPos p (gbreak T.mkNoSrcPos p)
          (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !== p)
            (T.conChar T.mkNoSrcPos p '\n')) fs of
        T.R (T.Tuple2 fl fs') kl -> (kl,fl,fs')
        _ -> T.fatal p
    sl =
      T.uconstDef p a1662v26v1662v26l
        (\ _ -> case j1662v25v1662v31l of (kl,fl,fs') -> fl)
    ss' =
      T.uconstDef p a1662v29v1662v30s'
        (\ _ -> case j1662v25v1662v31l of (kl,fl,fs') -> fs') in
    (T.con2 T.mkNoSrcPos p T.Cons T.aCons (gl T.mkNoSrcPos p)
      (T.uccase T.mkNoSrcPos p
        (let
          v1663v31v1665v52v1 (T.R T.List _) p =
            T.con0 T.mkNoSrcPos p T.List T.aList
          v1663v31v1665v52v1 (T.R (T.Cons _ fs'') _) p =
            T.uwrapForward p (hlines fs'' p)
          v1663v31v1665v52v1 _ p = T.fatal p in (v1663v31v1665v52v1))
        (gs' T.mkNoSrcPos p)))

gwords :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun String (T.List String))

hwords :: (T.R String) -> T.RefExp -> T.R (T.List String)

gwords pwords p = T.ufun1 awords pwords p hwords

hwords fs p =
  T.uccase T.mkNoSrcPos p
    (let
      v1669v21v1672v61v1 (T.R T.List _) p = T.con0 T.mkNoSrcPos p T.List T.aList
      v1669v21v1672v61v1 fs' p =
        T.con2 T.mkNoSrcPos p T.Cons T.aCons (gw T.mkNoSrcPos p)
          (T.uwrapForward p (hwords (gs'' T.mkNoSrcPos p) p))
        where
        
        gw pw p = T.uconstUse pw p sw
        
        gs'' pw p = T.uconstUse pw p ss''
        
        j1672v35v1672v42w =
          case
            T.uap2 T.mkNoSrcPos p (gbreak T.mkNoSrcPos p)
              (gisSpace T.mkNoSrcPos p) fs' of
            T.R (T.Tuple2 fw fs'') kw -> (kw,fw,fs'')
            _ -> T.fatal p
        
        sw =
          T.uconstDef p a1672v36v1672v36w
            (\ _ -> case j1672v35v1672v42w of (kw,fw,fs'') -> fw)
        
        ss'' =
          T.uconstDef p a1672v39v1672v41s''
            (\ _ -> case j1672v35v1672v42w of (kw,fw,fs'') -> fs'')
         in (v1669v21v1672v61v1))
    (T.uwrapForward p (hdropWhile (gisSpace T.mkNoSrcPos p) fs p))

gunlines :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.List String) String)

sunlines :: T.R (T.Fun (T.List String) String)

gunlines punlines p = T.uconstUse punlines p sunlines

sunlines =
  T.uconstDef T.mkRoot aunlines
    (\ p ->
      T.uwrapForward p
        (hconcatMap
          (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !++ p)
            (T.fromLitString T.mkNoSrcPos p "\n")) p))

gunwords :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.List String) String)

hunwords :: (T.R (T.List String)) -> T.RefExp -> T.R String

gunwords punwords p = T.ufun1 aunwords punwords p hunwords

hunwords (T.R T.List _) p = T.fromLitString T.mkNoSrcPos p ""
hunwords fws p =
  T.uwrapForward p
    (hfoldr1
      (T.ufun2 T.mkLambda T.mkNoSrcPos p
        (\ fw fs p ->
          T.uwrapForward p
            ((fw
                *++
                (T.con2 T.mkNoSrcPos p T.Cons T.aCons
                  (T.conChar T.mkNoSrcPos p ' ') fs)) p))) fws p)

greverse :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.List a) (T.List a))

sreverse :: T.R (T.Fun (T.List a) (T.List a))

greverse preverse p = T.uconstUse preverse p sreverse

sreverse =
  T.uconstDef T.mkRoot areverse
    (\ p ->
      T.uap2 T.mkNoSrcPos p (gfoldl T.mkNoSrcPos p)
        (T.uap1 T.mkNoSrcPos p (gflip T.mkNoSrcPos p)
          (T.pa0 T.Cons T.cn2 T.mkNoSrcPos p T.aCons))
        (T.con0 T.mkNoSrcPos p T.List T.aList))

gand,gor :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.List Bool) Bool)

sand,sor :: T.R (T.Fun (T.List Bool) Bool)

gand pand p = T.uconstUse pand p sand

sand =
  T.uconstDef T.mkRoot aand
    (\ p ->
      T.uap2 T.mkNoSrcPos p (gfoldr T.mkNoSrcPos p) (T.mkNoSrcPos !&& p)
        (T.con0 T.mkNoSrcPos p True aTrue))

gor por p = T.uconstUse por p sor

sor =
  T.uconstDef T.mkRoot aor
    (\ p ->
      T.uap2 T.mkNoSrcPos p (gfoldr T.mkNoSrcPos p) (T.mkNoSrcPos !|| p)
        (T.con0 T.mkNoSrcPos p False aFalse))

gany,gall ::
  T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.Fun a Bool) (T.Fun (T.List a) Bool))

hany :: (T.R (T.Fun a Bool)) -> T.RefExp -> T.R (T.Fun (T.List a) Bool)

hall :: (T.R (T.Fun a Bool)) -> T.RefExp -> T.R (T.Fun (T.List a) Bool)

gany pany p = T.ufun1 aany pany p hany

hany fp p =
  T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p) (gor T.mkNoSrcPos p)
    (T.uap1 T.mkNoSrcPos p (gmap T.mkNoSrcPos p) fp)

gall pall p = T.ufun1 aall pall p hall

hall fp p =
  T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p) (gand T.mkNoSrcPos p)
    (T.uap1 T.mkNoSrcPos p (gmap T.mkNoSrcPos p) fp)

gelem,gnotElem ::
  Eq a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun (T.List a) Bool))

helem :: Eq a => (T.R a) -> T.RefExp -> T.R (T.Fun (T.List a) Bool)

hnotElem :: Eq a => (T.R a) -> T.RefExp -> T.R (T.Fun (T.List a) Bool)

gelem pelem p = T.ufun1 aelem pelem p helem

helem fx p =
  T.uwrapForward p
    (hany (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !== p) fx)
      p)

gnotElem pnotElem p = T.ufun1 anotElem pnotElem p hnotElem

hnotElem fx p =
  T.uwrapForward p
    (hall (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !/= p) fx)
      p)

glookup ::
  Eq a =>
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun a (T.Fun (T.List (T.Tuple2 a b)) (Maybe b)))

hlookup ::
  Eq a => (T.R a) -> (T.R (T.List (T.Tuple2 a b))) -> T.RefExp -> T.R (Maybe b)

glookup plookup p = T.ufun2 alookup plookup p hlookup

hlookup fkey (T.R T.List _) p = T.con0 T.mkNoSrcPos p Nothing aNothing
hlookup fkey (T.R (T.Cons (T.R (T.Tuple2 fx fy) _) fxys) _) p =
  T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fkey fx)
    (T.con1 T.mkNoSrcPos p Just aJust fy)
    (T.ucguard (gotherwise T.mkNoSrcPos p)
      (T.uwrapForward p (hlookup fkey fxys p)) (T.fatal p))
hlookup _ _ p = T.fatal p

gsum,gproduct :: Num a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.List a) a)

ssum,sproduct :: Num a => T.R (T.Fun (T.List a) a)

gsum psum p = T.uconstUse psum p ssum

ssum =
  T.uconstDef T.mkRoot asum
    (\ p ->
      T.uap2 T.mkNoSrcPos p (gfoldl T.mkNoSrcPos p) (T.mkNoSrcPos !+ p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 0)))

gproduct pproduct p = T.uconstUse pproduct p sproduct

sproduct =
  T.uconstDef T.mkRoot aproduct
    (\ p ->
      T.uap2 T.mkNoSrcPos p (gfoldl T.mkNoSrcPos p) (T.mkNoSrcPos !* p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 1)))

gmaximum,gminimum ::
  Ord a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.List a) a)

hmaximum :: Ord a => (T.R (T.List a)) -> T.RefExp -> T.R a

hminimum :: Ord a => (T.R (T.List a)) -> T.RefExp -> T.R a

gmaximum pmaximum p = T.ufun1 amaximum pmaximum p hmaximum

hmaximum (T.R T.List _) p =
  T.uwrapForward p
    (herror (T.fromLitString T.mkNoSrcPos p "Prelude.maximum: empty list") p)
hmaximum fxs p = T.uwrapForward p (hfoldl1 (gmax T.mkNoSrcPos p) fxs p)

gminimum pminimum p = T.ufun1 aminimum pminimum p hminimum

hminimum (T.R T.List _) p =
  T.uwrapForward p
    (herror (T.fromLitString T.mkNoSrcPos p "Prelude.minimum: empty list") p)
hminimum fxs p = T.uwrapForward p (hfoldl1 (gmin T.mkNoSrcPos p) fxs p)

gconcatMap ::
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun a (T.List b)) (T.Fun (T.List a) (T.List b)))

hconcatMap ::
  (T.R (T.Fun a (T.List b))) -> T.RefExp -> T.R (T.Fun (T.List a) (T.List b))

gconcatMap pconcatMap p = T.ufun1 aconcatMap pconcatMap p hconcatMap

hconcatMap ff p =
  T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p) (gconcat T.mkNoSrcPos p)
    (T.uap1 T.mkNoSrcPos p (gmap T.mkNoSrcPos p) ff)

gzip ::
  T.RefSrcPos ->
    T.RefExp ->
      T.R (T.Fun (T.List a) (T.Fun (T.List b) (T.List (T.Tuple2 a b))))

szip :: T.R (T.Fun (T.List a) (T.Fun (T.List b) (T.List (T.Tuple2 a b))))

gzip pzip p = T.uconstUse pzip p szip

szip =
  T.uconstDef T.mkRoot azip
    (\ p ->
      T.uap1 T.mkNoSrcPos p (gzipWith T.mkNoSrcPos p)
        (T.pa0 T.Tuple2 T.cn2 T.mkNoSrcPos p T.aTuple2))

gzip3 ::
  T.RefSrcPos ->
    T.RefExp ->
      T.R
        (T.Fun (T.List a)
          (T.Fun (T.List b) (T.Fun (T.List c) (T.List (T.Tuple3 a b c)))))

szip3 ::
  T.R
    (T.Fun (T.List a)
      (T.Fun (T.List b) (T.Fun (T.List c) (T.List (T.Tuple3 a b c)))))

gzip3 pzip3 p = T.uconstUse pzip3 p szip3

szip3 =
  T.uconstDef T.mkRoot azip3
    (\ p ->
      T.uap1 T.mkNoSrcPos p (gzipWith3 T.mkNoSrcPos p)
        (T.pa0 T.Tuple3 T.cn3 T.mkNoSrcPos p T.aTuple3))

gzipWith ::
  T.RefSrcPos ->
    T.RefExp ->
      T.R
        (T.Fun (T.Fun a (T.Fun b c))
          (T.Fun (T.List a) (T.Fun (T.List b) (T.List c))))

hzipWith ::
  (T.R (T.Fun a (T.Fun b c))) ->
    (T.R (T.List a)) -> (T.R (T.List b)) -> T.RefExp -> T.R (T.List c)

gzipWith pzipWith p = T.ufun3 azipWith pzipWith p hzipWith

hzipWith fz (T.R (T.Cons fa fas) _) (T.R (T.Cons fb fbs) _) p =
  T.con2 T.mkNoSrcPos p T.Cons T.aCons (T.uap2 T.mkNoSrcPos p fz fa fb)
    (T.uwrapForward p (hzipWith fz fas fbs p))
hzipWith _ _ _ p = T.con0 T.mkNoSrcPos p T.List T.aList

gzipWith3 ::
  T.RefSrcPos ->
    T.RefExp ->
      T.R
        (T.Fun (T.Fun a (T.Fun b (T.Fun c d)))
          (T.Fun (T.List a) (T.Fun (T.List b) (T.Fun (T.List c) (T.List d)))))

hzipWith3 ::
  (T.R (T.Fun a (T.Fun b (T.Fun c d)))) ->
    (T.R (T.List a)) ->
      (T.R (T.List b)) -> (T.R (T.List c)) -> T.RefExp -> T.R (T.List d)

gzipWith3 pzipWith3 p = T.ufun4 azipWith3 pzipWith3 p hzipWith3

hzipWith3 fz (T.R (T.Cons fa fas) _) (T.R (T.Cons fb fbs) _)
  (T.R (T.Cons fc fcs) _) p =
  T.con2 T.mkNoSrcPos p T.Cons T.aCons (T.uap3 T.mkNoSrcPos p fz fa fb fc)
    (T.uwrapForward p (hzipWith3 fz fas fbs fcs p))
hzipWith3 _ _ _ _ p = T.con0 T.mkNoSrcPos p T.List T.aList

gunzip ::
  T.RefSrcPos ->
    T.RefExp ->
      T.R (T.Fun (T.List (T.Tuple2 a b)) (T.Tuple2 (T.List a) (T.List b)))

sunzip :: T.R (T.Fun (T.List (T.Tuple2 a b)) (T.Tuple2 (T.List a) (T.List b)))

gunzip punzip p = T.uconstUse punzip p sunzip

sunzip =
  T.uconstDef T.mkRoot aunzip
    (\ p ->
      T.uap2 T.mkNoSrcPos p (gfoldr T.mkNoSrcPos p)
        (T.ufun2 T.mkLambda T.mkNoSrcPos p
          (\ v1773v28v1773v57v1 v1773v28v1773v57v2 p ->
            case (v1773v28v1773v57v1,v1773v28v1773v57v2) of
              (T.R (T.Tuple2 fa fb) _,T.R ~(T.Tuple2 fas fbs) _) ->
                let
                  gas pas p = T.uconstUse pas p sas
                  sas =
                    T.uconstDef p a0v0v0v0as
                      (\ p -> T.projection T.mkNoSrcPos p fas)
                  gbs pbs p = T.uconstUse pbs p sbs
                  sbs =
                    T.uconstDef p a0v0v0v0bs
                      (\ p -> T.projection T.mkNoSrcPos p fbs) in
                  (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                    (T.con2 T.mkNoSrcPos p T.Cons T.aCons fa
                      (gas T.mkNoSrcPos p))
                    (T.con2 T.mkNoSrcPos p T.Cons T.aCons fb
                      (gbs T.mkNoSrcPos p)))
              _ -> T.fatal p))
        (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
          (T.con0 T.mkNoSrcPos p T.List T.aList)
          (T.con0 T.mkNoSrcPos p T.List T.aList)))

gunzip3 ::
  T.RefSrcPos ->
    T.RefExp ->
      T.R
        (T.Fun (T.List (T.Tuple3 a b c))
          (T.Tuple3 (T.List a) (T.List b) (T.List c)))

sunzip3 ::
  T.R
    (T.Fun (T.List (T.Tuple3 a b c))
      (T.Tuple3 (T.List a) (T.List b) (T.List c)))

gunzip3 punzip3 p = T.uconstUse punzip3 p sunzip3

sunzip3 =
  T.uconstDef T.mkRoot aunzip3
    (\ p ->
      T.uap2 T.mkNoSrcPos p (gfoldr T.mkNoSrcPos p)
        (T.ufun2 T.mkLambda T.mkNoSrcPos p
          (\ v1777v28v1777v67v1 v1777v28v1777v67v2 p ->
            case (v1777v28v1777v67v1,v1777v28v1777v67v2) of
              (T.R (T.Tuple3 fa fb fc) _,T.R ~(T.Tuple3 fas fbs fcs) _) ->
                let
                  gas pas p = T.uconstUse pas p sas
                  sas =
                    T.uconstDef p a0v0v0v0as
                      (\ p -> T.projection T.mkNoSrcPos p fas)
                  gbs pbs p = T.uconstUse pbs p sbs
                  sbs =
                    T.uconstDef p a0v0v0v0bs
                      (\ p -> T.projection T.mkNoSrcPos p fbs)
                  gcs pcs p = T.uconstUse pcs p scs
                  scs =
                    T.uconstDef p a0v0v0v0cs
                      (\ p -> T.projection T.mkNoSrcPos p fcs) in
                  (T.con3 T.mkNoSrcPos p T.Tuple3 T.aTuple3
                    (T.con2 T.mkNoSrcPos p T.Cons T.aCons fa
                      (gas T.mkNoSrcPos p))
                    (T.con2 T.mkNoSrcPos p T.Cons T.aCons fb
                      (gbs T.mkNoSrcPos p))
                    (T.con2 T.mkNoSrcPos p T.Cons T.aCons fc
                      (gcs T.mkNoSrcPos p)))
              _ -> T.fatal p))
        (T.con3 T.mkNoSrcPos p T.Tuple3 T.aTuple3
          (T.con0 T.mkNoSrcPos p T.List T.aList)
          (T.con0 T.mkNoSrcPos p T.List T.aList)
          (T.con0 T.mkNoSrcPos p T.List T.aList)))

type ReadS a = T.Fun String (T.List (T.Tuple2 a String))

type ReadS___1 a = String

type ReadS___2 a = T.List (T.Tuple2 a String)

type ShowS = T.Fun String String

type ShowS___1 = String

type ShowS___2 = String

class Read a
  where
  
  greadsPrec :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Int (ReadS a))
  
  greadList :: T.RefSrcPos -> T.RefExp -> T.R (ReadS (T.List a))
  
  greadList preadList p = T.uconstUse preadList p sreadList
  
  sreadList =
    T.uconstDef T.mkRoot a1804v5v1809v35readList
      (\ p ->
        let
          greadl preadl p = T.ufun1 a1806v30v1806v34readl preadl p hreadl
          areadl = a1806v30v1806v34readl
          hreadl fs p =
            T.uwrapForward p
              (((T.uap1 T.mkNoSrcPos p
                    (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                      (T.ufun2 T.mkLambda T.mkNoSrcPos p
                        (\ f_x f_y p ->
                          T.uccase T.mkNoSrcPos p
                            (let
                              v0v0v0v0v1
                                (T.R
                                  (T.Tuple2
                                    (T.R (T.Cons (T.R ']' _) (T.R T.List _)) _)
                                    ft) _) p =
                                T.uap1 T.mkNoSrcPos p
                                  (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                                    (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                                      (T.con0 T.mkNoSrcPos p T.List T.aList)
                                      ft)) f_y
                              v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y
                              in (v0v0v0v0v1)) f_x))
                      (T.uwrapForward p (hlex fs p)))
                    (T.fromExpList T.mkNoSrcPos p []))
                  *++
                  (T.uap1 T.mkNoSrcPos p
                    (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                      (T.ufun2 T.mkLambda T.mkNoSrcPos p
                        (\ f_x f_y p ->
                          T.uccase T.mkNoSrcPos p
                            (let
                              v0v0v0v0v1 (T.R (T.Tuple2 fx ft) _) p =
                                T.uap1 T.mkNoSrcPos p
                                  (T.uap2 T.mkNoSrcPos p
                                    (g_foldr T.mkNoSrcPos p)
                                    (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                      (\ f_x f_y p ->
                                        T.uccase T.mkNoSrcPos p
                                          (let
                                            v0v0v0v0v1 (T.R (T.Tuple2 fxs fu) _)
                                              p =
                                              T.uap1 T.mkNoSrcPos p
                                                (T.pa1 T.Cons T.cn1 T.mkNoSrcPos
                                                  p T.aCons
                                                  (T.con2 T.mkNoSrcPos p
                                                    T.Tuple2 T.aTuple2
                                                    (T.con2 T.mkNoSrcPos p
                                                      T.Cons T.aCons fx fxs)
                                                    fu)) f_y
                                            v0v0v0v0v1 _ p =
                                              T.projection T.mkNoSrcPos p f_y in
                                            (v0v0v0v0v1)) f_x))
                                    (T.uwrapForward p (hreadl' ft p))) f_y
                              v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y
                              in (v0v0v0v0v1)) f_x))
                      (T.uap1 T.mkNoSrcPos p (greads T.mkNoSrcPos p) fs))
                    (T.fromExpList T.mkNoSrcPos p []))) p)
          greadl' preadl' p = T.ufun1 a1809v30v1809v35readl' preadl' p hreadl'
          areadl' = a1809v30v1809v35readl'
          hreadl' fs p =
            T.uwrapForward p
              (((T.uap1 T.mkNoSrcPos p
                    (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                      (T.ufun2 T.mkLambda T.mkNoSrcPos p
                        (\ f_x f_y p ->
                          T.uccase T.mkNoSrcPos p
                            (let
                              v0v0v0v0v1
                                (T.R
                                  (T.Tuple2
                                    (T.R (T.Cons (T.R ']' _) (T.R T.List _)) _)
                                    ft) _) p =
                                T.uap1 T.mkNoSrcPos p
                                  (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                                    (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                                      (T.con0 T.mkNoSrcPos p T.List T.aList)
                                      ft)) f_y
                              v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y
                              in (v0v0v0v0v1)) f_x))
                      (T.uwrapForward p (hlex fs p)))
                    (T.fromExpList T.mkNoSrcPos p []))
                  *++
                  (T.uap1 T.mkNoSrcPos p
                    (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                      (T.ufun2 T.mkLambda T.mkNoSrcPos p
                        (\ f_x f_y p ->
                          T.uccase T.mkNoSrcPos p
                            (let
                              v0v0v0v0v1
                                (T.R
                                  (T.Tuple2
                                    (T.R (T.Cons (T.R ',' _) (T.R T.List _)) _)
                                    ft) _) p =
                                T.uap1 T.mkNoSrcPos p
                                  (T.uap2 T.mkNoSrcPos p
                                    (g_foldr T.mkNoSrcPos p)
                                    (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                      (\ f_x f_y p ->
                                        T.uccase T.mkNoSrcPos p
                                          (let
                                            v0v0v0v0v1 (T.R (T.Tuple2 fx fu) _)
                                              p =
                                              T.uap1 T.mkNoSrcPos p
                                                (T.uap2 T.mkNoSrcPos p
                                                  (g_foldr T.mkNoSrcPos p)
                                                  (T.ufun2 T.mkLambda
                                                    T.mkNoSrcPos p
                                                    (\ f_x f_y p ->
                                                      T.uccase T.mkNoSrcPos p
                                                        (let
                                                          v0v0v0v0v1
                                                            (T.R
                                                              (T.Tuple2 fxs fv)
                                                              _) p =
                                                            T.uap1 T.mkNoSrcPos
                                                              p
                                                              (T.pa1 T.Cons
                                                                T.cn1
                                                                T.mkNoSrcPos p
                                                                T.aCons
                                                                (T.con2
                                                                  T.mkNoSrcPos p
                                                                  T.Tuple2
                                                                  T.aTuple2
                                                                  (T.con2
                                                                    T.mkNoSrcPos
                                                                    p T.Cons
                                                                    T.aCons fx
                                                                    fxs) fv))
                                                              f_y
                                                          v0v0v0v0v1 _ p =
                                                            T.projection
                                                              T.mkNoSrcPos p f_y
                                                          in (v0v0v0v0v1)) f_x))
                                                  (T.uwrapForward p
                                                    (hreadl' fu p))) f_y
                                            v0v0v0v0v1 _ p =
                                              T.projection T.mkNoSrcPos p f_y in
                                            (v0v0v0v0v1)) f_x))
                                    (T.uap1 T.mkNoSrcPos p
                                      (greads T.mkNoSrcPos p) ft)) f_y
                              v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y
                              in (v0v0v0v0v1)) f_x))
                      (T.uwrapForward p (hlex fs p)))
                    (T.fromExpList T.mkNoSrcPos p []))) p) in
          (T.uwrapForward p
            (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
              (T.ufun1 T.mkLambda T.mkNoSrcPos p
                (\ fr p ->
                  T.uap1 T.mkNoSrcPos p
                    (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                      (T.ufun2 T.mkLambda T.mkNoSrcPos p
                        (\ f_x f_y p ->
                          T.uccase T.mkNoSrcPos p
                            (let
                              v0v0v0v0v1
                                (T.R
                                  (T.Tuple2
                                    (T.R (T.Cons (T.R '[' _) (T.R T.List _)) _)
                                    fs) _) p =
                                T.uap1 T.mkNoSrcPos p
                                  (T.uap2 T.mkNoSrcPos p
                                    (g_foldr T.mkNoSrcPos p)
                                    (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                      (\ f_x f_y p ->
                                        T.uccase T.mkNoSrcPos p
                                          (let
                                            v0v0v0v0v1 fpr p =
                                              T.uap1 T.mkNoSrcPos p
                                                (T.pa1 T.Cons T.cn1 T.mkNoSrcPos
                                                  p T.aCons fpr) f_y
                                            v0v0v0v0v1 _ p =
                                              T.projection T.mkNoSrcPos p f_y in
                                            (v0v0v0v0v1)) f_x))
                                    (T.uwrapForward p (hreadl fs p))) f_y
                              v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y
                              in (v0v0v0v0v1)) f_x))
                      (T.uwrapForward p (hlex fr p)))
                    (T.fromExpList T.mkNoSrcPos p []))) p)))
  
  sreadsPrec :: T.R (T.Fun Int (ReadS a))
  
  sreadList :: T.R (ReadS (T.List a))
  

class Show a
  where
  
  gshowsPrec :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Int (T.Fun a ShowS))
  
  gshow :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun a String)
  
  gshowList :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.List a) ShowS)
  
  gshowsPrec pshowsPrec p =
    T.ufun3 a1822v5v1822v35showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec _ fx fs p =
      T.uwrapForward p
        (((T.uap1 T.mkNoSrcPos p (gshow T.mkNoSrcPos p) fx) *++ fs) p)
    
  
  gshow pshow p =
    T.ufun1 a1824v5v1824v36show pshow p hshow
    where
    
    hshow fx p =
      T.uap3 T.mkNoSrcPos p (gshowsPrec T.mkNoSrcPos p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 0)) fx
        (T.fromLitString T.mkNoSrcPos p "")
    
  
  gshowList pshowList p =
    T.ufun1 a1826v5v1830v53showList pshowList p hshowList
    where
    
    hshowList (T.R T.List _) p =
      T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
        (T.fromLitString T.mkNoSrcPos p "[]")
    hshowList (T.R (T.Cons fx fxs) _) p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
        (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '['))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fx)
          (T.uwrapForward p (hshowl fxs p)))
      where
      
      gshowl pshowl p = T.ufun1 a1828v31v1830v53showl pshowl p hshowl
      
      ashowl = a1828v31v1830v53showl
      
      hshowl (T.R T.List _) p =
        T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p ']')
      hshowl (T.R (T.Cons fx fxs) _) p =
        T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
            (T.conChar T.mkNoSrcPos p ','))
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fx)
            (T.uwrapForward p (hshowl fxs p)))
      hshowl _ p = T.fatal p
      
    hshowList _ p = T.fatal p
    
  
  sshowsPrec :: T.R (T.Fun Int (T.Fun a ShowS))
  
  sshow :: T.R (T.Fun a String)
  
  sshowList :: T.R (T.Fun (T.List a) ShowS)
  

greads :: Read a => T.RefSrcPos -> T.RefExp -> T.R (ReadS a)

sreads :: Read a => T.R (ReadS a)

greads preads p = T.uconstUse preads p sreads

sreads =
  T.uconstDef T.mkRoot areads
    (\ p ->
      T.uap1 T.mkNoSrcPos p (greadsPrec T.mkNoSrcPos p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 0)))

gshows :: Show a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun a ShowS)

sshows :: Show a => T.R (T.Fun a ShowS)

gshows pshows p = T.uconstUse pshows p sshows

sshows =
  T.uconstDef T.mkRoot ashows
    (\ p ->
      T.uap1 T.mkNoSrcPos p (gshowsPrec T.mkNoSrcPos p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 0)))

gread :: Read a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun String a)

hread :: Read a => (T.R String) -> T.RefExp -> T.R a

gread pread p = T.ufun1 aread pread p hread

hread fs p =
  T.uccase T.mkNoSrcPos p
    (let
      v1841v21v1844v69v1 (T.R (T.Cons fx (T.R T.List _)) _) p =
        T.projection T.mkNoSrcPos p fx
      v1841v21v1844v69v1 (T.R T.List _) p =
        T.uwrapForward p
          (herror (T.fromLitString T.mkNoSrcPos p "Prelude.read: no parse") p)
      v1841v21v1844v69v1 _ p =
        T.uwrapForward p
          (herror
            (T.fromLitString T.mkNoSrcPos p "Prelude.read: ambiguous parse") p)
      in (v1841v21v1844v69v1))
    (T.uap1 T.mkNoSrcPos p
      (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
        (T.ufun2 T.mkLambda T.mkNoSrcPos p
          (\ f_x f_y p ->
            T.uccase T.mkNoSrcPos p
              (let
                v0v0v0v0v1 (T.R (T.Tuple2 fx ft) _) p =
                  T.uap1 T.mkNoSrcPos p
                    (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                      (T.ufun2 T.mkLambda T.mkNoSrcPos p
                        (\ f_x f_y p ->
                          T.uccase T.mkNoSrcPos p
                            (let
                              v0v0v0v0v1
                                (T.R (T.Tuple2 (T.R T.List _) (T.R T.List _)) _)
                                p =
                                T.uap1 T.mkNoSrcPos p
                                  (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons fx)
                                  f_y
                              v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y
                              in (v0v0v0v0v1)) f_x))
                      (T.uwrapForward p (hlex ft p))) f_y
                v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                (v0v0v0v0v1)) f_x))
        (T.uap1 T.mkNoSrcPos p (greads T.mkNoSrcPos p) fs))
      (T.fromExpList T.mkNoSrcPos p []))

gshowChar :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Char ShowS)

sshowChar :: T.R (T.Fun Char ShowS)

gshowChar pshowChar p = T.uconstUse pshowChar p sshowChar

sshowChar =
  T.uconstDef T.mkRoot ashowChar
    (\ p -> T.pa0 T.Cons T.cn2 T.mkNoSrcPos p T.aCons)

gshowString :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun String ShowS)

sshowString :: T.R (T.Fun String ShowS)

gshowString pshowString p = T.uconstUse pshowString p sshowString

sshowString = T.uconstDef T.mkRoot ashowString (\ p -> (T.mkNoSrcPos !++ p))

gshowParen :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Bool (T.Fun ShowS ShowS))

hshowParen :: (T.R Bool) -> (T.R ShowS) -> T.RefExp -> T.R ShowS

gshowParen pshowParen p = T.ufun2 ashowParen pshowParen p hshowParen

hshowParen fb fp p =
  T.ucif p fb
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
      (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
        (T.conChar T.mkNoSrcPos p '('))
      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p) fp
        (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p ')')))) (T.projection T.mkNoSrcPos p fp)

greadParen ::
  T.RefSrcPos -> T.RefExp -> T.R (T.Fun Bool (T.Fun (ReadS a) (ReadS a)))

hreadParen :: (T.R Bool) -> (T.R (ReadS a)) -> T.RefExp -> T.R (ReadS a)

greadParen preadParen p = T.ufun2 areadParen preadParen p hreadParen

hreadParen fb fg p =
  T.ucif p fb (gmandatory T.mkNoSrcPos p) (goptional T.mkNoSrcPos p)
  where
  
  goptional poptional p = T.ufun1 a1861v27v1861v58optional poptional p hoptional
  
  aoptional = a1861v27v1861v58optional
  
  hoptional fr p =
    T.uwrapForward p
      (((T.uap1 T.mkNoSrcPos p fg fr) *++ (T.uwrapForward p (hmandatory fr p)))
        p)
  
  gmandatory pmandatory p =
    T.ufun1 a1862v27v1862v35mandatory pmandatory p hmandatory
  
  amandatory = a1862v27v1862v35mandatory
  
  hmandatory fr p =
    T.uap1 T.mkNoSrcPos p
      (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
        (T.ufun2 T.mkLambda T.mkNoSrcPos p
          (\ f_x f_y p ->
            T.uccase T.mkNoSrcPos p
              (let
                v0v0v0v0v1
                  (T.R (T.Tuple2 (T.R (T.Cons (T.R '(' _) (T.R T.List _)) _) fs)
                    _) p =
                  T.uap1 T.mkNoSrcPos p
                    (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                      (T.ufun2 T.mkLambda T.mkNoSrcPos p
                        (\ f_x f_y p ->
                          T.uccase T.mkNoSrcPos p
                            (let
                              v0v0v0v0v1 (T.R (T.Tuple2 fx ft) _) p =
                                T.uap1 T.mkNoSrcPos p
                                  (T.uap2 T.mkNoSrcPos p
                                    (g_foldr T.mkNoSrcPos p)
                                    (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                      (\ f_x f_y p ->
                                        T.uccase T.mkNoSrcPos p
                                          (let
                                            v0v0v0v0v1
                                              (T.R
                                                (T.Tuple2
                                                  (T.R
                                                    (T.Cons (T.R ')' _)
                                                      (T.R T.List _)) _) fu) _)
                                              p =
                                              T.uap1 T.mkNoSrcPos p
                                                (T.pa1 T.Cons T.cn1 T.mkNoSrcPos
                                                  p T.aCons
                                                  (T.con2 T.mkNoSrcPos p
                                                    T.Tuple2 T.aTuple2 fx fu))
                                                f_y
                                            v0v0v0v0v1 _ p =
                                              T.projection T.mkNoSrcPos p f_y in
                                            (v0v0v0v0v1)) f_x))
                                    (T.uwrapForward p (hlex ft p))) f_y
                              v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y
                              in (v0v0v0v0v1)) f_x))
                      (T.uwrapForward p (hoptional fs p))) f_y
                v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr p)))
      (T.fromExpList T.mkNoSrcPos p [])
  

glex :: T.RefSrcPos -> T.RefExp -> T.R (ReadS String)

hlex :: (T.R (ReadS___1 String)) -> T.RefExp -> T.R (ReadS___2 String)

glex plex p = T.ufun1 alex plex p hlex

hlex (T.R T.List _) p =
  T.fromExpList T.mkNoSrcPos p
    [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
        (T.fromLitString T.mkNoSrcPos p "") (T.fromLitString T.mkNoSrcPos p "")]
hlex (z1lex@(T.R (T.Cons fc fs) _)) p =
  T.ucguard (T.uwrapForward p (hisSpace fc p))
    (T.uwrapForward p
      (hlex (T.uwrapForward p (hdropWhile (gisSpace T.mkNoSrcPos p) fs p)) p))
    (y1lex z1lex p)
hlex z1lex p = y1lex z1lex p

y1lex (T.R (T.Cons (T.R '\'' _) fs) _) p =
  T.uap1 T.mkNoSrcPos p
    (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
      (T.ufun2 T.mkLambda T.mkNoSrcPos p
        (\ f_x f_y p ->
          T.uccase T.mkNoSrcPos p
            (let
              v0v0v0v0v1 (T.R (T.Tuple2 fch (T.R (T.Cons (T.R '\'' _) ft) _)) _)
                p =
                T.uap1 T.mkNoSrcPos p
                  (T.uap2 T.mkNoSrcPos p (g_filter T.mkNoSrcPos p)
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/= p) fch
                      (T.fromLitString T.mkNoSrcPos p "'"))
                    (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                      (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                        (T.con2 T.mkNoSrcPos p T.Cons T.aCons
                          (T.conChar T.mkNoSrcPos p '\'')
                          (T.uwrapForward p
                            ((fch *++ (T.fromLitString T.mkNoSrcPos p "'")) p)))
                        ft))) f_y
              v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in (v0v0v0v0v1))
            f_x)) (T.uwrapForward p (hlexLitChar fs p)))
    (T.fromExpList T.mkNoSrcPos p [])
y1lex (T.R (T.Cons (T.R '"' _) fs) _) p =
  T.uap1 T.mkNoSrcPos p
    (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
      (T.ufun2 T.mkLambda T.mkNoSrcPos p
        (\ f_x f_y p ->
          T.uccase T.mkNoSrcPos p
            (let
              v0v0v0v0v1 (T.R (T.Tuple2 fstr ft) _) p =
                T.uap1 T.mkNoSrcPos p
                  (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                    (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                      (T.con2 T.mkNoSrcPos p T.Cons T.aCons
                        (T.conChar T.mkNoSrcPos p '"') fstr) ft)) f_y
              v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in (v0v0v0v0v1))
            f_x)) (T.uwrapForward p (hlexString fs p)))
    (T.fromExpList T.mkNoSrcPos p [])
  where
  
  glexString plexString p =
    T.ufun1 a1881v21v1882v29lexString plexString p hlexString
  
  alexString = a1881v21v1882v29lexString
  
  hlexString (T.R (T.Cons (T.R '"' _) fs) _) p =
    T.fromExpList T.mkNoSrcPos p
      [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
          (T.fromLitString T.mkNoSrcPos p "\"") fs]
  hlexString fs p =
    T.uap1 T.mkNoSrcPos p
      (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
        (T.ufun2 T.mkLambda T.mkNoSrcPos p
          (\ f_x f_y p ->
            T.uccase T.mkNoSrcPos p
              (let
                v0v0v0v0v1 (T.R (T.Tuple2 fch ft) _) p =
                  T.uap1 T.mkNoSrcPos p
                    (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                      (T.ufun2 T.mkLambda T.mkNoSrcPos p
                        (\ f_x f_y p ->
                          T.uccase T.mkNoSrcPos p
                            (let
                              v0v0v0v0v1 (T.R (T.Tuple2 fstr fu) _) p =
                                T.uap1 T.mkNoSrcPos p
                                  (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                                    (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                                      (T.uwrapForward p ((fch *++ fstr) p)) fu))
                                  f_y
                              v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y
                              in (v0v0v0v0v1)) f_x))
                      (T.uwrapForward p (hlexString ft p))) f_y
                v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlexStrItem fs p)))
      (T.fromExpList T.mkNoSrcPos p [])
  
  glexStrItem plexStrItem p =
    T.ufun1 a1886v21v1891v58lexStrItem plexStrItem p hlexStrItem
  
  alexStrItem = a1886v21v1891v58lexStrItem
  
  hlexStrItem (T.R (T.Cons (T.R '\\' _) (T.R (T.Cons (T.R '&' _) fs) _)) _) p =
    T.fromExpList T.mkNoSrcPos p
      [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
          (T.fromLitString T.mkNoSrcPos p "\\&") fs]
  hlexStrItem
    (z1lexStrItem@(T.R (T.Cons (T.R '\\' _) (T.R (T.Cons fc fs) _)) _)) p =
    T.ucguard (T.uwrapForward p (hisSpace fc p))
      (T.uap1 T.mkNoSrcPos p
        (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
          (T.ufun2 T.mkLambda T.mkNoSrcPos p
            (\ f_x f_y p ->
              T.uccase T.mkNoSrcPos p
                (let
                  v0v0v0v0v1 (T.R (T.Cons (T.R '\\' _) ft) _) p =
                    T.uap1 T.mkNoSrcPos p
                      (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                        (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                          (T.fromLitString T.mkNoSrcPos p "\\&") ft)) f_y
                  v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                  (v0v0v0v0v1)) f_x))
          (T.fromExpList T.mkNoSrcPos p
            [T.uwrapForward p (hdropWhile (gisSpace T.mkNoSrcPos p) fs p)]))
        (T.fromExpList T.mkNoSrcPos p [])) (y1lexStrItem z1lexStrItem p)
  hlexStrItem z1lexStrItem p = y1lexStrItem z1lexStrItem p
  
  y1lexStrItem fs p = T.uwrapForward p (hlexLitChar fs p)
  
y1lex (T.R (T.Cons fc fs) _) p =
  T.ucguard (T.uwrapForward p (hisSingle fc p))
    (T.fromExpList T.mkNoSrcPos p
      [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
          (T.fromExpList T.mkNoSrcPos p [fc]) fs])
    (T.ucguard (T.uwrapForward p (hisSym fc p))
      (T.uap1 T.mkNoSrcPos p
        (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
          (T.ufun2 T.mkLambda T.mkNoSrcPos p
            (\ f_x f_y p ->
              T.uccase T.mkNoSrcPos p
                (let
                  v0v0v0v0v1 (T.R (T.Tuple2 fsym ft) _) p =
                    T.uap1 T.mkNoSrcPos p
                      (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                        (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                          (T.con2 T.mkNoSrcPos p T.Cons T.aCons fc fsym) ft))
                      f_y
                  v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                  (v0v0v0v0v1)) f_x))
          (T.fromExpList T.mkNoSrcPos p
            [T.uwrapForward p (hspan (gisSym T.mkNoSrcPos p) fs p)]))
        (T.fromExpList T.mkNoSrcPos p []))
      (T.ucguard (T.uwrapForward p (hisAlpha fc p))
        (T.uap1 T.mkNoSrcPos p
          (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
            (T.ufun2 T.mkLambda T.mkNoSrcPos p
              (\ f_x f_y p ->
                T.uccase T.mkNoSrcPos p
                  (let
                    v0v0v0v0v1 (T.R (T.Tuple2 fnam ft) _) p =
                      T.uap1 T.mkNoSrcPos p
                        (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                          (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                            (T.con2 T.mkNoSrcPos p T.Cons T.aCons fc fnam) ft))
                        f_y
                    v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                    (v0v0v0v0v1)) f_x))
            (T.fromExpList T.mkNoSrcPos p
              [T.uwrapForward p (hspan (gisIdChar T.mkNoSrcPos p) fs p)]))
          (T.fromExpList T.mkNoSrcPos p []))
        (T.ucguard (T.uwrapForward p (hisDigit fc p))
          (T.uap1 T.mkNoSrcPos p
            (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
              (T.ufun2 T.mkLambda T.mkNoSrcPos p
                (\ f_x f_y p ->
                  T.uccase T.mkNoSrcPos p
                    (let
                      v0v0v0v0v1 (T.R (T.Tuple2 fds fs) _) p =
                        T.uap1 T.mkNoSrcPos p
                          (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                            (T.ufun2 T.mkLambda T.mkNoSrcPos p
                              (\ f_x f_y p ->
                                T.uccase T.mkNoSrcPos p
                                  (let
                                    v0v0v0v0v1 (T.R (T.Tuple2 ffe ft) _) p =
                                      T.uap1 T.mkNoSrcPos p
                                        (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p
                                          T.aCons
                                          (T.con2 T.mkNoSrcPos p T.Tuple2
                                            T.aTuple2
                                            (T.con2 T.mkNoSrcPos p T.Cons
                                              T.aCons fc
                                              (T.uwrapForward p
                                                ((fds *++ ffe) p))) ft)) f_y
                                    v0v0v0v0v1 _ p =
                                      T.projection T.mkNoSrcPos p f_y in
                                    (v0v0v0v0v1)) f_x))
                            (T.uwrapForward p (hlexFracExp fs p))) f_y
                      v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                      (v0v0v0v0v1)) f_x))
              (T.fromExpList T.mkNoSrcPos p
                [T.uwrapForward p (hspan (gisDigit T.mkNoSrcPos p) fs p)]))
            (T.fromExpList T.mkNoSrcPos p []))
          (T.ucguard (gotherwise T.mkNoSrcPos p)
            (T.con0 T.mkNoSrcPos p T.List T.aList) (T.fatal p)))))
  where
  
  gisSingle pisSingle p = T.ufun1 a1900v15v1900v49isSingle pisSingle p hisSingle
  
  aisSingle = a1900v15v1900v49isSingle
  
  hisSingle fc p =
    T.uap2 T.mkNoSrcPos p (gelem T.mkNoSrcPos p) fc
      (T.fromLitString T.mkNoSrcPos p ",;()[]{}_`")
  
  gisSym pisSym p = T.ufun1 a1901v15v1901v60isSym pisSym p hisSym
  
  aisSym = a1901v15v1901v60isSym
  
  hisSym fc p =
    T.uap2 T.mkNoSrcPos p (gelem T.mkNoSrcPos p) fc
      (T.fromLitString T.mkNoSrcPos p "!@#$%&*+./<=>?\\^|:-~")
  
  gisIdChar pisIdChar p = T.ufun1 a1902v15v1902v57isIdChar pisIdChar p hisIdChar
  
  aisIdChar = a1902v15v1902v57isIdChar
  
  hisIdChar fc p =
    T.uwrapForward p
      (((T.uwrapForward p (hisAlphaNum fc p))
          *||
          (T.uap2 T.mkNoSrcPos p (gelem T.mkNoSrcPos p) fc
            (T.fromLitString T.mkNoSrcPos p "_'"))) p)
  
  glexFracExp plexFracExp p =
    T.ufun1 a1904v15v1907v38lexFracExp plexFracExp p hlexFracExp
  
  alexFracExp = a1904v15v1907v38lexFracExp
  
  hlexFracExp
    (z1lexFracExp@(T.R (T.Cons (T.R '.' _) (T.R (T.Cons fc fcs) _)) _)) p =
    T.ucguard (T.uwrapForward p (hisDigit fc p))
      (T.uap1 T.mkNoSrcPos p
        (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
          (T.ufun2 T.mkLambda T.mkNoSrcPos p
            (\ f_x f_y p ->
              T.uccase T.mkNoSrcPos p
                (let
                  v0v0v0v0v1 (T.R (T.Tuple2 fds ft) _) p =
                    T.uap1 T.mkNoSrcPos p
                      (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                        (T.ufun2 T.mkLambda T.mkNoSrcPos p
                          (\ f_x f_y p ->
                            T.uccase T.mkNoSrcPos p
                              (let
                                v0v0v0v0v1 (T.R (T.Tuple2 fe fu) _) p =
                                  T.uap1 T.mkNoSrcPos p
                                    (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                                      (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                                        (T.con2 T.mkNoSrcPos p T.Cons T.aCons
                                          (T.conChar T.mkNoSrcPos p '.')
                                          (T.uwrapForward p ((fds *++ fe) p)))
                                        fu)) f_y
                                v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y
                                in (v0v0v0v0v1)) f_x))
                        (T.uwrapForward p (hlexExp ft p))) f_y
                  v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                  (v0v0v0v0v1)) f_x))
          (T.uap1 T.mkNoSrcPos p (glexDigits T.mkNoSrcPos p)
            (T.con2 T.mkNoSrcPos p T.Cons T.aCons fc fcs)))
        (T.fromExpList T.mkNoSrcPos p [])) (y1lexFracExp z1lexFracExp p)
  hlexFracExp z1lexFracExp p = y1lexFracExp z1lexFracExp p
  
  y1lexFracExp fs p = T.uwrapForward p (hlexExp fs p)
  
  glexExp plexExp p = T.ufun1 a1909v15v1913v33lexExp plexExp p hlexExp
  
  alexExp = a1909v15v1913v33lexExp
  
  hlexExp (z1lexExp@(T.R (T.Cons fe fs) _)) p =
    T.ucguard
      (T.uap2 T.mkNoSrcPos p (gelem T.mkNoSrcPos p) fe
        (T.fromLitString T.mkNoSrcPos p "eE"))
      (T.uwrapForward p
        (((T.uap1 T.mkNoSrcPos p
              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                  (\ f_x f_y p ->
                    T.uccase T.mkNoSrcPos p
                      (let
                        v0v0v0v0v1 (T.R (T.Cons fc ft) _) p =
                          T.uap1 T.mkNoSrcPos p
                            (T.uap2 T.mkNoSrcPos p (g_filter T.mkNoSrcPos p)
                              (T.uap2 T.mkNoSrcPos p (gelem T.mkNoSrcPos p) fc
                                (T.fromLitString T.mkNoSrcPos p "+-"))
                              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                  (\ f_x f_y p ->
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v0v0v0v0v1 (T.R (T.Tuple2 fds fu) _) p =
                                          T.uap1 T.mkNoSrcPos p
                                            (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p
                                              T.aCons
                                              (T.con2 T.mkNoSrcPos p T.Tuple2
                                                T.aTuple2
                                                (T.con2 T.mkNoSrcPos p T.Cons
                                                  T.aCons fe
                                                  (T.con2 T.mkNoSrcPos p T.Cons
                                                    T.aCons fc fds)) fu)) f_y
                                        v0v0v0v0v1 _ p =
                                          T.projection T.mkNoSrcPos p f_y in
                                        (v0v0v0v0v1)) f_x))
                                (T.uap1 T.mkNoSrcPos p
                                  (glexDigits T.mkNoSrcPos p) ft))) f_y
                        v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                        (v0v0v0v0v1)) f_x)) (T.fromExpList T.mkNoSrcPos p [fs]))
              (T.fromExpList T.mkNoSrcPos p []))
            *++
            (T.uap1 T.mkNoSrcPos p
              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                  (\ f_x f_y p ->
                    T.uccase T.mkNoSrcPos p
                      (let
                        v0v0v0v0v1 (T.R (T.Tuple2 fds ft) _) p =
                          T.uap1 T.mkNoSrcPos p
                            (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                              (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                                (T.con2 T.mkNoSrcPos p T.Cons T.aCons fe fds)
                                ft)) f_y
                        v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                        (v0v0v0v0v1)) f_x))
                (T.uap1 T.mkNoSrcPos p (glexDigits T.mkNoSrcPos p) fs))
              (T.fromExpList T.mkNoSrcPos p []))) p)) (y1lexExp z1lexExp p)
  hlexExp z1lexExp p = y1lexExp z1lexExp p
  
  y1lexExp fs p =
    T.fromExpList T.mkNoSrcPos p
      [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
          (T.fromLitString T.mkNoSrcPos p "") fs]
  
y1lex _ p = T.fatal p

instance Show (Int)
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun1 a1917v5v1917v41showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fn p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
        (T.uap1 T.mkNoSrcPos p (gshowsPrec T.mkNoSrcPos p) fn)
        (gtoInteger T.mkNoSrcPos p)
    
  

instance Read (Int)
  where
  
  greadsPrec preadsPrec p =
    T.ufun2 a1923v3v1923v11readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp fr p =
      T.uap1 T.mkNoSrcPos p
        (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
          (T.ufun2 T.mkLambda T.mkNoSrcPos p
            (\ f_x f_y p ->
              T.uccase T.mkNoSrcPos p
                (let
                  v0v0v0v0v1 (T.R (T.Tuple2 fi ft) _) p =
                    T.uap1 T.mkNoSrcPos p
                      (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                        (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                          (T.uap1 T.mkNoSrcPos p (gfromInteger T.mkNoSrcPos p)
                            fi) ft)) f_y
                  v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                  (v0v0v0v0v1)) f_x))
          (T.uap2 T.mkNoSrcPos p (greadsPrec T.mkNoSrcPos p) fp fr))
        (T.fromExpList T.mkNoSrcPos p [])
    
  

instance Show (Integer)
  where
  
  gshowsPrec pshowsPrec p = T.uconstUse pshowsPrec p sshowsPrec
  
  sshowsPrec =
    T.uconstDef T.mkRoot a1929v5v1929v44showsPrec
      (\ p ->
        T.uap1 T.mkNoSrcPos p (gshowSigned T.mkNoSrcPos p)
          (gshowInt T.mkNoSrcPos p))
  

instance Read (Integer)
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a1933v5v1933v44readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p = T.uwrapForward p (hreadSigned (greadDec T.mkNoSrcPos p) p)
    
  

instance Show (Float)
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun1 a1937v5v1937v35showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp p = gshowFloat T.mkNoSrcPos p
    
  

instance Read (Float)
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a1941v5v1941v46readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p (hreadSigned (greadFloat T.mkNoSrcPos p) p)
    
  

instance Show (Double)
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun1 a1945v5v1945v35showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp p = gshowFloat T.mkNoSrcPos p
    
  

instance Read (Double)
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a1949v5v1949v46readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p (hreadSigned (greadFloat T.mkNoSrcPos p) p)
    
  

instance Show (T.Tuple0)
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a1953v5v1953v37showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp (T.R T.Tuple0 _) p =
      T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
        (T.fromLitString T.mkNoSrcPos p "()")
    hshowsPrec _ _ p = T.fatal p
    
  

instance Read (T.Tuple0)
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a1957v5v1958v30readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p
        (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
          (T.ufun1 T.mkLambda T.mkNoSrcPos p
            (\ fr p ->
              T.uap1 T.mkNoSrcPos p
                (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                  (T.ufun2 T.mkLambda T.mkNoSrcPos p
                    (\ f_x f_y p ->
                      T.uccase T.mkNoSrcPos p
                        (let
                          v0v0v0v0v1
                            (T.R
                              (T.Tuple2
                                (T.R (T.Cons (T.R '(' _) (T.R T.List _)) _) fs)
                              _) p =
                            T.uap1 T.mkNoSrcPos p
                              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                  (\ f_x f_y p ->
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v0v0v0v0v1
                                          (T.R
                                            (T.Tuple2
                                              (T.R
                                                (T.Cons (T.R ')' _)
                                                  (T.R T.List _)) _) ft) _) p =
                                          T.uap1 T.mkNoSrcPos p
                                            (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p
                                              T.aCons
                                              (T.con2 T.mkNoSrcPos p T.Tuple2
                                                T.aTuple2
                                                (T.con0 T.mkNoSrcPos p T.Tuple0
                                                  T.aTuple0) ft)) f_y
                                        v0v0v0v0v1 _ p =
                                          T.projection T.mkNoSrcPos p f_y in
                                        (v0v0v0v0v1)) f_x))
                                (T.uwrapForward p (hlex fs p))) f_y
                          v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                          (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr p)))
                (T.fromExpList T.mkNoSrcPos p []))) p)
    
  

instance Show (Char)
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a1962v5v1963v68showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp (T.R '\'' _) p =
      T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
        (T.fromLitString T.mkNoSrcPos p "'\\''")
    hshowsPrec fp fc p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
        (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '\''))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uwrapForward p (hshowLitChar fc p))
          (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
            (T.conChar T.mkNoSrcPos p '\'')))
    
  
  gshowList pshowList p =
    T.ufun1 a1965v5v1968v64showList pshowList p hshowList
    where
    
    hshowList fcs p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
        (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '"')) (T.uwrapForward p (hshowl fcs p))
      where
      
      gshowl pshowl p = T.ufun1 a1966v24v1968v64showl pshowl p hshowl
      
      ashowl = a1966v24v1968v64showl
      
      hshowl (T.R T.List _) p =
        T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '"')
      hshowl (T.R (T.Cons (T.R '"' _) fcs) _) p =
        T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
            (T.fromLitString T.mkNoSrcPos p "\\\""))
          (T.uwrapForward p (hshowl fcs p))
      hshowl (T.R (T.Cons fc fcs) _) p =
        T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uwrapForward p (hshowLitChar fc p))
          (T.uwrapForward p (hshowl fcs p))
      hshowl _ p = T.fatal p
      
    
  

instance Read (Char)
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a1972v5v1973v30readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p
        (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
          (T.ufun1 T.mkLambda T.mkNoSrcPos p
            (\ fr p ->
              T.uap1 T.mkNoSrcPos p
                (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                  (T.ufun2 T.mkLambda T.mkNoSrcPos p
                    (\ f_x f_y p ->
                      T.uccase T.mkNoSrcPos p
                        (let
                          v0v0v0v0v1
                            (T.R (T.Tuple2 (T.R (T.Cons (T.R '\'' _) fs) _) ft)
                              _) p =
                            T.uap1 T.mkNoSrcPos p
                              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                  (\ f_x f_y p ->
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v0v0v0v0v1
                                          (T.R
                                            (T.Tuple2 fc
                                              (T.R
                                                (T.Cons (T.R '\'' _)
                                                  (T.R T.List _)) _)) _) p =
                                          T.uap1 T.mkNoSrcPos p
                                            (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p
                                              T.aCons
                                              (T.con2 T.mkNoSrcPos p T.Tuple2
                                                T.aTuple2 fc ft)) f_y
                                        v0v0v0v0v1 _ p =
                                          T.projection T.mkNoSrcPos p f_y in
                                        (v0v0v0v0v1)) f_x))
                                (T.uwrapForward p (hreadLitChar fs p))) f_y
                          v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                          (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr p)))
                (T.fromExpList T.mkNoSrcPos p []))) p)
    
  
  greadList preadList p = T.uconstUse preadList p sreadList
  
  sreadList =
    T.uconstDef T.mkRoot a1976v5v1980v19readList
      (\ p ->
        let
          greadl preadl p = T.ufun1 a1978v15v1980v19readl preadl p hreadl
          areadl = a1978v15v1980v19readl
          hreadl (T.R (T.Cons (T.R '"' _) fs) _) p =
            T.fromExpList T.mkNoSrcPos p
              [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                  (T.fromLitString T.mkNoSrcPos p "") fs]
          hreadl (T.R (T.Cons (T.R '\\' _) (T.R (T.Cons (T.R '&' _) fs) _)) _)
            p =
            T.uwrapForward p (hreadl fs p)
          hreadl fs p =
            T.uap1 T.mkNoSrcPos p
              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                  (\ f_x f_y p ->
                    T.uccase T.mkNoSrcPos p
                      (let
                        v0v0v0v0v1 (T.R (T.Tuple2 fc ft) _) p =
                          T.uap1 T.mkNoSrcPos p
                            (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                              (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                (\ f_x f_y p ->
                                  T.uccase T.mkNoSrcPos p
                                    (let
                                      v0v0v0v0v1 (T.R (T.Tuple2 fcs fu) _) p =
                                        T.uap1 T.mkNoSrcPos p
                                          (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p
                                            T.aCons
                                            (T.con2 T.mkNoSrcPos p T.Tuple2
                                              T.aTuple2
                                              (T.con2 T.mkNoSrcPos p T.Cons
                                                T.aCons fc fcs) fu)) f_y
                                      v0v0v0v0v1 _ p =
                                        T.projection T.mkNoSrcPos p f_y in
                                      (v0v0v0v0v1)) f_x))
                              (T.uwrapForward p (hreadl ft p))) f_y
                        v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                        (v0v0v0v0v1)) f_x))
                (T.uwrapForward p (hreadLitChar fs p)))
              (T.fromExpList T.mkNoSrcPos p []) in
          (T.uwrapForward p
            (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
              (T.ufun1 T.mkLambda T.mkNoSrcPos p
                (\ fr p ->
                  T.uap1 T.mkNoSrcPos p
                    (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                      (T.ufun2 T.mkLambda T.mkNoSrcPos p
                        (\ f_x f_y p ->
                          T.uccase T.mkNoSrcPos p
                            (let
                              v0v0v0v0v1
                                (T.R
                                  (T.Tuple2 (T.R (T.Cons (T.R '"' _) fs) _) ft)
                                  _) p =
                                T.uap1 T.mkNoSrcPos p
                                  (T.uap2 T.mkNoSrcPos p
                                    (g_foldr T.mkNoSrcPos p)
                                    (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                      (\ f_x f_y p ->
                                        T.uccase T.mkNoSrcPos p
                                          (let
                                            v0v0v0v0v1 (T.R (T.Tuple2 fl _) _)
                                              p =
                                              T.uap1 T.mkNoSrcPos p
                                                (T.pa1 T.Cons T.cn1 T.mkNoSrcPos
                                                  p T.aCons
                                                  (T.con2 T.mkNoSrcPos p
                                                    T.Tuple2 T.aTuple2 fl ft))
                                                f_y
                                            v0v0v0v0v1 _ p =
                                              T.projection T.mkNoSrcPos p f_y in
                                            (v0v0v0v0v1)) f_x))
                                    (T.uwrapForward p (hreadl fs p))) f_y
                              v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y
                              in (v0v0v0v0v1)) f_x))
                      (T.uwrapForward p (hlex fr p)))
                    (T.fromExpList T.mkNoSrcPos p []))) p)))
  

instance Show a => Show ((T.List a))
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun1 a1985v5v1985v31showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp p = gshowList T.mkNoSrcPos p
    
  

instance Read a => Read ((T.List a))
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a1989v5v1989v31readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p = greadList T.mkNoSrcPos p
    
  

instance (Show a,Show b) => Show ((T.Tuple2 a b))
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a1995v5v1996v61showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp (T.R (T.Tuple2 fx fy) _) p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
        (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '('))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fx)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
              (T.conChar T.mkNoSrcPos p ','))
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fy)
              (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
                (T.conChar T.mkNoSrcPos p ')')))))
    hshowsPrec _ _ p = T.fatal p
    
  

instance (Read a,Read b) => Read ((T.Tuple2 a b))
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a2000v5v2001v30readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p
        (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
          (T.ufun1 T.mkLambda T.mkNoSrcPos p
            (\ fr p ->
              T.uap1 T.mkNoSrcPos p
                (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                  (T.ufun2 T.mkLambda T.mkNoSrcPos p
                    (\ f_x f_y p ->
                      T.uccase T.mkNoSrcPos p
                        (let
                          v0v0v0v0v1
                            (T.R
                              (T.Tuple2
                                (T.R (T.Cons (T.R '(' _) (T.R T.List _)) _) fs)
                              _) p =
                            T.uap1 T.mkNoSrcPos p
                              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                  (\ f_x f_y p ->
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v0v0v0v0v1 (T.R (T.Tuple2 fx ft) _) p =
                                          T.uap1 T.mkNoSrcPos p
                                            (T.uap2 T.mkNoSrcPos p
                                              (g_foldr T.mkNoSrcPos p)
                                              (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                                (\ f_x f_y p ->
                                                  T.uccase T.mkNoSrcPos p
                                                    (let
                                                      v0v0v0v0v1
                                                        (T.R
                                                          (T.Tuple2
                                                            (T.R
                                                              (T.Cons
                                                                (T.R ',' _)
                                                                (T.R T.List _))
                                                              _) fu) _) p =
                                                        T.uap1 T.mkNoSrcPos p
                                                          (T.uap2 T.mkNoSrcPos p
                                                            (g_foldr
                                                              T.mkNoSrcPos p)
                                                            (T.ufun2 T.mkLambda
                                                              T.mkNoSrcPos p
                                                              (\ f_x f_y p ->
                                                                T.uccase
                                                                  T.mkNoSrcPos p
                                                                  (let
                                                                    v0v0v0v0v1
                                                                      (T.R
                                                                        (T.Tuple2
                                                                          fy fv)
                                                                        _) p =
                                                                      T.uap1
                                                                        T.mkNoSrcPos
                                                                        p
                                                                        (T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (g_foldr
                                                                            T.mkNoSrcPos
                                                                            p)
                                                                          (T.ufun2
                                                                            T.mkLambda
                                                                            T.mkNoSrcPos
                                                                            p
                                                                            (\ f_x
                                                                              f_y
                                                                              p ->
                                                                              T.uccase
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (let
                                                                                  v0v0v0v0v1
                                                                                    (T.R
                                                                                      (T.Tuple2
                                                                                        (T.R
                                                                                          (T.Cons
                                                                                            (T.R
                                                                                              ')'
                                                                                              _)
                                                                                            (T.R
                                                                                              T.List
                                                                                              _))
                                                                                          _)
                                                                                        fw)
                                                                                      _)
                                                                                    p =
                                                                                    T.uap1
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      (T.pa1
                                                                                        T.Cons
                                                                                        T.cn1
                                                                                        T.mkNoSrcPos
                                                                                        p
                                                                                        T.aCons
                                                                                        (T.con2
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          T.Tuple2
                                                                                          T.aTuple2
                                                                                          (T.con2
                                                                                            T.mkNoSrcPos
                                                                                            p
                                                                                            T.Tuple2
                                                                                            T.aTuple2
                                                                                            fx
                                                                                            fy)
                                                                                          fw))
                                                                                      f_y
                                                                                  v0v0v0v0v1
                                                                                    _
                                                                                    p =
                                                                                    T.projection
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      f_y
                                                                                  in
                                                                                  (v0v0v0v0v1))
                                                                                f_x))
                                                                          (T.uwrapForward
                                                                            p
                                                                            (hlex
                                                                              fv
                                                                              p)))
                                                                        f_y
                                                                    v0v0v0v0v1 _
                                                                      p =
                                                                      T.projection
                                                                        T.mkNoSrcPos
                                                                        p f_y in
                                                                    (v0v0v0v0v1))
                                                                  f_x))
                                                            (T.uap1 T.mkNoSrcPos
                                                              p
                                                              (greads
                                                                T.mkNoSrcPos p)
                                                              fu)) f_y
                                                      v0v0v0v0v1 _ p =
                                                        T.projection
                                                          T.mkNoSrcPos p f_y in
                                                      (v0v0v0v0v1)) f_x))
                                              (T.uwrapForward p (hlex ft p)))
                                            f_y
                                        v0v0v0v0v1 _ p =
                                          T.projection T.mkNoSrcPos p f_y in
                                        (v0v0v0v0v1)) f_x))
                                (T.uap1 T.mkNoSrcPos p (greads T.mkNoSrcPos p)
                                  fs)) f_y
                          v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                          (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr p)))
                (T.fromExpList T.mkNoSrcPos p []))) p)
    
  

instance (Read a,Read b,Read c) => Read ((T.Tuple3 a b c))
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a2009v5v2010v30readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p
        (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
          (T.ufun1 T.mkLambda T.mkNoSrcPos p
            (\ fr0 p ->
              T.uap1 T.mkNoSrcPos p
                (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                  (T.ufun2 T.mkLambda T.mkNoSrcPos p
                    (\ f_x f_y p ->
                      T.uccase T.mkNoSrcPos p
                        (let
                          v0v0v0v0v1
                            (T.R
                              (T.Tuple2
                                (T.R (T.Cons (T.R '(' _) (T.R T.List _)) _) fs1)
                              _) p =
                            T.uap1 T.mkNoSrcPos p
                              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                  (\ f_x f_y p ->
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v0v0v0v0v1 (T.R (T.Tuple2 fx1 fr1) _)
                                          p =
                                          T.uap1 T.mkNoSrcPos p
                                            (T.uap2 T.mkNoSrcPos p
                                              (g_foldr T.mkNoSrcPos p)
                                              (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                                (\ f_x f_y p ->
                                                  T.uccase T.mkNoSrcPos p
                                                    (let
                                                      v0v0v0v0v1
                                                        (T.R
                                                          (T.Tuple2
                                                            (T.R
                                                              (T.Cons
                                                                (T.R ',' _)
                                                                (T.R T.List _))
                                                              _) fs2) _) p =
                                                        T.uap1 T.mkNoSrcPos p
                                                          (T.uap2 T.mkNoSrcPos p
                                                            (g_foldr
                                                              T.mkNoSrcPos p)
                                                            (T.ufun2 T.mkLambda
                                                              T.mkNoSrcPos p
                                                              (\ f_x f_y p ->
                                                                T.uccase
                                                                  T.mkNoSrcPos p
                                                                  (let
                                                                    v0v0v0v0v1
                                                                      (T.R
                                                                        (T.Tuple2
                                                                          fx2
                                                                          fr2)
                                                                        _) p =
                                                                      T.uap1
                                                                        T.mkNoSrcPos
                                                                        p
                                                                        (T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (g_foldr
                                                                            T.mkNoSrcPos
                                                                            p)
                                                                          (T.ufun2
                                                                            T.mkLambda
                                                                            T.mkNoSrcPos
                                                                            p
                                                                            (\ f_x
                                                                              f_y
                                                                              p ->
                                                                              T.uccase
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (let
                                                                                  v0v0v0v0v1
                                                                                    (T.R
                                                                                      (T.Tuple2
                                                                                        (T.R
                                                                                          (T.Cons
                                                                                            (T.R
                                                                                              ','
                                                                                              _)
                                                                                            (T.R
                                                                                              T.List
                                                                                              _))
                                                                                          _)
                                                                                        fs3)
                                                                                      _)
                                                                                    p =
                                                                                    T.uap1
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      (T.uap2
                                                                                        T.mkNoSrcPos
                                                                                        p
                                                                                        (g_foldr
                                                                                          T.mkNoSrcPos
                                                                                          p)
                                                                                        (T.ufun2
                                                                                          T.mkLambda
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (\ f_x
                                                                                            f_y
                                                                                            p ->
                                                                                            T.uccase
                                                                                              T.mkNoSrcPos
                                                                                              p
                                                                                              (let
                                                                                                v0v0v0v0v1
                                                                                                  (T.R
                                                                                                    (T.Tuple2
                                                                                                      fx3
                                                                                                      fr3)
                                                                                                    _)
                                                                                                  p =
                                                                                                  T.uap1
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    (T.uap2
                                                                                                      T.mkNoSrcPos
                                                                                                      p
                                                                                                      (g_foldr
                                                                                                        T.mkNoSrcPos
                                                                                                        p)
                                                                                                      (T.ufun2
                                                                                                        T.mkLambda
                                                                                                        T.mkNoSrcPos
                                                                                                        p
                                                                                                        (\ f_x
                                                                                                          f_y
                                                                                                          p ->
                                                                                                          T.uccase
                                                                                                            T.mkNoSrcPos
                                                                                                            p
                                                                                                            (let
                                                                                                              v0v0v0v0v1
                                                                                                                (T.R
                                                                                                                  (T.Tuple2
                                                                                                                    (T.R
                                                                                                                      (T.Cons
                                                                                                                        (T.R
                                                                                                                          ')'
                                                                                                                          _)
                                                                                                                        (T.R
                                                                                                                          T.List
                                                                                                                          _))
                                                                                                                      _)
                                                                                                                    fw)
                                                                                                                  _)
                                                                                                                p =
                                                                                                                T.uap1
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  (T.pa1
                                                                                                                    T.Cons
                                                                                                                    T.cn1
                                                                                                                    T.mkNoSrcPos
                                                                                                                    p
                                                                                                                    T.aCons
                                                                                                                    (T.con2
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      T.Tuple2
                                                                                                                      T.aTuple2
                                                                                                                      (T.con3
                                                                                                                        T.mkNoSrcPos
                                                                                                                        p
                                                                                                                        T.Tuple3
                                                                                                                        T.aTuple3
                                                                                                                        fx1
                                                                                                                        fx2
                                                                                                                        fx3)
                                                                                                                      fw))
                                                                                                                  f_y
                                                                                                              v0v0v0v0v1
                                                                                                                _
                                                                                                                p =
                                                                                                                T.projection
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  f_y
                                                                                                              in
                                                                                                              (v0v0v0v0v1))
                                                                                                            f_x))
                                                                                                      (T.uwrapForward
                                                                                                        p
                                                                                                        (hlex
                                                                                                          fr3
                                                                                                          p)))
                                                                                                    f_y
                                                                                                v0v0v0v0v1
                                                                                                  _
                                                                                                  p =
                                                                                                  T.projection
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    f_y
                                                                                                in
                                                                                                (v0v0v0v0v1))
                                                                                              f_x))
                                                                                        (T.uap1
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (greads
                                                                                            T.mkNoSrcPos
                                                                                            p)
                                                                                          fs3))
                                                                                      f_y
                                                                                  v0v0v0v0v1
                                                                                    _
                                                                                    p =
                                                                                    T.projection
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      f_y
                                                                                  in
                                                                                  (v0v0v0v0v1))
                                                                                f_x))
                                                                          (T.uwrapForward
                                                                            p
                                                                            (hlex
                                                                              fr2
                                                                              p)))
                                                                        f_y
                                                                    v0v0v0v0v1 _
                                                                      p =
                                                                      T.projection
                                                                        T.mkNoSrcPos
                                                                        p f_y in
                                                                    (v0v0v0v0v1))
                                                                  f_x))
                                                            (T.uap1 T.mkNoSrcPos
                                                              p
                                                              (greads
                                                                T.mkNoSrcPos p)
                                                              fs2)) f_y
                                                      v0v0v0v0v1 _ p =
                                                        T.projection
                                                          T.mkNoSrcPos p f_y in
                                                      (v0v0v0v0v1)) f_x))
                                              (T.uwrapForward p (hlex fr1 p)))
                                            f_y
                                        v0v0v0v0v1 _ p =
                                          T.projection T.mkNoSrcPos p f_y in
                                        (v0v0v0v0v1)) f_x))
                                (T.uap1 T.mkNoSrcPos p (greads T.mkNoSrcPos p)
                                  fs1)) f_y
                          v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                          (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr0 p)))
                (T.fromExpList T.mkNoSrcPos p []))) p)
    
  

instance (Read a,Read b,Read c,Read d) => Read ((T.Tuple4 a b c d))
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a2020v5v2021v30readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p
        (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
          (T.ufun1 T.mkLambda T.mkNoSrcPos p
            (\ fr0 p ->
              T.uap1 T.mkNoSrcPos p
                (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                  (T.ufun2 T.mkLambda T.mkNoSrcPos p
                    (\ f_x f_y p ->
                      T.uccase T.mkNoSrcPos p
                        (let
                          v0v0v0v0v1
                            (T.R
                              (T.Tuple2
                                (T.R (T.Cons (T.R '(' _) (T.R T.List _)) _) fs1)
                              _) p =
                            T.uap1 T.mkNoSrcPos p
                              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                  (\ f_x f_y p ->
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v0v0v0v0v1 (T.R (T.Tuple2 fx1 fr1) _)
                                          p =
                                          T.uap1 T.mkNoSrcPos p
                                            (T.uap2 T.mkNoSrcPos p
                                              (g_foldr T.mkNoSrcPos p)
                                              (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                                (\ f_x f_y p ->
                                                  T.uccase T.mkNoSrcPos p
                                                    (let
                                                      v0v0v0v0v1
                                                        (T.R
                                                          (T.Tuple2
                                                            (T.R
                                                              (T.Cons
                                                                (T.R ',' _)
                                                                (T.R T.List _))
                                                              _) fs2) _) p =
                                                        T.uap1 T.mkNoSrcPos p
                                                          (T.uap2 T.mkNoSrcPos p
                                                            (g_foldr
                                                              T.mkNoSrcPos p)
                                                            (T.ufun2 T.mkLambda
                                                              T.mkNoSrcPos p
                                                              (\ f_x f_y p ->
                                                                T.uccase
                                                                  T.mkNoSrcPos p
                                                                  (let
                                                                    v0v0v0v0v1
                                                                      (T.R
                                                                        (T.Tuple2
                                                                          fx2
                                                                          fr2)
                                                                        _) p =
                                                                      T.uap1
                                                                        T.mkNoSrcPos
                                                                        p
                                                                        (T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (g_foldr
                                                                            T.mkNoSrcPos
                                                                            p)
                                                                          (T.ufun2
                                                                            T.mkLambda
                                                                            T.mkNoSrcPos
                                                                            p
                                                                            (\ f_x
                                                                              f_y
                                                                              p ->
                                                                              T.uccase
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (let
                                                                                  v0v0v0v0v1
                                                                                    (T.R
                                                                                      (T.Tuple2
                                                                                        (T.R
                                                                                          (T.Cons
                                                                                            (T.R
                                                                                              ','
                                                                                              _)
                                                                                            (T.R
                                                                                              T.List
                                                                                              _))
                                                                                          _)
                                                                                        fs3)
                                                                                      _)
                                                                                    p =
                                                                                    T.uap1
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      (T.uap2
                                                                                        T.mkNoSrcPos
                                                                                        p
                                                                                        (g_foldr
                                                                                          T.mkNoSrcPos
                                                                                          p)
                                                                                        (T.ufun2
                                                                                          T.mkLambda
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (\ f_x
                                                                                            f_y
                                                                                            p ->
                                                                                            T.uccase
                                                                                              T.mkNoSrcPos
                                                                                              p
                                                                                              (let
                                                                                                v0v0v0v0v1
                                                                                                  (T.R
                                                                                                    (T.Tuple2
                                                                                                      fx3
                                                                                                      fr3)
                                                                                                    _)
                                                                                                  p =
                                                                                                  T.uap1
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    (T.uap2
                                                                                                      T.mkNoSrcPos
                                                                                                      p
                                                                                                      (g_foldr
                                                                                                        T.mkNoSrcPos
                                                                                                        p)
                                                                                                      (T.ufun2
                                                                                                        T.mkLambda
                                                                                                        T.mkNoSrcPos
                                                                                                        p
                                                                                                        (\ f_x
                                                                                                          f_y
                                                                                                          p ->
                                                                                                          T.uccase
                                                                                                            T.mkNoSrcPos
                                                                                                            p
                                                                                                            (let
                                                                                                              v0v0v0v0v1
                                                                                                                (T.R
                                                                                                                  (T.Tuple2
                                                                                                                    (T.R
                                                                                                                      (T.Cons
                                                                                                                        (T.R
                                                                                                                          ','
                                                                                                                          _)
                                                                                                                        (T.R
                                                                                                                          T.List
                                                                                                                          _))
                                                                                                                      _)
                                                                                                                    fs4)
                                                                                                                  _)
                                                                                                                p =
                                                                                                                T.uap1
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  (T.uap2
                                                                                                                    T.mkNoSrcPos
                                                                                                                    p
                                                                                                                    (g_foldr
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p)
                                                                                                                    (T.ufun2
                                                                                                                      T.mkLambda
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (\ f_x
                                                                                                                        f_y
                                                                                                                        p ->
                                                                                                                        T.uccase
                                                                                                                          T.mkNoSrcPos
                                                                                                                          p
                                                                                                                          (let
                                                                                                                            v0v0v0v0v1
                                                                                                                              (T.R
                                                                                                                                (T.Tuple2
                                                                                                                                  fx4
                                                                                                                                  fr4)
                                                                                                                                _)
                                                                                                                              p =
                                                                                                                              T.uap1
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                (T.uap2
                                                                                                                                  T.mkNoSrcPos
                                                                                                                                  p
                                                                                                                                  (g_foldr
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p)
                                                                                                                                  (T.ufun2
                                                                                                                                    T.mkLambda
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p
                                                                                                                                    (\ f_x
                                                                                                                                      f_y
                                                                                                                                      p ->
                                                                                                                                      T.uccase
                                                                                                                                        T.mkNoSrcPos
                                                                                                                                        p
                                                                                                                                        (let
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            (T.R
                                                                                                                                              (T.Tuple2
                                                                                                                                                (T.R
                                                                                                                                                  (T.Cons
                                                                                                                                                    (T.R
                                                                                                                                                      ')'
                                                                                                                                                      _)
                                                                                                                                                    (T.R
                                                                                                                                                      T.List
                                                                                                                                                      _))
                                                                                                                                                  _)
                                                                                                                                                fw)
                                                                                                                                              _)
                                                                                                                                            p =
                                                                                                                                            T.uap1
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              (T.pa1
                                                                                                                                                T.Cons
                                                                                                                                                T.cn1
                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                p
                                                                                                                                                T.aCons
                                                                                                                                                (T.con2
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  T.Tuple2
                                                                                                                                                  T.aTuple2
                                                                                                                                                  (T.con4
                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                    p
                                                                                                                                                    T.Tuple4
                                                                                                                                                    T.aTuple4
                                                                                                                                                    fx1
                                                                                                                                                    fx2
                                                                                                                                                    fx3
                                                                                                                                                    fx4)
                                                                                                                                                  fw))
                                                                                                                                              f_y
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            _
                                                                                                                                            p =
                                                                                                                                            T.projection
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              f_y
                                                                                                                                          in
                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                        f_x))
                                                                                                                                  (T.uwrapForward
                                                                                                                                    p
                                                                                                                                    (hlex
                                                                                                                                      fr4
                                                                                                                                      p)))
                                                                                                                                f_y
                                                                                                                            v0v0v0v0v1
                                                                                                                              _
                                                                                                                              p =
                                                                                                                              T.projection
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                f_y
                                                                                                                            in
                                                                                                                            (v0v0v0v0v1))
                                                                                                                          f_x))
                                                                                                                    (T.uap1
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (greads
                                                                                                                        T.mkNoSrcPos
                                                                                                                        p)
                                                                                                                      fs4))
                                                                                                                  f_y
                                                                                                              v0v0v0v0v1
                                                                                                                _
                                                                                                                p =
                                                                                                                T.projection
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  f_y
                                                                                                              in
                                                                                                              (v0v0v0v0v1))
                                                                                                            f_x))
                                                                                                      (T.uwrapForward
                                                                                                        p
                                                                                                        (hlex
                                                                                                          fr3
                                                                                                          p)))
                                                                                                    f_y
                                                                                                v0v0v0v0v1
                                                                                                  _
                                                                                                  p =
                                                                                                  T.projection
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    f_y
                                                                                                in
                                                                                                (v0v0v0v0v1))
                                                                                              f_x))
                                                                                        (T.uap1
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (greads
                                                                                            T.mkNoSrcPos
                                                                                            p)
                                                                                          fs3))
                                                                                      f_y
                                                                                  v0v0v0v0v1
                                                                                    _
                                                                                    p =
                                                                                    T.projection
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      f_y
                                                                                  in
                                                                                  (v0v0v0v0v1))
                                                                                f_x))
                                                                          (T.uwrapForward
                                                                            p
                                                                            (hlex
                                                                              fr2
                                                                              p)))
                                                                        f_y
                                                                    v0v0v0v0v1 _
                                                                      p =
                                                                      T.projection
                                                                        T.mkNoSrcPos
                                                                        p f_y in
                                                                    (v0v0v0v0v1))
                                                                  f_x))
                                                            (T.uap1 T.mkNoSrcPos
                                                              p
                                                              (greads
                                                                T.mkNoSrcPos p)
                                                              fs2)) f_y
                                                      v0v0v0v0v1 _ p =
                                                        T.projection
                                                          T.mkNoSrcPos p f_y in
                                                      (v0v0v0v0v1)) f_x))
                                              (T.uwrapForward p (hlex fr1 p)))
                                            f_y
                                        v0v0v0v0v1 _ p =
                                          T.projection T.mkNoSrcPos p f_y in
                                        (v0v0v0v0v1)) f_x))
                                (T.uap1 T.mkNoSrcPos p (greads T.mkNoSrcPos p)
                                  fs1)) f_y
                          v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                          (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr0 p)))
                (T.fromExpList T.mkNoSrcPos p []))) p)
    
  

instance (Read a,Read b,Read c,Read d,Read e) => Read ((T.Tuple5 a b c d e))
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a2033v5v2034v30readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p
        (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
          (T.ufun1 T.mkLambda T.mkNoSrcPos p
            (\ fr0 p ->
              T.uap1 T.mkNoSrcPos p
                (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                  (T.ufun2 T.mkLambda T.mkNoSrcPos p
                    (\ f_x f_y p ->
                      T.uccase T.mkNoSrcPos p
                        (let
                          v0v0v0v0v1
                            (T.R
                              (T.Tuple2
                                (T.R (T.Cons (T.R '(' _) (T.R T.List _)) _) fs1)
                              _) p =
                            T.uap1 T.mkNoSrcPos p
                              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                  (\ f_x f_y p ->
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v0v0v0v0v1 (T.R (T.Tuple2 fx1 fr1) _)
                                          p =
                                          T.uap1 T.mkNoSrcPos p
                                            (T.uap2 T.mkNoSrcPos p
                                              (g_foldr T.mkNoSrcPos p)
                                              (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                                (\ f_x f_y p ->
                                                  T.uccase T.mkNoSrcPos p
                                                    (let
                                                      v0v0v0v0v1
                                                        (T.R
                                                          (T.Tuple2
                                                            (T.R
                                                              (T.Cons
                                                                (T.R ',' _)
                                                                (T.R T.List _))
                                                              _) fs2) _) p =
                                                        T.uap1 T.mkNoSrcPos p
                                                          (T.uap2 T.mkNoSrcPos p
                                                            (g_foldr
                                                              T.mkNoSrcPos p)
                                                            (T.ufun2 T.mkLambda
                                                              T.mkNoSrcPos p
                                                              (\ f_x f_y p ->
                                                                T.uccase
                                                                  T.mkNoSrcPos p
                                                                  (let
                                                                    v0v0v0v0v1
                                                                      (T.R
                                                                        (T.Tuple2
                                                                          fx2
                                                                          fr2)
                                                                        _) p =
                                                                      T.uap1
                                                                        T.mkNoSrcPos
                                                                        p
                                                                        (T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (g_foldr
                                                                            T.mkNoSrcPos
                                                                            p)
                                                                          (T.ufun2
                                                                            T.mkLambda
                                                                            T.mkNoSrcPos
                                                                            p
                                                                            (\ f_x
                                                                              f_y
                                                                              p ->
                                                                              T.uccase
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (let
                                                                                  v0v0v0v0v1
                                                                                    (T.R
                                                                                      (T.Tuple2
                                                                                        (T.R
                                                                                          (T.Cons
                                                                                            (T.R
                                                                                              ','
                                                                                              _)
                                                                                            (T.R
                                                                                              T.List
                                                                                              _))
                                                                                          _)
                                                                                        fs3)
                                                                                      _)
                                                                                    p =
                                                                                    T.uap1
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      (T.uap2
                                                                                        T.mkNoSrcPos
                                                                                        p
                                                                                        (g_foldr
                                                                                          T.mkNoSrcPos
                                                                                          p)
                                                                                        (T.ufun2
                                                                                          T.mkLambda
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (\ f_x
                                                                                            f_y
                                                                                            p ->
                                                                                            T.uccase
                                                                                              T.mkNoSrcPos
                                                                                              p
                                                                                              (let
                                                                                                v0v0v0v0v1
                                                                                                  (T.R
                                                                                                    (T.Tuple2
                                                                                                      fx3
                                                                                                      fr3)
                                                                                                    _)
                                                                                                  p =
                                                                                                  T.uap1
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    (T.uap2
                                                                                                      T.mkNoSrcPos
                                                                                                      p
                                                                                                      (g_foldr
                                                                                                        T.mkNoSrcPos
                                                                                                        p)
                                                                                                      (T.ufun2
                                                                                                        T.mkLambda
                                                                                                        T.mkNoSrcPos
                                                                                                        p
                                                                                                        (\ f_x
                                                                                                          f_y
                                                                                                          p ->
                                                                                                          T.uccase
                                                                                                            T.mkNoSrcPos
                                                                                                            p
                                                                                                            (let
                                                                                                              v0v0v0v0v1
                                                                                                                (T.R
                                                                                                                  (T.Tuple2
                                                                                                                    (T.R
                                                                                                                      (T.Cons
                                                                                                                        (T.R
                                                                                                                          ','
                                                                                                                          _)
                                                                                                                        (T.R
                                                                                                                          T.List
                                                                                                                          _))
                                                                                                                      _)
                                                                                                                    fs4)
                                                                                                                  _)
                                                                                                                p =
                                                                                                                T.uap1
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  (T.uap2
                                                                                                                    T.mkNoSrcPos
                                                                                                                    p
                                                                                                                    (g_foldr
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p)
                                                                                                                    (T.ufun2
                                                                                                                      T.mkLambda
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (\ f_x
                                                                                                                        f_y
                                                                                                                        p ->
                                                                                                                        T.uccase
                                                                                                                          T.mkNoSrcPos
                                                                                                                          p
                                                                                                                          (let
                                                                                                                            v0v0v0v0v1
                                                                                                                              (T.R
                                                                                                                                (T.Tuple2
                                                                                                                                  fx4
                                                                                                                                  fr4)
                                                                                                                                _)
                                                                                                                              p =
                                                                                                                              T.uap1
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                (T.uap2
                                                                                                                                  T.mkNoSrcPos
                                                                                                                                  p
                                                                                                                                  (g_foldr
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p)
                                                                                                                                  (T.ufun2
                                                                                                                                    T.mkLambda
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p
                                                                                                                                    (\ f_x
                                                                                                                                      f_y
                                                                                                                                      p ->
                                                                                                                                      T.uccase
                                                                                                                                        T.mkNoSrcPos
                                                                                                                                        p
                                                                                                                                        (let
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            (T.R
                                                                                                                                              (T.Tuple2
                                                                                                                                                (T.R
                                                                                                                                                  (T.Cons
                                                                                                                                                    (T.R
                                                                                                                                                      ','
                                                                                                                                                      _)
                                                                                                                                                    (T.R
                                                                                                                                                      T.List
                                                                                                                                                      _))
                                                                                                                                                  _)
                                                                                                                                                fs5)
                                                                                                                                              _)
                                                                                                                                            p =
                                                                                                                                            T.uap1
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              (T.uap2
                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                p
                                                                                                                                                (g_foldr
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p)
                                                                                                                                                (T.ufun2
                                                                                                                                                  T.mkLambda
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (\ f_x
                                                                                                                                                    f_y
                                                                                                                                                    p ->
                                                                                                                                                    T.uccase
                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                      p
                                                                                                                                                      (let
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          (T.R
                                                                                                                                                            (T.Tuple2
                                                                                                                                                              fx5
                                                                                                                                                              fr5)
                                                                                                                                                            _)
                                                                                                                                                          p =
                                                                                                                                                          T.uap1
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            (T.uap2
                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                              p
                                                                                                                                                              (g_foldr
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p)
                                                                                                                                                              (T.ufun2
                                                                                                                                                                T.mkLambda
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p
                                                                                                                                                                (\ f_x
                                                                                                                                                                  f_y
                                                                                                                                                                  p ->
                                                                                                                                                                  T.uccase
                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                    p
                                                                                                                                                                    (let
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        (T.R
                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                            (T.R
                                                                                                                                                                              (T.Cons
                                                                                                                                                                                (T.R
                                                                                                                                                                                  ')'
                                                                                                                                                                                  _)
                                                                                                                                                                                (T.R
                                                                                                                                                                                  T.List
                                                                                                                                                                                  _))
                                                                                                                                                                              _)
                                                                                                                                                                            fw)
                                                                                                                                                                          _)
                                                                                                                                                                        p =
                                                                                                                                                                        T.uap1
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          (T.pa1
                                                                                                                                                                            T.Cons
                                                                                                                                                                            T.cn1
                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                            p
                                                                                                                                                                            T.aCons
                                                                                                                                                                            (T.con2
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              T.Tuple2
                                                                                                                                                                              T.aTuple2
                                                                                                                                                                              (T.con5
                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                p
                                                                                                                                                                                T.Tuple5
                                                                                                                                                                                T.aTuple5
                                                                                                                                                                                fx1
                                                                                                                                                                                fx2
                                                                                                                                                                                fx3
                                                                                                                                                                                fx4
                                                                                                                                                                                fx5)
                                                                                                                                                                              fw))
                                                                                                                                                                          f_y
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        _
                                                                                                                                                                        p =
                                                                                                                                                                        T.projection
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          f_y
                                                                                                                                                                      in
                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                    f_x))
                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                p
                                                                                                                                                                (hlex
                                                                                                                                                                  fr5
                                                                                                                                                                  p)))
                                                                                                                                                            f_y
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          _
                                                                                                                                                          p =
                                                                                                                                                          T.projection
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            f_y
                                                                                                                                                        in
                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                      f_x))
                                                                                                                                                (T.uap1
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (greads
                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                    p)
                                                                                                                                                  fs5))
                                                                                                                                              f_y
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            _
                                                                                                                                            p =
                                                                                                                                            T.projection
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              f_y
                                                                                                                                          in
                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                        f_x))
                                                                                                                                  (T.uwrapForward
                                                                                                                                    p
                                                                                                                                    (hlex
                                                                                                                                      fr4
                                                                                                                                      p)))
                                                                                                                                f_y
                                                                                                                            v0v0v0v0v1
                                                                                                                              _
                                                                                                                              p =
                                                                                                                              T.projection
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                f_y
                                                                                                                            in
                                                                                                                            (v0v0v0v0v1))
                                                                                                                          f_x))
                                                                                                                    (T.uap1
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (greads
                                                                                                                        T.mkNoSrcPos
                                                                                                                        p)
                                                                                                                      fs4))
                                                                                                                  f_y
                                                                                                              v0v0v0v0v1
                                                                                                                _
                                                                                                                p =
                                                                                                                T.projection
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  f_y
                                                                                                              in
                                                                                                              (v0v0v0v0v1))
                                                                                                            f_x))
                                                                                                      (T.uwrapForward
                                                                                                        p
                                                                                                        (hlex
                                                                                                          fr3
                                                                                                          p)))
                                                                                                    f_y
                                                                                                v0v0v0v0v1
                                                                                                  _
                                                                                                  p =
                                                                                                  T.projection
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    f_y
                                                                                                in
                                                                                                (v0v0v0v0v1))
                                                                                              f_x))
                                                                                        (T.uap1
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (greads
                                                                                            T.mkNoSrcPos
                                                                                            p)
                                                                                          fs3))
                                                                                      f_y
                                                                                  v0v0v0v0v1
                                                                                    _
                                                                                    p =
                                                                                    T.projection
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      f_y
                                                                                  in
                                                                                  (v0v0v0v0v1))
                                                                                f_x))
                                                                          (T.uwrapForward
                                                                            p
                                                                            (hlex
                                                                              fr2
                                                                              p)))
                                                                        f_y
                                                                    v0v0v0v0v1 _
                                                                      p =
                                                                      T.projection
                                                                        T.mkNoSrcPos
                                                                        p f_y in
                                                                    (v0v0v0v0v1))
                                                                  f_x))
                                                            (T.uap1 T.mkNoSrcPos
                                                              p
                                                              (greads
                                                                T.mkNoSrcPos p)
                                                              fs2)) f_y
                                                      v0v0v0v0v1 _ p =
                                                        T.projection
                                                          T.mkNoSrcPos p f_y in
                                                      (v0v0v0v0v1)) f_x))
                                              (T.uwrapForward p (hlex fr1 p)))
                                            f_y
                                        v0v0v0v0v1 _ p =
                                          T.projection T.mkNoSrcPos p f_y in
                                        (v0v0v0v0v1)) f_x))
                                (T.uap1 T.mkNoSrcPos p (greads T.mkNoSrcPos p)
                                  fs1)) f_y
                          v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                          (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr0 p)))
                (T.fromExpList T.mkNoSrcPos p []))) p)
    
  

instance
  (Read a,Read b,Read c,Read d,Read e,Read f) => Read ((T.Tuple6 a b c d e f))
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a2049v5v2050v30readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p
        (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
          (T.ufun1 T.mkLambda T.mkNoSrcPos p
            (\ fr0 p ->
              T.uap1 T.mkNoSrcPos p
                (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                  (T.ufun2 T.mkLambda T.mkNoSrcPos p
                    (\ f_x f_y p ->
                      T.uccase T.mkNoSrcPos p
                        (let
                          v0v0v0v0v1
                            (T.R
                              (T.Tuple2
                                (T.R (T.Cons (T.R '(' _) (T.R T.List _)) _) fs1)
                              _) p =
                            T.uap1 T.mkNoSrcPos p
                              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                  (\ f_x f_y p ->
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v0v0v0v0v1 (T.R (T.Tuple2 fx1 fr1) _)
                                          p =
                                          T.uap1 T.mkNoSrcPos p
                                            (T.uap2 T.mkNoSrcPos p
                                              (g_foldr T.mkNoSrcPos p)
                                              (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                                (\ f_x f_y p ->
                                                  T.uccase T.mkNoSrcPos p
                                                    (let
                                                      v0v0v0v0v1
                                                        (T.R
                                                          (T.Tuple2
                                                            (T.R
                                                              (T.Cons
                                                                (T.R ',' _)
                                                                (T.R T.List _))
                                                              _) fs2) _) p =
                                                        T.uap1 T.mkNoSrcPos p
                                                          (T.uap2 T.mkNoSrcPos p
                                                            (g_foldr
                                                              T.mkNoSrcPos p)
                                                            (T.ufun2 T.mkLambda
                                                              T.mkNoSrcPos p
                                                              (\ f_x f_y p ->
                                                                T.uccase
                                                                  T.mkNoSrcPos p
                                                                  (let
                                                                    v0v0v0v0v1
                                                                      (T.R
                                                                        (T.Tuple2
                                                                          fx2
                                                                          fr2)
                                                                        _) p =
                                                                      T.uap1
                                                                        T.mkNoSrcPos
                                                                        p
                                                                        (T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (g_foldr
                                                                            T.mkNoSrcPos
                                                                            p)
                                                                          (T.ufun2
                                                                            T.mkLambda
                                                                            T.mkNoSrcPos
                                                                            p
                                                                            (\ f_x
                                                                              f_y
                                                                              p ->
                                                                              T.uccase
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (let
                                                                                  v0v0v0v0v1
                                                                                    (T.R
                                                                                      (T.Tuple2
                                                                                        (T.R
                                                                                          (T.Cons
                                                                                            (T.R
                                                                                              ','
                                                                                              _)
                                                                                            (T.R
                                                                                              T.List
                                                                                              _))
                                                                                          _)
                                                                                        fs3)
                                                                                      _)
                                                                                    p =
                                                                                    T.uap1
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      (T.uap2
                                                                                        T.mkNoSrcPos
                                                                                        p
                                                                                        (g_foldr
                                                                                          T.mkNoSrcPos
                                                                                          p)
                                                                                        (T.ufun2
                                                                                          T.mkLambda
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (\ f_x
                                                                                            f_y
                                                                                            p ->
                                                                                            T.uccase
                                                                                              T.mkNoSrcPos
                                                                                              p
                                                                                              (let
                                                                                                v0v0v0v0v1
                                                                                                  (T.R
                                                                                                    (T.Tuple2
                                                                                                      fx3
                                                                                                      fr3)
                                                                                                    _)
                                                                                                  p =
                                                                                                  T.uap1
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    (T.uap2
                                                                                                      T.mkNoSrcPos
                                                                                                      p
                                                                                                      (g_foldr
                                                                                                        T.mkNoSrcPos
                                                                                                        p)
                                                                                                      (T.ufun2
                                                                                                        T.mkLambda
                                                                                                        T.mkNoSrcPos
                                                                                                        p
                                                                                                        (\ f_x
                                                                                                          f_y
                                                                                                          p ->
                                                                                                          T.uccase
                                                                                                            T.mkNoSrcPos
                                                                                                            p
                                                                                                            (let
                                                                                                              v0v0v0v0v1
                                                                                                                (T.R
                                                                                                                  (T.Tuple2
                                                                                                                    (T.R
                                                                                                                      (T.Cons
                                                                                                                        (T.R
                                                                                                                          ','
                                                                                                                          _)
                                                                                                                        (T.R
                                                                                                                          T.List
                                                                                                                          _))
                                                                                                                      _)
                                                                                                                    fs4)
                                                                                                                  _)
                                                                                                                p =
                                                                                                                T.uap1
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  (T.uap2
                                                                                                                    T.mkNoSrcPos
                                                                                                                    p
                                                                                                                    (g_foldr
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p)
                                                                                                                    (T.ufun2
                                                                                                                      T.mkLambda
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (\ f_x
                                                                                                                        f_y
                                                                                                                        p ->
                                                                                                                        T.uccase
                                                                                                                          T.mkNoSrcPos
                                                                                                                          p
                                                                                                                          (let
                                                                                                                            v0v0v0v0v1
                                                                                                                              (T.R
                                                                                                                                (T.Tuple2
                                                                                                                                  fx4
                                                                                                                                  fr4)
                                                                                                                                _)
                                                                                                                              p =
                                                                                                                              T.uap1
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                (T.uap2
                                                                                                                                  T.mkNoSrcPos
                                                                                                                                  p
                                                                                                                                  (g_foldr
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p)
                                                                                                                                  (T.ufun2
                                                                                                                                    T.mkLambda
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p
                                                                                                                                    (\ f_x
                                                                                                                                      f_y
                                                                                                                                      p ->
                                                                                                                                      T.uccase
                                                                                                                                        T.mkNoSrcPos
                                                                                                                                        p
                                                                                                                                        (let
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            (T.R
                                                                                                                                              (T.Tuple2
                                                                                                                                                (T.R
                                                                                                                                                  (T.Cons
                                                                                                                                                    (T.R
                                                                                                                                                      ','
                                                                                                                                                      _)
                                                                                                                                                    (T.R
                                                                                                                                                      T.List
                                                                                                                                                      _))
                                                                                                                                                  _)
                                                                                                                                                fs5)
                                                                                                                                              _)
                                                                                                                                            p =
                                                                                                                                            T.uap1
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              (T.uap2
                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                p
                                                                                                                                                (g_foldr
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p)
                                                                                                                                                (T.ufun2
                                                                                                                                                  T.mkLambda
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (\ f_x
                                                                                                                                                    f_y
                                                                                                                                                    p ->
                                                                                                                                                    T.uccase
                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                      p
                                                                                                                                                      (let
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          (T.R
                                                                                                                                                            (T.Tuple2
                                                                                                                                                              fx5
                                                                                                                                                              fr5)
                                                                                                                                                            _)
                                                                                                                                                          p =
                                                                                                                                                          T.uap1
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            (T.uap2
                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                              p
                                                                                                                                                              (g_foldr
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p)
                                                                                                                                                              (T.ufun2
                                                                                                                                                                T.mkLambda
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p
                                                                                                                                                                (\ f_x
                                                                                                                                                                  f_y
                                                                                                                                                                  p ->
                                                                                                                                                                  T.uccase
                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                    p
                                                                                                                                                                    (let
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        (T.R
                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                            (T.R
                                                                                                                                                                              (T.Cons
                                                                                                                                                                                (T.R
                                                                                                                                                                                  ','
                                                                                                                                                                                  _)
                                                                                                                                                                                (T.R
                                                                                                                                                                                  T.List
                                                                                                                                                                                  _))
                                                                                                                                                                              _)
                                                                                                                                                                            fs6)
                                                                                                                                                                          _)
                                                                                                                                                                        p =
                                                                                                                                                                        T.uap1
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          (T.uap2
                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                            p
                                                                                                                                                                            (g_foldr
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p)
                                                                                                                                                                            (T.ufun2
                                                                                                                                                                              T.mkLambda
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (\ f_x
                                                                                                                                                                                f_y
                                                                                                                                                                                p ->
                                                                                                                                                                                T.uccase
                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                  p
                                                                                                                                                                                  (let
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      (T.R
                                                                                                                                                                                        (T.Tuple2
                                                                                                                                                                                          fx6
                                                                                                                                                                                          fr6)
                                                                                                                                                                                        _)
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.uap1
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        (T.uap2
                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                          p
                                                                                                                                                                                          (g_foldr
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p)
                                                                                                                                                                                          (T.ufun2
                                                                                                                                                                                            T.mkLambda
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p
                                                                                                                                                                                            (\ f_x
                                                                                                                                                                                              f_y
                                                                                                                                                                                              p ->
                                                                                                                                                                                              T.uccase
                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                p
                                                                                                                                                                                                (let
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                      (T.Tuple2
                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                          (T.Cons
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              ')'
                                                                                                                                                                                                              _)
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              T.List
                                                                                                                                                                                                              _))
                                                                                                                                                                                                          _)
                                                                                                                                                                                                        fw)
                                                                                                                                                                                                      _)
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.uap1
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      (T.pa1
                                                                                                                                                                                                        T.Cons
                                                                                                                                                                                                        T.cn1
                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                        p
                                                                                                                                                                                                        T.aCons
                                                                                                                                                                                                        (T.con2
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p
                                                                                                                                                                                                          T.Tuple2
                                                                                                                                                                                                          T.aTuple2
                                                                                                                                                                                                          (T.con6
                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                            p
                                                                                                                                                                                                            T.Tuple6
                                                                                                                                                                                                            T.aTuple6
                                                                                                                                                                                                            fx1
                                                                                                                                                                                                            fx2
                                                                                                                                                                                                            fx3
                                                                                                                                                                                                            fx4
                                                                                                                                                                                                            fx5
                                                                                                                                                                                                            fx6)
                                                                                                                                                                                                          fw))
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    _
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.projection
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  in
                                                                                                                                                                                                  (v0v0v0v0v1))
                                                                                                                                                                                                f_x))
                                                                                                                                                                                          (T.uwrapForward
                                                                                                                                                                                            p
                                                                                                                                                                                            (hlex
                                                                                                                                                                                              fr6
                                                                                                                                                                                              p)))
                                                                                                                                                                                        f_y
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      _
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.projection
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        f_y
                                                                                                                                                                                    in
                                                                                                                                                                                    (v0v0v0v0v1))
                                                                                                                                                                                  f_x))
                                                                                                                                                                            (T.uap1
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (greads
                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                p)
                                                                                                                                                                              fs6))
                                                                                                                                                                          f_y
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        _
                                                                                                                                                                        p =
                                                                                                                                                                        T.projection
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          f_y
                                                                                                                                                                      in
                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                    f_x))
                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                p
                                                                                                                                                                (hlex
                                                                                                                                                                  fr5
                                                                                                                                                                  p)))
                                                                                                                                                            f_y
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          _
                                                                                                                                                          p =
                                                                                                                                                          T.projection
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            f_y
                                                                                                                                                        in
                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                      f_x))
                                                                                                                                                (T.uap1
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (greads
                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                    p)
                                                                                                                                                  fs5))
                                                                                                                                              f_y
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            _
                                                                                                                                            p =
                                                                                                                                            T.projection
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              f_y
                                                                                                                                          in
                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                        f_x))
                                                                                                                                  (T.uwrapForward
                                                                                                                                    p
                                                                                                                                    (hlex
                                                                                                                                      fr4
                                                                                                                                      p)))
                                                                                                                                f_y
                                                                                                                            v0v0v0v0v1
                                                                                                                              _
                                                                                                                              p =
                                                                                                                              T.projection
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                f_y
                                                                                                                            in
                                                                                                                            (v0v0v0v0v1))
                                                                                                                          f_x))
                                                                                                                    (T.uap1
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (greads
                                                                                                                        T.mkNoSrcPos
                                                                                                                        p)
                                                                                                                      fs4))
                                                                                                                  f_y
                                                                                                              v0v0v0v0v1
                                                                                                                _
                                                                                                                p =
                                                                                                                T.projection
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  f_y
                                                                                                              in
                                                                                                              (v0v0v0v0v1))
                                                                                                            f_x))
                                                                                                      (T.uwrapForward
                                                                                                        p
                                                                                                        (hlex
                                                                                                          fr3
                                                                                                          p)))
                                                                                                    f_y
                                                                                                v0v0v0v0v1
                                                                                                  _
                                                                                                  p =
                                                                                                  T.projection
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    f_y
                                                                                                in
                                                                                                (v0v0v0v0v1))
                                                                                              f_x))
                                                                                        (T.uap1
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (greads
                                                                                            T.mkNoSrcPos
                                                                                            p)
                                                                                          fs3))
                                                                                      f_y
                                                                                  v0v0v0v0v1
                                                                                    _
                                                                                    p =
                                                                                    T.projection
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      f_y
                                                                                  in
                                                                                  (v0v0v0v0v1))
                                                                                f_x))
                                                                          (T.uwrapForward
                                                                            p
                                                                            (hlex
                                                                              fr2
                                                                              p)))
                                                                        f_y
                                                                    v0v0v0v0v1 _
                                                                      p =
                                                                      T.projection
                                                                        T.mkNoSrcPos
                                                                        p f_y in
                                                                    (v0v0v0v0v1))
                                                                  f_x))
                                                            (T.uap1 T.mkNoSrcPos
                                                              p
                                                              (greads
                                                                T.mkNoSrcPos p)
                                                              fs2)) f_y
                                                      v0v0v0v0v1 _ p =
                                                        T.projection
                                                          T.mkNoSrcPos p f_y in
                                                      (v0v0v0v0v1)) f_x))
                                              (T.uwrapForward p (hlex fr1 p)))
                                            f_y
                                        v0v0v0v0v1 _ p =
                                          T.projection T.mkNoSrcPos p f_y in
                                        (v0v0v0v0v1)) f_x))
                                (T.uap1 T.mkNoSrcPos p (greads T.mkNoSrcPos p)
                                  fs1)) f_y
                          v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                          (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr0 p)))
                (T.fromExpList T.mkNoSrcPos p []))) p)
    
  

instance
  (Read a,Read b,Read c,Read d,Read e,Read f,Read g) =>
    Read ((T.Tuple7 a b c d e f g))
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a2067v5v2068v30readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p
        (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
          (T.ufun1 T.mkLambda T.mkNoSrcPos p
            (\ fr0 p ->
              T.uap1 T.mkNoSrcPos p
                (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                  (T.ufun2 T.mkLambda T.mkNoSrcPos p
                    (\ f_x f_y p ->
                      T.uccase T.mkNoSrcPos p
                        (let
                          v0v0v0v0v1
                            (T.R
                              (T.Tuple2
                                (T.R (T.Cons (T.R '(' _) (T.R T.List _)) _) fs1)
                              _) p =
                            T.uap1 T.mkNoSrcPos p
                              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                  (\ f_x f_y p ->
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v0v0v0v0v1 (T.R (T.Tuple2 fx1 fr1) _)
                                          p =
                                          T.uap1 T.mkNoSrcPos p
                                            (T.uap2 T.mkNoSrcPos p
                                              (g_foldr T.mkNoSrcPos p)
                                              (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                                (\ f_x f_y p ->
                                                  T.uccase T.mkNoSrcPos p
                                                    (let
                                                      v0v0v0v0v1
                                                        (T.R
                                                          (T.Tuple2
                                                            (T.R
                                                              (T.Cons
                                                                (T.R ',' _)
                                                                (T.R T.List _))
                                                              _) fs2) _) p =
                                                        T.uap1 T.mkNoSrcPos p
                                                          (T.uap2 T.mkNoSrcPos p
                                                            (g_foldr
                                                              T.mkNoSrcPos p)
                                                            (T.ufun2 T.mkLambda
                                                              T.mkNoSrcPos p
                                                              (\ f_x f_y p ->
                                                                T.uccase
                                                                  T.mkNoSrcPos p
                                                                  (let
                                                                    v0v0v0v0v1
                                                                      (T.R
                                                                        (T.Tuple2
                                                                          fx2
                                                                          fr2)
                                                                        _) p =
                                                                      T.uap1
                                                                        T.mkNoSrcPos
                                                                        p
                                                                        (T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (g_foldr
                                                                            T.mkNoSrcPos
                                                                            p)
                                                                          (T.ufun2
                                                                            T.mkLambda
                                                                            T.mkNoSrcPos
                                                                            p
                                                                            (\ f_x
                                                                              f_y
                                                                              p ->
                                                                              T.uccase
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (let
                                                                                  v0v0v0v0v1
                                                                                    (T.R
                                                                                      (T.Tuple2
                                                                                        (T.R
                                                                                          (T.Cons
                                                                                            (T.R
                                                                                              ','
                                                                                              _)
                                                                                            (T.R
                                                                                              T.List
                                                                                              _))
                                                                                          _)
                                                                                        fs3)
                                                                                      _)
                                                                                    p =
                                                                                    T.uap1
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      (T.uap2
                                                                                        T.mkNoSrcPos
                                                                                        p
                                                                                        (g_foldr
                                                                                          T.mkNoSrcPos
                                                                                          p)
                                                                                        (T.ufun2
                                                                                          T.mkLambda
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (\ f_x
                                                                                            f_y
                                                                                            p ->
                                                                                            T.uccase
                                                                                              T.mkNoSrcPos
                                                                                              p
                                                                                              (let
                                                                                                v0v0v0v0v1
                                                                                                  (T.R
                                                                                                    (T.Tuple2
                                                                                                      fx3
                                                                                                      fr3)
                                                                                                    _)
                                                                                                  p =
                                                                                                  T.uap1
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    (T.uap2
                                                                                                      T.mkNoSrcPos
                                                                                                      p
                                                                                                      (g_foldr
                                                                                                        T.mkNoSrcPos
                                                                                                        p)
                                                                                                      (T.ufun2
                                                                                                        T.mkLambda
                                                                                                        T.mkNoSrcPos
                                                                                                        p
                                                                                                        (\ f_x
                                                                                                          f_y
                                                                                                          p ->
                                                                                                          T.uccase
                                                                                                            T.mkNoSrcPos
                                                                                                            p
                                                                                                            (let
                                                                                                              v0v0v0v0v1
                                                                                                                (T.R
                                                                                                                  (T.Tuple2
                                                                                                                    (T.R
                                                                                                                      (T.Cons
                                                                                                                        (T.R
                                                                                                                          ','
                                                                                                                          _)
                                                                                                                        (T.R
                                                                                                                          T.List
                                                                                                                          _))
                                                                                                                      _)
                                                                                                                    fs4)
                                                                                                                  _)
                                                                                                                p =
                                                                                                                T.uap1
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  (T.uap2
                                                                                                                    T.mkNoSrcPos
                                                                                                                    p
                                                                                                                    (g_foldr
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p)
                                                                                                                    (T.ufun2
                                                                                                                      T.mkLambda
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (\ f_x
                                                                                                                        f_y
                                                                                                                        p ->
                                                                                                                        T.uccase
                                                                                                                          T.mkNoSrcPos
                                                                                                                          p
                                                                                                                          (let
                                                                                                                            v0v0v0v0v1
                                                                                                                              (T.R
                                                                                                                                (T.Tuple2
                                                                                                                                  fx4
                                                                                                                                  fr4)
                                                                                                                                _)
                                                                                                                              p =
                                                                                                                              T.uap1
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                (T.uap2
                                                                                                                                  T.mkNoSrcPos
                                                                                                                                  p
                                                                                                                                  (g_foldr
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p)
                                                                                                                                  (T.ufun2
                                                                                                                                    T.mkLambda
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p
                                                                                                                                    (\ f_x
                                                                                                                                      f_y
                                                                                                                                      p ->
                                                                                                                                      T.uccase
                                                                                                                                        T.mkNoSrcPos
                                                                                                                                        p
                                                                                                                                        (let
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            (T.R
                                                                                                                                              (T.Tuple2
                                                                                                                                                (T.R
                                                                                                                                                  (T.Cons
                                                                                                                                                    (T.R
                                                                                                                                                      ','
                                                                                                                                                      _)
                                                                                                                                                    (T.R
                                                                                                                                                      T.List
                                                                                                                                                      _))
                                                                                                                                                  _)
                                                                                                                                                fs5)
                                                                                                                                              _)
                                                                                                                                            p =
                                                                                                                                            T.uap1
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              (T.uap2
                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                p
                                                                                                                                                (g_foldr
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p)
                                                                                                                                                (T.ufun2
                                                                                                                                                  T.mkLambda
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (\ f_x
                                                                                                                                                    f_y
                                                                                                                                                    p ->
                                                                                                                                                    T.uccase
                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                      p
                                                                                                                                                      (let
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          (T.R
                                                                                                                                                            (T.Tuple2
                                                                                                                                                              fx5
                                                                                                                                                              fr5)
                                                                                                                                                            _)
                                                                                                                                                          p =
                                                                                                                                                          T.uap1
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            (T.uap2
                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                              p
                                                                                                                                                              (g_foldr
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p)
                                                                                                                                                              (T.ufun2
                                                                                                                                                                T.mkLambda
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p
                                                                                                                                                                (\ f_x
                                                                                                                                                                  f_y
                                                                                                                                                                  p ->
                                                                                                                                                                  T.uccase
                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                    p
                                                                                                                                                                    (let
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        (T.R
                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                            (T.R
                                                                                                                                                                              (T.Cons
                                                                                                                                                                                (T.R
                                                                                                                                                                                  ','
                                                                                                                                                                                  _)
                                                                                                                                                                                (T.R
                                                                                                                                                                                  T.List
                                                                                                                                                                                  _))
                                                                                                                                                                              _)
                                                                                                                                                                            fs6)
                                                                                                                                                                          _)
                                                                                                                                                                        p =
                                                                                                                                                                        T.uap1
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          (T.uap2
                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                            p
                                                                                                                                                                            (g_foldr
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p)
                                                                                                                                                                            (T.ufun2
                                                                                                                                                                              T.mkLambda
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (\ f_x
                                                                                                                                                                                f_y
                                                                                                                                                                                p ->
                                                                                                                                                                                T.uccase
                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                  p
                                                                                                                                                                                  (let
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      (T.R
                                                                                                                                                                                        (T.Tuple2
                                                                                                                                                                                          fx6
                                                                                                                                                                                          fr6)
                                                                                                                                                                                        _)
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.uap1
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        (T.uap2
                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                          p
                                                                                                                                                                                          (g_foldr
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p)
                                                                                                                                                                                          (T.ufun2
                                                                                                                                                                                            T.mkLambda
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p
                                                                                                                                                                                            (\ f_x
                                                                                                                                                                                              f_y
                                                                                                                                                                                              p ->
                                                                                                                                                                                              T.uccase
                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                p
                                                                                                                                                                                                (let
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                      (T.Tuple2
                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                          (T.Cons
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              ','
                                                                                                                                                                                                              _)
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              T.List
                                                                                                                                                                                                              _))
                                                                                                                                                                                                          _)
                                                                                                                                                                                                        fs7)
                                                                                                                                                                                                      _)
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.uap1
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      (T.uap2
                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                        p
                                                                                                                                                                                                        (g_foldr
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p)
                                                                                                                                                                                                        (T.ufun2
                                                                                                                                                                                                          T.mkLambda
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p
                                                                                                                                                                                                          (\ f_x
                                                                                                                                                                                                            f_y
                                                                                                                                                                                                            p ->
                                                                                                                                                                                                            T.uccase
                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                              p
                                                                                                                                                                                                              (let
                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                  (T.R
                                                                                                                                                                                                                    (T.Tuple2
                                                                                                                                                                                                                      fx7
                                                                                                                                                                                                                      fr7)
                                                                                                                                                                                                                    _)
                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                  T.uap1
                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                    p
                                                                                                                                                                                                                    (T.uap2
                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                      p
                                                                                                                                                                                                                      (g_foldr
                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                      (T.ufun2
                                                                                                                                                                                                                        T.mkLambda
                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                        p
                                                                                                                                                                                                                        (\ f_x
                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                          p ->
                                                                                                                                                                                                                          T.uccase
                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                            p
                                                                                                                                                                                                                            (let
                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                  (T.Tuple2
                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                      (T.Cons
                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                          ')'
                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                          T.List
                                                                                                                                                                                                                                          _))
                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                    fw)
                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                T.uap1
                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                  (T.pa1
                                                                                                                                                                                                                                    T.Cons
                                                                                                                                                                                                                                    T.cn1
                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                    T.aCons
                                                                                                                                                                                                                                    (T.con2
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                      T.Tuple2
                                                                                                                                                                                                                                      T.aTuple2
                                                                                                                                                                                                                                      (T.con7
                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                        T.Tuple7
                                                                                                                                                                                                                                        T.aTuple7
                                                                                                                                                                                                                                        fx1
                                                                                                                                                                                                                                        fx2
                                                                                                                                                                                                                                        fx3
                                                                                                                                                                                                                                        fx4
                                                                                                                                                                                                                                        fx5
                                                                                                                                                                                                                                        fx6
                                                                                                                                                                                                                                        fx7)
                                                                                                                                                                                                                                      fw))
                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                _
                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                T.projection
                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                              in
                                                                                                                                                                                                                              (v0v0v0v0v1))
                                                                                                                                                                                                                            f_x))
                                                                                                                                                                                                                      (T.uwrapForward
                                                                                                                                                                                                                        p
                                                                                                                                                                                                                        (hlex
                                                                                                                                                                                                                          fr7
                                                                                                                                                                                                                          p)))
                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                  _
                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                  T.projection
                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                    p
                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                in
                                                                                                                                                                                                                (v0v0v0v0v1))
                                                                                                                                                                                                              f_x))
                                                                                                                                                                                                        (T.uap1
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p
                                                                                                                                                                                                          (greads
                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                            p)
                                                                                                                                                                                                          fs7))
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    _
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.projection
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  in
                                                                                                                                                                                                  (v0v0v0v0v1))
                                                                                                                                                                                                f_x))
                                                                                                                                                                                          (T.uwrapForward
                                                                                                                                                                                            p
                                                                                                                                                                                            (hlex
                                                                                                                                                                                              fr6
                                                                                                                                                                                              p)))
                                                                                                                                                                                        f_y
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      _
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.projection
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        f_y
                                                                                                                                                                                    in
                                                                                                                                                                                    (v0v0v0v0v1))
                                                                                                                                                                                  f_x))
                                                                                                                                                                            (T.uap1
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (greads
                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                p)
                                                                                                                                                                              fs6))
                                                                                                                                                                          f_y
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        _
                                                                                                                                                                        p =
                                                                                                                                                                        T.projection
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          f_y
                                                                                                                                                                      in
                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                    f_x))
                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                p
                                                                                                                                                                (hlex
                                                                                                                                                                  fr5
                                                                                                                                                                  p)))
                                                                                                                                                            f_y
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          _
                                                                                                                                                          p =
                                                                                                                                                          T.projection
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            f_y
                                                                                                                                                        in
                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                      f_x))
                                                                                                                                                (T.uap1
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (greads
                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                    p)
                                                                                                                                                  fs5))
                                                                                                                                              f_y
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            _
                                                                                                                                            p =
                                                                                                                                            T.projection
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              f_y
                                                                                                                                          in
                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                        f_x))
                                                                                                                                  (T.uwrapForward
                                                                                                                                    p
                                                                                                                                    (hlex
                                                                                                                                      fr4
                                                                                                                                      p)))
                                                                                                                                f_y
                                                                                                                            v0v0v0v0v1
                                                                                                                              _
                                                                                                                              p =
                                                                                                                              T.projection
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                f_y
                                                                                                                            in
                                                                                                                            (v0v0v0v0v1))
                                                                                                                          f_x))
                                                                                                                    (T.uap1
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (greads
                                                                                                                        T.mkNoSrcPos
                                                                                                                        p)
                                                                                                                      fs4))
                                                                                                                  f_y
                                                                                                              v0v0v0v0v1
                                                                                                                _
                                                                                                                p =
                                                                                                                T.projection
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  f_y
                                                                                                              in
                                                                                                              (v0v0v0v0v1))
                                                                                                            f_x))
                                                                                                      (T.uwrapForward
                                                                                                        p
                                                                                                        (hlex
                                                                                                          fr3
                                                                                                          p)))
                                                                                                    f_y
                                                                                                v0v0v0v0v1
                                                                                                  _
                                                                                                  p =
                                                                                                  T.projection
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    f_y
                                                                                                in
                                                                                                (v0v0v0v0v1))
                                                                                              f_x))
                                                                                        (T.uap1
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (greads
                                                                                            T.mkNoSrcPos
                                                                                            p)
                                                                                          fs3))
                                                                                      f_y
                                                                                  v0v0v0v0v1
                                                                                    _
                                                                                    p =
                                                                                    T.projection
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      f_y
                                                                                  in
                                                                                  (v0v0v0v0v1))
                                                                                f_x))
                                                                          (T.uwrapForward
                                                                            p
                                                                            (hlex
                                                                              fr2
                                                                              p)))
                                                                        f_y
                                                                    v0v0v0v0v1 _
                                                                      p =
                                                                      T.projection
                                                                        T.mkNoSrcPos
                                                                        p f_y in
                                                                    (v0v0v0v0v1))
                                                                  f_x))
                                                            (T.uap1 T.mkNoSrcPos
                                                              p
                                                              (greads
                                                                T.mkNoSrcPos p)
                                                              fs2)) f_y
                                                      v0v0v0v0v1 _ p =
                                                        T.projection
                                                          T.mkNoSrcPos p f_y in
                                                      (v0v0v0v0v1)) f_x))
                                              (T.uwrapForward p (hlex fr1 p)))
                                            f_y
                                        v0v0v0v0v1 _ p =
                                          T.projection T.mkNoSrcPos p f_y in
                                        (v0v0v0v0v1)) f_x))
                                (T.uap1 T.mkNoSrcPos p (greads T.mkNoSrcPos p)
                                  fs1)) f_y
                          v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                          (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr0 p)))
                (T.fromExpList T.mkNoSrcPos p []))) p)
    
  

instance
  (Read a,Read b,Read c,Read d,Read e,Read f,Read g,Read h) =>
    Read ((T.Tuple8 a b c d e f g h))
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a2088v5v2089v30readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p
        (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
          (T.ufun1 T.mkLambda T.mkNoSrcPos p
            (\ fr0 p ->
              T.uap1 T.mkNoSrcPos p
                (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                  (T.ufun2 T.mkLambda T.mkNoSrcPos p
                    (\ f_x f_y p ->
                      T.uccase T.mkNoSrcPos p
                        (let
                          v0v0v0v0v1
                            (T.R
                              (T.Tuple2
                                (T.R (T.Cons (T.R '(' _) (T.R T.List _)) _) fs1)
                              _) p =
                            T.uap1 T.mkNoSrcPos p
                              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                  (\ f_x f_y p ->
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v0v0v0v0v1 (T.R (T.Tuple2 fx1 fr1) _)
                                          p =
                                          T.uap1 T.mkNoSrcPos p
                                            (T.uap2 T.mkNoSrcPos p
                                              (g_foldr T.mkNoSrcPos p)
                                              (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                                (\ f_x f_y p ->
                                                  T.uccase T.mkNoSrcPos p
                                                    (let
                                                      v0v0v0v0v1
                                                        (T.R
                                                          (T.Tuple2
                                                            (T.R
                                                              (T.Cons
                                                                (T.R ',' _)
                                                                (T.R T.List _))
                                                              _) fs2) _) p =
                                                        T.uap1 T.mkNoSrcPos p
                                                          (T.uap2 T.mkNoSrcPos p
                                                            (g_foldr
                                                              T.mkNoSrcPos p)
                                                            (T.ufun2 T.mkLambda
                                                              T.mkNoSrcPos p
                                                              (\ f_x f_y p ->
                                                                T.uccase
                                                                  T.mkNoSrcPos p
                                                                  (let
                                                                    v0v0v0v0v1
                                                                      (T.R
                                                                        (T.Tuple2
                                                                          fx2
                                                                          fr2)
                                                                        _) p =
                                                                      T.uap1
                                                                        T.mkNoSrcPos
                                                                        p
                                                                        (T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (g_foldr
                                                                            T.mkNoSrcPos
                                                                            p)
                                                                          (T.ufun2
                                                                            T.mkLambda
                                                                            T.mkNoSrcPos
                                                                            p
                                                                            (\ f_x
                                                                              f_y
                                                                              p ->
                                                                              T.uccase
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (let
                                                                                  v0v0v0v0v1
                                                                                    (T.R
                                                                                      (T.Tuple2
                                                                                        (T.R
                                                                                          (T.Cons
                                                                                            (T.R
                                                                                              ','
                                                                                              _)
                                                                                            (T.R
                                                                                              T.List
                                                                                              _))
                                                                                          _)
                                                                                        fs3)
                                                                                      _)
                                                                                    p =
                                                                                    T.uap1
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      (T.uap2
                                                                                        T.mkNoSrcPos
                                                                                        p
                                                                                        (g_foldr
                                                                                          T.mkNoSrcPos
                                                                                          p)
                                                                                        (T.ufun2
                                                                                          T.mkLambda
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (\ f_x
                                                                                            f_y
                                                                                            p ->
                                                                                            T.uccase
                                                                                              T.mkNoSrcPos
                                                                                              p
                                                                                              (let
                                                                                                v0v0v0v0v1
                                                                                                  (T.R
                                                                                                    (T.Tuple2
                                                                                                      fx3
                                                                                                      fr3)
                                                                                                    _)
                                                                                                  p =
                                                                                                  T.uap1
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    (T.uap2
                                                                                                      T.mkNoSrcPos
                                                                                                      p
                                                                                                      (g_foldr
                                                                                                        T.mkNoSrcPos
                                                                                                        p)
                                                                                                      (T.ufun2
                                                                                                        T.mkLambda
                                                                                                        T.mkNoSrcPos
                                                                                                        p
                                                                                                        (\ f_x
                                                                                                          f_y
                                                                                                          p ->
                                                                                                          T.uccase
                                                                                                            T.mkNoSrcPos
                                                                                                            p
                                                                                                            (let
                                                                                                              v0v0v0v0v1
                                                                                                                (T.R
                                                                                                                  (T.Tuple2
                                                                                                                    (T.R
                                                                                                                      (T.Cons
                                                                                                                        (T.R
                                                                                                                          ','
                                                                                                                          _)
                                                                                                                        (T.R
                                                                                                                          T.List
                                                                                                                          _))
                                                                                                                      _)
                                                                                                                    fs4)
                                                                                                                  _)
                                                                                                                p =
                                                                                                                T.uap1
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  (T.uap2
                                                                                                                    T.mkNoSrcPos
                                                                                                                    p
                                                                                                                    (g_foldr
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p)
                                                                                                                    (T.ufun2
                                                                                                                      T.mkLambda
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (\ f_x
                                                                                                                        f_y
                                                                                                                        p ->
                                                                                                                        T.uccase
                                                                                                                          T.mkNoSrcPos
                                                                                                                          p
                                                                                                                          (let
                                                                                                                            v0v0v0v0v1
                                                                                                                              (T.R
                                                                                                                                (T.Tuple2
                                                                                                                                  fx4
                                                                                                                                  fr4)
                                                                                                                                _)
                                                                                                                              p =
                                                                                                                              T.uap1
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                (T.uap2
                                                                                                                                  T.mkNoSrcPos
                                                                                                                                  p
                                                                                                                                  (g_foldr
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p)
                                                                                                                                  (T.ufun2
                                                                                                                                    T.mkLambda
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p
                                                                                                                                    (\ f_x
                                                                                                                                      f_y
                                                                                                                                      p ->
                                                                                                                                      T.uccase
                                                                                                                                        T.mkNoSrcPos
                                                                                                                                        p
                                                                                                                                        (let
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            (T.R
                                                                                                                                              (T.Tuple2
                                                                                                                                                (T.R
                                                                                                                                                  (T.Cons
                                                                                                                                                    (T.R
                                                                                                                                                      ','
                                                                                                                                                      _)
                                                                                                                                                    (T.R
                                                                                                                                                      T.List
                                                                                                                                                      _))
                                                                                                                                                  _)
                                                                                                                                                fs5)
                                                                                                                                              _)
                                                                                                                                            p =
                                                                                                                                            T.uap1
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              (T.uap2
                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                p
                                                                                                                                                (g_foldr
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p)
                                                                                                                                                (T.ufun2
                                                                                                                                                  T.mkLambda
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (\ f_x
                                                                                                                                                    f_y
                                                                                                                                                    p ->
                                                                                                                                                    T.uccase
                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                      p
                                                                                                                                                      (let
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          (T.R
                                                                                                                                                            (T.Tuple2
                                                                                                                                                              fx5
                                                                                                                                                              fr5)
                                                                                                                                                            _)
                                                                                                                                                          p =
                                                                                                                                                          T.uap1
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            (T.uap2
                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                              p
                                                                                                                                                              (g_foldr
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p)
                                                                                                                                                              (T.ufun2
                                                                                                                                                                T.mkLambda
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p
                                                                                                                                                                (\ f_x
                                                                                                                                                                  f_y
                                                                                                                                                                  p ->
                                                                                                                                                                  T.uccase
                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                    p
                                                                                                                                                                    (let
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        (T.R
                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                            (T.R
                                                                                                                                                                              (T.Cons
                                                                                                                                                                                (T.R
                                                                                                                                                                                  ','
                                                                                                                                                                                  _)
                                                                                                                                                                                (T.R
                                                                                                                                                                                  T.List
                                                                                                                                                                                  _))
                                                                                                                                                                              _)
                                                                                                                                                                            fs6)
                                                                                                                                                                          _)
                                                                                                                                                                        p =
                                                                                                                                                                        T.uap1
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          (T.uap2
                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                            p
                                                                                                                                                                            (g_foldr
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p)
                                                                                                                                                                            (T.ufun2
                                                                                                                                                                              T.mkLambda
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (\ f_x
                                                                                                                                                                                f_y
                                                                                                                                                                                p ->
                                                                                                                                                                                T.uccase
                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                  p
                                                                                                                                                                                  (let
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      (T.R
                                                                                                                                                                                        (T.Tuple2
                                                                                                                                                                                          fx6
                                                                                                                                                                                          fr6)
                                                                                                                                                                                        _)
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.uap1
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        (T.uap2
                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                          p
                                                                                                                                                                                          (g_foldr
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p)
                                                                                                                                                                                          (T.ufun2
                                                                                                                                                                                            T.mkLambda
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p
                                                                                                                                                                                            (\ f_x
                                                                                                                                                                                              f_y
                                                                                                                                                                                              p ->
                                                                                                                                                                                              T.uccase
                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                p
                                                                                                                                                                                                (let
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                      (T.Tuple2
                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                          (T.Cons
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              ','
                                                                                                                                                                                                              _)
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              T.List
                                                                                                                                                                                                              _))
                                                                                                                                                                                                          _)
                                                                                                                                                                                                        fs7)
                                                                                                                                                                                                      _)
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.uap1
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      (T.uap2
                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                        p
                                                                                                                                                                                                        (g_foldr
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p)
                                                                                                                                                                                                        (T.ufun2
                                                                                                                                                                                                          T.mkLambda
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p
                                                                                                                                                                                                          (\ f_x
                                                                                                                                                                                                            f_y
                                                                                                                                                                                                            p ->
                                                                                                                                                                                                            T.uccase
                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                              p
                                                                                                                                                                                                              (let
                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                  (T.R
                                                                                                                                                                                                                    (T.Tuple2
                                                                                                                                                                                                                      fx7
                                                                                                                                                                                                                      fr7)
                                                                                                                                                                                                                    _)
                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                  T.uap1
                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                    p
                                                                                                                                                                                                                    (T.uap2
                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                      p
                                                                                                                                                                                                                      (g_foldr
                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                      (T.ufun2
                                                                                                                                                                                                                        T.mkLambda
                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                        p
                                                                                                                                                                                                                        (\ f_x
                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                          p ->
                                                                                                                                                                                                                          T.uccase
                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                            p
                                                                                                                                                                                                                            (let
                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                  (T.Tuple2
                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                      (T.Cons
                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                          ','
                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                          T.List
                                                                                                                                                                                                                                          _))
                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                    fs8)
                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                T.uap1
                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                  (T.uap2
                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                    (g_foldr
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p)
                                                                                                                                                                                                                                    (T.ufun2
                                                                                                                                                                                                                                      T.mkLambda
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                      (\ f_x
                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                        p ->
                                                                                                                                                                                                                                        T.uccase
                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                          (let
                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                              (T.R
                                                                                                                                                                                                                                                (T.Tuple2
                                                                                                                                                                                                                                                  fx8
                                                                                                                                                                                                                                                  fr8)
                                                                                                                                                                                                                                                _)
                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                              T.uap1
                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                (T.uap2
                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                  (g_foldr
                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                  (T.ufun2
                                                                                                                                                                                                                                                    T.mkLambda
                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                    (\ f_x
                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                      p ->
                                                                                                                                                                                                                                                      T.uccase
                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                        (let
                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                              (T.Tuple2
                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                  (T.Cons
                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                      ')'
                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                      T.List
                                                                                                                                                                                                                                                                      _))
                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                fw)
                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                            T.uap1
                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                              (T.pa1
                                                                                                                                                                                                                                                                T.Cons
                                                                                                                                                                                                                                                                T.cn1
                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                T.aCons
                                                                                                                                                                                                                                                                (T.con2
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                  T.Tuple2
                                                                                                                                                                                                                                                                  T.aTuple2
                                                                                                                                                                                                                                                                  (T.con8
                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                    T.Tuple8
                                                                                                                                                                                                                                                                    T.aTuple8
                                                                                                                                                                                                                                                                    fx1
                                                                                                                                                                                                                                                                    fx2
                                                                                                                                                                                                                                                                    fx3
                                                                                                                                                                                                                                                                    fx4
                                                                                                                                                                                                                                                                    fx5
                                                                                                                                                                                                                                                                    fx6
                                                                                                                                                                                                                                                                    fx7
                                                                                                                                                                                                                                                                    fx8)
                                                                                                                                                                                                                                                                  fw))
                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                            _
                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                            T.projection
                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                          in
                                                                                                                                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                                                                                                                                        f_x))
                                                                                                                                                                                                                                                  (T.uwrapForward
                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                    (hlex
                                                                                                                                                                                                                                                      fr8
                                                                                                                                                                                                                                                      p)))
                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                              _
                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                              T.projection
                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                            in
                                                                                                                                                                                                                                            (v0v0v0v0v1))
                                                                                                                                                                                                                                          f_x))
                                                                                                                                                                                                                                    (T.uap1
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                      (greads
                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                                      fs8))
                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                _
                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                T.projection
                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                              in
                                                                                                                                                                                                                              (v0v0v0v0v1))
                                                                                                                                                                                                                            f_x))
                                                                                                                                                                                                                      (T.uwrapForward
                                                                                                                                                                                                                        p
                                                                                                                                                                                                                        (hlex
                                                                                                                                                                                                                          fr7
                                                                                                                                                                                                                          p)))
                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                  _
                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                  T.projection
                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                    p
                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                in
                                                                                                                                                                                                                (v0v0v0v0v1))
                                                                                                                                                                                                              f_x))
                                                                                                                                                                                                        (T.uap1
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p
                                                                                                                                                                                                          (greads
                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                            p)
                                                                                                                                                                                                          fs7))
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    _
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.projection
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  in
                                                                                                                                                                                                  (v0v0v0v0v1))
                                                                                                                                                                                                f_x))
                                                                                                                                                                                          (T.uwrapForward
                                                                                                                                                                                            p
                                                                                                                                                                                            (hlex
                                                                                                                                                                                              fr6
                                                                                                                                                                                              p)))
                                                                                                                                                                                        f_y
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      _
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.projection
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        f_y
                                                                                                                                                                                    in
                                                                                                                                                                                    (v0v0v0v0v1))
                                                                                                                                                                                  f_x))
                                                                                                                                                                            (T.uap1
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (greads
                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                p)
                                                                                                                                                                              fs6))
                                                                                                                                                                          f_y
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        _
                                                                                                                                                                        p =
                                                                                                                                                                        T.projection
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          f_y
                                                                                                                                                                      in
                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                    f_x))
                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                p
                                                                                                                                                                (hlex
                                                                                                                                                                  fr5
                                                                                                                                                                  p)))
                                                                                                                                                            f_y
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          _
                                                                                                                                                          p =
                                                                                                                                                          T.projection
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            f_y
                                                                                                                                                        in
                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                      f_x))
                                                                                                                                                (T.uap1
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (greads
                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                    p)
                                                                                                                                                  fs5))
                                                                                                                                              f_y
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            _
                                                                                                                                            p =
                                                                                                                                            T.projection
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              f_y
                                                                                                                                          in
                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                        f_x))
                                                                                                                                  (T.uwrapForward
                                                                                                                                    p
                                                                                                                                    (hlex
                                                                                                                                      fr4
                                                                                                                                      p)))
                                                                                                                                f_y
                                                                                                                            v0v0v0v0v1
                                                                                                                              _
                                                                                                                              p =
                                                                                                                              T.projection
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                f_y
                                                                                                                            in
                                                                                                                            (v0v0v0v0v1))
                                                                                                                          f_x))
                                                                                                                    (T.uap1
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (greads
                                                                                                                        T.mkNoSrcPos
                                                                                                                        p)
                                                                                                                      fs4))
                                                                                                                  f_y
                                                                                                              v0v0v0v0v1
                                                                                                                _
                                                                                                                p =
                                                                                                                T.projection
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  f_y
                                                                                                              in
                                                                                                              (v0v0v0v0v1))
                                                                                                            f_x))
                                                                                                      (T.uwrapForward
                                                                                                        p
                                                                                                        (hlex
                                                                                                          fr3
                                                                                                          p)))
                                                                                                    f_y
                                                                                                v0v0v0v0v1
                                                                                                  _
                                                                                                  p =
                                                                                                  T.projection
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    f_y
                                                                                                in
                                                                                                (v0v0v0v0v1))
                                                                                              f_x))
                                                                                        (T.uap1
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (greads
                                                                                            T.mkNoSrcPos
                                                                                            p)
                                                                                          fs3))
                                                                                      f_y
                                                                                  v0v0v0v0v1
                                                                                    _
                                                                                    p =
                                                                                    T.projection
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      f_y
                                                                                  in
                                                                                  (v0v0v0v0v1))
                                                                                f_x))
                                                                          (T.uwrapForward
                                                                            p
                                                                            (hlex
                                                                              fr2
                                                                              p)))
                                                                        f_y
                                                                    v0v0v0v0v1 _
                                                                      p =
                                                                      T.projection
                                                                        T.mkNoSrcPos
                                                                        p f_y in
                                                                    (v0v0v0v0v1))
                                                                  f_x))
                                                            (T.uap1 T.mkNoSrcPos
                                                              p
                                                              (greads
                                                                T.mkNoSrcPos p)
                                                              fs2)) f_y
                                                      v0v0v0v0v1 _ p =
                                                        T.projection
                                                          T.mkNoSrcPos p f_y in
                                                      (v0v0v0v0v1)) f_x))
                                              (T.uwrapForward p (hlex fr1 p)))
                                            f_y
                                        v0v0v0v0v1 _ p =
                                          T.projection T.mkNoSrcPos p f_y in
                                        (v0v0v0v0v1)) f_x))
                                (T.uap1 T.mkNoSrcPos p (greads T.mkNoSrcPos p)
                                  fs1)) f_y
                          v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                          (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr0 p)))
                (T.fromExpList T.mkNoSrcPos p []))) p)
    
  

instance
  (Read a,Read b,Read c,Read d,Read e,Read f,Read g,Read h,Read i) =>
    Read ((T.Tuple9 a b c d e f g h i))
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a2111v5v2112v30readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p
        (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
          (T.ufun1 T.mkLambda T.mkNoSrcPos p
            (\ fr0 p ->
              T.uap1 T.mkNoSrcPos p
                (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                  (T.ufun2 T.mkLambda T.mkNoSrcPos p
                    (\ f_x f_y p ->
                      T.uccase T.mkNoSrcPos p
                        (let
                          v0v0v0v0v1
                            (T.R
                              (T.Tuple2
                                (T.R (T.Cons (T.R '(' _) (T.R T.List _)) _) fs1)
                              _) p =
                            T.uap1 T.mkNoSrcPos p
                              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                  (\ f_x f_y p ->
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v0v0v0v0v1 (T.R (T.Tuple2 fx1 fr1) _)
                                          p =
                                          T.uap1 T.mkNoSrcPos p
                                            (T.uap2 T.mkNoSrcPos p
                                              (g_foldr T.mkNoSrcPos p)
                                              (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                                (\ f_x f_y p ->
                                                  T.uccase T.mkNoSrcPos p
                                                    (let
                                                      v0v0v0v0v1
                                                        (T.R
                                                          (T.Tuple2
                                                            (T.R
                                                              (T.Cons
                                                                (T.R ',' _)
                                                                (T.R T.List _))
                                                              _) fs2) _) p =
                                                        T.uap1 T.mkNoSrcPos p
                                                          (T.uap2 T.mkNoSrcPos p
                                                            (g_foldr
                                                              T.mkNoSrcPos p)
                                                            (T.ufun2 T.mkLambda
                                                              T.mkNoSrcPos p
                                                              (\ f_x f_y p ->
                                                                T.uccase
                                                                  T.mkNoSrcPos p
                                                                  (let
                                                                    v0v0v0v0v1
                                                                      (T.R
                                                                        (T.Tuple2
                                                                          fx2
                                                                          fr2)
                                                                        _) p =
                                                                      T.uap1
                                                                        T.mkNoSrcPos
                                                                        p
                                                                        (T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (g_foldr
                                                                            T.mkNoSrcPos
                                                                            p)
                                                                          (T.ufun2
                                                                            T.mkLambda
                                                                            T.mkNoSrcPos
                                                                            p
                                                                            (\ f_x
                                                                              f_y
                                                                              p ->
                                                                              T.uccase
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (let
                                                                                  v0v0v0v0v1
                                                                                    (T.R
                                                                                      (T.Tuple2
                                                                                        (T.R
                                                                                          (T.Cons
                                                                                            (T.R
                                                                                              ','
                                                                                              _)
                                                                                            (T.R
                                                                                              T.List
                                                                                              _))
                                                                                          _)
                                                                                        fs3)
                                                                                      _)
                                                                                    p =
                                                                                    T.uap1
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      (T.uap2
                                                                                        T.mkNoSrcPos
                                                                                        p
                                                                                        (g_foldr
                                                                                          T.mkNoSrcPos
                                                                                          p)
                                                                                        (T.ufun2
                                                                                          T.mkLambda
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (\ f_x
                                                                                            f_y
                                                                                            p ->
                                                                                            T.uccase
                                                                                              T.mkNoSrcPos
                                                                                              p
                                                                                              (let
                                                                                                v0v0v0v0v1
                                                                                                  (T.R
                                                                                                    (T.Tuple2
                                                                                                      fx3
                                                                                                      fr3)
                                                                                                    _)
                                                                                                  p =
                                                                                                  T.uap1
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    (T.uap2
                                                                                                      T.mkNoSrcPos
                                                                                                      p
                                                                                                      (g_foldr
                                                                                                        T.mkNoSrcPos
                                                                                                        p)
                                                                                                      (T.ufun2
                                                                                                        T.mkLambda
                                                                                                        T.mkNoSrcPos
                                                                                                        p
                                                                                                        (\ f_x
                                                                                                          f_y
                                                                                                          p ->
                                                                                                          T.uccase
                                                                                                            T.mkNoSrcPos
                                                                                                            p
                                                                                                            (let
                                                                                                              v0v0v0v0v1
                                                                                                                (T.R
                                                                                                                  (T.Tuple2
                                                                                                                    (T.R
                                                                                                                      (T.Cons
                                                                                                                        (T.R
                                                                                                                          ','
                                                                                                                          _)
                                                                                                                        (T.R
                                                                                                                          T.List
                                                                                                                          _))
                                                                                                                      _)
                                                                                                                    fs4)
                                                                                                                  _)
                                                                                                                p =
                                                                                                                T.uap1
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  (T.uap2
                                                                                                                    T.mkNoSrcPos
                                                                                                                    p
                                                                                                                    (g_foldr
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p)
                                                                                                                    (T.ufun2
                                                                                                                      T.mkLambda
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (\ f_x
                                                                                                                        f_y
                                                                                                                        p ->
                                                                                                                        T.uccase
                                                                                                                          T.mkNoSrcPos
                                                                                                                          p
                                                                                                                          (let
                                                                                                                            v0v0v0v0v1
                                                                                                                              (T.R
                                                                                                                                (T.Tuple2
                                                                                                                                  fx4
                                                                                                                                  fr4)
                                                                                                                                _)
                                                                                                                              p =
                                                                                                                              T.uap1
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                (T.uap2
                                                                                                                                  T.mkNoSrcPos
                                                                                                                                  p
                                                                                                                                  (g_foldr
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p)
                                                                                                                                  (T.ufun2
                                                                                                                                    T.mkLambda
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p
                                                                                                                                    (\ f_x
                                                                                                                                      f_y
                                                                                                                                      p ->
                                                                                                                                      T.uccase
                                                                                                                                        T.mkNoSrcPos
                                                                                                                                        p
                                                                                                                                        (let
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            (T.R
                                                                                                                                              (T.Tuple2
                                                                                                                                                (T.R
                                                                                                                                                  (T.Cons
                                                                                                                                                    (T.R
                                                                                                                                                      ','
                                                                                                                                                      _)
                                                                                                                                                    (T.R
                                                                                                                                                      T.List
                                                                                                                                                      _))
                                                                                                                                                  _)
                                                                                                                                                fs5)
                                                                                                                                              _)
                                                                                                                                            p =
                                                                                                                                            T.uap1
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              (T.uap2
                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                p
                                                                                                                                                (g_foldr
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p)
                                                                                                                                                (T.ufun2
                                                                                                                                                  T.mkLambda
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (\ f_x
                                                                                                                                                    f_y
                                                                                                                                                    p ->
                                                                                                                                                    T.uccase
                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                      p
                                                                                                                                                      (let
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          (T.R
                                                                                                                                                            (T.Tuple2
                                                                                                                                                              fx5
                                                                                                                                                              fr5)
                                                                                                                                                            _)
                                                                                                                                                          p =
                                                                                                                                                          T.uap1
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            (T.uap2
                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                              p
                                                                                                                                                              (g_foldr
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p)
                                                                                                                                                              (T.ufun2
                                                                                                                                                                T.mkLambda
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p
                                                                                                                                                                (\ f_x
                                                                                                                                                                  f_y
                                                                                                                                                                  p ->
                                                                                                                                                                  T.uccase
                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                    p
                                                                                                                                                                    (let
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        (T.R
                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                            (T.R
                                                                                                                                                                              (T.Cons
                                                                                                                                                                                (T.R
                                                                                                                                                                                  ','
                                                                                                                                                                                  _)
                                                                                                                                                                                (T.R
                                                                                                                                                                                  T.List
                                                                                                                                                                                  _))
                                                                                                                                                                              _)
                                                                                                                                                                            fs6)
                                                                                                                                                                          _)
                                                                                                                                                                        p =
                                                                                                                                                                        T.uap1
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          (T.uap2
                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                            p
                                                                                                                                                                            (g_foldr
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p)
                                                                                                                                                                            (T.ufun2
                                                                                                                                                                              T.mkLambda
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (\ f_x
                                                                                                                                                                                f_y
                                                                                                                                                                                p ->
                                                                                                                                                                                T.uccase
                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                  p
                                                                                                                                                                                  (let
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      (T.R
                                                                                                                                                                                        (T.Tuple2
                                                                                                                                                                                          fx6
                                                                                                                                                                                          fr6)
                                                                                                                                                                                        _)
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.uap1
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        (T.uap2
                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                          p
                                                                                                                                                                                          (g_foldr
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p)
                                                                                                                                                                                          (T.ufun2
                                                                                                                                                                                            T.mkLambda
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p
                                                                                                                                                                                            (\ f_x
                                                                                                                                                                                              f_y
                                                                                                                                                                                              p ->
                                                                                                                                                                                              T.uccase
                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                p
                                                                                                                                                                                                (let
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                      (T.Tuple2
                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                          (T.Cons
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              ','
                                                                                                                                                                                                              _)
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              T.List
                                                                                                                                                                                                              _))
                                                                                                                                                                                                          _)
                                                                                                                                                                                                        fs7)
                                                                                                                                                                                                      _)
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.uap1
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      (T.uap2
                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                        p
                                                                                                                                                                                                        (g_foldr
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p)
                                                                                                                                                                                                        (T.ufun2
                                                                                                                                                                                                          T.mkLambda
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p
                                                                                                                                                                                                          (\ f_x
                                                                                                                                                                                                            f_y
                                                                                                                                                                                                            p ->
                                                                                                                                                                                                            T.uccase
                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                              p
                                                                                                                                                                                                              (let
                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                  (T.R
                                                                                                                                                                                                                    (T.Tuple2
                                                                                                                                                                                                                      fx7
                                                                                                                                                                                                                      fr7)
                                                                                                                                                                                                                    _)
                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                  T.uap1
                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                    p
                                                                                                                                                                                                                    (T.uap2
                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                      p
                                                                                                                                                                                                                      (g_foldr
                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                      (T.ufun2
                                                                                                                                                                                                                        T.mkLambda
                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                        p
                                                                                                                                                                                                                        (\ f_x
                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                          p ->
                                                                                                                                                                                                                          T.uccase
                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                            p
                                                                                                                                                                                                                            (let
                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                  (T.Tuple2
                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                      (T.Cons
                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                          ','
                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                          T.List
                                                                                                                                                                                                                                          _))
                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                    fs8)
                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                T.uap1
                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                  (T.uap2
                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                    (g_foldr
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p)
                                                                                                                                                                                                                                    (T.ufun2
                                                                                                                                                                                                                                      T.mkLambda
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                      (\ f_x
                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                        p ->
                                                                                                                                                                                                                                        T.uccase
                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                          (let
                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                              (T.R
                                                                                                                                                                                                                                                (T.Tuple2
                                                                                                                                                                                                                                                  fx8
                                                                                                                                                                                                                                                  fr8)
                                                                                                                                                                                                                                                _)
                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                              T.uap1
                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                (T.uap2
                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                  (g_foldr
                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                  (T.ufun2
                                                                                                                                                                                                                                                    T.mkLambda
                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                    (\ f_x
                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                      p ->
                                                                                                                                                                                                                                                      T.uccase
                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                        (let
                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                              (T.Tuple2
                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                  (T.Cons
                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                      ','
                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                      T.List
                                                                                                                                                                                                                                                                      _))
                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                fs9)
                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                            T.uap1
                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                              (T.uap2
                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                (g_foldr
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p)
                                                                                                                                                                                                                                                                (T.ufun2
                                                                                                                                                                                                                                                                  T.mkLambda
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                  (\ f_x
                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                    p ->
                                                                                                                                                                                                                                                                    T.uccase
                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                      (let
                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                          (T.R
                                                                                                                                                                                                                                                                            (T.Tuple2
                                                                                                                                                                                                                                                                              fx9
                                                                                                                                                                                                                                                                              fr9)
                                                                                                                                                                                                                                                                            _)
                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                          T.uap1
                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                            (T.uap2
                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                              (g_foldr
                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                p)
                                                                                                                                                                                                                                                                              (T.ufun2
                                                                                                                                                                                                                                                                                T.mkLambda
                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                (\ f_x
                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                  p ->
                                                                                                                                                                                                                                                                                  T.uccase
                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                    (let
                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                              (T.Cons
                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                  ')'
                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                  T.List
                                                                                                                                                                                                                                                                                                  _))
                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                            fw)
                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                        T.uap1
                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                          (T.pa1
                                                                                                                                                                                                                                                                                            T.Cons
                                                                                                                                                                                                                                                                                            T.cn1
                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                            T.aCons
                                                                                                                                                                                                                                                                                            (T.con2
                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                              T.Tuple2
                                                                                                                                                                                                                                                                                              T.aTuple2
                                                                                                                                                                                                                                                                                              (T.con9
                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                T.Tuple9
                                                                                                                                                                                                                                                                                                T.aTuple9
                                                                                                                                                                                                                                                                                                fx1
                                                                                                                                                                                                                                                                                                fx2
                                                                                                                                                                                                                                                                                                fx3
                                                                                                                                                                                                                                                                                                fx4
                                                                                                                                                                                                                                                                                                fx5
                                                                                                                                                                                                                                                                                                fx6
                                                                                                                                                                                                                                                                                                fx7
                                                                                                                                                                                                                                                                                                fx8
                                                                                                                                                                                                                                                                                                fx9)
                                                                                                                                                                                                                                                                                              fw))
                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                        _
                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                        T.projection
                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                      in
                                                                                                                                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                    f_x))
                                                                                                                                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                (hlex
                                                                                                                                                                                                                                                                                  fr9
                                                                                                                                                                                                                                                                                  p)))
                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                          _
                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                          T.projection
                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                        in
                                                                                                                                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                                                                                                                                      f_x))
                                                                                                                                                                                                                                                                (T.uap1
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                  (greads
                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                                  fs9))
                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                            _
                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                            T.projection
                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                          in
                                                                                                                                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                                                                                                                                        f_x))
                                                                                                                                                                                                                                                  (T.uwrapForward
                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                    (hlex
                                                                                                                                                                                                                                                      fr8
                                                                                                                                                                                                                                                      p)))
                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                              _
                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                              T.projection
                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                            in
                                                                                                                                                                                                                                            (v0v0v0v0v1))
                                                                                                                                                                                                                                          f_x))
                                                                                                                                                                                                                                    (T.uap1
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                      (greads
                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                                      fs8))
                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                _
                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                T.projection
                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                              in
                                                                                                                                                                                                                              (v0v0v0v0v1))
                                                                                                                                                                                                                            f_x))
                                                                                                                                                                                                                      (T.uwrapForward
                                                                                                                                                                                                                        p
                                                                                                                                                                                                                        (hlex
                                                                                                                                                                                                                          fr7
                                                                                                                                                                                                                          p)))
                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                  _
                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                  T.projection
                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                    p
                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                in
                                                                                                                                                                                                                (v0v0v0v0v1))
                                                                                                                                                                                                              f_x))
                                                                                                                                                                                                        (T.uap1
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p
                                                                                                                                                                                                          (greads
                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                            p)
                                                                                                                                                                                                          fs7))
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    _
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.projection
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  in
                                                                                                                                                                                                  (v0v0v0v0v1))
                                                                                                                                                                                                f_x))
                                                                                                                                                                                          (T.uwrapForward
                                                                                                                                                                                            p
                                                                                                                                                                                            (hlex
                                                                                                                                                                                              fr6
                                                                                                                                                                                              p)))
                                                                                                                                                                                        f_y
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      _
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.projection
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        f_y
                                                                                                                                                                                    in
                                                                                                                                                                                    (v0v0v0v0v1))
                                                                                                                                                                                  f_x))
                                                                                                                                                                            (T.uap1
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (greads
                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                p)
                                                                                                                                                                              fs6))
                                                                                                                                                                          f_y
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        _
                                                                                                                                                                        p =
                                                                                                                                                                        T.projection
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          f_y
                                                                                                                                                                      in
                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                    f_x))
                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                p
                                                                                                                                                                (hlex
                                                                                                                                                                  fr5
                                                                                                                                                                  p)))
                                                                                                                                                            f_y
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          _
                                                                                                                                                          p =
                                                                                                                                                          T.projection
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            f_y
                                                                                                                                                        in
                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                      f_x))
                                                                                                                                                (T.uap1
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (greads
                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                    p)
                                                                                                                                                  fs5))
                                                                                                                                              f_y
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            _
                                                                                                                                            p =
                                                                                                                                            T.projection
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              f_y
                                                                                                                                          in
                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                        f_x))
                                                                                                                                  (T.uwrapForward
                                                                                                                                    p
                                                                                                                                    (hlex
                                                                                                                                      fr4
                                                                                                                                      p)))
                                                                                                                                f_y
                                                                                                                            v0v0v0v0v1
                                                                                                                              _
                                                                                                                              p =
                                                                                                                              T.projection
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                f_y
                                                                                                                            in
                                                                                                                            (v0v0v0v0v1))
                                                                                                                          f_x))
                                                                                                                    (T.uap1
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (greads
                                                                                                                        T.mkNoSrcPos
                                                                                                                        p)
                                                                                                                      fs4))
                                                                                                                  f_y
                                                                                                              v0v0v0v0v1
                                                                                                                _
                                                                                                                p =
                                                                                                                T.projection
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  f_y
                                                                                                              in
                                                                                                              (v0v0v0v0v1))
                                                                                                            f_x))
                                                                                                      (T.uwrapForward
                                                                                                        p
                                                                                                        (hlex
                                                                                                          fr3
                                                                                                          p)))
                                                                                                    f_y
                                                                                                v0v0v0v0v1
                                                                                                  _
                                                                                                  p =
                                                                                                  T.projection
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    f_y
                                                                                                in
                                                                                                (v0v0v0v0v1))
                                                                                              f_x))
                                                                                        (T.uap1
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (greads
                                                                                            T.mkNoSrcPos
                                                                                            p)
                                                                                          fs3))
                                                                                      f_y
                                                                                  v0v0v0v0v1
                                                                                    _
                                                                                    p =
                                                                                    T.projection
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      f_y
                                                                                  in
                                                                                  (v0v0v0v0v1))
                                                                                f_x))
                                                                          (T.uwrapForward
                                                                            p
                                                                            (hlex
                                                                              fr2
                                                                              p)))
                                                                        f_y
                                                                    v0v0v0v0v1 _
                                                                      p =
                                                                      T.projection
                                                                        T.mkNoSrcPos
                                                                        p f_y in
                                                                    (v0v0v0v0v1))
                                                                  f_x))
                                                            (T.uap1 T.mkNoSrcPos
                                                              p
                                                              (greads
                                                                T.mkNoSrcPos p)
                                                              fs2)) f_y
                                                      v0v0v0v0v1 _ p =
                                                        T.projection
                                                          T.mkNoSrcPos p f_y in
                                                      (v0v0v0v0v1)) f_x))
                                              (T.uwrapForward p (hlex fr1 p)))
                                            f_y
                                        v0v0v0v0v1 _ p =
                                          T.projection T.mkNoSrcPos p f_y in
                                        (v0v0v0v0v1)) f_x))
                                (T.uap1 T.mkNoSrcPos p (greads T.mkNoSrcPos p)
                                  fs1)) f_y
                          v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                          (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr0 p)))
                (T.fromExpList T.mkNoSrcPos p []))) p)
    
  

instance
  (Read a,Read b,Read c,Read d,Read e,Read f,Read g,Read h,Read i,Read j) =>
    Read ((T.Tuple10 a b c d e f g h i j))
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a2136v5v2137v30readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p
        (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
          (T.ufun1 T.mkLambda T.mkNoSrcPos p
            (\ fr0 p ->
              T.uap1 T.mkNoSrcPos p
                (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                  (T.ufun2 T.mkLambda T.mkNoSrcPos p
                    (\ f_x f_y p ->
                      T.uccase T.mkNoSrcPos p
                        (let
                          v0v0v0v0v1
                            (T.R
                              (T.Tuple2
                                (T.R (T.Cons (T.R '(' _) (T.R T.List _)) _) fs1)
                              _) p =
                            T.uap1 T.mkNoSrcPos p
                              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                  (\ f_x f_y p ->
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v0v0v0v0v1 (T.R (T.Tuple2 fx1 fr1) _)
                                          p =
                                          T.uap1 T.mkNoSrcPos p
                                            (T.uap2 T.mkNoSrcPos p
                                              (g_foldr T.mkNoSrcPos p)
                                              (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                                (\ f_x f_y p ->
                                                  T.uccase T.mkNoSrcPos p
                                                    (let
                                                      v0v0v0v0v1
                                                        (T.R
                                                          (T.Tuple2
                                                            (T.R
                                                              (T.Cons
                                                                (T.R ',' _)
                                                                (T.R T.List _))
                                                              _) fs2) _) p =
                                                        T.uap1 T.mkNoSrcPos p
                                                          (T.uap2 T.mkNoSrcPos p
                                                            (g_foldr
                                                              T.mkNoSrcPos p)
                                                            (T.ufun2 T.mkLambda
                                                              T.mkNoSrcPos p
                                                              (\ f_x f_y p ->
                                                                T.uccase
                                                                  T.mkNoSrcPos p
                                                                  (let
                                                                    v0v0v0v0v1
                                                                      (T.R
                                                                        (T.Tuple2
                                                                          fx2
                                                                          fr2)
                                                                        _) p =
                                                                      T.uap1
                                                                        T.mkNoSrcPos
                                                                        p
                                                                        (T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (g_foldr
                                                                            T.mkNoSrcPos
                                                                            p)
                                                                          (T.ufun2
                                                                            T.mkLambda
                                                                            T.mkNoSrcPos
                                                                            p
                                                                            (\ f_x
                                                                              f_y
                                                                              p ->
                                                                              T.uccase
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (let
                                                                                  v0v0v0v0v1
                                                                                    (T.R
                                                                                      (T.Tuple2
                                                                                        (T.R
                                                                                          (T.Cons
                                                                                            (T.R
                                                                                              ','
                                                                                              _)
                                                                                            (T.R
                                                                                              T.List
                                                                                              _))
                                                                                          _)
                                                                                        fs3)
                                                                                      _)
                                                                                    p =
                                                                                    T.uap1
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      (T.uap2
                                                                                        T.mkNoSrcPos
                                                                                        p
                                                                                        (g_foldr
                                                                                          T.mkNoSrcPos
                                                                                          p)
                                                                                        (T.ufun2
                                                                                          T.mkLambda
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (\ f_x
                                                                                            f_y
                                                                                            p ->
                                                                                            T.uccase
                                                                                              T.mkNoSrcPos
                                                                                              p
                                                                                              (let
                                                                                                v0v0v0v0v1
                                                                                                  (T.R
                                                                                                    (T.Tuple2
                                                                                                      fx3
                                                                                                      fr3)
                                                                                                    _)
                                                                                                  p =
                                                                                                  T.uap1
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    (T.uap2
                                                                                                      T.mkNoSrcPos
                                                                                                      p
                                                                                                      (g_foldr
                                                                                                        T.mkNoSrcPos
                                                                                                        p)
                                                                                                      (T.ufun2
                                                                                                        T.mkLambda
                                                                                                        T.mkNoSrcPos
                                                                                                        p
                                                                                                        (\ f_x
                                                                                                          f_y
                                                                                                          p ->
                                                                                                          T.uccase
                                                                                                            T.mkNoSrcPos
                                                                                                            p
                                                                                                            (let
                                                                                                              v0v0v0v0v1
                                                                                                                (T.R
                                                                                                                  (T.Tuple2
                                                                                                                    (T.R
                                                                                                                      (T.Cons
                                                                                                                        (T.R
                                                                                                                          ','
                                                                                                                          _)
                                                                                                                        (T.R
                                                                                                                          T.List
                                                                                                                          _))
                                                                                                                      _)
                                                                                                                    fs4)
                                                                                                                  _)
                                                                                                                p =
                                                                                                                T.uap1
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  (T.uap2
                                                                                                                    T.mkNoSrcPos
                                                                                                                    p
                                                                                                                    (g_foldr
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p)
                                                                                                                    (T.ufun2
                                                                                                                      T.mkLambda
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (\ f_x
                                                                                                                        f_y
                                                                                                                        p ->
                                                                                                                        T.uccase
                                                                                                                          T.mkNoSrcPos
                                                                                                                          p
                                                                                                                          (let
                                                                                                                            v0v0v0v0v1
                                                                                                                              (T.R
                                                                                                                                (T.Tuple2
                                                                                                                                  fx4
                                                                                                                                  fr4)
                                                                                                                                _)
                                                                                                                              p =
                                                                                                                              T.uap1
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                (T.uap2
                                                                                                                                  T.mkNoSrcPos
                                                                                                                                  p
                                                                                                                                  (g_foldr
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p)
                                                                                                                                  (T.ufun2
                                                                                                                                    T.mkLambda
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p
                                                                                                                                    (\ f_x
                                                                                                                                      f_y
                                                                                                                                      p ->
                                                                                                                                      T.uccase
                                                                                                                                        T.mkNoSrcPos
                                                                                                                                        p
                                                                                                                                        (let
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            (T.R
                                                                                                                                              (T.Tuple2
                                                                                                                                                (T.R
                                                                                                                                                  (T.Cons
                                                                                                                                                    (T.R
                                                                                                                                                      ','
                                                                                                                                                      _)
                                                                                                                                                    (T.R
                                                                                                                                                      T.List
                                                                                                                                                      _))
                                                                                                                                                  _)
                                                                                                                                                fs5)
                                                                                                                                              _)
                                                                                                                                            p =
                                                                                                                                            T.uap1
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              (T.uap2
                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                p
                                                                                                                                                (g_foldr
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p)
                                                                                                                                                (T.ufun2
                                                                                                                                                  T.mkLambda
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (\ f_x
                                                                                                                                                    f_y
                                                                                                                                                    p ->
                                                                                                                                                    T.uccase
                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                      p
                                                                                                                                                      (let
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          (T.R
                                                                                                                                                            (T.Tuple2
                                                                                                                                                              fx5
                                                                                                                                                              fr5)
                                                                                                                                                            _)
                                                                                                                                                          p =
                                                                                                                                                          T.uap1
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            (T.uap2
                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                              p
                                                                                                                                                              (g_foldr
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p)
                                                                                                                                                              (T.ufun2
                                                                                                                                                                T.mkLambda
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p
                                                                                                                                                                (\ f_x
                                                                                                                                                                  f_y
                                                                                                                                                                  p ->
                                                                                                                                                                  T.uccase
                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                    p
                                                                                                                                                                    (let
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        (T.R
                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                            (T.R
                                                                                                                                                                              (T.Cons
                                                                                                                                                                                (T.R
                                                                                                                                                                                  ','
                                                                                                                                                                                  _)
                                                                                                                                                                                (T.R
                                                                                                                                                                                  T.List
                                                                                                                                                                                  _))
                                                                                                                                                                              _)
                                                                                                                                                                            fs6)
                                                                                                                                                                          _)
                                                                                                                                                                        p =
                                                                                                                                                                        T.uap1
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          (T.uap2
                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                            p
                                                                                                                                                                            (g_foldr
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p)
                                                                                                                                                                            (T.ufun2
                                                                                                                                                                              T.mkLambda
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (\ f_x
                                                                                                                                                                                f_y
                                                                                                                                                                                p ->
                                                                                                                                                                                T.uccase
                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                  p
                                                                                                                                                                                  (let
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      (T.R
                                                                                                                                                                                        (T.Tuple2
                                                                                                                                                                                          fx6
                                                                                                                                                                                          fr6)
                                                                                                                                                                                        _)
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.uap1
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        (T.uap2
                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                          p
                                                                                                                                                                                          (g_foldr
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p)
                                                                                                                                                                                          (T.ufun2
                                                                                                                                                                                            T.mkLambda
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p
                                                                                                                                                                                            (\ f_x
                                                                                                                                                                                              f_y
                                                                                                                                                                                              p ->
                                                                                                                                                                                              T.uccase
                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                p
                                                                                                                                                                                                (let
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                      (T.Tuple2
                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                          (T.Cons
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              ','
                                                                                                                                                                                                              _)
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              T.List
                                                                                                                                                                                                              _))
                                                                                                                                                                                                          _)
                                                                                                                                                                                                        fs7)
                                                                                                                                                                                                      _)
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.uap1
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      (T.uap2
                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                        p
                                                                                                                                                                                                        (g_foldr
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p)
                                                                                                                                                                                                        (T.ufun2
                                                                                                                                                                                                          T.mkLambda
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p
                                                                                                                                                                                                          (\ f_x
                                                                                                                                                                                                            f_y
                                                                                                                                                                                                            p ->
                                                                                                                                                                                                            T.uccase
                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                              p
                                                                                                                                                                                                              (let
                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                  (T.R
                                                                                                                                                                                                                    (T.Tuple2
                                                                                                                                                                                                                      fx7
                                                                                                                                                                                                                      fr7)
                                                                                                                                                                                                                    _)
                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                  T.uap1
                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                    p
                                                                                                                                                                                                                    (T.uap2
                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                      p
                                                                                                                                                                                                                      (g_foldr
                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                      (T.ufun2
                                                                                                                                                                                                                        T.mkLambda
                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                        p
                                                                                                                                                                                                                        (\ f_x
                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                          p ->
                                                                                                                                                                                                                          T.uccase
                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                            p
                                                                                                                                                                                                                            (let
                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                  (T.Tuple2
                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                      (T.Cons
                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                          ','
                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                          T.List
                                                                                                                                                                                                                                          _))
                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                    fs8)
                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                T.uap1
                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                  (T.uap2
                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                    (g_foldr
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p)
                                                                                                                                                                                                                                    (T.ufun2
                                                                                                                                                                                                                                      T.mkLambda
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                      (\ f_x
                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                        p ->
                                                                                                                                                                                                                                        T.uccase
                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                          (let
                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                              (T.R
                                                                                                                                                                                                                                                (T.Tuple2
                                                                                                                                                                                                                                                  fx8
                                                                                                                                                                                                                                                  fr8)
                                                                                                                                                                                                                                                _)
                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                              T.uap1
                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                (T.uap2
                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                  (g_foldr
                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                  (T.ufun2
                                                                                                                                                                                                                                                    T.mkLambda
                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                    (\ f_x
                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                      p ->
                                                                                                                                                                                                                                                      T.uccase
                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                        (let
                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                              (T.Tuple2
                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                  (T.Cons
                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                      ','
                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                      T.List
                                                                                                                                                                                                                                                                      _))
                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                fs9)
                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                            T.uap1
                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                              (T.uap2
                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                (g_foldr
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p)
                                                                                                                                                                                                                                                                (T.ufun2
                                                                                                                                                                                                                                                                  T.mkLambda
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                  (\ f_x
                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                    p ->
                                                                                                                                                                                                                                                                    T.uccase
                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                      (let
                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                          (T.R
                                                                                                                                                                                                                                                                            (T.Tuple2
                                                                                                                                                                                                                                                                              fx9
                                                                                                                                                                                                                                                                              fr9)
                                                                                                                                                                                                                                                                            _)
                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                          T.uap1
                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                            (T.uap2
                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                              (g_foldr
                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                p)
                                                                                                                                                                                                                                                                              (T.ufun2
                                                                                                                                                                                                                                                                                T.mkLambda
                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                (\ f_x
                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                  p ->
                                                                                                                                                                                                                                                                                  T.uccase
                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                    (let
                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                              (T.Cons
                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                  ','
                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                  T.List
                                                                                                                                                                                                                                                                                                  _))
                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                            fs10)
                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                        T.uap1
                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                          (T.uap2
                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                            (g_foldr
                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                              p)
                                                                                                                                                                                                                                                                                            (T.ufun2
                                                                                                                                                                                                                                                                                              T.mkLambda
                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                              (\ f_x
                                                                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                                                                                p ->
                                                                                                                                                                                                                                                                                                T.uccase
                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                  (let
                                                                                                                                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                                                                                                                                      (T.R
                                                                                                                                                                                                                                                                                                        (T.Tuple2
                                                                                                                                                                                                                                                                                                          fx10
                                                                                                                                                                                                                                                                                                          fr10)
                                                                                                                                                                                                                                                                                                        _)
                                                                                                                                                                                                                                                                                                      p =
                                                                                                                                                                                                                                                                                                      T.uap1
                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                        (T.uap2
                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                          (g_foldr
                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                            p)
                                                                                                                                                                                                                                                                                                          (T.ufun2
                                                                                                                                                                                                                                                                                                            T.mkLambda
                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                            (\ f_x
                                                                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                                                                              p ->
                                                                                                                                                                                                                                                                                                              T.uccase
                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                (let
                                                                                                                                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                      (T.Tuple2
                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                          (T.Cons
                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                              ')'
                                                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                              T.List
                                                                                                                                                                                                                                                                                                                              _))
                                                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                                                        fw)
                                                                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                                                                    p =
                                                                                                                                                                                                                                                                                                                    T.uap1
                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                      (T.pa1
                                                                                                                                                                                                                                                                                                                        T.Cons
                                                                                                                                                                                                                                                                                                                        T.cn1
                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                        T.aCons
                                                                                                                                                                                                                                                                                                                        (T.con2
                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                          T.Tuple2
                                                                                                                                                                                                                                                                                                                          T.aTuple2
                                                                                                                                                                                                                                                                                                                          (T.con10
                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                            T.Tuple10
                                                                                                                                                                                                                                                                                                                            T.aTuple10
                                                                                                                                                                                                                                                                                                                            fx1
                                                                                                                                                                                                                                                                                                                            fx2
                                                                                                                                                                                                                                                                                                                            fx3
                                                                                                                                                                                                                                                                                                                            fx4
                                                                                                                                                                                                                                                                                                                            fx5
                                                                                                                                                                                                                                                                                                                            fx6
                                                                                                                                                                                                                                                                                                                            fx7
                                                                                                                                                                                                                                                                                                                            fx8
                                                                                                                                                                                                                                                                                                                            fx9
                                                                                                                                                                                                                                                                                                                            fx10)
                                                                                                                                                                                                                                                                                                                          fw))
                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                    _
                                                                                                                                                                                                                                                                                                                    p =
                                                                                                                                                                                                                                                                                                                    T.projection
                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                  in
                                                                                                                                                                                                                                                                                                                  (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                f_x))
                                                                                                                                                                                                                                                                                                          (T.uwrapForward
                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                            (hlex
                                                                                                                                                                                                                                                                                                              fr10
                                                                                                                                                                                                                                                                                                              p)))
                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                                                                                                                                      _
                                                                                                                                                                                                                                                                                                      p =
                                                                                                                                                                                                                                                                                                      T.projection
                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                    in
                                                                                                                                                                                                                                                                                                    (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                  f_x))
                                                                                                                                                                                                                                                                                            (T.uap1
                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                              (greads
                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                p)
                                                                                                                                                                                                                                                                                              fs10))
                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                        _
                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                        T.projection
                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                      in
                                                                                                                                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                    f_x))
                                                                                                                                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                (hlex
                                                                                                                                                                                                                                                                                  fr9
                                                                                                                                                                                                                                                                                  p)))
                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                          _
                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                          T.projection
                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                        in
                                                                                                                                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                                                                                                                                      f_x))
                                                                                                                                                                                                                                                                (T.uap1
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                  (greads
                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                                  fs9))
                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                            _
                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                            T.projection
                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                          in
                                                                                                                                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                                                                                                                                        f_x))
                                                                                                                                                                                                                                                  (T.uwrapForward
                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                    (hlex
                                                                                                                                                                                                                                                      fr8
                                                                                                                                                                                                                                                      p)))
                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                              _
                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                              T.projection
                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                            in
                                                                                                                                                                                                                                            (v0v0v0v0v1))
                                                                                                                                                                                                                                          f_x))
                                                                                                                                                                                                                                    (T.uap1
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                      (greads
                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                                      fs8))
                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                _
                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                T.projection
                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                              in
                                                                                                                                                                                                                              (v0v0v0v0v1))
                                                                                                                                                                                                                            f_x))
                                                                                                                                                                                                                      (T.uwrapForward
                                                                                                                                                                                                                        p
                                                                                                                                                                                                                        (hlex
                                                                                                                                                                                                                          fr7
                                                                                                                                                                                                                          p)))
                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                  _
                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                  T.projection
                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                    p
                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                in
                                                                                                                                                                                                                (v0v0v0v0v1))
                                                                                                                                                                                                              f_x))
                                                                                                                                                                                                        (T.uap1
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p
                                                                                                                                                                                                          (greads
                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                            p)
                                                                                                                                                                                                          fs7))
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    _
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.projection
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  in
                                                                                                                                                                                                  (v0v0v0v0v1))
                                                                                                                                                                                                f_x))
                                                                                                                                                                                          (T.uwrapForward
                                                                                                                                                                                            p
                                                                                                                                                                                            (hlex
                                                                                                                                                                                              fr6
                                                                                                                                                                                              p)))
                                                                                                                                                                                        f_y
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      _
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.projection
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        f_y
                                                                                                                                                                                    in
                                                                                                                                                                                    (v0v0v0v0v1))
                                                                                                                                                                                  f_x))
                                                                                                                                                                            (T.uap1
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (greads
                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                p)
                                                                                                                                                                              fs6))
                                                                                                                                                                          f_y
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        _
                                                                                                                                                                        p =
                                                                                                                                                                        T.projection
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          f_y
                                                                                                                                                                      in
                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                    f_x))
                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                p
                                                                                                                                                                (hlex
                                                                                                                                                                  fr5
                                                                                                                                                                  p)))
                                                                                                                                                            f_y
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          _
                                                                                                                                                          p =
                                                                                                                                                          T.projection
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            f_y
                                                                                                                                                        in
                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                      f_x))
                                                                                                                                                (T.uap1
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (greads
                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                    p)
                                                                                                                                                  fs5))
                                                                                                                                              f_y
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            _
                                                                                                                                            p =
                                                                                                                                            T.projection
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              f_y
                                                                                                                                          in
                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                        f_x))
                                                                                                                                  (T.uwrapForward
                                                                                                                                    p
                                                                                                                                    (hlex
                                                                                                                                      fr4
                                                                                                                                      p)))
                                                                                                                                f_y
                                                                                                                            v0v0v0v0v1
                                                                                                                              _
                                                                                                                              p =
                                                                                                                              T.projection
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                f_y
                                                                                                                            in
                                                                                                                            (v0v0v0v0v1))
                                                                                                                          f_x))
                                                                                                                    (T.uap1
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (greads
                                                                                                                        T.mkNoSrcPos
                                                                                                                        p)
                                                                                                                      fs4))
                                                                                                                  f_y
                                                                                                              v0v0v0v0v1
                                                                                                                _
                                                                                                                p =
                                                                                                                T.projection
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  f_y
                                                                                                              in
                                                                                                              (v0v0v0v0v1))
                                                                                                            f_x))
                                                                                                      (T.uwrapForward
                                                                                                        p
                                                                                                        (hlex
                                                                                                          fr3
                                                                                                          p)))
                                                                                                    f_y
                                                                                                v0v0v0v0v1
                                                                                                  _
                                                                                                  p =
                                                                                                  T.projection
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    f_y
                                                                                                in
                                                                                                (v0v0v0v0v1))
                                                                                              f_x))
                                                                                        (T.uap1
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (greads
                                                                                            T.mkNoSrcPos
                                                                                            p)
                                                                                          fs3))
                                                                                      f_y
                                                                                  v0v0v0v0v1
                                                                                    _
                                                                                    p =
                                                                                    T.projection
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      f_y
                                                                                  in
                                                                                  (v0v0v0v0v1))
                                                                                f_x))
                                                                          (T.uwrapForward
                                                                            p
                                                                            (hlex
                                                                              fr2
                                                                              p)))
                                                                        f_y
                                                                    v0v0v0v0v1 _
                                                                      p =
                                                                      T.projection
                                                                        T.mkNoSrcPos
                                                                        p f_y in
                                                                    (v0v0v0v0v1))
                                                                  f_x))
                                                            (T.uap1 T.mkNoSrcPos
                                                              p
                                                              (greads
                                                                T.mkNoSrcPos p)
                                                              fs2)) f_y
                                                      v0v0v0v0v1 _ p =
                                                        T.projection
                                                          T.mkNoSrcPos p f_y in
                                                      (v0v0v0v0v1)) f_x))
                                              (T.uwrapForward p (hlex fr1 p)))
                                            f_y
                                        v0v0v0v0v1 _ p =
                                          T.projection T.mkNoSrcPos p f_y in
                                        (v0v0v0v0v1)) f_x))
                                (T.uap1 T.mkNoSrcPos p (greads T.mkNoSrcPos p)
                                  fs1)) f_y
                          v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                          (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr0 p)))
                (T.fromExpList T.mkNoSrcPos p []))) p)
    
  

instance
  (Read a,Read b,Read c,Read d,Read e,Read f,Read g,Read h,Read i,Read j
      ,Read k) => Read ((T.Tuple11 a b c d e f g h i j k))
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a2163v5v2164v22readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p
        (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
          (T.ufun1 T.mkLambda T.mkNoSrcPos p
            (\ fr0 p ->
              T.uap1 T.mkNoSrcPos p
                (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                  (T.ufun2 T.mkLambda T.mkNoSrcPos p
                    (\ f_x f_y p ->
                      T.uccase T.mkNoSrcPos p
                        (let
                          v0v0v0v0v1
                            (T.R
                              (T.Tuple2
                                (T.R (T.Cons (T.R '(' _) (T.R T.List _)) _) fs1)
                              _) p =
                            T.uap1 T.mkNoSrcPos p
                              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                  (\ f_x f_y p ->
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v0v0v0v0v1 (T.R (T.Tuple2 fx1 fr1) _)
                                          p =
                                          T.uap1 T.mkNoSrcPos p
                                            (T.uap2 T.mkNoSrcPos p
                                              (g_foldr T.mkNoSrcPos p)
                                              (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                                (\ f_x f_y p ->
                                                  T.uccase T.mkNoSrcPos p
                                                    (let
                                                      v0v0v0v0v1
                                                        (T.R
                                                          (T.Tuple2
                                                            (T.R
                                                              (T.Cons
                                                                (T.R ',' _)
                                                                (T.R T.List _))
                                                              _) fs2) _) p =
                                                        T.uap1 T.mkNoSrcPos p
                                                          (T.uap2 T.mkNoSrcPos p
                                                            (g_foldr
                                                              T.mkNoSrcPos p)
                                                            (T.ufun2 T.mkLambda
                                                              T.mkNoSrcPos p
                                                              (\ f_x f_y p ->
                                                                T.uccase
                                                                  T.mkNoSrcPos p
                                                                  (let
                                                                    v0v0v0v0v1
                                                                      (T.R
                                                                        (T.Tuple2
                                                                          fx2
                                                                          fr2)
                                                                        _) p =
                                                                      T.uap1
                                                                        T.mkNoSrcPos
                                                                        p
                                                                        (T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (g_foldr
                                                                            T.mkNoSrcPos
                                                                            p)
                                                                          (T.ufun2
                                                                            T.mkLambda
                                                                            T.mkNoSrcPos
                                                                            p
                                                                            (\ f_x
                                                                              f_y
                                                                              p ->
                                                                              T.uccase
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (let
                                                                                  v0v0v0v0v1
                                                                                    (T.R
                                                                                      (T.Tuple2
                                                                                        (T.R
                                                                                          (T.Cons
                                                                                            (T.R
                                                                                              ','
                                                                                              _)
                                                                                            (T.R
                                                                                              T.List
                                                                                              _))
                                                                                          _)
                                                                                        fs3)
                                                                                      _)
                                                                                    p =
                                                                                    T.uap1
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      (T.uap2
                                                                                        T.mkNoSrcPos
                                                                                        p
                                                                                        (g_foldr
                                                                                          T.mkNoSrcPos
                                                                                          p)
                                                                                        (T.ufun2
                                                                                          T.mkLambda
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (\ f_x
                                                                                            f_y
                                                                                            p ->
                                                                                            T.uccase
                                                                                              T.mkNoSrcPos
                                                                                              p
                                                                                              (let
                                                                                                v0v0v0v0v1
                                                                                                  (T.R
                                                                                                    (T.Tuple2
                                                                                                      fx3
                                                                                                      fr3)
                                                                                                    _)
                                                                                                  p =
                                                                                                  T.uap1
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    (T.uap2
                                                                                                      T.mkNoSrcPos
                                                                                                      p
                                                                                                      (g_foldr
                                                                                                        T.mkNoSrcPos
                                                                                                        p)
                                                                                                      (T.ufun2
                                                                                                        T.mkLambda
                                                                                                        T.mkNoSrcPos
                                                                                                        p
                                                                                                        (\ f_x
                                                                                                          f_y
                                                                                                          p ->
                                                                                                          T.uccase
                                                                                                            T.mkNoSrcPos
                                                                                                            p
                                                                                                            (let
                                                                                                              v0v0v0v0v1
                                                                                                                (T.R
                                                                                                                  (T.Tuple2
                                                                                                                    (T.R
                                                                                                                      (T.Cons
                                                                                                                        (T.R
                                                                                                                          ','
                                                                                                                          _)
                                                                                                                        (T.R
                                                                                                                          T.List
                                                                                                                          _))
                                                                                                                      _)
                                                                                                                    fs4)
                                                                                                                  _)
                                                                                                                p =
                                                                                                                T.uap1
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  (T.uap2
                                                                                                                    T.mkNoSrcPos
                                                                                                                    p
                                                                                                                    (g_foldr
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p)
                                                                                                                    (T.ufun2
                                                                                                                      T.mkLambda
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (\ f_x
                                                                                                                        f_y
                                                                                                                        p ->
                                                                                                                        T.uccase
                                                                                                                          T.mkNoSrcPos
                                                                                                                          p
                                                                                                                          (let
                                                                                                                            v0v0v0v0v1
                                                                                                                              (T.R
                                                                                                                                (T.Tuple2
                                                                                                                                  fx4
                                                                                                                                  fr4)
                                                                                                                                _)
                                                                                                                              p =
                                                                                                                              T.uap1
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                (T.uap2
                                                                                                                                  T.mkNoSrcPos
                                                                                                                                  p
                                                                                                                                  (g_foldr
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p)
                                                                                                                                  (T.ufun2
                                                                                                                                    T.mkLambda
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p
                                                                                                                                    (\ f_x
                                                                                                                                      f_y
                                                                                                                                      p ->
                                                                                                                                      T.uccase
                                                                                                                                        T.mkNoSrcPos
                                                                                                                                        p
                                                                                                                                        (let
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            (T.R
                                                                                                                                              (T.Tuple2
                                                                                                                                                (T.R
                                                                                                                                                  (T.Cons
                                                                                                                                                    (T.R
                                                                                                                                                      ','
                                                                                                                                                      _)
                                                                                                                                                    (T.R
                                                                                                                                                      T.List
                                                                                                                                                      _))
                                                                                                                                                  _)
                                                                                                                                                fs5)
                                                                                                                                              _)
                                                                                                                                            p =
                                                                                                                                            T.uap1
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              (T.uap2
                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                p
                                                                                                                                                (g_foldr
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p)
                                                                                                                                                (T.ufun2
                                                                                                                                                  T.mkLambda
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (\ f_x
                                                                                                                                                    f_y
                                                                                                                                                    p ->
                                                                                                                                                    T.uccase
                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                      p
                                                                                                                                                      (let
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          (T.R
                                                                                                                                                            (T.Tuple2
                                                                                                                                                              fx5
                                                                                                                                                              fr5)
                                                                                                                                                            _)
                                                                                                                                                          p =
                                                                                                                                                          T.uap1
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            (T.uap2
                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                              p
                                                                                                                                                              (g_foldr
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p)
                                                                                                                                                              (T.ufun2
                                                                                                                                                                T.mkLambda
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p
                                                                                                                                                                (\ f_x
                                                                                                                                                                  f_y
                                                                                                                                                                  p ->
                                                                                                                                                                  T.uccase
                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                    p
                                                                                                                                                                    (let
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        (T.R
                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                            (T.R
                                                                                                                                                                              (T.Cons
                                                                                                                                                                                (T.R
                                                                                                                                                                                  ','
                                                                                                                                                                                  _)
                                                                                                                                                                                (T.R
                                                                                                                                                                                  T.List
                                                                                                                                                                                  _))
                                                                                                                                                                              _)
                                                                                                                                                                            fs6)
                                                                                                                                                                          _)
                                                                                                                                                                        p =
                                                                                                                                                                        T.uap1
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          (T.uap2
                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                            p
                                                                                                                                                                            (g_foldr
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p)
                                                                                                                                                                            (T.ufun2
                                                                                                                                                                              T.mkLambda
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (\ f_x
                                                                                                                                                                                f_y
                                                                                                                                                                                p ->
                                                                                                                                                                                T.uccase
                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                  p
                                                                                                                                                                                  (let
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      (T.R
                                                                                                                                                                                        (T.Tuple2
                                                                                                                                                                                          fx6
                                                                                                                                                                                          fr6)
                                                                                                                                                                                        _)
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.uap1
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        (T.uap2
                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                          p
                                                                                                                                                                                          (g_foldr
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p)
                                                                                                                                                                                          (T.ufun2
                                                                                                                                                                                            T.mkLambda
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p
                                                                                                                                                                                            (\ f_x
                                                                                                                                                                                              f_y
                                                                                                                                                                                              p ->
                                                                                                                                                                                              T.uccase
                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                p
                                                                                                                                                                                                (let
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                      (T.Tuple2
                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                          (T.Cons
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              ','
                                                                                                                                                                                                              _)
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              T.List
                                                                                                                                                                                                              _))
                                                                                                                                                                                                          _)
                                                                                                                                                                                                        fs7)
                                                                                                                                                                                                      _)
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.uap1
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      (T.uap2
                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                        p
                                                                                                                                                                                                        (g_foldr
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p)
                                                                                                                                                                                                        (T.ufun2
                                                                                                                                                                                                          T.mkLambda
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p
                                                                                                                                                                                                          (\ f_x
                                                                                                                                                                                                            f_y
                                                                                                                                                                                                            p ->
                                                                                                                                                                                                            T.uccase
                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                              p
                                                                                                                                                                                                              (let
                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                  (T.R
                                                                                                                                                                                                                    (T.Tuple2
                                                                                                                                                                                                                      fx7
                                                                                                                                                                                                                      fr7)
                                                                                                                                                                                                                    _)
                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                  T.uap1
                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                    p
                                                                                                                                                                                                                    (T.uap2
                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                      p
                                                                                                                                                                                                                      (g_foldr
                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                      (T.ufun2
                                                                                                                                                                                                                        T.mkLambda
                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                        p
                                                                                                                                                                                                                        (\ f_x
                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                          p ->
                                                                                                                                                                                                                          T.uccase
                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                            p
                                                                                                                                                                                                                            (let
                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                  (T.Tuple2
                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                      (T.Cons
                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                          ','
                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                          T.List
                                                                                                                                                                                                                                          _))
                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                    fs8)
                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                T.uap1
                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                  (T.uap2
                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                    (g_foldr
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p)
                                                                                                                                                                                                                                    (T.ufun2
                                                                                                                                                                                                                                      T.mkLambda
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                      (\ f_x
                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                        p ->
                                                                                                                                                                                                                                        T.uccase
                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                          (let
                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                              (T.R
                                                                                                                                                                                                                                                (T.Tuple2
                                                                                                                                                                                                                                                  fx8
                                                                                                                                                                                                                                                  fr8)
                                                                                                                                                                                                                                                _)
                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                              T.uap1
                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                (T.uap2
                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                  (g_foldr
                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                  (T.ufun2
                                                                                                                                                                                                                                                    T.mkLambda
                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                    (\ f_x
                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                      p ->
                                                                                                                                                                                                                                                      T.uccase
                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                        (let
                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                              (T.Tuple2
                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                  (T.Cons
                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                      ','
                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                      T.List
                                                                                                                                                                                                                                                                      _))
                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                fs9)
                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                            T.uap1
                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                              (T.uap2
                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                (g_foldr
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p)
                                                                                                                                                                                                                                                                (T.ufun2
                                                                                                                                                                                                                                                                  T.mkLambda
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                  (\ f_x
                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                    p ->
                                                                                                                                                                                                                                                                    T.uccase
                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                      (let
                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                          (T.R
                                                                                                                                                                                                                                                                            (T.Tuple2
                                                                                                                                                                                                                                                                              fx9
                                                                                                                                                                                                                                                                              fr9)
                                                                                                                                                                                                                                                                            _)
                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                          T.uap1
                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                            (T.uap2
                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                              (g_foldr
                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                p)
                                                                                                                                                                                                                                                                              (T.ufun2
                                                                                                                                                                                                                                                                                T.mkLambda
                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                (\ f_x
                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                  p ->
                                                                                                                                                                                                                                                                                  T.uccase
                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                    (let
                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                              (T.Cons
                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                  ','
                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                  T.List
                                                                                                                                                                                                                                                                                                  _))
                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                            fs10)
                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                        T.uap1
                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                          (T.uap2
                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                            (g_foldr
                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                              p)
                                                                                                                                                                                                                                                                                            (T.ufun2
                                                                                                                                                                                                                                                                                              T.mkLambda
                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                              (\ f_x
                                                                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                                                                                p ->
                                                                                                                                                                                                                                                                                                T.uccase
                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                  (let
                                                                                                                                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                                                                                                                                      (T.R
                                                                                                                                                                                                                                                                                                        (T.Tuple2
                                                                                                                                                                                                                                                                                                          fx10
                                                                                                                                                                                                                                                                                                          fr10)
                                                                                                                                                                                                                                                                                                        _)
                                                                                                                                                                                                                                                                                                      p =
                                                                                                                                                                                                                                                                                                      T.uap1
                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                        (T.uap2
                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                          (g_foldr
                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                            p)
                                                                                                                                                                                                                                                                                                          (T.ufun2
                                                                                                                                                                                                                                                                                                            T.mkLambda
                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                            (\ f_x
                                                                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                                                                              p ->
                                                                                                                                                                                                                                                                                                              T.uccase
                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                (let
                                                                                                                                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                      (T.Tuple2
                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                          (T.Cons
                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                              ','
                                                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                              T.List
                                                                                                                                                                                                                                                                                                                              _))
                                                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                                                        fs11)
                                                                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                                                                    p =
                                                                                                                                                                                                                                                                                                                    T.uap1
                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                      (T.uap2
                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                        (g_foldr
                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                          p)
                                                                                                                                                                                                                                                                                                                        (T.ufun2
                                                                                                                                                                                                                                                                                                                          T.mkLambda
                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                          (\ f_x
                                                                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                                                                            p ->
                                                                                                                                                                                                                                                                                                                            T.uccase
                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                              (let
                                                                                                                                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                  (T.R
                                                                                                                                                                                                                                                                                                                                    (T.Tuple2
                                                                                                                                                                                                                                                                                                                                      fx11
                                                                                                                                                                                                                                                                                                                                      fr11)
                                                                                                                                                                                                                                                                                                                                    _)
                                                                                                                                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                                                                                                                                  T.uap1
                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                    (T.uap2
                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                      (g_foldr
                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                                                                                                                                      (T.ufun2
                                                                                                                                                                                                                                                                                                                                        T.mkLambda
                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                        (\ f_x
                                                                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                                                                          p ->
                                                                                                                                                                                                                                                                                                                                          T.uccase
                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                            (let
                                                                                                                                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                                                                  (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                                                      (T.Cons
                                                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                                                          ')'
                                                                                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                                                          T.List
                                                                                                                                                                                                                                                                                                                                                          _))
                                                                                                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                                                                                                    fw)
                                                                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                                                                                                                                T.uap1
                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                  (T.pa1
                                                                                                                                                                                                                                                                                                                                                    T.Cons
                                                                                                                                                                                                                                                                                                                                                    T.cn1
                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                    T.aCons
                                                                                                                                                                                                                                                                                                                                                    (T.con2
                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                                      T.Tuple2
                                                                                                                                                                                                                                                                                                                                                      T.aTuple2
                                                                                                                                                                                                                                                                                                                                                      (T.con11
                                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                                        T.Tuple11
                                                                                                                                                                                                                                                                                                                                                        T.aTuple11
                                                                                                                                                                                                                                                                                                                                                        fx1
                                                                                                                                                                                                                                                                                                                                                        fx2
                                                                                                                                                                                                                                                                                                                                                        fx3
                                                                                                                                                                                                                                                                                                                                                        fx4
                                                                                                                                                                                                                                                                                                                                                        fx5
                                                                                                                                                                                                                                                                                                                                                        fx6
                                                                                                                                                                                                                                                                                                                                                        fx7
                                                                                                                                                                                                                                                                                                                                                        fx8
                                                                                                                                                                                                                                                                                                                                                        fx9
                                                                                                                                                                                                                                                                                                                                                        fx10
                                                                                                                                                                                                                                                                                                                                                        fx11)
                                                                                                                                                                                                                                                                                                                                                      fw))
                                                                                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                _
                                                                                                                                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                                                                                                                                T.projection
                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                                                                              in
                                                                                                                                                                                                                                                                                                                                              (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                            f_x))
                                                                                                                                                                                                                                                                                                                                      (T.uwrapForward
                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                        (hlex
                                                                                                                                                                                                                                                                                                                                          fr11
                                                                                                                                                                                                                                                                                                                                          p)))
                                                                                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                  _
                                                                                                                                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                                                                                                                                  T.projection
                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                                                                                in
                                                                                                                                                                                                                                                                                                                                (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                              f_x))
                                                                                                                                                                                                                                                                                                                        (T.uap1
                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                          (greads
                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                            p)
                                                                                                                                                                                                                                                                                                                          fs11))
                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                    _
                                                                                                                                                                                                                                                                                                                    p =
                                                                                                                                                                                                                                                                                                                    T.projection
                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                  in
                                                                                                                                                                                                                                                                                                                  (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                f_x))
                                                                                                                                                                                                                                                                                                          (T.uwrapForward
                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                            (hlex
                                                                                                                                                                                                                                                                                                              fr10
                                                                                                                                                                                                                                                                                                              p)))
                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                                                                                                                                      _
                                                                                                                                                                                                                                                                                                      p =
                                                                                                                                                                                                                                                                                                      T.projection
                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                    in
                                                                                                                                                                                                                                                                                                    (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                  f_x))
                                                                                                                                                                                                                                                                                            (T.uap1
                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                              (greads
                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                p)
                                                                                                                                                                                                                                                                                              fs10))
                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                        _
                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                        T.projection
                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                      in
                                                                                                                                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                    f_x))
                                                                                                                                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                (hlex
                                                                                                                                                                                                                                                                                  fr9
                                                                                                                                                                                                                                                                                  p)))
                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                          _
                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                          T.projection
                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                        in
                                                                                                                                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                                                                                                                                      f_x))
                                                                                                                                                                                                                                                                (T.uap1
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                  (greads
                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                                  fs9))
                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                            _
                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                            T.projection
                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                          in
                                                                                                                                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                                                                                                                                        f_x))
                                                                                                                                                                                                                                                  (T.uwrapForward
                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                    (hlex
                                                                                                                                                                                                                                                      fr8
                                                                                                                                                                                                                                                      p)))
                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                              _
                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                              T.projection
                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                            in
                                                                                                                                                                                                                                            (v0v0v0v0v1))
                                                                                                                                                                                                                                          f_x))
                                                                                                                                                                                                                                    (T.uap1
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                      (greads
                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                                      fs8))
                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                _
                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                T.projection
                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                              in
                                                                                                                                                                                                                              (v0v0v0v0v1))
                                                                                                                                                                                                                            f_x))
                                                                                                                                                                                                                      (T.uwrapForward
                                                                                                                                                                                                                        p
                                                                                                                                                                                                                        (hlex
                                                                                                                                                                                                                          fr7
                                                                                                                                                                                                                          p)))
                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                  _
                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                  T.projection
                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                    p
                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                in
                                                                                                                                                                                                                (v0v0v0v0v1))
                                                                                                                                                                                                              f_x))
                                                                                                                                                                                                        (T.uap1
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p
                                                                                                                                                                                                          (greads
                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                            p)
                                                                                                                                                                                                          fs7))
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    _
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.projection
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  in
                                                                                                                                                                                                  (v0v0v0v0v1))
                                                                                                                                                                                                f_x))
                                                                                                                                                                                          (T.uwrapForward
                                                                                                                                                                                            p
                                                                                                                                                                                            (hlex
                                                                                                                                                                                              fr6
                                                                                                                                                                                              p)))
                                                                                                                                                                                        f_y
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      _
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.projection
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        f_y
                                                                                                                                                                                    in
                                                                                                                                                                                    (v0v0v0v0v1))
                                                                                                                                                                                  f_x))
                                                                                                                                                                            (T.uap1
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (greads
                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                p)
                                                                                                                                                                              fs6))
                                                                                                                                                                          f_y
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        _
                                                                                                                                                                        p =
                                                                                                                                                                        T.projection
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          f_y
                                                                                                                                                                      in
                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                    f_x))
                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                p
                                                                                                                                                                (hlex
                                                                                                                                                                  fr5
                                                                                                                                                                  p)))
                                                                                                                                                            f_y
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          _
                                                                                                                                                          p =
                                                                                                                                                          T.projection
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            f_y
                                                                                                                                                        in
                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                      f_x))
                                                                                                                                                (T.uap1
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (greads
                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                    p)
                                                                                                                                                  fs5))
                                                                                                                                              f_y
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            _
                                                                                                                                            p =
                                                                                                                                            T.projection
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              f_y
                                                                                                                                          in
                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                        f_x))
                                                                                                                                  (T.uwrapForward
                                                                                                                                    p
                                                                                                                                    (hlex
                                                                                                                                      fr4
                                                                                                                                      p)))
                                                                                                                                f_y
                                                                                                                            v0v0v0v0v1
                                                                                                                              _
                                                                                                                              p =
                                                                                                                              T.projection
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                f_y
                                                                                                                            in
                                                                                                                            (v0v0v0v0v1))
                                                                                                                          f_x))
                                                                                                                    (T.uap1
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (greads
                                                                                                                        T.mkNoSrcPos
                                                                                                                        p)
                                                                                                                      fs4))
                                                                                                                  f_y
                                                                                                              v0v0v0v0v1
                                                                                                                _
                                                                                                                p =
                                                                                                                T.projection
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  f_y
                                                                                                              in
                                                                                                              (v0v0v0v0v1))
                                                                                                            f_x))
                                                                                                      (T.uwrapForward
                                                                                                        p
                                                                                                        (hlex
                                                                                                          fr3
                                                                                                          p)))
                                                                                                    f_y
                                                                                                v0v0v0v0v1
                                                                                                  _
                                                                                                  p =
                                                                                                  T.projection
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    f_y
                                                                                                in
                                                                                                (v0v0v0v0v1))
                                                                                              f_x))
                                                                                        (T.uap1
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (greads
                                                                                            T.mkNoSrcPos
                                                                                            p)
                                                                                          fs3))
                                                                                      f_y
                                                                                  v0v0v0v0v1
                                                                                    _
                                                                                    p =
                                                                                    T.projection
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      f_y
                                                                                  in
                                                                                  (v0v0v0v0v1))
                                                                                f_x))
                                                                          (T.uwrapForward
                                                                            p
                                                                            (hlex
                                                                              fr2
                                                                              p)))
                                                                        f_y
                                                                    v0v0v0v0v1 _
                                                                      p =
                                                                      T.projection
                                                                        T.mkNoSrcPos
                                                                        p f_y in
                                                                    (v0v0v0v0v1))
                                                                  f_x))
                                                            (T.uap1 T.mkNoSrcPos
                                                              p
                                                              (greads
                                                                T.mkNoSrcPos p)
                                                              fs2)) f_y
                                                      v0v0v0v0v1 _ p =
                                                        T.projection
                                                          T.mkNoSrcPos p f_y in
                                                      (v0v0v0v0v1)) f_x))
                                              (T.uwrapForward p (hlex fr1 p)))
                                            f_y
                                        v0v0v0v0v1 _ p =
                                          T.projection T.mkNoSrcPos p f_y in
                                        (v0v0v0v0v1)) f_x))
                                (T.uap1 T.mkNoSrcPos p (greads T.mkNoSrcPos p)
                                  fs1)) f_y
                          v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                          (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr0 p)))
                (T.fromExpList T.mkNoSrcPos p []))) p)
    
  

instance
  (Read a,Read b,Read c,Read d,Read e,Read f,Read g,Read h,Read i,Read j,Read k
      ,Read l) => Read ((T.Tuple12 a b c d e f g h i j k l))
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a2192v5v2193v22readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p
        (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
          (T.ufun1 T.mkLambda T.mkNoSrcPos p
            (\ fr0 p ->
              T.uap1 T.mkNoSrcPos p
                (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                  (T.ufun2 T.mkLambda T.mkNoSrcPos p
                    (\ f_x f_y p ->
                      T.uccase T.mkNoSrcPos p
                        (let
                          v0v0v0v0v1
                            (T.R
                              (T.Tuple2
                                (T.R (T.Cons (T.R '(' _) (T.R T.List _)) _) fs1)
                              _) p =
                            T.uap1 T.mkNoSrcPos p
                              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                  (\ f_x f_y p ->
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v0v0v0v0v1 (T.R (T.Tuple2 fx1 fr1) _)
                                          p =
                                          T.uap1 T.mkNoSrcPos p
                                            (T.uap2 T.mkNoSrcPos p
                                              (g_foldr T.mkNoSrcPos p)
                                              (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                                (\ f_x f_y p ->
                                                  T.uccase T.mkNoSrcPos p
                                                    (let
                                                      v0v0v0v0v1
                                                        (T.R
                                                          (T.Tuple2
                                                            (T.R
                                                              (T.Cons
                                                                (T.R ',' _)
                                                                (T.R T.List _))
                                                              _) fs2) _) p =
                                                        T.uap1 T.mkNoSrcPos p
                                                          (T.uap2 T.mkNoSrcPos p
                                                            (g_foldr
                                                              T.mkNoSrcPos p)
                                                            (T.ufun2 T.mkLambda
                                                              T.mkNoSrcPos p
                                                              (\ f_x f_y p ->
                                                                T.uccase
                                                                  T.mkNoSrcPos p
                                                                  (let
                                                                    v0v0v0v0v1
                                                                      (T.R
                                                                        (T.Tuple2
                                                                          fx2
                                                                          fr2)
                                                                        _) p =
                                                                      T.uap1
                                                                        T.mkNoSrcPos
                                                                        p
                                                                        (T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (g_foldr
                                                                            T.mkNoSrcPos
                                                                            p)
                                                                          (T.ufun2
                                                                            T.mkLambda
                                                                            T.mkNoSrcPos
                                                                            p
                                                                            (\ f_x
                                                                              f_y
                                                                              p ->
                                                                              T.uccase
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (let
                                                                                  v0v0v0v0v1
                                                                                    (T.R
                                                                                      (T.Tuple2
                                                                                        (T.R
                                                                                          (T.Cons
                                                                                            (T.R
                                                                                              ','
                                                                                              _)
                                                                                            (T.R
                                                                                              T.List
                                                                                              _))
                                                                                          _)
                                                                                        fs3)
                                                                                      _)
                                                                                    p =
                                                                                    T.uap1
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      (T.uap2
                                                                                        T.mkNoSrcPos
                                                                                        p
                                                                                        (g_foldr
                                                                                          T.mkNoSrcPos
                                                                                          p)
                                                                                        (T.ufun2
                                                                                          T.mkLambda
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (\ f_x
                                                                                            f_y
                                                                                            p ->
                                                                                            T.uccase
                                                                                              T.mkNoSrcPos
                                                                                              p
                                                                                              (let
                                                                                                v0v0v0v0v1
                                                                                                  (T.R
                                                                                                    (T.Tuple2
                                                                                                      fx3
                                                                                                      fr3)
                                                                                                    _)
                                                                                                  p =
                                                                                                  T.uap1
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    (T.uap2
                                                                                                      T.mkNoSrcPos
                                                                                                      p
                                                                                                      (g_foldr
                                                                                                        T.mkNoSrcPos
                                                                                                        p)
                                                                                                      (T.ufun2
                                                                                                        T.mkLambda
                                                                                                        T.mkNoSrcPos
                                                                                                        p
                                                                                                        (\ f_x
                                                                                                          f_y
                                                                                                          p ->
                                                                                                          T.uccase
                                                                                                            T.mkNoSrcPos
                                                                                                            p
                                                                                                            (let
                                                                                                              v0v0v0v0v1
                                                                                                                (T.R
                                                                                                                  (T.Tuple2
                                                                                                                    (T.R
                                                                                                                      (T.Cons
                                                                                                                        (T.R
                                                                                                                          ','
                                                                                                                          _)
                                                                                                                        (T.R
                                                                                                                          T.List
                                                                                                                          _))
                                                                                                                      _)
                                                                                                                    fs4)
                                                                                                                  _)
                                                                                                                p =
                                                                                                                T.uap1
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  (T.uap2
                                                                                                                    T.mkNoSrcPos
                                                                                                                    p
                                                                                                                    (g_foldr
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p)
                                                                                                                    (T.ufun2
                                                                                                                      T.mkLambda
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (\ f_x
                                                                                                                        f_y
                                                                                                                        p ->
                                                                                                                        T.uccase
                                                                                                                          T.mkNoSrcPos
                                                                                                                          p
                                                                                                                          (let
                                                                                                                            v0v0v0v0v1
                                                                                                                              (T.R
                                                                                                                                (T.Tuple2
                                                                                                                                  fx4
                                                                                                                                  fr4)
                                                                                                                                _)
                                                                                                                              p =
                                                                                                                              T.uap1
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                (T.uap2
                                                                                                                                  T.mkNoSrcPos
                                                                                                                                  p
                                                                                                                                  (g_foldr
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p)
                                                                                                                                  (T.ufun2
                                                                                                                                    T.mkLambda
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p
                                                                                                                                    (\ f_x
                                                                                                                                      f_y
                                                                                                                                      p ->
                                                                                                                                      T.uccase
                                                                                                                                        T.mkNoSrcPos
                                                                                                                                        p
                                                                                                                                        (let
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            (T.R
                                                                                                                                              (T.Tuple2
                                                                                                                                                (T.R
                                                                                                                                                  (T.Cons
                                                                                                                                                    (T.R
                                                                                                                                                      ','
                                                                                                                                                      _)
                                                                                                                                                    (T.R
                                                                                                                                                      T.List
                                                                                                                                                      _))
                                                                                                                                                  _)
                                                                                                                                                fs5)
                                                                                                                                              _)
                                                                                                                                            p =
                                                                                                                                            T.uap1
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              (T.uap2
                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                p
                                                                                                                                                (g_foldr
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p)
                                                                                                                                                (T.ufun2
                                                                                                                                                  T.mkLambda
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (\ f_x
                                                                                                                                                    f_y
                                                                                                                                                    p ->
                                                                                                                                                    T.uccase
                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                      p
                                                                                                                                                      (let
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          (T.R
                                                                                                                                                            (T.Tuple2
                                                                                                                                                              fx5
                                                                                                                                                              fr5)
                                                                                                                                                            _)
                                                                                                                                                          p =
                                                                                                                                                          T.uap1
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            (T.uap2
                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                              p
                                                                                                                                                              (g_foldr
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p)
                                                                                                                                                              (T.ufun2
                                                                                                                                                                T.mkLambda
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p
                                                                                                                                                                (\ f_x
                                                                                                                                                                  f_y
                                                                                                                                                                  p ->
                                                                                                                                                                  T.uccase
                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                    p
                                                                                                                                                                    (let
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        (T.R
                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                            (T.R
                                                                                                                                                                              (T.Cons
                                                                                                                                                                                (T.R
                                                                                                                                                                                  ','
                                                                                                                                                                                  _)
                                                                                                                                                                                (T.R
                                                                                                                                                                                  T.List
                                                                                                                                                                                  _))
                                                                                                                                                                              _)
                                                                                                                                                                            fs6)
                                                                                                                                                                          _)
                                                                                                                                                                        p =
                                                                                                                                                                        T.uap1
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          (T.uap2
                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                            p
                                                                                                                                                                            (g_foldr
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p)
                                                                                                                                                                            (T.ufun2
                                                                                                                                                                              T.mkLambda
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (\ f_x
                                                                                                                                                                                f_y
                                                                                                                                                                                p ->
                                                                                                                                                                                T.uccase
                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                  p
                                                                                                                                                                                  (let
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      (T.R
                                                                                                                                                                                        (T.Tuple2
                                                                                                                                                                                          fx6
                                                                                                                                                                                          fr6)
                                                                                                                                                                                        _)
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.uap1
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        (T.uap2
                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                          p
                                                                                                                                                                                          (g_foldr
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p)
                                                                                                                                                                                          (T.ufun2
                                                                                                                                                                                            T.mkLambda
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p
                                                                                                                                                                                            (\ f_x
                                                                                                                                                                                              f_y
                                                                                                                                                                                              p ->
                                                                                                                                                                                              T.uccase
                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                p
                                                                                                                                                                                                (let
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                      (T.Tuple2
                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                          (T.Cons
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              ','
                                                                                                                                                                                                              _)
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              T.List
                                                                                                                                                                                                              _))
                                                                                                                                                                                                          _)
                                                                                                                                                                                                        fs7)
                                                                                                                                                                                                      _)
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.uap1
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      (T.uap2
                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                        p
                                                                                                                                                                                                        (g_foldr
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p)
                                                                                                                                                                                                        (T.ufun2
                                                                                                                                                                                                          T.mkLambda
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p
                                                                                                                                                                                                          (\ f_x
                                                                                                                                                                                                            f_y
                                                                                                                                                                                                            p ->
                                                                                                                                                                                                            T.uccase
                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                              p
                                                                                                                                                                                                              (let
                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                  (T.R
                                                                                                                                                                                                                    (T.Tuple2
                                                                                                                                                                                                                      fx7
                                                                                                                                                                                                                      fr7)
                                                                                                                                                                                                                    _)
                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                  T.uap1
                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                    p
                                                                                                                                                                                                                    (T.uap2
                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                      p
                                                                                                                                                                                                                      (g_foldr
                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                      (T.ufun2
                                                                                                                                                                                                                        T.mkLambda
                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                        p
                                                                                                                                                                                                                        (\ f_x
                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                          p ->
                                                                                                                                                                                                                          T.uccase
                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                            p
                                                                                                                                                                                                                            (let
                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                  (T.Tuple2
                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                      (T.Cons
                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                          ','
                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                          T.List
                                                                                                                                                                                                                                          _))
                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                    fs8)
                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                T.uap1
                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                  (T.uap2
                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                    (g_foldr
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p)
                                                                                                                                                                                                                                    (T.ufun2
                                                                                                                                                                                                                                      T.mkLambda
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                      (\ f_x
                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                        p ->
                                                                                                                                                                                                                                        T.uccase
                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                          (let
                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                              (T.R
                                                                                                                                                                                                                                                (T.Tuple2
                                                                                                                                                                                                                                                  fx8
                                                                                                                                                                                                                                                  fr8)
                                                                                                                                                                                                                                                _)
                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                              T.uap1
                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                (T.uap2
                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                  (g_foldr
                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                  (T.ufun2
                                                                                                                                                                                                                                                    T.mkLambda
                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                    (\ f_x
                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                      p ->
                                                                                                                                                                                                                                                      T.uccase
                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                        (let
                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                              (T.Tuple2
                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                  (T.Cons
                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                      ','
                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                      T.List
                                                                                                                                                                                                                                                                      _))
                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                fs9)
                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                            T.uap1
                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                              (T.uap2
                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                (g_foldr
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p)
                                                                                                                                                                                                                                                                (T.ufun2
                                                                                                                                                                                                                                                                  T.mkLambda
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                  (\ f_x
                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                    p ->
                                                                                                                                                                                                                                                                    T.uccase
                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                      (let
                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                          (T.R
                                                                                                                                                                                                                                                                            (T.Tuple2
                                                                                                                                                                                                                                                                              fx9
                                                                                                                                                                                                                                                                              fr9)
                                                                                                                                                                                                                                                                            _)
                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                          T.uap1
                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                            (T.uap2
                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                              (g_foldr
                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                p)
                                                                                                                                                                                                                                                                              (T.ufun2
                                                                                                                                                                                                                                                                                T.mkLambda
                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                (\ f_x
                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                  p ->
                                                                                                                                                                                                                                                                                  T.uccase
                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                    (let
                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                              (T.Cons
                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                  ','
                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                  T.List
                                                                                                                                                                                                                                                                                                  _))
                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                            fs10)
                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                        T.uap1
                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                          (T.uap2
                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                            (g_foldr
                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                              p)
                                                                                                                                                                                                                                                                                            (T.ufun2
                                                                                                                                                                                                                                                                                              T.mkLambda
                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                              (\ f_x
                                                                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                                                                                p ->
                                                                                                                                                                                                                                                                                                T.uccase
                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                  (let
                                                                                                                                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                                                                                                                                      (T.R
                                                                                                                                                                                                                                                                                                        (T.Tuple2
                                                                                                                                                                                                                                                                                                          fx10
                                                                                                                                                                                                                                                                                                          fr10)
                                                                                                                                                                                                                                                                                                        _)
                                                                                                                                                                                                                                                                                                      p =
                                                                                                                                                                                                                                                                                                      T.uap1
                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                        (T.uap2
                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                          (g_foldr
                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                            p)
                                                                                                                                                                                                                                                                                                          (T.ufun2
                                                                                                                                                                                                                                                                                                            T.mkLambda
                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                            (\ f_x
                                                                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                                                                              p ->
                                                                                                                                                                                                                                                                                                              T.uccase
                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                (let
                                                                                                                                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                      (T.Tuple2
                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                          (T.Cons
                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                              ','
                                                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                              T.List
                                                                                                                                                                                                                                                                                                                              _))
                                                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                                                        fs11)
                                                                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                                                                    p =
                                                                                                                                                                                                                                                                                                                    T.uap1
                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                      (T.uap2
                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                        (g_foldr
                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                          p)
                                                                                                                                                                                                                                                                                                                        (T.ufun2
                                                                                                                                                                                                                                                                                                                          T.mkLambda
                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                          (\ f_x
                                                                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                                                                            p ->
                                                                                                                                                                                                                                                                                                                            T.uccase
                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                              (let
                                                                                                                                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                  (T.R
                                                                                                                                                                                                                                                                                                                                    (T.Tuple2
                                                                                                                                                                                                                                                                                                                                      fx11
                                                                                                                                                                                                                                                                                                                                      fr11)
                                                                                                                                                                                                                                                                                                                                    _)
                                                                                                                                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                                                                                                                                  T.uap1
                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                    (T.uap2
                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                      (g_foldr
                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                                                                                                                                      (T.ufun2
                                                                                                                                                                                                                                                                                                                                        T.mkLambda
                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                        (\ f_x
                                                                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                                                                          p ->
                                                                                                                                                                                                                                                                                                                                          T.uccase
                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                            (let
                                                                                                                                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                                                                  (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                                                      (T.Cons
                                                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                                                          ','
                                                                                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                                                          T.List
                                                                                                                                                                                                                                                                                                                                                          _))
                                                                                                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                                                                                                    fs12)
                                                                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                                                                                                                                T.uap1
                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                  (T.uap2
                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                    (g_foldr
                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                      p)
                                                                                                                                                                                                                                                                                                                                                    (T.ufun2
                                                                                                                                                                                                                                                                                                                                                      T.mkLambda
                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                                      (\ f_x
                                                                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                                                                        p ->
                                                                                                                                                                                                                                                                                                                                                        T.uccase
                                                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                                                          (let
                                                                                                                                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                              (T.R
                                                                                                                                                                                                                                                                                                                                                                (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                  fx12
                                                                                                                                                                                                                                                                                                                                                                  fr12)
                                                                                                                                                                                                                                                                                                                                                                _)
                                                                                                                                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                                                                                                                                              T.uap1
                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                (T.uap2
                                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                                  (g_foldr
                                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                                                                                                                                  (T.ufun2
                                                                                                                                                                                                                                                                                                                                                                    T.mkLambda
                                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                                    (\ f_x
                                                                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                                                                      p ->
                                                                                                                                                                                                                                                                                                                                                                      T.uccase
                                                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                                                        (let
                                                                                                                                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                                                                              (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                                                                                                  (T.Cons
                                                                                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                                                                                      ')'
                                                                                                                                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                                                                                      T.List
                                                                                                                                                                                                                                                                                                                                                                                      _))
                                                                                                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                                                                                                fw)
                                                                                                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                                                                                                                                            T.uap1
                                                                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                                                                              (T.pa1
                                                                                                                                                                                                                                                                                                                                                                                T.Cons
                                                                                                                                                                                                                                                                                                                                                                                T.cn1
                                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                                T.aCons
                                                                                                                                                                                                                                                                                                                                                                                (T.con2
                                                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                                                  T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                  T.aTuple2
                                                                                                                                                                                                                                                                                                                                                                                  (T.con12
                                                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                                                    T.Tuple12
                                                                                                                                                                                                                                                                                                                                                                                    T.aTuple12
                                                                                                                                                                                                                                                                                                                                                                                    fx1
                                                                                                                                                                                                                                                                                                                                                                                    fx2
                                                                                                                                                                                                                                                                                                                                                                                    fx3
                                                                                                                                                                                                                                                                                                                                                                                    fx4
                                                                                                                                                                                                                                                                                                                                                                                    fx5
                                                                                                                                                                                                                                                                                                                                                                                    fx6
                                                                                                                                                                                                                                                                                                                                                                                    fx7
                                                                                                                                                                                                                                                                                                                                                                                    fx8
                                                                                                                                                                                                                                                                                                                                                                                    fx9
                                                                                                                                                                                                                                                                                                                                                                                    fx10
                                                                                                                                                                                                                                                                                                                                                                                    fx11
                                                                                                                                                                                                                                                                                                                                                                                    fx12)
                                                                                                                                                                                                                                                                                                                                                                                  fw))
                                                                                                                                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                            _
                                                                                                                                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                                                                                                                                            T.projection
                                                                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                                                                                                                                          in
                                                                                                                                                                                                                                                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                                        f_x))
                                                                                                                                                                                                                                                                                                                                                                  (T.uwrapForward
                                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                                    (hlex
                                                                                                                                                                                                                                                                                                                                                                      fr12
                                                                                                                                                                                                                                                                                                                                                                      p)))
                                                                                                                                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                              _
                                                                                                                                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                                                                                                                                              T.projection
                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                                                                                                                                            in
                                                                                                                                                                                                                                                                                                                                                            (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                          f_x))
                                                                                                                                                                                                                                                                                                                                                    (T.uap1
                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                                      (greads
                                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                                                                                                                                                      fs12))
                                                                                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                _
                                                                                                                                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                                                                                                                                T.projection
                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                                                                              in
                                                                                                                                                                                                                                                                                                                                              (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                            f_x))
                                                                                                                                                                                                                                                                                                                                      (T.uwrapForward
                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                        (hlex
                                                                                                                                                                                                                                                                                                                                          fr11
                                                                                                                                                                                                                                                                                                                                          p)))
                                                                                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                  _
                                                                                                                                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                                                                                                                                  T.projection
                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                                                                                in
                                                                                                                                                                                                                                                                                                                                (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                              f_x))
                                                                                                                                                                                                                                                                                                                        (T.uap1
                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                          (greads
                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                            p)
                                                                                                                                                                                                                                                                                                                          fs11))
                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                    _
                                                                                                                                                                                                                                                                                                                    p =
                                                                                                                                                                                                                                                                                                                    T.projection
                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                  in
                                                                                                                                                                                                                                                                                                                  (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                f_x))
                                                                                                                                                                                                                                                                                                          (T.uwrapForward
                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                            (hlex
                                                                                                                                                                                                                                                                                                              fr10
                                                                                                                                                                                                                                                                                                              p)))
                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                                                                                                                                      _
                                                                                                                                                                                                                                                                                                      p =
                                                                                                                                                                                                                                                                                                      T.projection
                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                    in
                                                                                                                                                                                                                                                                                                    (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                  f_x))
                                                                                                                                                                                                                                                                                            (T.uap1
                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                              (greads
                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                p)
                                                                                                                                                                                                                                                                                              fs10))
                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                        _
                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                        T.projection
                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                      in
                                                                                                                                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                    f_x))
                                                                                                                                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                (hlex
                                                                                                                                                                                                                                                                                  fr9
                                                                                                                                                                                                                                                                                  p)))
                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                          _
                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                          T.projection
                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                        in
                                                                                                                                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                                                                                                                                      f_x))
                                                                                                                                                                                                                                                                (T.uap1
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                  (greads
                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                                  fs9))
                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                            _
                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                            T.projection
                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                          in
                                                                                                                                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                                                                                                                                        f_x))
                                                                                                                                                                                                                                                  (T.uwrapForward
                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                    (hlex
                                                                                                                                                                                                                                                      fr8
                                                                                                                                                                                                                                                      p)))
                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                              _
                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                              T.projection
                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                            in
                                                                                                                                                                                                                                            (v0v0v0v0v1))
                                                                                                                                                                                                                                          f_x))
                                                                                                                                                                                                                                    (T.uap1
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                      (greads
                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                                      fs8))
                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                _
                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                T.projection
                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                              in
                                                                                                                                                                                                                              (v0v0v0v0v1))
                                                                                                                                                                                                                            f_x))
                                                                                                                                                                                                                      (T.uwrapForward
                                                                                                                                                                                                                        p
                                                                                                                                                                                                                        (hlex
                                                                                                                                                                                                                          fr7
                                                                                                                                                                                                                          p)))
                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                  _
                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                  T.projection
                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                    p
                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                in
                                                                                                                                                                                                                (v0v0v0v0v1))
                                                                                                                                                                                                              f_x))
                                                                                                                                                                                                        (T.uap1
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p
                                                                                                                                                                                                          (greads
                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                            p)
                                                                                                                                                                                                          fs7))
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    _
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.projection
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  in
                                                                                                                                                                                                  (v0v0v0v0v1))
                                                                                                                                                                                                f_x))
                                                                                                                                                                                          (T.uwrapForward
                                                                                                                                                                                            p
                                                                                                                                                                                            (hlex
                                                                                                                                                                                              fr6
                                                                                                                                                                                              p)))
                                                                                                                                                                                        f_y
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      _
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.projection
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        f_y
                                                                                                                                                                                    in
                                                                                                                                                                                    (v0v0v0v0v1))
                                                                                                                                                                                  f_x))
                                                                                                                                                                            (T.uap1
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (greads
                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                p)
                                                                                                                                                                              fs6))
                                                                                                                                                                          f_y
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        _
                                                                                                                                                                        p =
                                                                                                                                                                        T.projection
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          f_y
                                                                                                                                                                      in
                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                    f_x))
                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                p
                                                                                                                                                                (hlex
                                                                                                                                                                  fr5
                                                                                                                                                                  p)))
                                                                                                                                                            f_y
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          _
                                                                                                                                                          p =
                                                                                                                                                          T.projection
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            f_y
                                                                                                                                                        in
                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                      f_x))
                                                                                                                                                (T.uap1
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (greads
                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                    p)
                                                                                                                                                  fs5))
                                                                                                                                              f_y
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            _
                                                                                                                                            p =
                                                                                                                                            T.projection
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              f_y
                                                                                                                                          in
                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                        f_x))
                                                                                                                                  (T.uwrapForward
                                                                                                                                    p
                                                                                                                                    (hlex
                                                                                                                                      fr4
                                                                                                                                      p)))
                                                                                                                                f_y
                                                                                                                            v0v0v0v0v1
                                                                                                                              _
                                                                                                                              p =
                                                                                                                              T.projection
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                f_y
                                                                                                                            in
                                                                                                                            (v0v0v0v0v1))
                                                                                                                          f_x))
                                                                                                                    (T.uap1
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (greads
                                                                                                                        T.mkNoSrcPos
                                                                                                                        p)
                                                                                                                      fs4))
                                                                                                                  f_y
                                                                                                              v0v0v0v0v1
                                                                                                                _
                                                                                                                p =
                                                                                                                T.projection
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  f_y
                                                                                                              in
                                                                                                              (v0v0v0v0v1))
                                                                                                            f_x))
                                                                                                      (T.uwrapForward
                                                                                                        p
                                                                                                        (hlex
                                                                                                          fr3
                                                                                                          p)))
                                                                                                    f_y
                                                                                                v0v0v0v0v1
                                                                                                  _
                                                                                                  p =
                                                                                                  T.projection
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    f_y
                                                                                                in
                                                                                                (v0v0v0v0v1))
                                                                                              f_x))
                                                                                        (T.uap1
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (greads
                                                                                            T.mkNoSrcPos
                                                                                            p)
                                                                                          fs3))
                                                                                      f_y
                                                                                  v0v0v0v0v1
                                                                                    _
                                                                                    p =
                                                                                    T.projection
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      f_y
                                                                                  in
                                                                                  (v0v0v0v0v1))
                                                                                f_x))
                                                                          (T.uwrapForward
                                                                            p
                                                                            (hlex
                                                                              fr2
                                                                              p)))
                                                                        f_y
                                                                    v0v0v0v0v1 _
                                                                      p =
                                                                      T.projection
                                                                        T.mkNoSrcPos
                                                                        p f_y in
                                                                    (v0v0v0v0v1))
                                                                  f_x))
                                                            (T.uap1 T.mkNoSrcPos
                                                              p
                                                              (greads
                                                                T.mkNoSrcPos p)
                                                              fs2)) f_y
                                                      v0v0v0v0v1 _ p =
                                                        T.projection
                                                          T.mkNoSrcPos p f_y in
                                                      (v0v0v0v0v1)) f_x))
                                              (T.uwrapForward p (hlex fr1 p)))
                                            f_y
                                        v0v0v0v0v1 _ p =
                                          T.projection T.mkNoSrcPos p f_y in
                                        (v0v0v0v0v1)) f_x))
                                (T.uap1 T.mkNoSrcPos p (greads T.mkNoSrcPos p)
                                  fs1)) f_y
                          v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                          (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr0 p)))
                (T.fromExpList T.mkNoSrcPos p []))) p)
    
  

instance
  (Read a,Read b,Read c,Read d,Read e,Read f,Read g,Read h,Read i,Read j,Read k
      ,Read l,Read m) => Read ((T.Tuple13 a b c d e f g h i j k l m))
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a2223v5v2224v22readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p
        (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
          (T.ufun1 T.mkLambda T.mkNoSrcPos p
            (\ fr0 p ->
              T.uap1 T.mkNoSrcPos p
                (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                  (T.ufun2 T.mkLambda T.mkNoSrcPos p
                    (\ f_x f_y p ->
                      T.uccase T.mkNoSrcPos p
                        (let
                          v0v0v0v0v1
                            (T.R
                              (T.Tuple2
                                (T.R (T.Cons (T.R '(' _) (T.R T.List _)) _) fs1)
                              _) p =
                            T.uap1 T.mkNoSrcPos p
                              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                  (\ f_x f_y p ->
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v0v0v0v0v1 (T.R (T.Tuple2 fx1 fr1) _)
                                          p =
                                          T.uap1 T.mkNoSrcPos p
                                            (T.uap2 T.mkNoSrcPos p
                                              (g_foldr T.mkNoSrcPos p)
                                              (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                                (\ f_x f_y p ->
                                                  T.uccase T.mkNoSrcPos p
                                                    (let
                                                      v0v0v0v0v1
                                                        (T.R
                                                          (T.Tuple2
                                                            (T.R
                                                              (T.Cons
                                                                (T.R ',' _)
                                                                (T.R T.List _))
                                                              _) fs2) _) p =
                                                        T.uap1 T.mkNoSrcPos p
                                                          (T.uap2 T.mkNoSrcPos p
                                                            (g_foldr
                                                              T.mkNoSrcPos p)
                                                            (T.ufun2 T.mkLambda
                                                              T.mkNoSrcPos p
                                                              (\ f_x f_y p ->
                                                                T.uccase
                                                                  T.mkNoSrcPos p
                                                                  (let
                                                                    v0v0v0v0v1
                                                                      (T.R
                                                                        (T.Tuple2
                                                                          fx2
                                                                          fr2)
                                                                        _) p =
                                                                      T.uap1
                                                                        T.mkNoSrcPos
                                                                        p
                                                                        (T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (g_foldr
                                                                            T.mkNoSrcPos
                                                                            p)
                                                                          (T.ufun2
                                                                            T.mkLambda
                                                                            T.mkNoSrcPos
                                                                            p
                                                                            (\ f_x
                                                                              f_y
                                                                              p ->
                                                                              T.uccase
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (let
                                                                                  v0v0v0v0v1
                                                                                    (T.R
                                                                                      (T.Tuple2
                                                                                        (T.R
                                                                                          (T.Cons
                                                                                            (T.R
                                                                                              ','
                                                                                              _)
                                                                                            (T.R
                                                                                              T.List
                                                                                              _))
                                                                                          _)
                                                                                        fs3)
                                                                                      _)
                                                                                    p =
                                                                                    T.uap1
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      (T.uap2
                                                                                        T.mkNoSrcPos
                                                                                        p
                                                                                        (g_foldr
                                                                                          T.mkNoSrcPos
                                                                                          p)
                                                                                        (T.ufun2
                                                                                          T.mkLambda
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (\ f_x
                                                                                            f_y
                                                                                            p ->
                                                                                            T.uccase
                                                                                              T.mkNoSrcPos
                                                                                              p
                                                                                              (let
                                                                                                v0v0v0v0v1
                                                                                                  (T.R
                                                                                                    (T.Tuple2
                                                                                                      fx3
                                                                                                      fr3)
                                                                                                    _)
                                                                                                  p =
                                                                                                  T.uap1
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    (T.uap2
                                                                                                      T.mkNoSrcPos
                                                                                                      p
                                                                                                      (g_foldr
                                                                                                        T.mkNoSrcPos
                                                                                                        p)
                                                                                                      (T.ufun2
                                                                                                        T.mkLambda
                                                                                                        T.mkNoSrcPos
                                                                                                        p
                                                                                                        (\ f_x
                                                                                                          f_y
                                                                                                          p ->
                                                                                                          T.uccase
                                                                                                            T.mkNoSrcPos
                                                                                                            p
                                                                                                            (let
                                                                                                              v0v0v0v0v1
                                                                                                                (T.R
                                                                                                                  (T.Tuple2
                                                                                                                    (T.R
                                                                                                                      (T.Cons
                                                                                                                        (T.R
                                                                                                                          ','
                                                                                                                          _)
                                                                                                                        (T.R
                                                                                                                          T.List
                                                                                                                          _))
                                                                                                                      _)
                                                                                                                    fs4)
                                                                                                                  _)
                                                                                                                p =
                                                                                                                T.uap1
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  (T.uap2
                                                                                                                    T.mkNoSrcPos
                                                                                                                    p
                                                                                                                    (g_foldr
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p)
                                                                                                                    (T.ufun2
                                                                                                                      T.mkLambda
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (\ f_x
                                                                                                                        f_y
                                                                                                                        p ->
                                                                                                                        T.uccase
                                                                                                                          T.mkNoSrcPos
                                                                                                                          p
                                                                                                                          (let
                                                                                                                            v0v0v0v0v1
                                                                                                                              (T.R
                                                                                                                                (T.Tuple2
                                                                                                                                  fx4
                                                                                                                                  fr4)
                                                                                                                                _)
                                                                                                                              p =
                                                                                                                              T.uap1
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                (T.uap2
                                                                                                                                  T.mkNoSrcPos
                                                                                                                                  p
                                                                                                                                  (g_foldr
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p)
                                                                                                                                  (T.ufun2
                                                                                                                                    T.mkLambda
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p
                                                                                                                                    (\ f_x
                                                                                                                                      f_y
                                                                                                                                      p ->
                                                                                                                                      T.uccase
                                                                                                                                        T.mkNoSrcPos
                                                                                                                                        p
                                                                                                                                        (let
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            (T.R
                                                                                                                                              (T.Tuple2
                                                                                                                                                (T.R
                                                                                                                                                  (T.Cons
                                                                                                                                                    (T.R
                                                                                                                                                      ','
                                                                                                                                                      _)
                                                                                                                                                    (T.R
                                                                                                                                                      T.List
                                                                                                                                                      _))
                                                                                                                                                  _)
                                                                                                                                                fs5)
                                                                                                                                              _)
                                                                                                                                            p =
                                                                                                                                            T.uap1
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              (T.uap2
                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                p
                                                                                                                                                (g_foldr
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p)
                                                                                                                                                (T.ufun2
                                                                                                                                                  T.mkLambda
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (\ f_x
                                                                                                                                                    f_y
                                                                                                                                                    p ->
                                                                                                                                                    T.uccase
                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                      p
                                                                                                                                                      (let
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          (T.R
                                                                                                                                                            (T.Tuple2
                                                                                                                                                              fx5
                                                                                                                                                              fr5)
                                                                                                                                                            _)
                                                                                                                                                          p =
                                                                                                                                                          T.uap1
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            (T.uap2
                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                              p
                                                                                                                                                              (g_foldr
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p)
                                                                                                                                                              (T.ufun2
                                                                                                                                                                T.mkLambda
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p
                                                                                                                                                                (\ f_x
                                                                                                                                                                  f_y
                                                                                                                                                                  p ->
                                                                                                                                                                  T.uccase
                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                    p
                                                                                                                                                                    (let
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        (T.R
                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                            (T.R
                                                                                                                                                                              (T.Cons
                                                                                                                                                                                (T.R
                                                                                                                                                                                  ','
                                                                                                                                                                                  _)
                                                                                                                                                                                (T.R
                                                                                                                                                                                  T.List
                                                                                                                                                                                  _))
                                                                                                                                                                              _)
                                                                                                                                                                            fs6)
                                                                                                                                                                          _)
                                                                                                                                                                        p =
                                                                                                                                                                        T.uap1
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          (T.uap2
                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                            p
                                                                                                                                                                            (g_foldr
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p)
                                                                                                                                                                            (T.ufun2
                                                                                                                                                                              T.mkLambda
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (\ f_x
                                                                                                                                                                                f_y
                                                                                                                                                                                p ->
                                                                                                                                                                                T.uccase
                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                  p
                                                                                                                                                                                  (let
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      (T.R
                                                                                                                                                                                        (T.Tuple2
                                                                                                                                                                                          fx6
                                                                                                                                                                                          fr6)
                                                                                                                                                                                        _)
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.uap1
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        (T.uap2
                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                          p
                                                                                                                                                                                          (g_foldr
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p)
                                                                                                                                                                                          (T.ufun2
                                                                                                                                                                                            T.mkLambda
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p
                                                                                                                                                                                            (\ f_x
                                                                                                                                                                                              f_y
                                                                                                                                                                                              p ->
                                                                                                                                                                                              T.uccase
                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                p
                                                                                                                                                                                                (let
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                      (T.Tuple2
                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                          (T.Cons
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              ','
                                                                                                                                                                                                              _)
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              T.List
                                                                                                                                                                                                              _))
                                                                                                                                                                                                          _)
                                                                                                                                                                                                        fs7)
                                                                                                                                                                                                      _)
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.uap1
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      (T.uap2
                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                        p
                                                                                                                                                                                                        (g_foldr
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p)
                                                                                                                                                                                                        (T.ufun2
                                                                                                                                                                                                          T.mkLambda
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p
                                                                                                                                                                                                          (\ f_x
                                                                                                                                                                                                            f_y
                                                                                                                                                                                                            p ->
                                                                                                                                                                                                            T.uccase
                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                              p
                                                                                                                                                                                                              (let
                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                  (T.R
                                                                                                                                                                                                                    (T.Tuple2
                                                                                                                                                                                                                      fx7
                                                                                                                                                                                                                      fr7)
                                                                                                                                                                                                                    _)
                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                  T.uap1
                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                    p
                                                                                                                                                                                                                    (T.uap2
                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                      p
                                                                                                                                                                                                                      (g_foldr
                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                      (T.ufun2
                                                                                                                                                                                                                        T.mkLambda
                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                        p
                                                                                                                                                                                                                        (\ f_x
                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                          p ->
                                                                                                                                                                                                                          T.uccase
                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                            p
                                                                                                                                                                                                                            (let
                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                  (T.Tuple2
                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                      (T.Cons
                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                          ','
                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                          T.List
                                                                                                                                                                                                                                          _))
                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                    fs8)
                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                T.uap1
                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                  (T.uap2
                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                    (g_foldr
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p)
                                                                                                                                                                                                                                    (T.ufun2
                                                                                                                                                                                                                                      T.mkLambda
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                      (\ f_x
                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                        p ->
                                                                                                                                                                                                                                        T.uccase
                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                          (let
                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                              (T.R
                                                                                                                                                                                                                                                (T.Tuple2
                                                                                                                                                                                                                                                  fx8
                                                                                                                                                                                                                                                  fr8)
                                                                                                                                                                                                                                                _)
                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                              T.uap1
                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                (T.uap2
                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                  (g_foldr
                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                  (T.ufun2
                                                                                                                                                                                                                                                    T.mkLambda
                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                    (\ f_x
                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                      p ->
                                                                                                                                                                                                                                                      T.uccase
                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                        (let
                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                              (T.Tuple2
                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                  (T.Cons
                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                      ','
                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                      T.List
                                                                                                                                                                                                                                                                      _))
                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                fs9)
                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                            T.uap1
                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                              (T.uap2
                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                (g_foldr
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p)
                                                                                                                                                                                                                                                                (T.ufun2
                                                                                                                                                                                                                                                                  T.mkLambda
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                  (\ f_x
                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                    p ->
                                                                                                                                                                                                                                                                    T.uccase
                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                      (let
                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                          (T.R
                                                                                                                                                                                                                                                                            (T.Tuple2
                                                                                                                                                                                                                                                                              fx9
                                                                                                                                                                                                                                                                              fr9)
                                                                                                                                                                                                                                                                            _)
                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                          T.uap1
                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                            (T.uap2
                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                              (g_foldr
                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                p)
                                                                                                                                                                                                                                                                              (T.ufun2
                                                                                                                                                                                                                                                                                T.mkLambda
                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                (\ f_x
                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                  p ->
                                                                                                                                                                                                                                                                                  T.uccase
                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                    (let
                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                              (T.Cons
                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                  ','
                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                  T.List
                                                                                                                                                                                                                                                                                                  _))
                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                            fs10)
                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                        T.uap1
                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                          (T.uap2
                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                            (g_foldr
                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                              p)
                                                                                                                                                                                                                                                                                            (T.ufun2
                                                                                                                                                                                                                                                                                              T.mkLambda
                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                              (\ f_x
                                                                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                                                                                p ->
                                                                                                                                                                                                                                                                                                T.uccase
                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                  (let
                                                                                                                                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                                                                                                                                      (T.R
                                                                                                                                                                                                                                                                                                        (T.Tuple2
                                                                                                                                                                                                                                                                                                          fx10
                                                                                                                                                                                                                                                                                                          fr10)
                                                                                                                                                                                                                                                                                                        _)
                                                                                                                                                                                                                                                                                                      p =
                                                                                                                                                                                                                                                                                                      T.uap1
                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                        (T.uap2
                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                          (g_foldr
                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                            p)
                                                                                                                                                                                                                                                                                                          (T.ufun2
                                                                                                                                                                                                                                                                                                            T.mkLambda
                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                            (\ f_x
                                                                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                                                                              p ->
                                                                                                                                                                                                                                                                                                              T.uccase
                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                (let
                                                                                                                                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                      (T.Tuple2
                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                          (T.Cons
                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                              ','
                                                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                              T.List
                                                                                                                                                                                                                                                                                                                              _))
                                                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                                                        fs11)
                                                                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                                                                    p =
                                                                                                                                                                                                                                                                                                                    T.uap1
                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                      (T.uap2
                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                        (g_foldr
                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                          p)
                                                                                                                                                                                                                                                                                                                        (T.ufun2
                                                                                                                                                                                                                                                                                                                          T.mkLambda
                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                          (\ f_x
                                                                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                                                                            p ->
                                                                                                                                                                                                                                                                                                                            T.uccase
                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                              (let
                                                                                                                                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                  (T.R
                                                                                                                                                                                                                                                                                                                                    (T.Tuple2
                                                                                                                                                                                                                                                                                                                                      fx11
                                                                                                                                                                                                                                                                                                                                      fr11)
                                                                                                                                                                                                                                                                                                                                    _)
                                                                                                                                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                                                                                                                                  T.uap1
                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                    (T.uap2
                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                      (g_foldr
                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                                                                                                                                      (T.ufun2
                                                                                                                                                                                                                                                                                                                                        T.mkLambda
                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                        (\ f_x
                                                                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                                                                          p ->
                                                                                                                                                                                                                                                                                                                                          T.uccase
                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                            (let
                                                                                                                                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                                                                  (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                                                      (T.Cons
                                                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                                                          ','
                                                                                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                                                          T.List
                                                                                                                                                                                                                                                                                                                                                          _))
                                                                                                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                                                                                                    fs12)
                                                                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                                                                                                                                T.uap1
                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                  (T.uap2
                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                    (g_foldr
                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                      p)
                                                                                                                                                                                                                                                                                                                                                    (T.ufun2
                                                                                                                                                                                                                                                                                                                                                      T.mkLambda
                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                                      (\ f_x
                                                                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                                                                        p ->
                                                                                                                                                                                                                                                                                                                                                        T.uccase
                                                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                                                          (let
                                                                                                                                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                              (T.R
                                                                                                                                                                                                                                                                                                                                                                (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                  fx12
                                                                                                                                                                                                                                                                                                                                                                  fr12)
                                                                                                                                                                                                                                                                                                                                                                _)
                                                                                                                                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                                                                                                                                              T.uap1
                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                (T.uap2
                                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                                  (g_foldr
                                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                                                                                                                                  (T.ufun2
                                                                                                                                                                                                                                                                                                                                                                    T.mkLambda
                                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                                    (\ f_x
                                                                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                                                                      p ->
                                                                                                                                                                                                                                                                                                                                                                      T.uccase
                                                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                                                        (let
                                                                                                                                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                                                                              (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                                                                                                  (T.Cons
                                                                                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                                                                                      ','
                                                                                                                                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                                                                                      T.List
                                                                                                                                                                                                                                                                                                                                                                                      _))
                                                                                                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                                                                                                fs13)
                                                                                                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                                                                                                                                            T.uap1
                                                                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                                                                              (T.uap2
                                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                                (g_foldr
                                                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                  p)
                                                                                                                                                                                                                                                                                                                                                                                (T.ufun2
                                                                                                                                                                                                                                                                                                                                                                                  T.mkLambda
                                                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                                                  (\ f_x
                                                                                                                                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                                                                                                                                    p ->
                                                                                                                                                                                                                                                                                                                                                                                    T.uccase
                                                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                                                                      (let
                                                                                                                                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                          (T.R
                                                                                                                                                                                                                                                                                                                                                                                            (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                              fx13
                                                                                                                                                                                                                                                                                                                                                                                              fr13)
                                                                                                                                                                                                                                                                                                                                                                                            _)
                                                                                                                                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                                                                                                                                          T.uap1
                                                                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                                                                            (T.uap2
                                                                                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                                                                                              (g_foldr
                                                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                p)
                                                                                                                                                                                                                                                                                                                                                                                              (T.ufun2
                                                                                                                                                                                                                                                                                                                                                                                                T.mkLambda
                                                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                                                (\ f_x
                                                                                                                                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                                                                                                                                  p ->
                                                                                                                                                                                                                                                                                                                                                                                                  T.uccase
                                                                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                                                                    (let
                                                                                                                                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                                                                                                              (T.Cons
                                                                                                                                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                  ')'
                                                                                                                                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                  T.List
                                                                                                                                                                                                                                                                                                                                                                                                                  _))
                                                                                                                                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                                                                                                                                            fw)
                                                                                                                                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                                                                                                                                        T.uap1
                                                                                                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                                                                                                          (T.pa1
                                                                                                                                                                                                                                                                                                                                                                                                            T.Cons
                                                                                                                                                                                                                                                                                                                                                                                                            T.cn1
                                                                                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                                                                                            T.aCons
                                                                                                                                                                                                                                                                                                                                                                                                            (T.con2
                                                                                                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                                                                                                              T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                                              T.aTuple2
                                                                                                                                                                                                                                                                                                                                                                                                              (T.con13
                                                                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                                                                T.Tuple13
                                                                                                                                                                                                                                                                                                                                                                                                                T.aTuple13
                                                                                                                                                                                                                                                                                                                                                                                                                fx1
                                                                                                                                                                                                                                                                                                                                                                                                                fx2
                                                                                                                                                                                                                                                                                                                                                                                                                fx3
                                                                                                                                                                                                                                                                                                                                                                                                                fx4
                                                                                                                                                                                                                                                                                                                                                                                                                fx5
                                                                                                                                                                                                                                                                                                                                                                                                                fx6
                                                                                                                                                                                                                                                                                                                                                                                                                fx7
                                                                                                                                                                                                                                                                                                                                                                                                                fx8
                                                                                                                                                                                                                                                                                                                                                                                                                fx9
                                                                                                                                                                                                                                                                                                                                                                                                                fx10
                                                                                                                                                                                                                                                                                                                                                                                                                fx11
                                                                                                                                                                                                                                                                                                                                                                                                                fx12
                                                                                                                                                                                                                                                                                                                                                                                                                fx13)
                                                                                                                                                                                                                                                                                                                                                                                                              fw))
                                                                                                                                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                                        _
                                                                                                                                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                                                                                                                                        T.projection
                                                                                                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                                                                                                                                      in
                                                                                                                                                                                                                                                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                                                                    f_x))
                                                                                                                                                                                                                                                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                                                (hlex
                                                                                                                                                                                                                                                                                                                                                                                                  fr13
                                                                                                                                                                                                                                                                                                                                                                                                  p)))
                                                                                                                                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                          _
                                                                                                                                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                                                                                                                                          T.projection
                                                                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                                                                                                                                        in
                                                                                                                                                                                                                                                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                                                      f_x))
                                                                                                                                                                                                                                                                                                                                                                                (T.uap1
                                                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                                                  (greads
                                                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                                                                                                                                                  fs13))
                                                                                                                                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                            _
                                                                                                                                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                                                                                                                                            T.projection
                                                                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                                                                                                                                          in
                                                                                                                                                                                                                                                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                                        f_x))
                                                                                                                                                                                                                                                                                                                                                                  (T.uwrapForward
                                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                                    (hlex
                                                                                                                                                                                                                                                                                                                                                                      fr12
                                                                                                                                                                                                                                                                                                                                                                      p)))
                                                                                                                                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                              _
                                                                                                                                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                                                                                                                                              T.projection
                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                                                                                                                                            in
                                                                                                                                                                                                                                                                                                                                                            (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                          f_x))
                                                                                                                                                                                                                                                                                                                                                    (T.uap1
                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                                      (greads
                                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                                                                                                                                                      fs12))
                                                                                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                _
                                                                                                                                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                                                                                                                                T.projection
                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                                                                              in
                                                                                                                                                                                                                                                                                                                                              (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                            f_x))
                                                                                                                                                                                                                                                                                                                                      (T.uwrapForward
                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                        (hlex
                                                                                                                                                                                                                                                                                                                                          fr11
                                                                                                                                                                                                                                                                                                                                          p)))
                                                                                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                  _
                                                                                                                                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                                                                                                                                  T.projection
                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                                                                                in
                                                                                                                                                                                                                                                                                                                                (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                              f_x))
                                                                                                                                                                                                                                                                                                                        (T.uap1
                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                          (greads
                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                            p)
                                                                                                                                                                                                                                                                                                                          fs11))
                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                    _
                                                                                                                                                                                                                                                                                                                    p =
                                                                                                                                                                                                                                                                                                                    T.projection
                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                  in
                                                                                                                                                                                                                                                                                                                  (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                f_x))
                                                                                                                                                                                                                                                                                                          (T.uwrapForward
                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                            (hlex
                                                                                                                                                                                                                                                                                                              fr10
                                                                                                                                                                                                                                                                                                              p)))
                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                                                                                                                                      _
                                                                                                                                                                                                                                                                                                      p =
                                                                                                                                                                                                                                                                                                      T.projection
                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                    in
                                                                                                                                                                                                                                                                                                    (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                  f_x))
                                                                                                                                                                                                                                                                                            (T.uap1
                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                              (greads
                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                p)
                                                                                                                                                                                                                                                                                              fs10))
                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                        _
                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                        T.projection
                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                      in
                                                                                                                                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                    f_x))
                                                                                                                                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                (hlex
                                                                                                                                                                                                                                                                                  fr9
                                                                                                                                                                                                                                                                                  p)))
                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                          _
                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                          T.projection
                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                        in
                                                                                                                                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                                                                                                                                      f_x))
                                                                                                                                                                                                                                                                (T.uap1
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                  (greads
                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                                  fs9))
                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                            _
                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                            T.projection
                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                          in
                                                                                                                                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                                                                                                                                        f_x))
                                                                                                                                                                                                                                                  (T.uwrapForward
                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                    (hlex
                                                                                                                                                                                                                                                      fr8
                                                                                                                                                                                                                                                      p)))
                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                              _
                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                              T.projection
                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                            in
                                                                                                                                                                                                                                            (v0v0v0v0v1))
                                                                                                                                                                                                                                          f_x))
                                                                                                                                                                                                                                    (T.uap1
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                      (greads
                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                                      fs8))
                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                _
                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                T.projection
                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                              in
                                                                                                                                                                                                                              (v0v0v0v0v1))
                                                                                                                                                                                                                            f_x))
                                                                                                                                                                                                                      (T.uwrapForward
                                                                                                                                                                                                                        p
                                                                                                                                                                                                                        (hlex
                                                                                                                                                                                                                          fr7
                                                                                                                                                                                                                          p)))
                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                  _
                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                  T.projection
                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                    p
                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                in
                                                                                                                                                                                                                (v0v0v0v0v1))
                                                                                                                                                                                                              f_x))
                                                                                                                                                                                                        (T.uap1
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p
                                                                                                                                                                                                          (greads
                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                            p)
                                                                                                                                                                                                          fs7))
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    _
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.projection
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  in
                                                                                                                                                                                                  (v0v0v0v0v1))
                                                                                                                                                                                                f_x))
                                                                                                                                                                                          (T.uwrapForward
                                                                                                                                                                                            p
                                                                                                                                                                                            (hlex
                                                                                                                                                                                              fr6
                                                                                                                                                                                              p)))
                                                                                                                                                                                        f_y
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      _
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.projection
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        f_y
                                                                                                                                                                                    in
                                                                                                                                                                                    (v0v0v0v0v1))
                                                                                                                                                                                  f_x))
                                                                                                                                                                            (T.uap1
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (greads
                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                p)
                                                                                                                                                                              fs6))
                                                                                                                                                                          f_y
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        _
                                                                                                                                                                        p =
                                                                                                                                                                        T.projection
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          f_y
                                                                                                                                                                      in
                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                    f_x))
                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                p
                                                                                                                                                                (hlex
                                                                                                                                                                  fr5
                                                                                                                                                                  p)))
                                                                                                                                                            f_y
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          _
                                                                                                                                                          p =
                                                                                                                                                          T.projection
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            f_y
                                                                                                                                                        in
                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                      f_x))
                                                                                                                                                (T.uap1
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (greads
                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                    p)
                                                                                                                                                  fs5))
                                                                                                                                              f_y
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            _
                                                                                                                                            p =
                                                                                                                                            T.projection
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              f_y
                                                                                                                                          in
                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                        f_x))
                                                                                                                                  (T.uwrapForward
                                                                                                                                    p
                                                                                                                                    (hlex
                                                                                                                                      fr4
                                                                                                                                      p)))
                                                                                                                                f_y
                                                                                                                            v0v0v0v0v1
                                                                                                                              _
                                                                                                                              p =
                                                                                                                              T.projection
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                f_y
                                                                                                                            in
                                                                                                                            (v0v0v0v0v1))
                                                                                                                          f_x))
                                                                                                                    (T.uap1
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (greads
                                                                                                                        T.mkNoSrcPos
                                                                                                                        p)
                                                                                                                      fs4))
                                                                                                                  f_y
                                                                                                              v0v0v0v0v1
                                                                                                                _
                                                                                                                p =
                                                                                                                T.projection
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  f_y
                                                                                                              in
                                                                                                              (v0v0v0v0v1))
                                                                                                            f_x))
                                                                                                      (T.uwrapForward
                                                                                                        p
                                                                                                        (hlex
                                                                                                          fr3
                                                                                                          p)))
                                                                                                    f_y
                                                                                                v0v0v0v0v1
                                                                                                  _
                                                                                                  p =
                                                                                                  T.projection
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    f_y
                                                                                                in
                                                                                                (v0v0v0v0v1))
                                                                                              f_x))
                                                                                        (T.uap1
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (greads
                                                                                            T.mkNoSrcPos
                                                                                            p)
                                                                                          fs3))
                                                                                      f_y
                                                                                  v0v0v0v0v1
                                                                                    _
                                                                                    p =
                                                                                    T.projection
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      f_y
                                                                                  in
                                                                                  (v0v0v0v0v1))
                                                                                f_x))
                                                                          (T.uwrapForward
                                                                            p
                                                                            (hlex
                                                                              fr2
                                                                              p)))
                                                                        f_y
                                                                    v0v0v0v0v1 _
                                                                      p =
                                                                      T.projection
                                                                        T.mkNoSrcPos
                                                                        p f_y in
                                                                    (v0v0v0v0v1))
                                                                  f_x))
                                                            (T.uap1 T.mkNoSrcPos
                                                              p
                                                              (greads
                                                                T.mkNoSrcPos p)
                                                              fs2)) f_y
                                                      v0v0v0v0v1 _ p =
                                                        T.projection
                                                          T.mkNoSrcPos p f_y in
                                                      (v0v0v0v0v1)) f_x))
                                              (T.uwrapForward p (hlex fr1 p)))
                                            f_y
                                        v0v0v0v0v1 _ p =
                                          T.projection T.mkNoSrcPos p f_y in
                                        (v0v0v0v0v1)) f_x))
                                (T.uap1 T.mkNoSrcPos p (greads T.mkNoSrcPos p)
                                  fs1)) f_y
                          v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                          (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr0 p)))
                (T.fromExpList T.mkNoSrcPos p []))) p)
    
  

instance
  (Read a,Read b,Read c,Read d,Read e,Read f,Read g,Read h,Read i,Read j,Read k
      ,Read l,Read m,Read n) => Read ((T.Tuple14 a b c d e f g h i j k l m n))
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a2256v5v2257v22readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p
        (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
          (T.ufun1 T.mkLambda T.mkNoSrcPos p
            (\ fr0 p ->
              T.uap1 T.mkNoSrcPos p
                (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                  (T.ufun2 T.mkLambda T.mkNoSrcPos p
                    (\ f_x f_y p ->
                      T.uccase T.mkNoSrcPos p
                        (let
                          v0v0v0v0v1
                            (T.R
                              (T.Tuple2
                                (T.R (T.Cons (T.R '(' _) (T.R T.List _)) _) fs1)
                              _) p =
                            T.uap1 T.mkNoSrcPos p
                              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                  (\ f_x f_y p ->
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v0v0v0v0v1 (T.R (T.Tuple2 fx1 fr1) _)
                                          p =
                                          T.uap1 T.mkNoSrcPos p
                                            (T.uap2 T.mkNoSrcPos p
                                              (g_foldr T.mkNoSrcPos p)
                                              (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                                (\ f_x f_y p ->
                                                  T.uccase T.mkNoSrcPos p
                                                    (let
                                                      v0v0v0v0v1
                                                        (T.R
                                                          (T.Tuple2
                                                            (T.R
                                                              (T.Cons
                                                                (T.R ',' _)
                                                                (T.R T.List _))
                                                              _) fs2) _) p =
                                                        T.uap1 T.mkNoSrcPos p
                                                          (T.uap2 T.mkNoSrcPos p
                                                            (g_foldr
                                                              T.mkNoSrcPos p)
                                                            (T.ufun2 T.mkLambda
                                                              T.mkNoSrcPos p
                                                              (\ f_x f_y p ->
                                                                T.uccase
                                                                  T.mkNoSrcPos p
                                                                  (let
                                                                    v0v0v0v0v1
                                                                      (T.R
                                                                        (T.Tuple2
                                                                          fx2
                                                                          fr2)
                                                                        _) p =
                                                                      T.uap1
                                                                        T.mkNoSrcPos
                                                                        p
                                                                        (T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (g_foldr
                                                                            T.mkNoSrcPos
                                                                            p)
                                                                          (T.ufun2
                                                                            T.mkLambda
                                                                            T.mkNoSrcPos
                                                                            p
                                                                            (\ f_x
                                                                              f_y
                                                                              p ->
                                                                              T.uccase
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (let
                                                                                  v0v0v0v0v1
                                                                                    (T.R
                                                                                      (T.Tuple2
                                                                                        (T.R
                                                                                          (T.Cons
                                                                                            (T.R
                                                                                              ','
                                                                                              _)
                                                                                            (T.R
                                                                                              T.List
                                                                                              _))
                                                                                          _)
                                                                                        fs3)
                                                                                      _)
                                                                                    p =
                                                                                    T.uap1
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      (T.uap2
                                                                                        T.mkNoSrcPos
                                                                                        p
                                                                                        (g_foldr
                                                                                          T.mkNoSrcPos
                                                                                          p)
                                                                                        (T.ufun2
                                                                                          T.mkLambda
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (\ f_x
                                                                                            f_y
                                                                                            p ->
                                                                                            T.uccase
                                                                                              T.mkNoSrcPos
                                                                                              p
                                                                                              (let
                                                                                                v0v0v0v0v1
                                                                                                  (T.R
                                                                                                    (T.Tuple2
                                                                                                      fx3
                                                                                                      fr3)
                                                                                                    _)
                                                                                                  p =
                                                                                                  T.uap1
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    (T.uap2
                                                                                                      T.mkNoSrcPos
                                                                                                      p
                                                                                                      (g_foldr
                                                                                                        T.mkNoSrcPos
                                                                                                        p)
                                                                                                      (T.ufun2
                                                                                                        T.mkLambda
                                                                                                        T.mkNoSrcPos
                                                                                                        p
                                                                                                        (\ f_x
                                                                                                          f_y
                                                                                                          p ->
                                                                                                          T.uccase
                                                                                                            T.mkNoSrcPos
                                                                                                            p
                                                                                                            (let
                                                                                                              v0v0v0v0v1
                                                                                                                (T.R
                                                                                                                  (T.Tuple2
                                                                                                                    (T.R
                                                                                                                      (T.Cons
                                                                                                                        (T.R
                                                                                                                          ','
                                                                                                                          _)
                                                                                                                        (T.R
                                                                                                                          T.List
                                                                                                                          _))
                                                                                                                      _)
                                                                                                                    fs4)
                                                                                                                  _)
                                                                                                                p =
                                                                                                                T.uap1
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  (T.uap2
                                                                                                                    T.mkNoSrcPos
                                                                                                                    p
                                                                                                                    (g_foldr
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p)
                                                                                                                    (T.ufun2
                                                                                                                      T.mkLambda
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (\ f_x
                                                                                                                        f_y
                                                                                                                        p ->
                                                                                                                        T.uccase
                                                                                                                          T.mkNoSrcPos
                                                                                                                          p
                                                                                                                          (let
                                                                                                                            v0v0v0v0v1
                                                                                                                              (T.R
                                                                                                                                (T.Tuple2
                                                                                                                                  fx4
                                                                                                                                  fr4)
                                                                                                                                _)
                                                                                                                              p =
                                                                                                                              T.uap1
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                (T.uap2
                                                                                                                                  T.mkNoSrcPos
                                                                                                                                  p
                                                                                                                                  (g_foldr
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p)
                                                                                                                                  (T.ufun2
                                                                                                                                    T.mkLambda
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p
                                                                                                                                    (\ f_x
                                                                                                                                      f_y
                                                                                                                                      p ->
                                                                                                                                      T.uccase
                                                                                                                                        T.mkNoSrcPos
                                                                                                                                        p
                                                                                                                                        (let
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            (T.R
                                                                                                                                              (T.Tuple2
                                                                                                                                                (T.R
                                                                                                                                                  (T.Cons
                                                                                                                                                    (T.R
                                                                                                                                                      ','
                                                                                                                                                      _)
                                                                                                                                                    (T.R
                                                                                                                                                      T.List
                                                                                                                                                      _))
                                                                                                                                                  _)
                                                                                                                                                fs5)
                                                                                                                                              _)
                                                                                                                                            p =
                                                                                                                                            T.uap1
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              (T.uap2
                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                p
                                                                                                                                                (g_foldr
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p)
                                                                                                                                                (T.ufun2
                                                                                                                                                  T.mkLambda
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (\ f_x
                                                                                                                                                    f_y
                                                                                                                                                    p ->
                                                                                                                                                    T.uccase
                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                      p
                                                                                                                                                      (let
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          (T.R
                                                                                                                                                            (T.Tuple2
                                                                                                                                                              fx5
                                                                                                                                                              fr5)
                                                                                                                                                            _)
                                                                                                                                                          p =
                                                                                                                                                          T.uap1
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            (T.uap2
                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                              p
                                                                                                                                                              (g_foldr
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p)
                                                                                                                                                              (T.ufun2
                                                                                                                                                                T.mkLambda
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p
                                                                                                                                                                (\ f_x
                                                                                                                                                                  f_y
                                                                                                                                                                  p ->
                                                                                                                                                                  T.uccase
                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                    p
                                                                                                                                                                    (let
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        (T.R
                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                            (T.R
                                                                                                                                                                              (T.Cons
                                                                                                                                                                                (T.R
                                                                                                                                                                                  ','
                                                                                                                                                                                  _)
                                                                                                                                                                                (T.R
                                                                                                                                                                                  T.List
                                                                                                                                                                                  _))
                                                                                                                                                                              _)
                                                                                                                                                                            fs6)
                                                                                                                                                                          _)
                                                                                                                                                                        p =
                                                                                                                                                                        T.uap1
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          (T.uap2
                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                            p
                                                                                                                                                                            (g_foldr
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p)
                                                                                                                                                                            (T.ufun2
                                                                                                                                                                              T.mkLambda
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (\ f_x
                                                                                                                                                                                f_y
                                                                                                                                                                                p ->
                                                                                                                                                                                T.uccase
                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                  p
                                                                                                                                                                                  (let
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      (T.R
                                                                                                                                                                                        (T.Tuple2
                                                                                                                                                                                          fx6
                                                                                                                                                                                          fr6)
                                                                                                                                                                                        _)
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.uap1
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        (T.uap2
                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                          p
                                                                                                                                                                                          (g_foldr
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p)
                                                                                                                                                                                          (T.ufun2
                                                                                                                                                                                            T.mkLambda
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p
                                                                                                                                                                                            (\ f_x
                                                                                                                                                                                              f_y
                                                                                                                                                                                              p ->
                                                                                                                                                                                              T.uccase
                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                p
                                                                                                                                                                                                (let
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                      (T.Tuple2
                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                          (T.Cons
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              ','
                                                                                                                                                                                                              _)
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              T.List
                                                                                                                                                                                                              _))
                                                                                                                                                                                                          _)
                                                                                                                                                                                                        fs7)
                                                                                                                                                                                                      _)
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.uap1
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      (T.uap2
                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                        p
                                                                                                                                                                                                        (g_foldr
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p)
                                                                                                                                                                                                        (T.ufun2
                                                                                                                                                                                                          T.mkLambda
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p
                                                                                                                                                                                                          (\ f_x
                                                                                                                                                                                                            f_y
                                                                                                                                                                                                            p ->
                                                                                                                                                                                                            T.uccase
                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                              p
                                                                                                                                                                                                              (let
                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                  (T.R
                                                                                                                                                                                                                    (T.Tuple2
                                                                                                                                                                                                                      fx7
                                                                                                                                                                                                                      fr7)
                                                                                                                                                                                                                    _)
                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                  T.uap1
                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                    p
                                                                                                                                                                                                                    (T.uap2
                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                      p
                                                                                                                                                                                                                      (g_foldr
                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                      (T.ufun2
                                                                                                                                                                                                                        T.mkLambda
                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                        p
                                                                                                                                                                                                                        (\ f_x
                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                          p ->
                                                                                                                                                                                                                          T.uccase
                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                            p
                                                                                                                                                                                                                            (let
                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                  (T.Tuple2
                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                      (T.Cons
                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                          ','
                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                          T.List
                                                                                                                                                                                                                                          _))
                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                    fs8)
                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                T.uap1
                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                  (T.uap2
                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                    (g_foldr
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p)
                                                                                                                                                                                                                                    (T.ufun2
                                                                                                                                                                                                                                      T.mkLambda
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                      (\ f_x
                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                        p ->
                                                                                                                                                                                                                                        T.uccase
                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                          (let
                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                              (T.R
                                                                                                                                                                                                                                                (T.Tuple2
                                                                                                                                                                                                                                                  fx8
                                                                                                                                                                                                                                                  fr8)
                                                                                                                                                                                                                                                _)
                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                              T.uap1
                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                (T.uap2
                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                  (g_foldr
                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                  (T.ufun2
                                                                                                                                                                                                                                                    T.mkLambda
                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                    (\ f_x
                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                      p ->
                                                                                                                                                                                                                                                      T.uccase
                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                        (let
                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                              (T.Tuple2
                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                  (T.Cons
                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                      ','
                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                      T.List
                                                                                                                                                                                                                                                                      _))
                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                fs9)
                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                            T.uap1
                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                              (T.uap2
                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                (g_foldr
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p)
                                                                                                                                                                                                                                                                (T.ufun2
                                                                                                                                                                                                                                                                  T.mkLambda
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                  (\ f_x
                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                    p ->
                                                                                                                                                                                                                                                                    T.uccase
                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                      (let
                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                          (T.R
                                                                                                                                                                                                                                                                            (T.Tuple2
                                                                                                                                                                                                                                                                              fx9
                                                                                                                                                                                                                                                                              fr9)
                                                                                                                                                                                                                                                                            _)
                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                          T.uap1
                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                            (T.uap2
                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                              (g_foldr
                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                p)
                                                                                                                                                                                                                                                                              (T.ufun2
                                                                                                                                                                                                                                                                                T.mkLambda
                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                (\ f_x
                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                  p ->
                                                                                                                                                                                                                                                                                  T.uccase
                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                    (let
                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                              (T.Cons
                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                  ','
                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                  T.List
                                                                                                                                                                                                                                                                                                  _))
                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                            fs10)
                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                        T.uap1
                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                          (T.uap2
                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                            (g_foldr
                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                              p)
                                                                                                                                                                                                                                                                                            (T.ufun2
                                                                                                                                                                                                                                                                                              T.mkLambda
                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                              (\ f_x
                                                                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                                                                                p ->
                                                                                                                                                                                                                                                                                                T.uccase
                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                  (let
                                                                                                                                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                                                                                                                                      (T.R
                                                                                                                                                                                                                                                                                                        (T.Tuple2
                                                                                                                                                                                                                                                                                                          fx10
                                                                                                                                                                                                                                                                                                          fr10)
                                                                                                                                                                                                                                                                                                        _)
                                                                                                                                                                                                                                                                                                      p =
                                                                                                                                                                                                                                                                                                      T.uap1
                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                        (T.uap2
                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                          (g_foldr
                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                            p)
                                                                                                                                                                                                                                                                                                          (T.ufun2
                                                                                                                                                                                                                                                                                                            T.mkLambda
                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                            (\ f_x
                                                                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                                                                              p ->
                                                                                                                                                                                                                                                                                                              T.uccase
                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                (let
                                                                                                                                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                      (T.Tuple2
                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                          (T.Cons
                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                              ','
                                                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                              T.List
                                                                                                                                                                                                                                                                                                                              _))
                                                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                                                        fs11)
                                                                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                                                                    p =
                                                                                                                                                                                                                                                                                                                    T.uap1
                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                      (T.uap2
                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                        (g_foldr
                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                          p)
                                                                                                                                                                                                                                                                                                                        (T.ufun2
                                                                                                                                                                                                                                                                                                                          T.mkLambda
                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                          (\ f_x
                                                                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                                                                            p ->
                                                                                                                                                                                                                                                                                                                            T.uccase
                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                              (let
                                                                                                                                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                  (T.R
                                                                                                                                                                                                                                                                                                                                    (T.Tuple2
                                                                                                                                                                                                                                                                                                                                      fx11
                                                                                                                                                                                                                                                                                                                                      fr11)
                                                                                                                                                                                                                                                                                                                                    _)
                                                                                                                                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                                                                                                                                  T.uap1
                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                    (T.uap2
                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                      (g_foldr
                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                                                                                                                                      (T.ufun2
                                                                                                                                                                                                                                                                                                                                        T.mkLambda
                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                        (\ f_x
                                                                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                                                                          p ->
                                                                                                                                                                                                                                                                                                                                          T.uccase
                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                            (let
                                                                                                                                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                                                                  (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                                                      (T.Cons
                                                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                                                          ','
                                                                                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                                                          T.List
                                                                                                                                                                                                                                                                                                                                                          _))
                                                                                                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                                                                                                    fs12)
                                                                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                                                                                                                                T.uap1
                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                  (T.uap2
                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                    (g_foldr
                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                      p)
                                                                                                                                                                                                                                                                                                                                                    (T.ufun2
                                                                                                                                                                                                                                                                                                                                                      T.mkLambda
                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                                      (\ f_x
                                                                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                                                                        p ->
                                                                                                                                                                                                                                                                                                                                                        T.uccase
                                                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                                                          (let
                                                                                                                                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                              (T.R
                                                                                                                                                                                                                                                                                                                                                                (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                  fx12
                                                                                                                                                                                                                                                                                                                                                                  fr12)
                                                                                                                                                                                                                                                                                                                                                                _)
                                                                                                                                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                                                                                                                                              T.uap1
                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                (T.uap2
                                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                                  (g_foldr
                                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                                                                                                                                  (T.ufun2
                                                                                                                                                                                                                                                                                                                                                                    T.mkLambda
                                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                                    (\ f_x
                                                                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                                                                      p ->
                                                                                                                                                                                                                                                                                                                                                                      T.uccase
                                                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                                                        (let
                                                                                                                                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                                                                              (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                                                                                                  (T.Cons
                                                                                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                                                                                      ','
                                                                                                                                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                                                                                      T.List
                                                                                                                                                                                                                                                                                                                                                                                      _))
                                                                                                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                                                                                                fs13)
                                                                                                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                                                                                                                                            T.uap1
                                                                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                                                                              (T.uap2
                                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                                (g_foldr
                                                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                  p)
                                                                                                                                                                                                                                                                                                                                                                                (T.ufun2
                                                                                                                                                                                                                                                                                                                                                                                  T.mkLambda
                                                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                                                  (\ f_x
                                                                                                                                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                                                                                                                                    p ->
                                                                                                                                                                                                                                                                                                                                                                                    T.uccase
                                                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                                                                      (let
                                                                                                                                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                          (T.R
                                                                                                                                                                                                                                                                                                                                                                                            (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                              fx13
                                                                                                                                                                                                                                                                                                                                                                                              fr13)
                                                                                                                                                                                                                                                                                                                                                                                            _)
                                                                                                                                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                                                                                                                                          T.uap1
                                                                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                                                                            (T.uap2
                                                                                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                                                                                              (g_foldr
                                                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                p)
                                                                                                                                                                                                                                                                                                                                                                                              (T.ufun2
                                                                                                                                                                                                                                                                                                                                                                                                T.mkLambda
                                                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                                                (\ f_x
                                                                                                                                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                                                                                                                                  p ->
                                                                                                                                                                                                                                                                                                                                                                                                  T.uccase
                                                                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                                                                    (let
                                                                                                                                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                                                                                                              (T.Cons
                                                                                                                                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                  ','
                                                                                                                                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                  T.List
                                                                                                                                                                                                                                                                                                                                                                                                                  _))
                                                                                                                                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                                                                                                                                            fs14)
                                                                                                                                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                                                                                                                                        T.uap1
                                                                                                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                                                                                                          (T.uap2
                                                                                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                                                                                            (g_foldr
                                                                                                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                              p)
                                                                                                                                                                                                                                                                                                                                                                                                            (T.ufun2
                                                                                                                                                                                                                                                                                                                                                                                                              T.mkLambda
                                                                                                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                                                                                                              (\ f_x
                                                                                                                                                                                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                                                                                                                                                                                                p ->
                                                                                                                                                                                                                                                                                                                                                                                                                T.uccase
                                                                                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                                                                                  (let
                                                                                                                                                                                                                                                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                                                      (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                        (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                                                          fx14
                                                                                                                                                                                                                                                                                                                                                                                                                          fr14)
                                                                                                                                                                                                                                                                                                                                                                                                                        _)
                                                                                                                                                                                                                                                                                                                                                                                                                      p =
                                                                                                                                                                                                                                                                                                                                                                                                                      T.uap1
                                                                                                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                                                                                                        (T.uap2
                                                                                                                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                                                                                                                          (g_foldr
                                                                                                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                            p)
                                                                                                                                                                                                                                                                                                                                                                                                                          (T.ufun2
                                                                                                                                                                                                                                                                                                                                                                                                                            T.mkLambda
                                                                                                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                                                                                                            (\ f_x
                                                                                                                                                                                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                                                                                                                                                                                              p ->
                                                                                                                                                                                                                                                                                                                                                                                                                              T.uccase
                                                                                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                                                                                (let
                                                                                                                                                                                                                                                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                                      (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                                          (T.Cons
                                                                                                                                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                                              ')'
                                                                                                                                                                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                                              T.List
                                                                                                                                                                                                                                                                                                                                                                                                                                              _))
                                                                                                                                                                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                                                                                                                                                                        fw)
                                                                                                                                                                                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                                                                                                                                                                                    p =
                                                                                                                                                                                                                                                                                                                                                                                                                                    T.uap1
                                                                                                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                                                                                                                      (T.pa1
                                                                                                                                                                                                                                                                                                                                                                                                                                        T.Cons
                                                                                                                                                                                                                                                                                                                                                                                                                                        T.cn1
                                                                                                                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                                                                                                                        T.aCons
                                                                                                                                                                                                                                                                                                                                                                                                                                        (T.con2
                                                                                                                                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                                                                                                                                          T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                                                                          T.aTuple2
                                                                                                                                                                                                                                                                                                                                                                                                                                          (T.con14
                                                                                                                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                                                                                                                            T.Tuple14
                                                                                                                                                                                                                                                                                                                                                                                                                                            T.aTuple14
                                                                                                                                                                                                                                                                                                                                                                                                                                            fx1
                                                                                                                                                                                                                                                                                                                                                                                                                                            fx2
                                                                                                                                                                                                                                                                                                                                                                                                                                            fx3
                                                                                                                                                                                                                                                                                                                                                                                                                                            fx4
                                                                                                                                                                                                                                                                                                                                                                                                                                            fx5
                                                                                                                                                                                                                                                                                                                                                                                                                                            fx6
                                                                                                                                                                                                                                                                                                                                                                                                                                            fx7
                                                                                                                                                                                                                                                                                                                                                                                                                                            fx8
                                                                                                                                                                                                                                                                                                                                                                                                                                            fx9
                                                                                                                                                                                                                                                                                                                                                                                                                                            fx10
                                                                                                                                                                                                                                                                                                                                                                                                                                            fx11
                                                                                                                                                                                                                                                                                                                                                                                                                                            fx12
                                                                                                                                                                                                                                                                                                                                                                                                                                            fx13
                                                                                                                                                                                                                                                                                                                                                                                                                                            fx14)
                                                                                                                                                                                                                                                                                                                                                                                                                                          fw))
                                                                                                                                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                                                                    _
                                                                                                                                                                                                                                                                                                                                                                                                                                    p =
                                                                                                                                                                                                                                                                                                                                                                                                                                    T.projection
                                                                                                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                                                                                                                                  in
                                                                                                                                                                                                                                                                                                                                                                                                                                  (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                                                                                                f_x))
                                                                                                                                                                                                                                                                                                                                                                                                                          (T.uwrapForward
                                                                                                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                                                                                                            (hlex
                                                                                                                                                                                                                                                                                                                                                                                                                              fr14
                                                                                                                                                                                                                                                                                                                                                                                                                              p)))
                                                                                                                                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                                                      _
                                                                                                                                                                                                                                                                                                                                                                                                                      p =
                                                                                                                                                                                                                                                                                                                                                                                                                      T.projection
                                                                                                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                                                                                                                                    in
                                                                                                                                                                                                                                                                                                                                                                                                                    (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                                                                                  f_x))
                                                                                                                                                                                                                                                                                                                                                                                                            (T.uap1
                                                                                                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                                                                                                              (greads
                                                                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                p)
                                                                                                                                                                                                                                                                                                                                                                                                              fs14))
                                                                                                                                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                                        _
                                                                                                                                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                                                                                                                                        T.projection
                                                                                                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                                                                                                                                      in
                                                                                                                                                                                                                                                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                                                                    f_x))
                                                                                                                                                                                                                                                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                                                (hlex
                                                                                                                                                                                                                                                                                                                                                                                                  fr13
                                                                                                                                                                                                                                                                                                                                                                                                  p)))
                                                                                                                                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                          _
                                                                                                                                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                                                                                                                                          T.projection
                                                                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                                                                                                                                        in
                                                                                                                                                                                                                                                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                                                      f_x))
                                                                                                                                                                                                                                                                                                                                                                                (T.uap1
                                                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                                                  (greads
                                                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                                                                                                                                                  fs13))
                                                                                                                                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                            _
                                                                                                                                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                                                                                                                                            T.projection
                                                                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                                                                                                                                          in
                                                                                                                                                                                                                                                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                                        f_x))
                                                                                                                                                                                                                                                                                                                                                                  (T.uwrapForward
                                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                                    (hlex
                                                                                                                                                                                                                                                                                                                                                                      fr12
                                                                                                                                                                                                                                                                                                                                                                      p)))
                                                                                                                                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                              _
                                                                                                                                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                                                                                                                                              T.projection
                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                                                                                                                                            in
                                                                                                                                                                                                                                                                                                                                                            (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                          f_x))
                                                                                                                                                                                                                                                                                                                                                    (T.uap1
                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                                      (greads
                                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                                                                                                                                                      fs12))
                                                                                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                _
                                                                                                                                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                                                                                                                                T.projection
                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                                                                              in
                                                                                                                                                                                                                                                                                                                                              (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                            f_x))
                                                                                                                                                                                                                                                                                                                                      (T.uwrapForward
                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                        (hlex
                                                                                                                                                                                                                                                                                                                                          fr11
                                                                                                                                                                                                                                                                                                                                          p)))
                                                                                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                  _
                                                                                                                                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                                                                                                                                  T.projection
                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                                                                                in
                                                                                                                                                                                                                                                                                                                                (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                              f_x))
                                                                                                                                                                                                                                                                                                                        (T.uap1
                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                          (greads
                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                            p)
                                                                                                                                                                                                                                                                                                                          fs11))
                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                    _
                                                                                                                                                                                                                                                                                                                    p =
                                                                                                                                                                                                                                                                                                                    T.projection
                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                  in
                                                                                                                                                                                                                                                                                                                  (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                f_x))
                                                                                                                                                                                                                                                                                                          (T.uwrapForward
                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                            (hlex
                                                                                                                                                                                                                                                                                                              fr10
                                                                                                                                                                                                                                                                                                              p)))
                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                                                                                                                                      _
                                                                                                                                                                                                                                                                                                      p =
                                                                                                                                                                                                                                                                                                      T.projection
                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                    in
                                                                                                                                                                                                                                                                                                    (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                  f_x))
                                                                                                                                                                                                                                                                                            (T.uap1
                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                              (greads
                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                p)
                                                                                                                                                                                                                                                                                              fs10))
                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                        _
                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                        T.projection
                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                      in
                                                                                                                                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                    f_x))
                                                                                                                                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                (hlex
                                                                                                                                                                                                                                                                                  fr9
                                                                                                                                                                                                                                                                                  p)))
                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                          _
                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                          T.projection
                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                        in
                                                                                                                                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                                                                                                                                      f_x))
                                                                                                                                                                                                                                                                (T.uap1
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                  (greads
                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                                  fs9))
                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                            _
                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                            T.projection
                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                          in
                                                                                                                                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                                                                                                                                        f_x))
                                                                                                                                                                                                                                                  (T.uwrapForward
                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                    (hlex
                                                                                                                                                                                                                                                      fr8
                                                                                                                                                                                                                                                      p)))
                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                              _
                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                              T.projection
                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                            in
                                                                                                                                                                                                                                            (v0v0v0v0v1))
                                                                                                                                                                                                                                          f_x))
                                                                                                                                                                                                                                    (T.uap1
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                      (greads
                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                                      fs8))
                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                _
                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                T.projection
                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                              in
                                                                                                                                                                                                                              (v0v0v0v0v1))
                                                                                                                                                                                                                            f_x))
                                                                                                                                                                                                                      (T.uwrapForward
                                                                                                                                                                                                                        p
                                                                                                                                                                                                                        (hlex
                                                                                                                                                                                                                          fr7
                                                                                                                                                                                                                          p)))
                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                  _
                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                  T.projection
                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                    p
                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                in
                                                                                                                                                                                                                (v0v0v0v0v1))
                                                                                                                                                                                                              f_x))
                                                                                                                                                                                                        (T.uap1
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p
                                                                                                                                                                                                          (greads
                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                            p)
                                                                                                                                                                                                          fs7))
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    _
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.projection
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  in
                                                                                                                                                                                                  (v0v0v0v0v1))
                                                                                                                                                                                                f_x))
                                                                                                                                                                                          (T.uwrapForward
                                                                                                                                                                                            p
                                                                                                                                                                                            (hlex
                                                                                                                                                                                              fr6
                                                                                                                                                                                              p)))
                                                                                                                                                                                        f_y
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      _
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.projection
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        f_y
                                                                                                                                                                                    in
                                                                                                                                                                                    (v0v0v0v0v1))
                                                                                                                                                                                  f_x))
                                                                                                                                                                            (T.uap1
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (greads
                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                p)
                                                                                                                                                                              fs6))
                                                                                                                                                                          f_y
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        _
                                                                                                                                                                        p =
                                                                                                                                                                        T.projection
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          f_y
                                                                                                                                                                      in
                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                    f_x))
                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                p
                                                                                                                                                                (hlex
                                                                                                                                                                  fr5
                                                                                                                                                                  p)))
                                                                                                                                                            f_y
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          _
                                                                                                                                                          p =
                                                                                                                                                          T.projection
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            f_y
                                                                                                                                                        in
                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                      f_x))
                                                                                                                                                (T.uap1
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (greads
                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                    p)
                                                                                                                                                  fs5))
                                                                                                                                              f_y
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            _
                                                                                                                                            p =
                                                                                                                                            T.projection
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              f_y
                                                                                                                                          in
                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                        f_x))
                                                                                                                                  (T.uwrapForward
                                                                                                                                    p
                                                                                                                                    (hlex
                                                                                                                                      fr4
                                                                                                                                      p)))
                                                                                                                                f_y
                                                                                                                            v0v0v0v0v1
                                                                                                                              _
                                                                                                                              p =
                                                                                                                              T.projection
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                f_y
                                                                                                                            in
                                                                                                                            (v0v0v0v0v1))
                                                                                                                          f_x))
                                                                                                                    (T.uap1
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (greads
                                                                                                                        T.mkNoSrcPos
                                                                                                                        p)
                                                                                                                      fs4))
                                                                                                                  f_y
                                                                                                              v0v0v0v0v1
                                                                                                                _
                                                                                                                p =
                                                                                                                T.projection
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  f_y
                                                                                                              in
                                                                                                              (v0v0v0v0v1))
                                                                                                            f_x))
                                                                                                      (T.uwrapForward
                                                                                                        p
                                                                                                        (hlex
                                                                                                          fr3
                                                                                                          p)))
                                                                                                    f_y
                                                                                                v0v0v0v0v1
                                                                                                  _
                                                                                                  p =
                                                                                                  T.projection
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    f_y
                                                                                                in
                                                                                                (v0v0v0v0v1))
                                                                                              f_x))
                                                                                        (T.uap1
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (greads
                                                                                            T.mkNoSrcPos
                                                                                            p)
                                                                                          fs3))
                                                                                      f_y
                                                                                  v0v0v0v0v1
                                                                                    _
                                                                                    p =
                                                                                    T.projection
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      f_y
                                                                                  in
                                                                                  (v0v0v0v0v1))
                                                                                f_x))
                                                                          (T.uwrapForward
                                                                            p
                                                                            (hlex
                                                                              fr2
                                                                              p)))
                                                                        f_y
                                                                    v0v0v0v0v1 _
                                                                      p =
                                                                      T.projection
                                                                        T.mkNoSrcPos
                                                                        p f_y in
                                                                    (v0v0v0v0v1))
                                                                  f_x))
                                                            (T.uap1 T.mkNoSrcPos
                                                              p
                                                              (greads
                                                                T.mkNoSrcPos p)
                                                              fs2)) f_y
                                                      v0v0v0v0v1 _ p =
                                                        T.projection
                                                          T.mkNoSrcPos p f_y in
                                                      (v0v0v0v0v1)) f_x))
                                              (T.uwrapForward p (hlex fr1 p)))
                                            f_y
                                        v0v0v0v0v1 _ p =
                                          T.projection T.mkNoSrcPos p f_y in
                                        (v0v0v0v0v1)) f_x))
                                (T.uap1 T.mkNoSrcPos p (greads T.mkNoSrcPos p)
                                  fs1)) f_y
                          v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                          (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr0 p)))
                (T.fromExpList T.mkNoSrcPos p []))) p)
    
  

instance
  (Read a,Read b,Read c,Read d,Read e,Read f,Read g,Read h,Read i,Read j,Read k
      ,Read l,Read m,Read n,Read o) =>
    Read ((T.Tuple15 a b c d e f g h i j k l m n o))
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a2292v5v2293v22readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p
        (hreadParen (T.con0 T.mkNoSrcPos p False aFalse)
          (T.ufun1 T.mkLambda T.mkNoSrcPos p
            (\ fr0 p ->
              T.uap1 T.mkNoSrcPos p
                (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                  (T.ufun2 T.mkLambda T.mkNoSrcPos p
                    (\ f_x f_y p ->
                      T.uccase T.mkNoSrcPos p
                        (let
                          v0v0v0v0v1
                            (T.R
                              (T.Tuple2
                                (T.R (T.Cons (T.R '(' _) (T.R T.List _)) _) fs1)
                              _) p =
                            T.uap1 T.mkNoSrcPos p
                              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                  (\ f_x f_y p ->
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v0v0v0v0v1 (T.R (T.Tuple2 fx1 fr1) _)
                                          p =
                                          T.uap1 T.mkNoSrcPos p
                                            (T.uap2 T.mkNoSrcPos p
                                              (g_foldr T.mkNoSrcPos p)
                                              (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                                (\ f_x f_y p ->
                                                  T.uccase T.mkNoSrcPos p
                                                    (let
                                                      v0v0v0v0v1
                                                        (T.R
                                                          (T.Tuple2
                                                            (T.R
                                                              (T.Cons
                                                                (T.R ',' _)
                                                                (T.R T.List _))
                                                              _) fs2) _) p =
                                                        T.uap1 T.mkNoSrcPos p
                                                          (T.uap2 T.mkNoSrcPos p
                                                            (g_foldr
                                                              T.mkNoSrcPos p)
                                                            (T.ufun2 T.mkLambda
                                                              T.mkNoSrcPos p
                                                              (\ f_x f_y p ->
                                                                T.uccase
                                                                  T.mkNoSrcPos p
                                                                  (let
                                                                    v0v0v0v0v1
                                                                      (T.R
                                                                        (T.Tuple2
                                                                          fx2
                                                                          fr2)
                                                                        _) p =
                                                                      T.uap1
                                                                        T.mkNoSrcPos
                                                                        p
                                                                        (T.uap2
                                                                          T.mkNoSrcPos
                                                                          p
                                                                          (g_foldr
                                                                            T.mkNoSrcPos
                                                                            p)
                                                                          (T.ufun2
                                                                            T.mkLambda
                                                                            T.mkNoSrcPos
                                                                            p
                                                                            (\ f_x
                                                                              f_y
                                                                              p ->
                                                                              T.uccase
                                                                                T.mkNoSrcPos
                                                                                p
                                                                                (let
                                                                                  v0v0v0v0v1
                                                                                    (T.R
                                                                                      (T.Tuple2
                                                                                        (T.R
                                                                                          (T.Cons
                                                                                            (T.R
                                                                                              ','
                                                                                              _)
                                                                                            (T.R
                                                                                              T.List
                                                                                              _))
                                                                                          _)
                                                                                        fs3)
                                                                                      _)
                                                                                    p =
                                                                                    T.uap1
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      (T.uap2
                                                                                        T.mkNoSrcPos
                                                                                        p
                                                                                        (g_foldr
                                                                                          T.mkNoSrcPos
                                                                                          p)
                                                                                        (T.ufun2
                                                                                          T.mkLambda
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (\ f_x
                                                                                            f_y
                                                                                            p ->
                                                                                            T.uccase
                                                                                              T.mkNoSrcPos
                                                                                              p
                                                                                              (let
                                                                                                v0v0v0v0v1
                                                                                                  (T.R
                                                                                                    (T.Tuple2
                                                                                                      fx3
                                                                                                      fr3)
                                                                                                    _)
                                                                                                  p =
                                                                                                  T.uap1
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    (T.uap2
                                                                                                      T.mkNoSrcPos
                                                                                                      p
                                                                                                      (g_foldr
                                                                                                        T.mkNoSrcPos
                                                                                                        p)
                                                                                                      (T.ufun2
                                                                                                        T.mkLambda
                                                                                                        T.mkNoSrcPos
                                                                                                        p
                                                                                                        (\ f_x
                                                                                                          f_y
                                                                                                          p ->
                                                                                                          T.uccase
                                                                                                            T.mkNoSrcPos
                                                                                                            p
                                                                                                            (let
                                                                                                              v0v0v0v0v1
                                                                                                                (T.R
                                                                                                                  (T.Tuple2
                                                                                                                    (T.R
                                                                                                                      (T.Cons
                                                                                                                        (T.R
                                                                                                                          ','
                                                                                                                          _)
                                                                                                                        (T.R
                                                                                                                          T.List
                                                                                                                          _))
                                                                                                                      _)
                                                                                                                    fs4)
                                                                                                                  _)
                                                                                                                p =
                                                                                                                T.uap1
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  (T.uap2
                                                                                                                    T.mkNoSrcPos
                                                                                                                    p
                                                                                                                    (g_foldr
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p)
                                                                                                                    (T.ufun2
                                                                                                                      T.mkLambda
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (\ f_x
                                                                                                                        f_y
                                                                                                                        p ->
                                                                                                                        T.uccase
                                                                                                                          T.mkNoSrcPos
                                                                                                                          p
                                                                                                                          (let
                                                                                                                            v0v0v0v0v1
                                                                                                                              (T.R
                                                                                                                                (T.Tuple2
                                                                                                                                  fx4
                                                                                                                                  fr4)
                                                                                                                                _)
                                                                                                                              p =
                                                                                                                              T.uap1
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                (T.uap2
                                                                                                                                  T.mkNoSrcPos
                                                                                                                                  p
                                                                                                                                  (g_foldr
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p)
                                                                                                                                  (T.ufun2
                                                                                                                                    T.mkLambda
                                                                                                                                    T.mkNoSrcPos
                                                                                                                                    p
                                                                                                                                    (\ f_x
                                                                                                                                      f_y
                                                                                                                                      p ->
                                                                                                                                      T.uccase
                                                                                                                                        T.mkNoSrcPos
                                                                                                                                        p
                                                                                                                                        (let
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            (T.R
                                                                                                                                              (T.Tuple2
                                                                                                                                                (T.R
                                                                                                                                                  (T.Cons
                                                                                                                                                    (T.R
                                                                                                                                                      ','
                                                                                                                                                      _)
                                                                                                                                                    (T.R
                                                                                                                                                      T.List
                                                                                                                                                      _))
                                                                                                                                                  _)
                                                                                                                                                fs5)
                                                                                                                                              _)
                                                                                                                                            p =
                                                                                                                                            T.uap1
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              (T.uap2
                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                p
                                                                                                                                                (g_foldr
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p)
                                                                                                                                                (T.ufun2
                                                                                                                                                  T.mkLambda
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (\ f_x
                                                                                                                                                    f_y
                                                                                                                                                    p ->
                                                                                                                                                    T.uccase
                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                      p
                                                                                                                                                      (let
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          (T.R
                                                                                                                                                            (T.Tuple2
                                                                                                                                                              fx5
                                                                                                                                                              fr5)
                                                                                                                                                            _)
                                                                                                                                                          p =
                                                                                                                                                          T.uap1
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            (T.uap2
                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                              p
                                                                                                                                                              (g_foldr
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p)
                                                                                                                                                              (T.ufun2
                                                                                                                                                                T.mkLambda
                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                p
                                                                                                                                                                (\ f_x
                                                                                                                                                                  f_y
                                                                                                                                                                  p ->
                                                                                                                                                                  T.uccase
                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                    p
                                                                                                                                                                    (let
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        (T.R
                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                            (T.R
                                                                                                                                                                              (T.Cons
                                                                                                                                                                                (T.R
                                                                                                                                                                                  ','
                                                                                                                                                                                  _)
                                                                                                                                                                                (T.R
                                                                                                                                                                                  T.List
                                                                                                                                                                                  _))
                                                                                                                                                                              _)
                                                                                                                                                                            fs6)
                                                                                                                                                                          _)
                                                                                                                                                                        p =
                                                                                                                                                                        T.uap1
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          (T.uap2
                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                            p
                                                                                                                                                                            (g_foldr
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p)
                                                                                                                                                                            (T.ufun2
                                                                                                                                                                              T.mkLambda
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (\ f_x
                                                                                                                                                                                f_y
                                                                                                                                                                                p ->
                                                                                                                                                                                T.uccase
                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                  p
                                                                                                                                                                                  (let
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      (T.R
                                                                                                                                                                                        (T.Tuple2
                                                                                                                                                                                          fx6
                                                                                                                                                                                          fr6)
                                                                                                                                                                                        _)
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.uap1
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        (T.uap2
                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                          p
                                                                                                                                                                                          (g_foldr
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p)
                                                                                                                                                                                          (T.ufun2
                                                                                                                                                                                            T.mkLambda
                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                            p
                                                                                                                                                                                            (\ f_x
                                                                                                                                                                                              f_y
                                                                                                                                                                                              p ->
                                                                                                                                                                                              T.uccase
                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                p
                                                                                                                                                                                                (let
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                      (T.Tuple2
                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                          (T.Cons
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              ','
                                                                                                                                                                                                              _)
                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                              T.List
                                                                                                                                                                                                              _))
                                                                                                                                                                                                          _)
                                                                                                                                                                                                        fs7)
                                                                                                                                                                                                      _)
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.uap1
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      (T.uap2
                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                        p
                                                                                                                                                                                                        (g_foldr
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p)
                                                                                                                                                                                                        (T.ufun2
                                                                                                                                                                                                          T.mkLambda
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p
                                                                                                                                                                                                          (\ f_x
                                                                                                                                                                                                            f_y
                                                                                                                                                                                                            p ->
                                                                                                                                                                                                            T.uccase
                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                              p
                                                                                                                                                                                                              (let
                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                  (T.R
                                                                                                                                                                                                                    (T.Tuple2
                                                                                                                                                                                                                      fx7
                                                                                                                                                                                                                      fr7)
                                                                                                                                                                                                                    _)
                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                  T.uap1
                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                    p
                                                                                                                                                                                                                    (T.uap2
                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                      p
                                                                                                                                                                                                                      (g_foldr
                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                      (T.ufun2
                                                                                                                                                                                                                        T.mkLambda
                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                        p
                                                                                                                                                                                                                        (\ f_x
                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                          p ->
                                                                                                                                                                                                                          T.uccase
                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                            p
                                                                                                                                                                                                                            (let
                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                  (T.Tuple2
                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                      (T.Cons
                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                          ','
                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                          T.List
                                                                                                                                                                                                                                          _))
                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                    fs8)
                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                T.uap1
                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                  (T.uap2
                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                    (g_foldr
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p)
                                                                                                                                                                                                                                    (T.ufun2
                                                                                                                                                                                                                                      T.mkLambda
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                      (\ f_x
                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                        p ->
                                                                                                                                                                                                                                        T.uccase
                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                          (let
                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                              (T.R
                                                                                                                                                                                                                                                (T.Tuple2
                                                                                                                                                                                                                                                  fx8
                                                                                                                                                                                                                                                  fr8)
                                                                                                                                                                                                                                                _)
                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                              T.uap1
                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                (T.uap2
                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                  (g_foldr
                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                  (T.ufun2
                                                                                                                                                                                                                                                    T.mkLambda
                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                    (\ f_x
                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                      p ->
                                                                                                                                                                                                                                                      T.uccase
                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                        (let
                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                              (T.Tuple2
                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                  (T.Cons
                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                      ','
                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                      T.List
                                                                                                                                                                                                                                                                      _))
                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                fs9)
                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                            T.uap1
                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                              (T.uap2
                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                (g_foldr
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p)
                                                                                                                                                                                                                                                                (T.ufun2
                                                                                                                                                                                                                                                                  T.mkLambda
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                  (\ f_x
                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                    p ->
                                                                                                                                                                                                                                                                    T.uccase
                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                      (let
                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                          (T.R
                                                                                                                                                                                                                                                                            (T.Tuple2
                                                                                                                                                                                                                                                                              fx9
                                                                                                                                                                                                                                                                              fr9)
                                                                                                                                                                                                                                                                            _)
                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                          T.uap1
                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                            (T.uap2
                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                              (g_foldr
                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                p)
                                                                                                                                                                                                                                                                              (T.ufun2
                                                                                                                                                                                                                                                                                T.mkLambda
                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                (\ f_x
                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                  p ->
                                                                                                                                                                                                                                                                                  T.uccase
                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                    (let
                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                              (T.Cons
                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                  ','
                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                  T.List
                                                                                                                                                                                                                                                                                                  _))
                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                            fs10)
                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                        T.uap1
                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                          (T.uap2
                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                            (g_foldr
                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                              p)
                                                                                                                                                                                                                                                                                            (T.ufun2
                                                                                                                                                                                                                                                                                              T.mkLambda
                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                              (\ f_x
                                                                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                                                                                p ->
                                                                                                                                                                                                                                                                                                T.uccase
                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                  (let
                                                                                                                                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                                                                                                                                      (T.R
                                                                                                                                                                                                                                                                                                        (T.Tuple2
                                                                                                                                                                                                                                                                                                          fx10
                                                                                                                                                                                                                                                                                                          fr10)
                                                                                                                                                                                                                                                                                                        _)
                                                                                                                                                                                                                                                                                                      p =
                                                                                                                                                                                                                                                                                                      T.uap1
                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                        (T.uap2
                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                          (g_foldr
                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                            p)
                                                                                                                                                                                                                                                                                                          (T.ufun2
                                                                                                                                                                                                                                                                                                            T.mkLambda
                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                            (\ f_x
                                                                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                                                                              p ->
                                                                                                                                                                                                                                                                                                              T.uccase
                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                (let
                                                                                                                                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                      (T.Tuple2
                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                          (T.Cons
                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                              ','
                                                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                              T.List
                                                                                                                                                                                                                                                                                                                              _))
                                                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                                                        fs11)
                                                                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                                                                    p =
                                                                                                                                                                                                                                                                                                                    T.uap1
                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                      (T.uap2
                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                        (g_foldr
                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                          p)
                                                                                                                                                                                                                                                                                                                        (T.ufun2
                                                                                                                                                                                                                                                                                                                          T.mkLambda
                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                          (\ f_x
                                                                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                                                                            p ->
                                                                                                                                                                                                                                                                                                                            T.uccase
                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                              (let
                                                                                                                                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                  (T.R
                                                                                                                                                                                                                                                                                                                                    (T.Tuple2
                                                                                                                                                                                                                                                                                                                                      fx11
                                                                                                                                                                                                                                                                                                                                      fr11)
                                                                                                                                                                                                                                                                                                                                    _)
                                                                                                                                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                                                                                                                                  T.uap1
                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                    (T.uap2
                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                      (g_foldr
                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                                                                                                                                      (T.ufun2
                                                                                                                                                                                                                                                                                                                                        T.mkLambda
                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                        (\ f_x
                                                                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                                                                          p ->
                                                                                                                                                                                                                                                                                                                                          T.uccase
                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                            (let
                                                                                                                                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                                                                  (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                                                      (T.Cons
                                                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                                                          ','
                                                                                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                                                          T.List
                                                                                                                                                                                                                                                                                                                                                          _))
                                                                                                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                                                                                                    fs12)
                                                                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                                                                                                                                T.uap1
                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                  (T.uap2
                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                    (g_foldr
                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                      p)
                                                                                                                                                                                                                                                                                                                                                    (T.ufun2
                                                                                                                                                                                                                                                                                                                                                      T.mkLambda
                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                                      (\ f_x
                                                                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                                                                        p ->
                                                                                                                                                                                                                                                                                                                                                        T.uccase
                                                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                                                          (let
                                                                                                                                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                              (T.R
                                                                                                                                                                                                                                                                                                                                                                (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                  fx12
                                                                                                                                                                                                                                                                                                                                                                  fr12)
                                                                                                                                                                                                                                                                                                                                                                _)
                                                                                                                                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                                                                                                                                              T.uap1
                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                (T.uap2
                                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                                  (g_foldr
                                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                                                                                                                                  (T.ufun2
                                                                                                                                                                                                                                                                                                                                                                    T.mkLambda
                                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                                    (\ f_x
                                                                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                                                                      p ->
                                                                                                                                                                                                                                                                                                                                                                      T.uccase
                                                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                                                        (let
                                                                                                                                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                                                                              (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                                                                                                  (T.Cons
                                                                                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                                                                                      ','
                                                                                                                                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                                                                                      T.List
                                                                                                                                                                                                                                                                                                                                                                                      _))
                                                                                                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                                                                                                fs13)
                                                                                                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                                                                                                                                            T.uap1
                                                                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                                                                              (T.uap2
                                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                                (g_foldr
                                                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                  p)
                                                                                                                                                                                                                                                                                                                                                                                (T.ufun2
                                                                                                                                                                                                                                                                                                                                                                                  T.mkLambda
                                                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                                                  (\ f_x
                                                                                                                                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                                                                                                                                    p ->
                                                                                                                                                                                                                                                                                                                                                                                    T.uccase
                                                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                                                                      (let
                                                                                                                                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                          (T.R
                                                                                                                                                                                                                                                                                                                                                                                            (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                              fx13
                                                                                                                                                                                                                                                                                                                                                                                              fr13)
                                                                                                                                                                                                                                                                                                                                                                                            _)
                                                                                                                                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                                                                                                                                          T.uap1
                                                                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                                                                            (T.uap2
                                                                                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                                                                                              (g_foldr
                                                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                p)
                                                                                                                                                                                                                                                                                                                                                                                              (T.ufun2
                                                                                                                                                                                                                                                                                                                                                                                                T.mkLambda
                                                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                                                (\ f_x
                                                                                                                                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                                                                                                                                  p ->
                                                                                                                                                                                                                                                                                                                                                                                                  T.uccase
                                                                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                                                                    (let
                                                                                                                                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                                                                                                          (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                                                                                                              (T.Cons
                                                                                                                                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                  ','
                                                                                                                                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                  T.List
                                                                                                                                                                                                                                                                                                                                                                                                                  _))
                                                                                                                                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                                                                                                                                            fs14)
                                                                                                                                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                                                                                                                                        T.uap1
                                                                                                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                                                                                                          (T.uap2
                                                                                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                                                                                            (g_foldr
                                                                                                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                              p)
                                                                                                                                                                                                                                                                                                                                                                                                            (T.ufun2
                                                                                                                                                                                                                                                                                                                                                                                                              T.mkLambda
                                                                                                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                                                                                                              (\ f_x
                                                                                                                                                                                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                                                                                                                                                                                                p ->
                                                                                                                                                                                                                                                                                                                                                                                                                T.uccase
                                                                                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                                                                                  (let
                                                                                                                                                                                                                                                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                                                      (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                        (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                                                          fx14
                                                                                                                                                                                                                                                                                                                                                                                                                          fr14)
                                                                                                                                                                                                                                                                                                                                                                                                                        _)
                                                                                                                                                                                                                                                                                                                                                                                                                      p =
                                                                                                                                                                                                                                                                                                                                                                                                                      T.uap1
                                                                                                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                                                                                                        (T.uap2
                                                                                                                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                                                                                                                          (g_foldr
                                                                                                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                            p)
                                                                                                                                                                                                                                                                                                                                                                                                                          (T.ufun2
                                                                                                                                                                                                                                                                                                                                                                                                                            T.mkLambda
                                                                                                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                                                                                                            (\ f_x
                                                                                                                                                                                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                                                                                                                                                                                              p ->
                                                                                                                                                                                                                                                                                                                                                                                                                              T.uccase
                                                                                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                                                                                (let
                                                                                                                                                                                                                                                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                                      (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                                          (T.Cons
                                                                                                                                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                                              ','
                                                                                                                                                                                                                                                                                                                                                                                                                                              _)
                                                                                                                                                                                                                                                                                                                                                                                                                                            (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                                              T.List
                                                                                                                                                                                                                                                                                                                                                                                                                                              _))
                                                                                                                                                                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                                                                                                                                                                        fs15)
                                                                                                                                                                                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                                                                                                                                                                                    p =
                                                                                                                                                                                                                                                                                                                                                                                                                                    T.uap1
                                                                                                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                                                                                                                      (T.uap2
                                                                                                                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                                                                                                                        (g_foldr
                                                                                                                                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                          p)
                                                                                                                                                                                                                                                                                                                                                                                                                                        (T.ufun2
                                                                                                                                                                                                                                                                                                                                                                                                                                          T.mkLambda
                                                                                                                                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                                                                                                                                          (\ f_x
                                                                                                                                                                                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                                                                                                                                                                                            p ->
                                                                                                                                                                                                                                                                                                                                                                                                                                            T.uccase
                                                                                                                                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                                                                                                                                              (let
                                                                                                                                                                                                                                                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                                                                                  (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                                                    (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                                                                                      fx15
                                                                                                                                                                                                                                                                                                                                                                                                                                                      fr15)
                                                                                                                                                                                                                                                                                                                                                                                                                                                    _)
                                                                                                                                                                                                                                                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                                                                                                                                                                                                                                                  T.uap1
                                                                                                                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                                                                                                                    (T.uap2
                                                                                                                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                                                                                                                                      (g_foldr
                                                                                                                                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                                                                                                                                                                                                                                                      (T.ufun2
                                                                                                                                                                                                                                                                                                                                                                                                                                                        T.mkLambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                                                                                                                                        (\ f_x
                                                                                                                                                                                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                                                                                                                                                                                          p ->
                                                                                                                                                                                                                                                                                                                                                                                                                                                          T.uccase
                                                                                                                                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                                                                                                                                            (let
                                                                                                                                                                                                                                                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                                                                                                (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (T.Cons
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ')'
                                                                                                                                                                                                                                                                                                                                                                                                                                                                          _)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (T.R
                                                                                                                                                                                                                                                                                                                                                                                                                                                                          T.List
                                                                                                                                                                                                                                                                                                                                                                                                                                                                          _))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      _)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    fw)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  _)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                                                                                                                                                                                                                                                T.uap1
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (T.pa1
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    T.Cons
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    T.cn1
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    T.aCons
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (T.con2
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      T.Tuple2
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      T.aTuple2
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (T.con15
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        T.Tuple15
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        T.aTuple15
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        fx1
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        fx2
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        fx3
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        fx4
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        fx5
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        fx6
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        fx7
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        fx8
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        fx9
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        fx10
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        fx11
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        fx12
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        fx13
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        fx14
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        fx15)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      fw))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                                                                                                _
                                                                                                                                                                                                                                                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                                                                                                                                                                                                                                                T.projection
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                                                                                                                                                                                              in
                                                                                                                                                                                                                                                                                                                                                                                                                                                              (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                                                                                                                            f_x))
                                                                                                                                                                                                                                                                                                                                                                                                                                                      (T.uwrapForward
                                                                                                                                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                                                                                                                                        (hlex
                                                                                                                                                                                                                                                                                                                                                                                                                                                          fr15
                                                                                                                                                                                                                                                                                                                                                                                                                                                          p)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                                                                                  _
                                                                                                                                                                                                                                                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                                                                                                                                                                                                                                                  T.projection
                                                                                                                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                                                                                                                                                                                                in
                                                                                                                                                                                                                                                                                                                                                                                                                                                (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                                                                                                              f_x))
                                                                                                                                                                                                                                                                                                                                                                                                                                        (T.uap1
                                                                                                                                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                                                                                                                                          (greads
                                                                                                                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                            p)
                                                                                                                                                                                                                                                                                                                                                                                                                                          fs15))
                                                                                                                                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                                                                    _
                                                                                                                                                                                                                                                                                                                                                                                                                                    p =
                                                                                                                                                                                                                                                                                                                                                                                                                                    T.projection
                                                                                                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                                                                                                                                  in
                                                                                                                                                                                                                                                                                                                                                                                                                                  (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                                                                                                f_x))
                                                                                                                                                                                                                                                                                                                                                                                                                          (T.uwrapForward
                                                                                                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                                                                                                            (hlex
                                                                                                                                                                                                                                                                                                                                                                                                                              fr14
                                                                                                                                                                                                                                                                                                                                                                                                                              p)))
                                                                                                                                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                                                      _
                                                                                                                                                                                                                                                                                                                                                                                                                      p =
                                                                                                                                                                                                                                                                                                                                                                                                                      T.projection
                                                                                                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                                                                                                                                    in
                                                                                                                                                                                                                                                                                                                                                                                                                    (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                                                                                  f_x))
                                                                                                                                                                                                                                                                                                                                                                                                            (T.uap1
                                                                                                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                                                                                                              (greads
                                                                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                                p)
                                                                                                                                                                                                                                                                                                                                                                                                              fs14))
                                                                                                                                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                                        _
                                                                                                                                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                                                                                                                                        T.projection
                                                                                                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                                                                                                                                      in
                                                                                                                                                                                                                                                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                                                                    f_x))
                                                                                                                                                                                                                                                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                                                (hlex
                                                                                                                                                                                                                                                                                                                                                                                                  fr13
                                                                                                                                                                                                                                                                                                                                                                                                  p)))
                                                                                                                                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                                          _
                                                                                                                                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                                                                                                                                          T.projection
                                                                                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                                                                                                                                        in
                                                                                                                                                                                                                                                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                                                      f_x))
                                                                                                                                                                                                                                                                                                                                                                                (T.uap1
                                                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                                                  (greads
                                                                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                                                                                                                                                  fs13))
                                                                                                                                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                                            _
                                                                                                                                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                                                                                                                                            T.projection
                                                                                                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                                                                                                                                          in
                                                                                                                                                                                                                                                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                                        f_x))
                                                                                                                                                                                                                                                                                                                                                                  (T.uwrapForward
                                                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                                                    (hlex
                                                                                                                                                                                                                                                                                                                                                                      fr12
                                                                                                                                                                                                                                                                                                                                                                      p)))
                                                                                                                                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                              _
                                                                                                                                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                                                                                                                                              T.projection
                                                                                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                                                                                                                                            in
                                                                                                                                                                                                                                                                                                                                                            (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                                          f_x))
                                                                                                                                                                                                                                                                                                                                                    (T.uap1
                                                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                                                      (greads
                                                                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                                                                                                                                                      fs12))
                                                                                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                                _
                                                                                                                                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                                                                                                                                T.projection
                                                                                                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                                                                                                                                              in
                                                                                                                                                                                                                                                                                                                                              (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                                            f_x))
                                                                                                                                                                                                                                                                                                                                      (T.uwrapForward
                                                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                                                        (hlex
                                                                                                                                                                                                                                                                                                                                          fr11
                                                                                                                                                                                                                                                                                                                                          p)))
                                                                                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                                  _
                                                                                                                                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                                                                                                                                  T.projection
                                                                                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                                                                                                                                in
                                                                                                                                                                                                                                                                                                                                (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                              f_x))
                                                                                                                                                                                                                                                                                                                        (T.uap1
                                                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                                                          (greads
                                                                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                            p)
                                                                                                                                                                                                                                                                                                                          fs11))
                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                                                                                                                                    _
                                                                                                                                                                                                                                                                                                                    p =
                                                                                                                                                                                                                                                                                                                    T.projection
                                                                                                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                                                                                                      f_y
                                                                                                                                                                                                                                                                                                                  in
                                                                                                                                                                                                                                                                                                                  (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                                f_x))
                                                                                                                                                                                                                                                                                                          (T.uwrapForward
                                                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                                                            (hlex
                                                                                                                                                                                                                                                                                                              fr10
                                                                                                                                                                                                                                                                                                              p)))
                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                                                                                                                                      _
                                                                                                                                                                                                                                                                                                      p =
                                                                                                                                                                                                                                                                                                      T.projection
                                                                                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                        p
                                                                                                                                                                                                                                                                                                        f_y
                                                                                                                                                                                                                                                                                                    in
                                                                                                                                                                                                                                                                                                    (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                                  f_x))
                                                                                                                                                                                                                                                                                            (T.uap1
                                                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                                                              (greads
                                                                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                                                                p)
                                                                                                                                                                                                                                                                                              fs10))
                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                                                                                                                                        _
                                                                                                                                                                                                                                                                                        p =
                                                                                                                                                                                                                                                                                        T.projection
                                                                                                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                                                                                                          p
                                                                                                                                                                                                                                                                                          f_y
                                                                                                                                                                                                                                                                                      in
                                                                                                                                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                                                                                                                                    f_x))
                                                                                                                                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                                                (hlex
                                                                                                                                                                                                                                                                                  fr9
                                                                                                                                                                                                                                                                                  p)))
                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                                                                                                                                          _
                                                                                                                                                                                                                                                                          p =
                                                                                                                                                                                                                                                                          T.projection
                                                                                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                                                                                            p
                                                                                                                                                                                                                                                                            f_y
                                                                                                                                                                                                                                                                        in
                                                                                                                                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                                                                                                                                      f_x))
                                                                                                                                                                                                                                                                (T.uap1
                                                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                                                  (greads
                                                                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                                                                    p)
                                                                                                                                                                                                                                                                  fs9))
                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                          v0v0v0v0v1
                                                                                                                                                                                                                                                            _
                                                                                                                                                                                                                                                            p =
                                                                                                                                                                                                                                                            T.projection
                                                                                                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                                                                                                              p
                                                                                                                                                                                                                                                              f_y
                                                                                                                                                                                                                                                          in
                                                                                                                                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                                                                                                                                        f_x))
                                                                                                                                                                                                                                                  (T.uwrapForward
                                                                                                                                                                                                                                                    p
                                                                                                                                                                                                                                                    (hlex
                                                                                                                                                                                                                                                      fr8
                                                                                                                                                                                                                                                      p)))
                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                            v0v0v0v0v1
                                                                                                                                                                                                                                              _
                                                                                                                                                                                                                                              p =
                                                                                                                                                                                                                                              T.projection
                                                                                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                                                                                p
                                                                                                                                                                                                                                                f_y
                                                                                                                                                                                                                                            in
                                                                                                                                                                                                                                            (v0v0v0v0v1))
                                                                                                                                                                                                                                          f_x))
                                                                                                                                                                                                                                    (T.uap1
                                                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                                                      p
                                                                                                                                                                                                                                      (greads
                                                                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                                                                        p)
                                                                                                                                                                                                                                      fs8))
                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                              v0v0v0v0v1
                                                                                                                                                                                                                                _
                                                                                                                                                                                                                                p =
                                                                                                                                                                                                                                T.projection
                                                                                                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                                                                                                  p
                                                                                                                                                                                                                                  f_y
                                                                                                                                                                                                                              in
                                                                                                                                                                                                                              (v0v0v0v0v1))
                                                                                                                                                                                                                            f_x))
                                                                                                                                                                                                                      (T.uwrapForward
                                                                                                                                                                                                                        p
                                                                                                                                                                                                                        (hlex
                                                                                                                                                                                                                          fr7
                                                                                                                                                                                                                          p)))
                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                v0v0v0v0v1
                                                                                                                                                                                                                  _
                                                                                                                                                                                                                  p =
                                                                                                                                                                                                                  T.projection
                                                                                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                                                                                    p
                                                                                                                                                                                                                    f_y
                                                                                                                                                                                                                in
                                                                                                                                                                                                                (v0v0v0v0v1))
                                                                                                                                                                                                              f_x))
                                                                                                                                                                                                        (T.uap1
                                                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                                                          p
                                                                                                                                                                                                          (greads
                                                                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                                                                            p)
                                                                                                                                                                                                          fs7))
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  v0v0v0v0v1
                                                                                                                                                                                                    _
                                                                                                                                                                                                    p =
                                                                                                                                                                                                    T.projection
                                                                                                                                                                                                      T.mkNoSrcPos
                                                                                                                                                                                                      p
                                                                                                                                                                                                      f_y
                                                                                                                                                                                                  in
                                                                                                                                                                                                  (v0v0v0v0v1))
                                                                                                                                                                                                f_x))
                                                                                                                                                                                          (T.uwrapForward
                                                                                                                                                                                            p
                                                                                                                                                                                            (hlex
                                                                                                                                                                                              fr6
                                                                                                                                                                                              p)))
                                                                                                                                                                                        f_y
                                                                                                                                                                                    v0v0v0v0v1
                                                                                                                                                                                      _
                                                                                                                                                                                      p =
                                                                                                                                                                                      T.projection
                                                                                                                                                                                        T.mkNoSrcPos
                                                                                                                                                                                        p
                                                                                                                                                                                        f_y
                                                                                                                                                                                    in
                                                                                                                                                                                    (v0v0v0v0v1))
                                                                                                                                                                                  f_x))
                                                                                                                                                                            (T.uap1
                                                                                                                                                                              T.mkNoSrcPos
                                                                                                                                                                              p
                                                                                                                                                                              (greads
                                                                                                                                                                                T.mkNoSrcPos
                                                                                                                                                                                p)
                                                                                                                                                                              fs6))
                                                                                                                                                                          f_y
                                                                                                                                                                      v0v0v0v0v1
                                                                                                                                                                        _
                                                                                                                                                                        p =
                                                                                                                                                                        T.projection
                                                                                                                                                                          T.mkNoSrcPos
                                                                                                                                                                          p
                                                                                                                                                                          f_y
                                                                                                                                                                      in
                                                                                                                                                                      (v0v0v0v0v1))
                                                                                                                                                                    f_x))
                                                                                                                                                              (T.uwrapForward
                                                                                                                                                                p
                                                                                                                                                                (hlex
                                                                                                                                                                  fr5
                                                                                                                                                                  p)))
                                                                                                                                                            f_y
                                                                                                                                                        v0v0v0v0v1
                                                                                                                                                          _
                                                                                                                                                          p =
                                                                                                                                                          T.projection
                                                                                                                                                            T.mkNoSrcPos
                                                                                                                                                            p
                                                                                                                                                            f_y
                                                                                                                                                        in
                                                                                                                                                        (v0v0v0v0v1))
                                                                                                                                                      f_x))
                                                                                                                                                (T.uap1
                                                                                                                                                  T.mkNoSrcPos
                                                                                                                                                  p
                                                                                                                                                  (greads
                                                                                                                                                    T.mkNoSrcPos
                                                                                                                                                    p)
                                                                                                                                                  fs5))
                                                                                                                                              f_y
                                                                                                                                          v0v0v0v0v1
                                                                                                                                            _
                                                                                                                                            p =
                                                                                                                                            T.projection
                                                                                                                                              T.mkNoSrcPos
                                                                                                                                              p
                                                                                                                                              f_y
                                                                                                                                          in
                                                                                                                                          (v0v0v0v0v1))
                                                                                                                                        f_x))
                                                                                                                                  (T.uwrapForward
                                                                                                                                    p
                                                                                                                                    (hlex
                                                                                                                                      fr4
                                                                                                                                      p)))
                                                                                                                                f_y
                                                                                                                            v0v0v0v0v1
                                                                                                                              _
                                                                                                                              p =
                                                                                                                              T.projection
                                                                                                                                T.mkNoSrcPos
                                                                                                                                p
                                                                                                                                f_y
                                                                                                                            in
                                                                                                                            (v0v0v0v0v1))
                                                                                                                          f_x))
                                                                                                                    (T.uap1
                                                                                                                      T.mkNoSrcPos
                                                                                                                      p
                                                                                                                      (greads
                                                                                                                        T.mkNoSrcPos
                                                                                                                        p)
                                                                                                                      fs4))
                                                                                                                  f_y
                                                                                                              v0v0v0v0v1
                                                                                                                _
                                                                                                                p =
                                                                                                                T.projection
                                                                                                                  T.mkNoSrcPos
                                                                                                                  p
                                                                                                                  f_y
                                                                                                              in
                                                                                                              (v0v0v0v0v1))
                                                                                                            f_x))
                                                                                                      (T.uwrapForward
                                                                                                        p
                                                                                                        (hlex
                                                                                                          fr3
                                                                                                          p)))
                                                                                                    f_y
                                                                                                v0v0v0v0v1
                                                                                                  _
                                                                                                  p =
                                                                                                  T.projection
                                                                                                    T.mkNoSrcPos
                                                                                                    p
                                                                                                    f_y
                                                                                                in
                                                                                                (v0v0v0v0v1))
                                                                                              f_x))
                                                                                        (T.uap1
                                                                                          T.mkNoSrcPos
                                                                                          p
                                                                                          (greads
                                                                                            T.mkNoSrcPos
                                                                                            p)
                                                                                          fs3))
                                                                                      f_y
                                                                                  v0v0v0v0v1
                                                                                    _
                                                                                    p =
                                                                                    T.projection
                                                                                      T.mkNoSrcPos
                                                                                      p
                                                                                      f_y
                                                                                  in
                                                                                  (v0v0v0v0v1))
                                                                                f_x))
                                                                          (T.uwrapForward
                                                                            p
                                                                            (hlex
                                                                              fr2
                                                                              p)))
                                                                        f_y
                                                                    v0v0v0v0v1 _
                                                                      p =
                                                                      T.projection
                                                                        T.mkNoSrcPos
                                                                        p f_y in
                                                                    (v0v0v0v0v1))
                                                                  f_x))
                                                            (T.uap1 T.mkNoSrcPos
                                                              p
                                                              (greads
                                                                T.mkNoSrcPos p)
                                                              fs2)) f_y
                                                      v0v0v0v0v1 _ p =
                                                        T.projection
                                                          T.mkNoSrcPos p f_y in
                                                      (v0v0v0v0v1)) f_x))
                                              (T.uwrapForward p (hlex fr1 p)))
                                            f_y
                                        v0v0v0v0v1 _ p =
                                          T.projection T.mkNoSrcPos p f_y in
                                        (v0v0v0v0v1)) f_x))
                                (T.uap1 T.mkNoSrcPos p (greads T.mkNoSrcPos p)
                                  fs1)) f_y
                          v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                          (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr0 p)))
                (T.fromExpList T.mkNoSrcPos p []))) p)
    
  

instance (Show a,Show b,Show c) => Show ((T.Tuple3 a b c))
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a2329v5v2331v63showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp (T.R (T.Tuple3 fx fy fz) _) p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
        (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '('))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fx)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
              (T.fromLitString T.mkNoSrcPos p ","))
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fy)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                  (T.fromLitString T.mkNoSrcPos p ","))
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fz)
                  (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
                    (T.conChar T.mkNoSrcPos p ')')))))))
    hshowsPrec _ _ p = T.fatal p
    
  

instance (Show a,Show b,Show c,Show d) => Show ((T.Tuple4 a b c d))
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a2338v5v2341v65showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp (T.R (T.Tuple4 fx fy fz fu) _) p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
        (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '('))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fx)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
              (T.fromLitString T.mkNoSrcPos p ","))
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fy)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                  (T.fromLitString T.mkNoSrcPos p ","))
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fz)
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                    (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                      (T.fromLitString T.mkNoSrcPos p ","))
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                      (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fu)
                      (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
                        (T.conChar T.mkNoSrcPos p ')')))))))))
    hshowsPrec _ _ p = T.fatal p
    
  

instance (Show a,Show b,Show c,Show d,Show e) => Show ((T.Tuple5 a b c d e))
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a2349v5v2353v65showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp (T.R (T.Tuple5 fx fy fz fu fv) _) p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
        (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '('))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fx)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
              (T.fromLitString T.mkNoSrcPos p ","))
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fy)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                  (T.fromLitString T.mkNoSrcPos p ","))
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fz)
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                    (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                      (T.fromLitString T.mkNoSrcPos p ","))
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                      (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fu)
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                        (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                          (T.fromLitString T.mkNoSrcPos p ","))
                        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fv)
                          (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
                            (T.conChar T.mkNoSrcPos p ')')))))))))))
    hshowsPrec _ _ p = T.fatal p
    
  

instance
  (Show a,Show b,Show c,Show d,Show e,Show f) => Show ((T.Tuple6 a b c d e f))
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a2363v5v2368v65showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp (T.R (T.Tuple6 fx fy fz fu fv fw) _) p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
        (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '('))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fx)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
              (T.fromLitString T.mkNoSrcPos p ","))
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fy)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                  (T.fromLitString T.mkNoSrcPos p ","))
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fz)
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                    (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                      (T.fromLitString T.mkNoSrcPos p ","))
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                      (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fu)
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                        (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                          (T.fromLitString T.mkNoSrcPos p ","))
                        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fv)
                          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                              (T.fromLitString T.mkNoSrcPos p ","))
                            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fw)
                              (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
                                (T.conChar T.mkNoSrcPos p ')')))))))))))))
    hshowsPrec _ _ p = T.fatal p
    
  

instance
  (Show a,Show b,Show c,Show d,Show e,Show f,Show g) =>
    Show ((T.Tuple7 a b c d e f g))
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a2379v5v2385v65showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp (T.R (T.Tuple7 fx fy fz fu fv fw ft) _) p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
        (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '('))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fx)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
              (T.fromLitString T.mkNoSrcPos p ","))
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fy)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                  (T.fromLitString T.mkNoSrcPos p ","))
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fz)
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                    (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                      (T.fromLitString T.mkNoSrcPos p ","))
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                      (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fu)
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                        (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                          (T.fromLitString T.mkNoSrcPos p ","))
                        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fv)
                          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                              (T.fromLitString T.mkNoSrcPos p ","))
                            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fw)
                              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                (T.uap1 T.mkNoSrcPos p
                                  (gshowString T.mkNoSrcPos p)
                                  (T.fromLitString T.mkNoSrcPos p ","))
                                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p)
                                    ft)
                                  (T.uap1 T.mkNoSrcPos p
                                    (gshowChar T.mkNoSrcPos p)
                                    (T.conChar T.mkNoSrcPos p ')')))))))))))))))
    hshowsPrec _ _ p = T.fatal p
    
  

instance
  (Show a,Show b,Show c,Show d,Show e,Show f,Show g,Show h) =>
    Show ((T.Tuple8 a b c d e f g h))
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a2398v5v2405v65showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp (T.R (T.Tuple8 fx fy fz fu fv fw ft fa) _) p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
        (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '('))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fx)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
              (T.fromLitString T.mkNoSrcPos p ","))
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fy)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                  (T.fromLitString T.mkNoSrcPos p ","))
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fz)
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                    (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                      (T.fromLitString T.mkNoSrcPos p ","))
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                      (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fu)
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                        (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                          (T.fromLitString T.mkNoSrcPos p ","))
                        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fv)
                          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                              (T.fromLitString T.mkNoSrcPos p ","))
                            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fw)
                              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                (T.uap1 T.mkNoSrcPos p
                                  (gshowString T.mkNoSrcPos p)
                                  (T.fromLitString T.mkNoSrcPos p ","))
                                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p)
                                    ft)
                                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                    (T.uap1 T.mkNoSrcPos p
                                      (gshowString T.mkNoSrcPos p)
                                      (T.fromLitString T.mkNoSrcPos p ","))
                                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                      (T.uap1 T.mkNoSrcPos p
                                        (gshows T.mkNoSrcPos p) fa)
                                      (T.uap1 T.mkNoSrcPos p
                                        (gshowChar T.mkNoSrcPos p)
                                        (T.conChar T.mkNoSrcPos p
                                          ')')))))))))))))))))
    hshowsPrec _ _ p = T.fatal p
    
  

instance
  (Show a,Show b,Show c,Show d,Show e,Show f,Show g,Show h,Show i) =>
    Show ((T.Tuple9 a b c d e f g h i))
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a2419v5v2428v65showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp (T.R (T.Tuple9 fx fy fz fu fv fw ft fa fb) _) p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
        (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '('))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fx)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
              (T.fromLitString T.mkNoSrcPos p ","))
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fy)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                  (T.fromLitString T.mkNoSrcPos p ","))
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fz)
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                    (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                      (T.fromLitString T.mkNoSrcPos p ","))
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                      (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fu)
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                        (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                          (T.fromLitString T.mkNoSrcPos p ","))
                        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fv)
                          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                              (T.fromLitString T.mkNoSrcPos p ","))
                            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fw)
                              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                (T.uap1 T.mkNoSrcPos p
                                  (gshowString T.mkNoSrcPos p)
                                  (T.fromLitString T.mkNoSrcPos p ","))
                                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p)
                                    ft)
                                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                    (T.uap1 T.mkNoSrcPos p
                                      (gshowString T.mkNoSrcPos p)
                                      (T.fromLitString T.mkNoSrcPos p ","))
                                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                      (T.uap1 T.mkNoSrcPos p
                                        (gshows T.mkNoSrcPos p) fa)
                                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                        (T.uap1 T.mkNoSrcPos p
                                          (gshowString T.mkNoSrcPos p)
                                          (T.fromLitString T.mkNoSrcPos p ","))
                                        (T.uap2 T.mkNoSrcPos p
                                          (T.mkNoSrcPos !. p)
                                          (T.uap1 T.mkNoSrcPos p
                                            (gshows T.mkNoSrcPos p) fb)
                                          (T.uap1 T.mkNoSrcPos p
                                            (gshowChar T.mkNoSrcPos p)
                                            (T.conChar T.mkNoSrcPos p
                                              ')')))))))))))))))))))
    hshowsPrec _ _ p = T.fatal p
    
  

instance
  (Show a,Show b,Show c,Show d,Show e,Show f,Show g,Show h,Show i,Show j) =>
    Show ((T.Tuple10 a b c d e f g h i j))
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a2444v5v2454v65showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp (T.R (T.Tuple10 fx fy fz fu fv fw ft fa fb fc) _) p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
        (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '('))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fx)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
              (T.fromLitString T.mkNoSrcPos p ","))
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fy)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                  (T.fromLitString T.mkNoSrcPos p ","))
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fz)
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                    (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                      (T.fromLitString T.mkNoSrcPos p ","))
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                      (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fu)
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                        (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                          (T.fromLitString T.mkNoSrcPos p ","))
                        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fv)
                          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                              (T.fromLitString T.mkNoSrcPos p ","))
                            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fw)
                              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                (T.uap1 T.mkNoSrcPos p
                                  (gshowString T.mkNoSrcPos p)
                                  (T.fromLitString T.mkNoSrcPos p ","))
                                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p)
                                    ft)
                                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                    (T.uap1 T.mkNoSrcPos p
                                      (gshowString T.mkNoSrcPos p)
                                      (T.fromLitString T.mkNoSrcPos p ","))
                                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                      (T.uap1 T.mkNoSrcPos p
                                        (gshows T.mkNoSrcPos p) fa)
                                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                        (T.uap1 T.mkNoSrcPos p
                                          (gshowString T.mkNoSrcPos p)
                                          (T.fromLitString T.mkNoSrcPos p ","))
                                        (T.uap2 T.mkNoSrcPos p
                                          (T.mkNoSrcPos !. p)
                                          (T.uap1 T.mkNoSrcPos p
                                            (gshows T.mkNoSrcPos p) fb)
                                          (T.uap2 T.mkNoSrcPos p
                                            (T.mkNoSrcPos !. p)
                                            (T.uap1 T.mkNoSrcPos p
                                              (gshowString T.mkNoSrcPos p)
                                              (T.fromLitString T.mkNoSrcPos p
                                                ","))
                                            (T.uap2 T.mkNoSrcPos p
                                              (T.mkNoSrcPos !. p)
                                              (T.uap1 T.mkNoSrcPos p
                                                (gshows T.mkNoSrcPos p) fc)
                                              (T.uap1 T.mkNoSrcPos p
                                                (gshowChar T.mkNoSrcPos p)
                                                (T.conChar T.mkNoSrcPos p
                                                  ')')))))))))))))))))))))
    hshowsPrec _ _ p = T.fatal p
    
  

instance
  (Show a,Show b,Show c,Show d,Show e,Show f,Show g,Show h,Show i,Show j
      ,Show k) => Show ((T.Tuple11 a b c d e f g h i j k))
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a2471v5v2482v65showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp (T.R (T.Tuple11 fx fy fz fu fv fw ft fa fb fc fd) _) p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
        (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '('))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fx)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
              (T.fromLitString T.mkNoSrcPos p ","))
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fy)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                  (T.fromLitString T.mkNoSrcPos p ","))
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fz)
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                    (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                      (T.fromLitString T.mkNoSrcPos p ","))
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                      (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fu)
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                        (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                          (T.fromLitString T.mkNoSrcPos p ","))
                        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fv)
                          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                              (T.fromLitString T.mkNoSrcPos p ","))
                            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fw)
                              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                (T.uap1 T.mkNoSrcPos p
                                  (gshowString T.mkNoSrcPos p)
                                  (T.fromLitString T.mkNoSrcPos p ","))
                                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p)
                                    ft)
                                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                    (T.uap1 T.mkNoSrcPos p
                                      (gshowString T.mkNoSrcPos p)
                                      (T.fromLitString T.mkNoSrcPos p ","))
                                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                      (T.uap1 T.mkNoSrcPos p
                                        (gshows T.mkNoSrcPos p) fa)
                                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                        (T.uap1 T.mkNoSrcPos p
                                          (gshowString T.mkNoSrcPos p)
                                          (T.fromLitString T.mkNoSrcPos p ","))
                                        (T.uap2 T.mkNoSrcPos p
                                          (T.mkNoSrcPos !. p)
                                          (T.uap1 T.mkNoSrcPos p
                                            (gshows T.mkNoSrcPos p) fb)
                                          (T.uap2 T.mkNoSrcPos p
                                            (T.mkNoSrcPos !. p)
                                            (T.uap1 T.mkNoSrcPos p
                                              (gshowString T.mkNoSrcPos p)
                                              (T.fromLitString T.mkNoSrcPos p
                                                ","))
                                            (T.uap2 T.mkNoSrcPos p
                                              (T.mkNoSrcPos !. p)
                                              (T.uap1 T.mkNoSrcPos p
                                                (gshows T.mkNoSrcPos p) fc)
                                              (T.uap2 T.mkNoSrcPos p
                                                (T.mkNoSrcPos !. p)
                                                (T.uap1 T.mkNoSrcPos p
                                                  (gshowString T.mkNoSrcPos p)
                                                  (T.fromLitString T.mkNoSrcPos
                                                    p ","))
                                                (T.uap2 T.mkNoSrcPos p
                                                  (T.mkNoSrcPos !. p)
                                                  (T.uap1 T.mkNoSrcPos p
                                                    (gshows T.mkNoSrcPos p) fd)
                                                  (T.uap1 T.mkNoSrcPos p
                                                    (gshowChar T.mkNoSrcPos p)
                                                    (T.conChar T.mkNoSrcPos p
                                                      ')')))))))))))))))))))))))
    hshowsPrec _ _ p = T.fatal p
    
  

instance
  (Show a,Show b,Show c,Show d,Show e,Show f,Show g,Show h,Show i,Show j,Show k
      ,Show l) => Show ((T.Tuple12 a b c d e f g h i j k l))
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a2500v5v2512v65showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp (T.R (T.Tuple12 fx fy fz fu fv fw ft fa fb fc fd fe) _) p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
        (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '('))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fx)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
              (T.fromLitString T.mkNoSrcPos p ","))
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fy)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                  (T.fromLitString T.mkNoSrcPos p ","))
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fz)
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                    (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                      (T.fromLitString T.mkNoSrcPos p ","))
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                      (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fu)
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                        (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                          (T.fromLitString T.mkNoSrcPos p ","))
                        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fv)
                          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                              (T.fromLitString T.mkNoSrcPos p ","))
                            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fw)
                              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                (T.uap1 T.mkNoSrcPos p
                                  (gshowString T.mkNoSrcPos p)
                                  (T.fromLitString T.mkNoSrcPos p ","))
                                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p)
                                    ft)
                                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                    (T.uap1 T.mkNoSrcPos p
                                      (gshowString T.mkNoSrcPos p)
                                      (T.fromLitString T.mkNoSrcPos p ","))
                                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                      (T.uap1 T.mkNoSrcPos p
                                        (gshows T.mkNoSrcPos p) fa)
                                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                        (T.uap1 T.mkNoSrcPos p
                                          (gshowString T.mkNoSrcPos p)
                                          (T.fromLitString T.mkNoSrcPos p ","))
                                        (T.uap2 T.mkNoSrcPos p
                                          (T.mkNoSrcPos !. p)
                                          (T.uap1 T.mkNoSrcPos p
                                            (gshows T.mkNoSrcPos p) fb)
                                          (T.uap2 T.mkNoSrcPos p
                                            (T.mkNoSrcPos !. p)
                                            (T.uap1 T.mkNoSrcPos p
                                              (gshowString T.mkNoSrcPos p)
                                              (T.fromLitString T.mkNoSrcPos p
                                                ","))
                                            (T.uap2 T.mkNoSrcPos p
                                              (T.mkNoSrcPos !. p)
                                              (T.uap1 T.mkNoSrcPos p
                                                (gshows T.mkNoSrcPos p) fc)
                                              (T.uap2 T.mkNoSrcPos p
                                                (T.mkNoSrcPos !. p)
                                                (T.uap1 T.mkNoSrcPos p
                                                  (gshowString T.mkNoSrcPos p)
                                                  (T.fromLitString T.mkNoSrcPos
                                                    p ","))
                                                (T.uap2 T.mkNoSrcPos p
                                                  (T.mkNoSrcPos !. p)
                                                  (T.uap1 T.mkNoSrcPos p
                                                    (gshows T.mkNoSrcPos p) fd)
                                                  (T.uap2 T.mkNoSrcPos p
                                                    (T.mkNoSrcPos !. p)
                                                    (T.uap1 T.mkNoSrcPos p
                                                      (gshowString T.mkNoSrcPos
                                                        p)
                                                      (T.fromLitString
                                                        T.mkNoSrcPos p ","))
                                                    (T.uap2 T.mkNoSrcPos p
                                                      (T.mkNoSrcPos !. p)
                                                      (T.uap1 T.mkNoSrcPos p
                                                        (gshows T.mkNoSrcPos p)
                                                        fe)
                                                      (T.uap1 T.mkNoSrcPos p
                                                        (gshowChar T.mkNoSrcPos
                                                          p)
                                                        (T.conChar T.mkNoSrcPos
                                                          p
                                                          ')')))))))))))))))))))))))))
    hshowsPrec _ _ p = T.fatal p
    
  

instance
  (Show a,Show b,Show c,Show d,Show e,Show f,Show g,Show h,Show i,Show j,Show k
      ,Show l,Show m) => Show ((T.Tuple13 a b c d e f g h i j k l m))
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a2531v5v2544v65showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp (T.R (T.Tuple13 fx fy fz fu fv fw ft fa fb fc fd fe ff) _) p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
        (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '('))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fx)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
              (T.fromLitString T.mkNoSrcPos p ","))
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fy)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                  (T.fromLitString T.mkNoSrcPos p ","))
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fz)
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                    (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                      (T.fromLitString T.mkNoSrcPos p ","))
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                      (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fu)
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                        (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                          (T.fromLitString T.mkNoSrcPos p ","))
                        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fv)
                          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                              (T.fromLitString T.mkNoSrcPos p ","))
                            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fw)
                              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                (T.uap1 T.mkNoSrcPos p
                                  (gshowString T.mkNoSrcPos p)
                                  (T.fromLitString T.mkNoSrcPos p ","))
                                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p)
                                    ft)
                                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                    (T.uap1 T.mkNoSrcPos p
                                      (gshowString T.mkNoSrcPos p)
                                      (T.fromLitString T.mkNoSrcPos p ","))
                                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                      (T.uap1 T.mkNoSrcPos p
                                        (gshows T.mkNoSrcPos p) fa)
                                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                        (T.uap1 T.mkNoSrcPos p
                                          (gshowString T.mkNoSrcPos p)
                                          (T.fromLitString T.mkNoSrcPos p ","))
                                        (T.uap2 T.mkNoSrcPos p
                                          (T.mkNoSrcPos !. p)
                                          (T.uap1 T.mkNoSrcPos p
                                            (gshows T.mkNoSrcPos p) fb)
                                          (T.uap2 T.mkNoSrcPos p
                                            (T.mkNoSrcPos !. p)
                                            (T.uap1 T.mkNoSrcPos p
                                              (gshowString T.mkNoSrcPos p)
                                              (T.fromLitString T.mkNoSrcPos p
                                                ","))
                                            (T.uap2 T.mkNoSrcPos p
                                              (T.mkNoSrcPos !. p)
                                              (T.uap1 T.mkNoSrcPos p
                                                (gshows T.mkNoSrcPos p) fc)
                                              (T.uap2 T.mkNoSrcPos p
                                                (T.mkNoSrcPos !. p)
                                                (T.uap1 T.mkNoSrcPos p
                                                  (gshowString T.mkNoSrcPos p)
                                                  (T.fromLitString T.mkNoSrcPos
                                                    p ","))
                                                (T.uap2 T.mkNoSrcPos p
                                                  (T.mkNoSrcPos !. p)
                                                  (T.uap1 T.mkNoSrcPos p
                                                    (gshows T.mkNoSrcPos p) fd)
                                                  (T.uap2 T.mkNoSrcPos p
                                                    (T.mkNoSrcPos !. p)
                                                    (T.uap1 T.mkNoSrcPos p
                                                      (gshowString T.mkNoSrcPos
                                                        p)
                                                      (T.fromLitString
                                                        T.mkNoSrcPos p ","))
                                                    (T.uap2 T.mkNoSrcPos p
                                                      (T.mkNoSrcPos !. p)
                                                      (T.uap1 T.mkNoSrcPos p
                                                        (gshows T.mkNoSrcPos p)
                                                        fe)
                                                      (T.uap2 T.mkNoSrcPos p
                                                        (T.mkNoSrcPos !. p)
                                                        (T.uap1 T.mkNoSrcPos p
                                                          (gshowString
                                                            T.mkNoSrcPos p)
                                                          (T.fromLitString
                                                            T.mkNoSrcPos p ","))
                                                        (T.uap2 T.mkNoSrcPos p
                                                          (T.mkNoSrcPos !. p)
                                                          (T.uap1 T.mkNoSrcPos p
                                                            (gshows T.mkNoSrcPos
                                                              p) ff)
                                                          (T.uap1 T.mkNoSrcPos p
                                                            (gshowChar
                                                              T.mkNoSrcPos p)
                                                            (T.conChar
                                                              T.mkNoSrcPos p
                                                              ')')))))))))))))))))))))))))))
    hshowsPrec _ _ p = T.fatal p
    
  

instance
  (Show a,Show b,Show c,Show d,Show e,Show f,Show g,Show h,Show i,Show j,Show k
      ,Show l,Show m,Show n) => Show ((T.Tuple14 a b c d e f g h i j k l m n))
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a2564v5v2578v65showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp (T.R (T.Tuple14 fx fy fz fu fv fw ft fa fb fc fd fe ff fg) _)
      p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
        (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '('))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fx)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
              (T.fromLitString T.mkNoSrcPos p ","))
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fy)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                  (T.fromLitString T.mkNoSrcPos p ","))
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fz)
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                    (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                      (T.fromLitString T.mkNoSrcPos p ","))
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                      (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fu)
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                        (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                          (T.fromLitString T.mkNoSrcPos p ","))
                        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fv)
                          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                              (T.fromLitString T.mkNoSrcPos p ","))
                            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fw)
                              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                (T.uap1 T.mkNoSrcPos p
                                  (gshowString T.mkNoSrcPos p)
                                  (T.fromLitString T.mkNoSrcPos p ","))
                                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p)
                                    ft)
                                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                    (T.uap1 T.mkNoSrcPos p
                                      (gshowString T.mkNoSrcPos p)
                                      (T.fromLitString T.mkNoSrcPos p ","))
                                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                      (T.uap1 T.mkNoSrcPos p
                                        (gshows T.mkNoSrcPos p) fa)
                                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                        (T.uap1 T.mkNoSrcPos p
                                          (gshowString T.mkNoSrcPos p)
                                          (T.fromLitString T.mkNoSrcPos p ","))
                                        (T.uap2 T.mkNoSrcPos p
                                          (T.mkNoSrcPos !. p)
                                          (T.uap1 T.mkNoSrcPos p
                                            (gshows T.mkNoSrcPos p) fb)
                                          (T.uap2 T.mkNoSrcPos p
                                            (T.mkNoSrcPos !. p)
                                            (T.uap1 T.mkNoSrcPos p
                                              (gshowString T.mkNoSrcPos p)
                                              (T.fromLitString T.mkNoSrcPos p
                                                ","))
                                            (T.uap2 T.mkNoSrcPos p
                                              (T.mkNoSrcPos !. p)
                                              (T.uap1 T.mkNoSrcPos p
                                                (gshows T.mkNoSrcPos p) fc)
                                              (T.uap2 T.mkNoSrcPos p
                                                (T.mkNoSrcPos !. p)
                                                (T.uap1 T.mkNoSrcPos p
                                                  (gshowString T.mkNoSrcPos p)
                                                  (T.fromLitString T.mkNoSrcPos
                                                    p ","))
                                                (T.uap2 T.mkNoSrcPos p
                                                  (T.mkNoSrcPos !. p)
                                                  (T.uap1 T.mkNoSrcPos p
                                                    (gshows T.mkNoSrcPos p) fd)
                                                  (T.uap2 T.mkNoSrcPos p
                                                    (T.mkNoSrcPos !. p)
                                                    (T.uap1 T.mkNoSrcPos p
                                                      (gshowString T.mkNoSrcPos
                                                        p)
                                                      (T.fromLitString
                                                        T.mkNoSrcPos p ","))
                                                    (T.uap2 T.mkNoSrcPos p
                                                      (T.mkNoSrcPos !. p)
                                                      (T.uap1 T.mkNoSrcPos p
                                                        (gshows T.mkNoSrcPos p)
                                                        fe)
                                                      (T.uap2 T.mkNoSrcPos p
                                                        (T.mkNoSrcPos !. p)
                                                        (T.uap1 T.mkNoSrcPos p
                                                          (gshowString
                                                            T.mkNoSrcPos p)
                                                          (T.fromLitString
                                                            T.mkNoSrcPos p ","))
                                                        (T.uap2 T.mkNoSrcPos p
                                                          (T.mkNoSrcPos !. p)
                                                          (T.uap1 T.mkNoSrcPos p
                                                            (gshows T.mkNoSrcPos
                                                              p) ff)
                                                          (T.uap2 T.mkNoSrcPos p
                                                            (T.mkNoSrcPos !. p)
                                                            (T.uap1 T.mkNoSrcPos
                                                              p
                                                              (gshowString
                                                                T.mkNoSrcPos p)
                                                              (T.fromLitString
                                                                T.mkNoSrcPos p
                                                                ","))
                                                            (T.uap2 T.mkNoSrcPos
                                                              p
                                                              (T.mkNoSrcPos
                                                                !.
                                                                p)
                                                              (T.uap1
                                                                T.mkNoSrcPos p
                                                                (gshows
                                                                  T.mkNoSrcPos
                                                                  p) fg)
                                                              (T.uap1
                                                                T.mkNoSrcPos p
                                                                (gshowChar
                                                                  T.mkNoSrcPos
                                                                  p)
                                                                (T.conChar
                                                                  T.mkNoSrcPos p
                                                                  ')')))))))))))))))))))))))))))))
    hshowsPrec _ _ p = T.fatal p
    
  

instance
  (Show a,Show b,Show c,Show d,Show e,Show f,Show g,Show h,Show i,Show j,Show k
      ,Show l,Show m,Show n,Show o) =>
    Show ((T.Tuple15 a b c d e f g h i j k l m n o))
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a2599v5v2614v65showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp
      (T.R (T.Tuple15 fx fy fz fu fv fw ft fa fb fc fd fe ff fg fh) _) p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
        (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '('))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fx)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
              (T.fromLitString T.mkNoSrcPos p ","))
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fy)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                  (T.fromLitString T.mkNoSrcPos p ","))
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fz)
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                    (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                      (T.fromLitString T.mkNoSrcPos p ","))
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                      (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fu)
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                        (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                          (T.fromLitString T.mkNoSrcPos p ","))
                        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fv)
                          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                            (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                              (T.fromLitString T.mkNoSrcPos p ","))
                            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fw)
                              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                (T.uap1 T.mkNoSrcPos p
                                  (gshowString T.mkNoSrcPos p)
                                  (T.fromLitString T.mkNoSrcPos p ","))
                                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                  (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p)
                                    ft)
                                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                    (T.uap1 T.mkNoSrcPos p
                                      (gshowString T.mkNoSrcPos p)
                                      (T.fromLitString T.mkNoSrcPos p ","))
                                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                      (T.uap1 T.mkNoSrcPos p
                                        (gshows T.mkNoSrcPos p) fa)
                                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                        (T.uap1 T.mkNoSrcPos p
                                          (gshowString T.mkNoSrcPos p)
                                          (T.fromLitString T.mkNoSrcPos p ","))
                                        (T.uap2 T.mkNoSrcPos p
                                          (T.mkNoSrcPos !. p)
                                          (T.uap1 T.mkNoSrcPos p
                                            (gshows T.mkNoSrcPos p) fb)
                                          (T.uap2 T.mkNoSrcPos p
                                            (T.mkNoSrcPos !. p)
                                            (T.uap1 T.mkNoSrcPos p
                                              (gshowString T.mkNoSrcPos p)
                                              (T.fromLitString T.mkNoSrcPos p
                                                ","))
                                            (T.uap2 T.mkNoSrcPos p
                                              (T.mkNoSrcPos !. p)
                                              (T.uap1 T.mkNoSrcPos p
                                                (gshows T.mkNoSrcPos p) fc)
                                              (T.uap2 T.mkNoSrcPos p
                                                (T.mkNoSrcPos !. p)
                                                (T.uap1 T.mkNoSrcPos p
                                                  (gshowString T.mkNoSrcPos p)
                                                  (T.fromLitString T.mkNoSrcPos
                                                    p ","))
                                                (T.uap2 T.mkNoSrcPos p
                                                  (T.mkNoSrcPos !. p)
                                                  (T.uap1 T.mkNoSrcPos p
                                                    (gshows T.mkNoSrcPos p) fd)
                                                  (T.uap2 T.mkNoSrcPos p
                                                    (T.mkNoSrcPos !. p)
                                                    (T.uap1 T.mkNoSrcPos p
                                                      (gshowString T.mkNoSrcPos
                                                        p)
                                                      (T.fromLitString
                                                        T.mkNoSrcPos p ","))
                                                    (T.uap2 T.mkNoSrcPos p
                                                      (T.mkNoSrcPos !. p)
                                                      (T.uap1 T.mkNoSrcPos p
                                                        (gshows T.mkNoSrcPos p)
                                                        fe)
                                                      (T.uap2 T.mkNoSrcPos p
                                                        (T.mkNoSrcPos !. p)
                                                        (T.uap1 T.mkNoSrcPos p
                                                          (gshowString
                                                            T.mkNoSrcPos p)
                                                          (T.fromLitString
                                                            T.mkNoSrcPos p ","))
                                                        (T.uap2 T.mkNoSrcPos p
                                                          (T.mkNoSrcPos !. p)
                                                          (T.uap1 T.mkNoSrcPos p
                                                            (gshows T.mkNoSrcPos
                                                              p) ff)
                                                          (T.uap2 T.mkNoSrcPos p
                                                            (T.mkNoSrcPos !. p)
                                                            (T.uap1 T.mkNoSrcPos
                                                              p
                                                              (gshowString
                                                                T.mkNoSrcPos p)
                                                              (T.fromLitString
                                                                T.mkNoSrcPos p
                                                                ","))
                                                            (T.uap2 T.mkNoSrcPos
                                                              p
                                                              (T.mkNoSrcPos
                                                                !.
                                                                p)
                                                              (T.uap1
                                                                T.mkNoSrcPos p
                                                                (gshows
                                                                  T.mkNoSrcPos
                                                                  p) fg)
                                                              (T.uap2
                                                                T.mkNoSrcPos p
                                                                (T.mkNoSrcPos
                                                                  !.
                                                                  p)
                                                                (T.uap1
                                                                  T.mkNoSrcPos p
                                                                  (gshowString
                                                                    T.mkNoSrcPos
                                                                    p)
                                                                  (T.fromLitString
                                                                    T.mkNoSrcPos
                                                                    p ","))
                                                                (T.uap2
                                                                  T.mkNoSrcPos p
                                                                  (T.mkNoSrcPos
                                                                    !.
                                                                    p)
                                                                  (T.uap1
                                                                    T.mkNoSrcPos
                                                                    p
                                                                    (gshows
                                                                      T.mkNoSrcPos
                                                                      p) fh)
                                                                  (T.uap1
                                                                    T.mkNoSrcPos
                                                                    p
                                                                    (gshowChar
                                                                      T.mkNoSrcPos
                                                                      p)
                                                                    (T.conChar
                                                                      T.mkNoSrcPos
                                                                      p
                                                                      ')')))))))))))))))))))))))))))))))
    hshowsPrec _ _ p = T.fatal p
    
  

type FilePath = String

instance Show (IOError)
  where
  
  gshow pshow p = T.uconstUse pshow p sshow
  
  sshow =
    T.uconstDef T.mkRoot a2650v3v2650v24show
      (\ p -> gprimIOErrorShow T.mkNoSrcPos p)
  

gputStr :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun String (IO T.Tuple0))

hputStr :: (T.R String) -> T.RefExp -> T.R (IO T.Tuple0)

gputStr pputStr p = T.ufun1 aputStr pputStr p hputStr

hputStr fs p = T.uwrapForward p (hmapM_ (gputChar T.mkNoSrcPos p) fs p)

gputStrLn :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun String (IO T.Tuple0))

hputStrLn :: (T.R String) -> T.RefExp -> T.R (IO T.Tuple0)

gputStrLn pputStrLn p = T.ufun1 aputStrLn pputStrLn p hputStrLn

hputStrLn fs p =
  T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>> p) (T.uwrapForward p (hputStr fs p))
    (T.uwrapForward p (hputStr (T.fromLitString T.mkNoSrcPos p "\n") p))

gprint :: Show a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (IO T.Tuple0))

hprint :: Show a => (T.R a) -> T.RefExp -> T.R (IO T.Tuple0)

gprint pprint p = T.ufun1 aprint pprint p hprint

hprint fx p =
  T.uwrapForward p
    (hputStrLn (T.uap1 T.mkNoSrcPos p (gshow T.mkNoSrcPos p) fx) p)

ggetLine :: T.RefSrcPos -> T.RefExp -> T.R (IO String)

sgetLine :: T.R (IO String)

ggetLine pgetLine p = T.uconstUse pgetLine p sgetLine

sgetLine =
  T.uconstDef T.mkRoot agetLine
    (\ p ->
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>>= p) (ggetChar T.mkNoSrcPos p)
        (T.ufun1 T.mkDoLambda T.mkNoSrcPos p
          (\ fc p ->
            T.ucif p
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fc
                (T.conChar T.mkNoSrcPos p '\n'))
              (T.uap1 T.mkNoSrcPos p (greturn T.mkNoSrcPos p)
                (T.fromLitString T.mkNoSrcPos p ""))
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>>= p)
                (ggetLine T.mkNoSrcPos p)
                (T.ufun1 T.mkDoLambda T.mkNoSrcPos p
                  (\ fs p ->
                    T.uap1 T.mkNoSrcPos p (greturn T.mkNoSrcPos p)
                      (T.con2 T.mkNoSrcPos p T.Cons T.aCons fc fs)))))))

ginteract ::
  T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.Fun String String) (IO T.Tuple0))

hinteract :: (T.R (T.Fun String String)) -> T.RefExp -> T.R (IO T.Tuple0)

ginteract pinteract p = T.ufun1 ainteract pinteract p hinteract

hinteract ff p =
  T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>>= p) (ggetContents T.mkNoSrcPos p)
    (T.ufun1 T.mkDoLambda T.mkNoSrcPos p
      (\ fs p -> T.uwrapForward p (hputStr (T.uap1 T.mkNoSrcPos p ff fs) p)))

greadIO :: Read a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun String (IO a))

hreadIO :: Read a => (T.R String) -> T.RefExp -> T.R (IO a)

greadIO preadIO p = T.ufun1 areadIO preadIO p hreadIO

hreadIO fs p =
  T.uccase T.mkNoSrcPos p
    (let
      v2707v13v2710v73v1 (T.R (T.Cons fx (T.R T.List _)) _) p =
        T.uap1 T.mkNoSrcPos p (greturn T.mkNoSrcPos p) fx
      v2707v13v2710v73v1 (T.R T.List _) p =
        T.uwrapForward p
          (hioError
            (T.uwrapForward p
              (huserError
                (T.fromLitString T.mkNoSrcPos p "Prelude.readIO: no parse") p))
            p)
      v2707v13v2710v73v1 _ p =
        T.uwrapForward p
          (hioError
            (T.uwrapForward p
              (huserError
                (T.fromLitString T.mkNoSrcPos p
                  "Prelude.readIO: ambiguous parse") p)) p) in
      (v2707v13v2710v73v1))
    (T.uap1 T.mkNoSrcPos p
      (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
        (T.ufun2 T.mkLambda T.mkNoSrcPos p
          (\ f_x f_y p ->
            T.uccase T.mkNoSrcPos p
              (let
                v0v0v0v0v1 (T.R (T.Tuple2 fx ft) _) p =
                  T.uap1 T.mkNoSrcPos p
                    (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                      (T.ufun2 T.mkLambda T.mkNoSrcPos p
                        (\ f_x f_y p ->
                          T.uccase T.mkNoSrcPos p
                            (let
                              v0v0v0v0v1
                                (T.R (T.Tuple2 (T.R T.List _) (T.R T.List _)) _)
                                p =
                                T.uap1 T.mkNoSrcPos p
                                  (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons fx)
                                  f_y
                              v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y
                              in (v0v0v0v0v1)) f_x))
                      (T.uwrapForward p (hlex ft p))) f_y
                v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                (v0v0v0v0v1)) f_x))
        (T.uap1 T.mkNoSrcPos p (greads T.mkNoSrcPos p) fs))
      (T.fromExpList T.mkNoSrcPos p []))

greadLn :: Read a => T.RefSrcPos -> T.RefExp -> T.R (IO a)

sreadLn :: Read a => T.R (IO a)

greadLn preadLn p = T.uconstUse preadLn p sreadLn

sreadLn =
  T.uconstDef T.mkRoot areadLn
    (\ p ->
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>>= p) (ggetLine T.mkNoSrcPos p)
        (T.ufun1 T.mkDoLambda T.mkNoSrcPos p
          (\ fl p ->
            T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>>= p)
              (T.uwrapForward p (hreadIO fl p))
              (T.ufun1 T.mkDoLambda T.mkNoSrcPos p
                (\ fr p ->
                  T.uap1 T.mkNoSrcPos p (greturn T.mkNoSrcPos p) fr)))))

gdigitToInt :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Char Int)

hdigitToInt :: (T.R Char) -> T.RefExp -> T.R Int

gdigitToInt pdigitToInt p = T.ufun1 adigitToInt pdigitToInt p hdigitToInt

hdigitToInt fc p =
  T.ucguard (T.uwrapForward p (hisDigit fc p))
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
      (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fc)
      (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p)
        (T.conChar T.mkNoSrcPos p '0')))
    (T.ucguard
      (T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) fc
              (T.conChar T.mkNoSrcPos p 'a'))
            *&&
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !<= p) fc
              (T.conChar T.mkNoSrcPos p 'f'))) p))
      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
          (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fc)
          (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p)
            (T.conChar T.mkNoSrcPos p 'a')))
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 10)))
      (T.ucguard
        (T.uwrapForward p
          (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) fc
                (T.conChar T.mkNoSrcPos p 'A'))
              *&&
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !<= p) fc
                (T.conChar T.mkNoSrcPos p 'F'))) p))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
            (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p) fc)
            (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p)
              (T.conChar T.mkNoSrcPos p 'A')))
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 10)))
        (T.ucguard (gotherwise T.mkNoSrcPos p)
          (T.uwrapForward p
            (herror
              (T.fromLitString T.mkNoSrcPos p "Char.digitToInt: not a digit")
              p)) (T.fatal p))))

gintToDigit :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Int Char)

hintToDigit :: (T.R Int) -> T.RefExp -> T.R Char

gintToDigit pintToDigit p = T.ufun1 aintToDigit pintToDigit p hintToDigit

hintToDigit fi p =
  T.ucguard
    (T.uwrapForward p
      (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) fi
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 0)))
          *&&
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !<= p) fi
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 9)))) p))
    (T.uap1 T.mkNoSrcPos p (gtoEnum T.mkNoSrcPos p)
      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
        (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '0')) fi))
    (T.ucguard
      (T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) fi
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 10)))
            *&&
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !<= p) fi
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 15)))) p))
      (T.uap1 T.mkNoSrcPos p (gtoEnum T.mkNoSrcPos p)
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
            (T.uap1 T.mkNoSrcPos p (gfromEnum T.mkNoSrcPos p)
              (T.conChar T.mkNoSrcPos p 'a')) fi)
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 10))))
      (T.ucguard (gotherwise T.mkNoSrcPos p)
        (T.uwrapForward p
          (herror
            (T.fromLitString T.mkNoSrcPos p "Char.intToDigit: not a digit") p))
        (T.fatal p)))

gord :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Char Int)

sord :: T.R (T.Fun Char Int)

gord pord p = T.uconstUse pord p sord

sord = T.uconstDef T.mkRoot aord (\ p -> gfromEnum T.mkNoSrcPos p)

gchr :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Int Char)

schr :: T.R (T.Fun Int Char)

gchr pchr p = T.uconstUse pchr p schr

schr = T.uconstDef T.mkRoot achr (\ p -> gtoEnum T.mkNoSrcPos p)

greadLitChar :: T.RefSrcPos -> T.RefExp -> T.R (ReadS Char)

hreadLitChar :: (T.R (ReadS___1 Char)) -> T.RefExp -> T.R (ReadS___2 Char)

greadLitChar preadLitChar p = T.ufun1 areadLitChar preadLitChar p hreadLitChar

hreadLitChar (T.R (T.Cons (T.R '\\' _) fs) _) p =
  T.uwrapForward p (hreadEsc fs p)
  where
  
  greadEsc preadEsc p = T.ufun1 a2766v9v2788v29readEsc preadEsc p hreadEsc
  
  areadEsc = a2766v9v2788v29readEsc
  
  hreadEsc (T.R (T.Cons (T.R 'a' _) fs) _) p =
    T.fromExpList T.mkNoSrcPos p
      [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
          (T.conChar T.mkNoSrcPos p '\o007') fs]
  hreadEsc (T.R (T.Cons (T.R 'b' _) fs) _) p =
    T.fromExpList T.mkNoSrcPos p
      [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
          (T.conChar T.mkNoSrcPos p '\o010') fs]
  hreadEsc (T.R (T.Cons (T.R 'f' _) fs) _) p =
    T.fromExpList T.mkNoSrcPos p
      [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
          (T.conChar T.mkNoSrcPos p '\o014') fs]
  hreadEsc (T.R (T.Cons (T.R 'n' _) fs) _) p =
    T.fromExpList T.mkNoSrcPos p
      [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 (T.conChar T.mkNoSrcPos p '\n')
          fs]
  hreadEsc (T.R (T.Cons (T.R 'r' _) fs) _) p =
    T.fromExpList T.mkNoSrcPos p
      [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
          (T.conChar T.mkNoSrcPos p '\o015') fs]
  hreadEsc (T.R (T.Cons (T.R 't' _) fs) _) p =
    T.fromExpList T.mkNoSrcPos p
      [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 (T.conChar T.mkNoSrcPos p '\t')
          fs]
  hreadEsc (T.R (T.Cons (T.R 'v' _) fs) _) p =
    T.fromExpList T.mkNoSrcPos p
      [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
          (T.conChar T.mkNoSrcPos p '\o013') fs]
  hreadEsc (T.R (T.Cons (T.R '\\' _) fs) _) p =
    T.fromExpList T.mkNoSrcPos p
      [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 (T.conChar T.mkNoSrcPos p '\\')
          fs]
  hreadEsc (T.R (T.Cons (T.R '"' _) fs) _) p =
    T.fromExpList T.mkNoSrcPos p
      [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 (T.conChar T.mkNoSrcPos p '"')
          fs]
  hreadEsc (T.R (T.Cons (T.R '\'' _) fs) _) p =
    T.fromExpList T.mkNoSrcPos p
      [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 (T.conChar T.mkNoSrcPos p '\'')
          fs]
  hreadEsc (z1readEsc@(T.R (T.Cons (T.R '^' _) (T.R (T.Cons fc fs) _)) _)) p =
    T.ucguard
      (T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) fc
              (T.conChar T.mkNoSrcPos p '@'))
            *&&
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !<= p) fc
              (T.conChar T.mkNoSrcPos p '_'))) p))
      (T.fromExpList T.mkNoSrcPos p
        [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
            (T.uap1 T.mkNoSrcPos p (gchr T.mkNoSrcPos p)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
                (T.uap1 T.mkNoSrcPos p (gord T.mkNoSrcPos p) fc)
                (T.uap1 T.mkNoSrcPos p (gord T.mkNoSrcPos p)
                  (T.conChar T.mkNoSrcPos p '@')))) fs]) (y1readEsc z1readEsc p)
  hreadEsc z1readEsc p = y1readEsc z1readEsc p
  
  y1readEsc (fs@(T.R (T.Cons fd _) _)) p =
    T.ucguard (T.uwrapForward p (hisDigit fd p))
      (T.uap1 T.mkNoSrcPos p
        (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
          (T.ufun2 T.mkLambda T.mkNoSrcPos p
            (\ f_x f_y p ->
              T.uccase T.mkNoSrcPos p
                (let
                  v0v0v0v0v1 (T.R (T.Tuple2 fn ft) _) p =
                    T.uap1 T.mkNoSrcPos p
                      (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                        (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                          (T.uap1 T.mkNoSrcPos p (gchr T.mkNoSrcPos p) fn) ft))
                      f_y
                  v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                  (v0v0v0v0v1)) f_x))
          (T.uap1 T.mkNoSrcPos p (greadDec T.mkNoSrcPos p) fs))
        (T.fromExpList T.mkNoSrcPos p [])) (y2readEsc fs p)
  y1readEsc fs p = y2readEsc fs p
  
  y2readEsc (T.R (T.Cons (T.R 'o' _) fs) _) p =
    T.uap1 T.mkNoSrcPos p
      (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
        (T.ufun2 T.mkLambda T.mkNoSrcPos p
          (\ f_x f_y p ->
            T.uccase T.mkNoSrcPos p
              (let
                v0v0v0v0v1 (T.R (T.Tuple2 fn ft) _) p =
                  T.uap1 T.mkNoSrcPos p
                    (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                      (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                        (T.uap1 T.mkNoSrcPos p (gchr T.mkNoSrcPos p) fn) ft))
                    f_y
                v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                (v0v0v0v0v1)) f_x))
        (T.uap1 T.mkNoSrcPos p (greadOct T.mkNoSrcPos p) fs))
      (T.fromExpList T.mkNoSrcPos p [])
  y2readEsc (T.R (T.Cons (T.R 'x' _) fs) _) p =
    T.uap1 T.mkNoSrcPos p
      (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
        (T.ufun2 T.mkLambda T.mkNoSrcPos p
          (\ f_x f_y p ->
            T.uccase T.mkNoSrcPos p
              (let
                v0v0v0v0v1 (T.R (T.Tuple2 fn ft) _) p =
                  T.uap1 T.mkNoSrcPos p
                    (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                      (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                        (T.uap1 T.mkNoSrcPos p (gchr T.mkNoSrcPos p) fn) ft))
                    f_y
                v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                (v0v0v0v0v1)) f_x))
        (T.uap1 T.mkNoSrcPos p (greadHex T.mkNoSrcPos p) fs))
      (T.fromExpList T.mkNoSrcPos p [])
  y2readEsc (fs@(T.R (T.Cons fc _) _)) p =
    T.ucguard (T.uwrapForward p (hisUpper fc p))
      (let
        gtable ptable p = T.uconstUse ptable p stable
        stable =
          T.uconstDef p a2783v32v2783v78table
            (\ p ->
              T.con2 T.mkNoSrcPos p T.Cons T.aCons
                (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                  (T.conChar T.mkNoSrcPos p '\o177')
                  (T.fromLitString T.mkNoSrcPos p "DEL"))
                (gasciiTab T.mkNoSrcPos p)) in
        (T.uccase T.mkNoSrcPos p
          (let
            v2784v31v2787v45v1 (T.R (T.Cons fpr _) _) p =
              T.fromExpList T.mkNoSrcPos p [fpr]
            v2784v31v2787v45v1 (T.R T.List _) p =
              T.con0 T.mkNoSrcPos p T.List T.aList
            v2784v31v2787v45v1 _ p = T.fatal p in (v2784v31v2787v45v1))
          (T.uap1 T.mkNoSrcPos p
            (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
              (T.ufun2 T.mkLambda T.mkNoSrcPos p
                (\ f_x f_y p ->
                  T.uccase T.mkNoSrcPos p
                    (let
                      v0v0v0v0v1 (T.R (T.Tuple2 fc fmne) _) p =
                        T.uap1 T.mkNoSrcPos p
                          (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                            (T.ufun2 T.mkLambda T.mkNoSrcPos p
                              (\ f_x f_y p ->
                                T.uccase T.mkNoSrcPos p
                                  (let
                                    v0v0v0v0v1
                                      (T.R (T.Tuple2 (T.R T.List _) fs') _) p =
                                      T.uap1 T.mkNoSrcPos p
                                        (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p
                                          T.aCons
                                          (T.con2 T.mkNoSrcPos p T.Tuple2
                                            T.aTuple2 fc fs')) f_y
                                    v0v0v0v0v1 _ p =
                                      T.projection T.mkNoSrcPos p f_y in
                                    (v0v0v0v0v1)) f_x))
                            (T.fromExpList T.mkNoSrcPos p
                              [T.uwrapForward p (hmatch fmne fs p)])) f_y
                      v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                      (v0v0v0v0v1)) f_x)) (gtable T.mkNoSrcPos p))
            (T.fromExpList T.mkNoSrcPos p [])))) (y3readEsc fs p)
  y2readEsc fs p = y3readEsc fs p
  
  y3readEsc _ p = T.con0 T.mkNoSrcPos p T.List T.aList
  
  gmatch ::
    Eq a =>
    T.RefSrcPos ->
      T.RefExp ->
        T.R
          (T.Fun (T.List a) (T.Fun (T.List a) (T.Tuple2 (T.List a) (T.List a))))
  
  hmatch ::
    Eq a =>
    (T.R (T.List a)) ->
      (T.R (T.List a)) -> T.RefExp -> T.R (T.Tuple2 (T.List a) (T.List a))
  
  gmatch pmatch p = T.ufun2 a2791v9v2792v48match pmatch p hmatch
  
  amatch = a2791v9v2792v48match
  
  hmatch (z1match@(T.R (T.Cons fx fxs) _)) (z2match@(T.R (T.Cons fy fys) _)) p =
    T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fx fy)
      (T.uwrapForward p (hmatch fxs fys p)) (y1match z1match z2match p)
  hmatch z1match z2match p = y1match z1match z2match p
  
  y1match fxs fys p = T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 fxs fys
  
hreadLitChar (T.R (T.Cons fc fs) _) p =
  T.fromExpList T.mkNoSrcPos p [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 fc fs]
hreadLitChar _ p = T.fatal p

gshowLitChar :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Char ShowS)

hshowLitChar :: (T.R Char) -> T.RefExp -> T.R ShowS

gshowLitChar pshowLitChar p = T.ufun1 ashowLitChar pshowLitChar p hshowLitChar

hshowLitChar fc p =
  T.ucguard
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) fc
      (T.conChar T.mkNoSrcPos p '\o177'))
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
      (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
        (T.conChar T.mkNoSrcPos p '\\'))
      (T.uwrapForward p
        (hprotectEsc (gisDigit T.mkNoSrcPos p)
          (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p)
            (T.uap1 T.mkNoSrcPos p (gord T.mkNoSrcPos p) fc)) p)))
    (y1showLitChar fc p)
hshowLitChar fc p = y1showLitChar fc p

y1showLitChar (T.R '\o177' _) p =
  T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
    (T.fromLitString T.mkNoSrcPos p "\\DEL")
y1showLitChar (T.R '\\' _) p =
  T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
    (T.fromLitString T.mkNoSrcPos p "\\\\")
y1showLitChar fc p =
  T.ucguard
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) fc
      (T.conChar T.mkNoSrcPos p ' '))
    (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p) fc) (y2showLitChar fc p)
y1showLitChar fc p = y2showLitChar fc p

y2showLitChar (T.R '\o007' _) p =
  T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
    (T.fromLitString T.mkNoSrcPos p "\\a")
y2showLitChar (T.R '\o010' _) p =
  T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
    (T.fromLitString T.mkNoSrcPos p "\\b")
y2showLitChar (T.R '\o014' _) p =
  T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
    (T.fromLitString T.mkNoSrcPos p "\\f")
y2showLitChar (T.R '\n' _) p =
  T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
    (T.fromLitString T.mkNoSrcPos p "\\n")
y2showLitChar (T.R '\o015' _) p =
  T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
    (T.fromLitString T.mkNoSrcPos p "\\r")
y2showLitChar (T.R '\t' _) p =
  T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
    (T.fromLitString T.mkNoSrcPos p "\\t")
y2showLitChar (T.R '\o013' _) p =
  T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
    (T.fromLitString T.mkNoSrcPos p "\\v")
y2showLitChar (T.R '\o016' _) p =
  T.uwrapForward p
    (hprotectEsc
      (T.uap2 T.mkNoSrcPos p (gflip T.mkNoSrcPos p) (T.mkNoSrcPos !== p)
        (T.conChar T.mkNoSrcPos p 'H'))
      (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
        (T.fromLitString T.mkNoSrcPos p "\\SO")) p)
y2showLitChar fc p =
  T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
    (T.con2 T.mkNoSrcPos p T.Cons T.aCons (T.conChar T.mkNoSrcPos p '\\')
      (T.uwrapForward p
        (hsnd
          (T.uwrapForward p
            (((gasciiTab T.mkNoSrcPos p)
                *!!
                (T.uap1 T.mkNoSrcPos p (gord T.mkNoSrcPos p) fc)) p)) p)))

gprotectEsc pprotectEsc p = T.ufun2 aprotectEsc pprotectEsc p hprotectEsc

hprotectEsc fp ff p =
  T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p) ff (gcont T.mkNoSrcPos p)
  where
  
  gcont pcont p = T.ufun1 a2812v36v2813v57cont pcont p hcont
  
  acont = a2812v36v2813v57cont
  
  hcont (fs@(T.R (T.Cons fc _) _)) p =
    T.ucguard (T.uap1 T.mkNoSrcPos p fp fc)
      (T.uwrapForward p (((T.fromLitString T.mkNoSrcPos p "\\&") *++ fs) p))
      (y1cont fs p)
  hcont fs p = y1cont fs p
  
  y1cont fs p = T.projection T.mkNoSrcPos p fs
  

gasciiTab pasciiTab p = T.uconstUse pasciiTab p sasciiTab

sasciiTab =
  T.uconstDef T.mkRoot aasciiTab
    (\ p ->
      T.uap2 T.mkNoSrcPos p (gzip T.mkNoSrcPos p)
        (T.uap2 T.mkNoSrcPos p (genumFromTo T.mkNoSrcPos p)
          (T.conChar T.mkNoSrcPos p '\o000') (T.conChar T.mkNoSrcPos p ' '))
        (T.fromExpList T.mkNoSrcPos p
          [T.fromLitString T.mkNoSrcPos p "NUL"
            ,T.fromLitString T.mkNoSrcPos p "SOH"
            ,T.fromLitString T.mkNoSrcPos p "STX"
            ,T.fromLitString T.mkNoSrcPos p "ETX"
            ,T.fromLitString T.mkNoSrcPos p "EOT"
            ,T.fromLitString T.mkNoSrcPos p "ENQ"
            ,T.fromLitString T.mkNoSrcPos p "ACK"
            ,T.fromLitString T.mkNoSrcPos p "BEL"
            ,T.fromLitString T.mkNoSrcPos p "BS"
            ,T.fromLitString T.mkNoSrcPos p "HT"
            ,T.fromLitString T.mkNoSrcPos p "LF"
            ,T.fromLitString T.mkNoSrcPos p "VT"
            ,T.fromLitString T.mkNoSrcPos p "FF"
            ,T.fromLitString T.mkNoSrcPos p "CR"
            ,T.fromLitString T.mkNoSrcPos p "SO"
            ,T.fromLitString T.mkNoSrcPos p "SI"
            ,T.fromLitString T.mkNoSrcPos p "DLE"
            ,T.fromLitString T.mkNoSrcPos p "DC1"
            ,T.fromLitString T.mkNoSrcPos p "DC2"
            ,T.fromLitString T.mkNoSrcPos p "DC3"
            ,T.fromLitString T.mkNoSrcPos p "DC4"
            ,T.fromLitString T.mkNoSrcPos p "NAK"
            ,T.fromLitString T.mkNoSrcPos p "SYN"
            ,T.fromLitString T.mkNoSrcPos p "ETB"
            ,T.fromLitString T.mkNoSrcPos p "CAN"
            ,T.fromLitString T.mkNoSrcPos p "EM"
            ,T.fromLitString T.mkNoSrcPos p "SUB"
            ,T.fromLitString T.mkNoSrcPos p "ESC"
            ,T.fromLitString T.mkNoSrcPos p "FS"
            ,T.fromLitString T.mkNoSrcPos p "GS"
            ,T.fromLitString T.mkNoSrcPos p "RS"
            ,T.fromLitString T.mkNoSrcPos p "US"
            ,T.fromLitString T.mkNoSrcPos p "SP"]))

glexLitChar :: T.RefSrcPos -> T.RefExp -> T.R (ReadS String)

hlexLitChar :: (T.R (ReadS___1 String)) -> T.RefExp -> T.R (ReadS___2 String)

glexLitChar plexLitChar p = T.ufun1 alexLitChar plexLitChar p hlexLitChar

hlexLitChar (T.R (T.Cons (T.R '\\' _) fs) _) p =
  T.uap1 T.mkNoSrcPos p
    (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
      (T.ufun2 T.mkLambda T.mkNoSrcPos p
        (\ f_x f_y p ->
          T.uccase T.mkNoSrcPos p
            (let
              v0v0v0v0v1 (T.R (T.Tuple2 fesc ft) _) p =
                T.uap1 T.mkNoSrcPos p
                  (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                    (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                      (T.con2 T.mkNoSrcPos p T.Cons T.aCons
                        (T.conChar T.mkNoSrcPos p '\\') fesc) ft)) f_y
              v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in (v0v0v0v0v1))
            f_x)) (T.uwrapForward p (hlexEsc fs p)))
    (T.fromExpList T.mkNoSrcPos p [])
  where
  
  glexEsc plexEsc p = T.ufun1 a2825v11v2830v57lexEsc plexEsc p hlexEsc
  
  alexEsc = a2825v11v2830v57lexEsc
  
  hlexEsc (z1lexEsc@(T.R (T.Cons fc fs) _)) p =
    T.ucguard
      (T.uap2 T.mkNoSrcPos p (gelem T.mkNoSrcPos p) fc
        (T.fromLitString T.mkNoSrcPos p "abfnrtv\\\"'"))
      (T.fromExpList T.mkNoSrcPos p
        [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
            (T.fromExpList T.mkNoSrcPos p [fc]) fs]) (y1lexEsc z1lexEsc p)
  hlexEsc z1lexEsc p = y1lexEsc z1lexEsc p
  
  y1lexEsc (fs@(T.R (T.Cons fd _) _)) p =
    T.ucguard (T.uwrapForward p (hisDigit fd p))
      (T.uap1 T.mkNoSrcPos p (glexDigits T.mkNoSrcPos p) fs) (y2lexEsc fs p)
  y1lexEsc fs p = y2lexEsc fs p
  
  y2lexEsc (z1lexEsc@(T.R (T.Cons (T.R '^' _) (T.R (T.Cons fc fs) _)) _)) p =
    T.ucguard
      (T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) fc
              (T.conChar T.mkNoSrcPos p '@'))
            *&&
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !<= p) fc
              (T.conChar T.mkNoSrcPos p '_'))) p))
      (T.fromExpList T.mkNoSrcPos p
        [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
            (T.fromExpList T.mkNoSrcPos p [T.conChar T.mkNoSrcPos p '^',fc])
            fs]) (y3lexEsc z1lexEsc p)
  y2lexEsc z1lexEsc p = y3lexEsc z1lexEsc p
  
  y3lexEsc (fs@(T.R (T.Cons fc _) _)) p =
    T.ucguard (T.uwrapForward p (hisUpper fc p))
      (T.fromExpList T.mkNoSrcPos p
        [T.uwrapForward p (hspan (gisCharName T.mkNoSrcPos p) fs p)])
      (y4lexEsc fs p)
  y3lexEsc fs p = y4lexEsc fs p
  
  y4lexEsc _ p = T.con0 T.mkNoSrcPos p T.List T.aList
  
  gisCharName pisCharName p =
    T.ufun1 a2831v11v2831v47isCharName pisCharName p hisCharName
  
  aisCharName = a2831v11v2831v47isCharName
  
  hisCharName fc p =
    T.uwrapForward p
      (((T.uwrapForward p (hisUpper fc p))
          *||
          (T.uwrapForward p (hisDigit fc p))) p)
  
hlexLitChar (T.R (T.Cons fc fs) _) p =
  T.fromExpList T.mkNoSrcPos p
    [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
        (T.fromExpList T.mkNoSrcPos p [fc]) fs]
hlexLitChar (T.R T.List _) p = T.con0 T.mkNoSrcPos p T.List T.aList
hlexLitChar _ p = T.fatal p

gfromRat :: RealFloat a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun Rational a)

hfromRat :: RealFloat a => (T.R Rational) -> T.RefExp -> T.R a

gfromRat pfromRat p = T.ufun1 afromRat pfromRat p hfromRat

hfromRat fx p =
  T.ucif p
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fx
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0)))
    (T.uap2 T.mkNoSrcPos p (gencodeFloat T.mkNoSrcPos p)
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0))
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0)))
    (T.ucif p
      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) fx
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 0)))
      (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p)
        (T.uwrapForward p
          (hfromRat' (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p) fx) p)))
      (T.uwrapForward p (hfromRat' fx p)))

gfromRat' :: RealFloat a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun Rational a)

hfromRat' :: RealFloat a => (T.R Rational) -> T.RefExp -> T.R a

gfromRat' pfromRat' p = T.ufun1 afromRat' pfromRat' p hfromRat'

hfromRat' fx p =
  gr T.mkNoSrcPos p
  where
  
  gb pb p = T.uconstUse pb p sb
  
  sb =
    T.uconstDef p a2870v9v2870v24b
      (\ p ->
        T.uap1 T.mkNoSrcPos p (gfloatRadix T.mkNoSrcPos p) (gr T.mkNoSrcPos p))
  
  gp pp p = T.uconstUse pp p sp
  
  sp =
    T.uconstDef p a2871v9v2871v25p
      (\ p ->
        T.uap1 T.mkNoSrcPos p (gfloatDigits T.mkNoSrcPos p) (gr T.mkNoSrcPos p))
  
  gminExp0 pminExp0 p = T.uconstUse pminExp0 p sminExp0
  
  j2872v9v2872v20minExp0 =
    case
      T.uap1 T.mkNoSrcPos p (gfloatRange T.mkNoSrcPos p) (gr T.mkNoSrcPos p) of
      T.R (T.Tuple2 fminExp0 _) kminExp0 -> (kminExp0,fminExp0)
      _ -> T.fatal p
  
  sminExp0 =
    T.uconstDef p a2872v10v2872v16minExp0
      (\ _ -> case j2872v9v2872v20minExp0 of (kminExp0,fminExp0) -> fminExp0)
  
  gminExp pminExp p = T.uconstUse pminExp p sminExp
  
  sminExp =
    T.uconstDef p a2873v9v2873v28minExp
      (\ p ->
        T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) (gminExp0 T.mkNoSrcPos p)
          (gp T.mkNoSrcPos p))
  
  gxMin pxMin p = T.uconstUse pxMin p sxMin
  
  sxMin =
    T.uconstDef p a2874v9v2874v38xMin
      (\ p ->
        T.uap1 T.mkNoSrcPos p (gtoRational T.mkNoSrcPos p)
          (T.uwrapForward p
            (hexpt (gb T.mkNoSrcPos p)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) (gp T.mkNoSrcPos p)
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 1))) p)))
  
  gxMax pxMax p = T.uconstUse pxMax p sxMax
  
  sxMax =
    T.uconstDef p a2875v9v2875v35xMax
      (\ p ->
        T.uap1 T.mkNoSrcPos p (gtoRational T.mkNoSrcPos p)
          (T.uwrapForward p (hexpt (gb T.mkNoSrcPos p) (gp T.mkNoSrcPos p) p)))
  
  gp0 pp0 p = T.uconstUse pp0 p sp0
  
  sp0 =
    T.uconstDef p a2876v9v2877v64p0
      (\ p ->
        T.uap2 T.mkNoSrcPos p (gmax T.mkNoSrcPos p)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
              (T.uwrapForward p
                (hintegerLogBase (gb T.mkNoSrcPos p)
                  (T.uwrapForward p (hnumerator fx p)) p))
              (T.uwrapForward p
                (hintegerLogBase (gb T.mkNoSrcPos p)
                  (T.uwrapForward p (hdenominator fx p)) p)))
            (gp T.mkNoSrcPos p)) (gminExp T.mkNoSrcPos p))
  
  gf pf p = T.uconstUse pf p sf
  
  sf =
    T.uconstDef p a2878v9v2878v62f
      (\ p ->
        T.ucif p
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) (gp0 T.mkNoSrcPos p)
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 0)))
          (T.uwrapForward p
            (((T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 1))
                *%
                (T.uwrapForward p
                  (hexpt (gb T.mkNoSrcPos p)
                    (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p)
                      (gp0 T.mkNoSrcPos p)) p))) p))
          (T.uwrapForward p
            (((T.uwrapForward p
                  (hexpt (gb T.mkNoSrcPos p) (gp0 T.mkNoSrcPos p) p))
                *%
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 1))) p)))
  
  gx' px' p = T.uconstUse px' p sx'
  
  gp' px' p = T.uconstUse px' p sp'
  
  j2879v9v2879v16x' =
    case
      T.uap6 T.mkNoSrcPos p (gscaleRat T.mkNoSrcPos p)
        (T.uap1 T.mkNoSrcPos p (gtoRational T.mkNoSrcPos p) (gb T.mkNoSrcPos p))
        (gminExp T.mkNoSrcPos p) (gxMin T.mkNoSrcPos p) (gxMax T.mkNoSrcPos p)
        (gp0 T.mkNoSrcPos p)
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p) fx (gf T.mkNoSrcPos p)) of
      T.R (T.Tuple2 fx' fp') kx' -> (kx',fx',fp')
      _ -> T.fatal p
  
  sx' =
    T.uconstDef p a2879v10v2879v11x'
      (\ _ -> case j2879v9v2879v16x' of (kx',fx',fp') -> fx')
  
  sp' =
    T.uconstDef p a2879v14v2879v15p'
      (\ _ -> case j2879v9v2879v16x' of (kx',fx',fp') -> fp')
  
  gr pr p = T.uconstUse pr p sr
  
  sr =
    T.uconstDef p a2880v9v2880v37r
      (\ p ->
        T.uap2 T.mkNoSrcPos p (gencodeFloat T.mkNoSrcPos p)
          (T.uap1 T.mkNoSrcPos p (ground T.mkNoSrcPos p) (gx' T.mkNoSrcPos p))
          (gp' T.mkNoSrcPos p))
  

gscaleRat ::
  T.RefSrcPos ->
    T.RefExp ->
      T.R
        (T.Fun Rational
          (T.Fun Int
            (T.Fun Rational
              (T.Fun Rational
                (T.Fun Int (T.Fun Rational (T.Tuple2 Rational Int)))))))

hscaleRat ::
  (T.R Rational) ->
    (T.R Int) ->
      (T.R Rational) ->
        (T.R Rational) ->
          (T.R Int) -> (T.R Rational) -> T.RefExp -> T.R (T.Tuple2 Rational Int)

gscaleRat pscaleRat p = T.ufun6 ascaleRat pscaleRat p hscaleRat

hscaleRat fb fminExp fxMin fxMax fp fx p =
  T.ucif p (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !<= p) fp fminExp)
    (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 fx fp)
    (T.ucif p (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) fx fxMax)
      (T.uap6 T.mkNoSrcPos p (gscaleRat T.mkNoSrcPos p) fb fminExp fxMin fxMax
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fp
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 1)))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p) fx fb))
      (T.ucif p (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) fx fxMin)
        (T.uap6 T.mkNoSrcPos p (gscaleRat T.mkNoSrcPos p) fb fminExp fxMin fxMax
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fp
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 1)))
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fx fb))
        (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 fx fp)))

gminExpt pminExpt p = T.uconstUse pminExpt p sminExpt

sminExpt =
  T.uconstDef T.mkRoot aminExpt
    (\ p ->
      T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 0)
        :: T.R Int)

gmaxExpt pmaxExpt p = T.uconstUse pmaxExpt p smaxExpt

smaxExpt =
  T.uconstDef T.mkRoot amaxExpt
    (\ p ->
      T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 1100)
        :: T.R Int)

gexpt :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Integer (T.Fun Int Integer))

hexpt :: (T.R Integer) -> (T.R Int) -> T.RefExp -> T.R Integer

gexpt pexpt p = T.ufun2 aexpt pexpt p hexpt

hexpt fbase fn p =
  T.ucif p
    (T.uwrapForward p
      (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fbase
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 2)))
          *&&
          (T.uwrapForward p
            (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) fn
                  (gminExpt T.mkNoSrcPos p))
                *&&
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !<= p) fn
                  (gmaxExpt T.mkNoSrcPos p))) p))) p))
    (T.uwrapForward p
      (((gexpts T.mkNoSrcPos p)
          *!!
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fn
            (gminExpt T.mkNoSrcPos p))) p)) (T.uwrapForward p ((fbase *^ fn) p))

gexpts :: T.RefSrcPos -> T.RefExp -> T.R (T.List Integer)

sexpts :: T.R (T.List Integer)

gexpts pexpts p = T.uconstUse pexpts p sexpts

sexpts =
  T.uconstDef T.mkRoot aexpts
    (\ p ->
      T.uap1 T.mkNoSrcPos p
        (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
          (T.ufun2 T.mkLambda T.mkNoSrcPos p
            (\ f_x f_y p ->
              T.uccase T.mkNoSrcPos p
                (let
                  v0v0v0v0v1 fn p =
                    T.uap1 T.mkNoSrcPos p
                      (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                        (T.uwrapForward p
                          (((T.uap1 T.mkNoSrcPos p
                                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                                (T.conInteger T.mkNoSrcPos p 2))
                              *^
                              fn) p))) f_y
                  v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                  (v0v0v0v0v1)) f_x))
          (T.uap2 T.mkNoSrcPos p (genumFromTo T.mkNoSrcPos p)
            (gminExpt T.mkNoSrcPos p) (gmaxExpt T.mkNoSrcPos p)))
        (T.fromExpList T.mkNoSrcPos p []))

gintegerLogBase ::
  T.RefSrcPos -> T.RefExp -> T.R (T.Fun Integer (T.Fun Integer Int))

hintegerLogBase :: (T.R Integer) -> (T.R Integer) -> T.RefExp -> T.R Int

gintegerLogBase pintegerLogBase p =
  T.ufun2 aintegerLogBase pintegerLogBase p hintegerLogBase

hintegerLogBase fb fi p =
  T.ucif p (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) fi fb)
    (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
      (T.conInteger T.mkNoSrcPos p 0))
    (let
      gl pl p = T.uconstUse pl p sl
      sl =
        T.uconstDef p a2918v13v2918v42l
          (\ p ->
            T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 2))
              (T.uwrapForward p
                (hintegerLogBase
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fb fb) fi p)))
      gdoDiv :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Integer (T.Fun Int Int))
      hdoDiv :: (T.R Integer) -> (T.R Int) -> T.RefExp -> T.R Int
      gdoDiv pdoDiv p = T.ufun2 a2920v13v2920v67doDiv pdoDiv p hdoDiv
      adoDiv = a2920v13v2920v67doDiv
      hdoDiv fi fl p =
        T.ucif p (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) fi fb)
          (T.projection T.mkNoSrcPos p fl)
          (T.uwrapForward p
            (hdoDiv (T.uap2 T.mkNoSrcPos p (gdiv T.mkNoSrcPos p) fi fb)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fl
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 1))) p)) in
      (T.uwrapForward p
        (hdoDiv
          (T.uap2 T.mkNoSrcPos p (gdiv T.mkNoSrcPos p) fi
            (T.uwrapForward p ((fb *^ (gl T.mkNoSrcPos p)) p)))
          (gl T.mkNoSrcPos p) p)))

gshowSigned ::
  Real a =>
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun (T.Fun a ShowS) (T.Fun Int (T.Fun a ShowS)))

hshowSigned ::
  Real a =>
  (T.R (T.Fun a ShowS)) -> (T.R Int) -> (T.R a) -> T.RefExp -> T.R ShowS

gshowSigned pshowSigned p = T.ufun3 ashowSigned pshowSigned p hshowSigned

hshowSigned fshowPos fp fx p =
  T.ucguard
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) fx
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0)))
    (T.uwrapForward p
      (hshowParen
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) fp
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 6)))
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
          (T.uap1 T.mkNoSrcPos p (gshowChar T.mkNoSrcPos p)
            (T.conChar T.mkNoSrcPos p '-'))
          (T.uap1 T.mkNoSrcPos p fshowPos
            (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p) fx))) p))
    (T.ucguard (gotherwise T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p fshowPos fx)
      (T.fatal p))

gshowInt,gshowOct,gshowHex ::
  Integral a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun a ShowS)

sshowInt,sshowOct,sshowHex :: Integral a => T.R (T.Fun a ShowS)

gshowOct pshowOct p = T.uconstUse pshowOct p sshowOct

sshowOct =
  T.uconstDef T.mkRoot ashowOct
    (\ p ->
      T.uap2 T.mkNoSrcPos p (gshowIntAtBase T.mkNoSrcPos p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 8)) (gintToDigit T.mkNoSrcPos p))

gshowInt pshowInt p = T.uconstUse pshowInt p sshowInt

sshowInt =
  T.uconstDef T.mkRoot ashowInt
    (\ p ->
      T.uap2 T.mkNoSrcPos p (gshowIntAtBase T.mkNoSrcPos p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 10)) (gintToDigit T.mkNoSrcPos p))

gshowHex pshowHex p = T.uconstUse pshowHex p sshowHex

sshowHex =
  T.uconstDef T.mkRoot ashowHex
    (\ p ->
      T.uap2 T.mkNoSrcPos p (gshowIntAtBase T.mkNoSrcPos p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 16)) (gintToDigit T.mkNoSrcPos p))

gshowIntAtBase ::
  Integral a =>
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun a (T.Fun (T.Fun Int Char) (T.Fun a ShowS)))

hshowIntAtBase ::
  Integral a =>
  (T.R a) ->
    (T.R (T.Fun Int Char)) ->
      (T.R a) -> (T.R ShowS___1) -> T.RefExp -> T.R ShowS___2

gshowIntAtBase pshowIntAtBase p =
  T.ufun4 ashowIntAtBase pshowIntAtBase p hshowIntAtBase

hshowIntAtBase fbase fintToDig fn frest p =
  T.ucguard
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) fn
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0)))
    (T.uwrapForward p
      (herror
        (T.fromLitString T.mkNoSrcPos p
          "Numeric.showIntAtBase: can't show negative numbers") p))
    (T.ucguard
      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) (gn' T.mkNoSrcPos p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 0))) (grest' T.mkNoSrcPos p)
      (T.ucguard (gotherwise T.mkNoSrcPos p)
        (T.uwrapForward p
          (hshowIntAtBase fbase fintToDig (gn' T.mkNoSrcPos p)
            (grest' T.mkNoSrcPos p) p)) (T.fatal p)))
  where
  
  gn' pn' p = T.uconstUse pn' p sn'
  
  gd pn' p = T.uconstUse pn' p sd
  
  j2947v5v2947v10n' =
    case T.uap2 T.mkNoSrcPos p (gquotRem T.mkNoSrcPos p) fn fbase of
      T.R (T.Tuple2 fn' fd) kn' -> (kn',fn',fd)
      _ -> T.fatal p
  
  sn' =
    T.uconstDef p a2947v6v2947v7n'
      (\ _ -> case j2947v5v2947v10n' of (kn',fn',fd) -> fn')
  
  sd =
    T.uconstDef p a2947v9v2947v9d
      (\ _ -> case j2947v5v2947v10n' of (kn',fn',fd) -> fd)
  
  grest' prest' p = T.uconstUse prest' p srest'
  
  srest' =
    T.uconstDef p a2948v5v2948v45rest'
      (\ p ->
        T.con2 T.mkNoSrcPos p T.Cons T.aCons
          (T.uap1 T.mkNoSrcPos p fintToDig
            (T.uap1 T.mkNoSrcPos p (gfromIntegral T.mkNoSrcPos p)
              (gd T.mkNoSrcPos p))) frest)
  

greadSigned ::
  Real a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun (ReadS a) (ReadS a))

hreadSigned :: Real a => (T.R (ReadS a)) -> T.RefExp -> T.R (ReadS a)

greadSigned preadSigned p = T.ufun1 areadSigned preadSigned p hreadSigned

hreadSigned freadPos p =
  T.uwrapForward p
    (hreadParen (T.con0 T.mkNoSrcPos p False aFalse) (gread' T.mkNoSrcPos p) p)
  where
  
  gread' pread' p = T.ufun1 a2952v28v2952v46read' pread' p hread'
  
  aread' = a2952v28v2952v46read'
  
  hread' fr p =
    T.uwrapForward p
      (((T.uwrapForward p (hread'' fr p))
          *++
          (T.uap1 T.mkNoSrcPos p
            (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
              (T.ufun2 T.mkLambda T.mkNoSrcPos p
                (\ f_x f_y p ->
                  T.uccase T.mkNoSrcPos p
                    (let
                      v0v0v0v0v1
                        (T.R
                          (T.Tuple2 (T.R (T.Cons (T.R '-' _) (T.R T.List _)) _)
                            fs) _) p =
                        T.uap1 T.mkNoSrcPos p
                          (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                            (T.ufun2 T.mkLambda T.mkNoSrcPos p
                              (\ f_x f_y p ->
                                T.uccase T.mkNoSrcPos p
                                  (let
                                    v0v0v0v0v1 (T.R (T.Tuple2 fx ft) _) p =
                                      T.uap1 T.mkNoSrcPos p
                                        (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p
                                          T.aCons
                                          (T.con2 T.mkNoSrcPos p T.Tuple2
                                            T.aTuple2
                                            (T.uap1 T.mkNoSrcPos p
                                              (gnegate T.mkNoSrcPos p) fx) ft))
                                        f_y
                                    v0v0v0v0v1 _ p =
                                      T.projection T.mkNoSrcPos p f_y in
                                    (v0v0v0v0v1)) f_x))
                            (T.uwrapForward p (hread'' fs p))) f_y
                      v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                      (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr p)))
            (T.fromExpList T.mkNoSrcPos p []))) p)
  
  gread'' pread'' p = T.ufun1 a2955v28v2955v33read'' pread'' p hread''
  
  aread'' = a2955v28v2955v33read''
  
  hread'' fr p =
    T.uap1 T.mkNoSrcPos p
      (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
        (T.ufun2 T.mkLambda T.mkNoSrcPos p
          (\ f_x f_y p ->
            T.uccase T.mkNoSrcPos p
              (let
                v0v0v0v0v1 (T.R (T.Tuple2 fstr fs) _) p =
                  T.uap1 T.mkNoSrcPos p
                    (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                      (T.ufun2 T.mkLambda T.mkNoSrcPos p
                        (\ f_x f_y p ->
                          T.uccase T.mkNoSrcPos p
                            (let
                              v0v0v0v0v1 (T.R (T.Tuple2 fn (T.R T.List _)) _)
                                p =
                                T.uap1 T.mkNoSrcPos p
                                  (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                                    (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 fn
                                      fs)) f_y
                              v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y
                              in (v0v0v0v0v1)) f_x))
                      (T.uap1 T.mkNoSrcPos p freadPos fstr)) f_y
                v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr p)))
      (T.fromExpList T.mkNoSrcPos p [])
  

greadInt ::
  Integral a =>
  T.RefSrcPos ->
    T.RefExp ->
      T.R (T.Fun a (T.Fun (T.Fun Char Bool) (T.Fun (T.Fun Char Int) (ReadS a))))

hreadInt ::
  Integral a =>
  (T.R a) ->
    (T.R (T.Fun Char Bool)) ->
      (T.R (T.Fun Char Int)) ->
        (T.R (ReadS___1 a)) -> T.RefExp -> T.R (ReadS___2 a)

greadInt preadInt p = T.ufun4 areadInt preadInt p hreadInt

hreadInt fradix fisDig fdigToInt fs p =
  T.uap1 T.mkNoSrcPos p
    (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
      (T.ufun2 T.mkLambda T.mkNoSrcPos p
        (\ f_x f_y p ->
          T.uccase T.mkNoSrcPos p
            (let
              v0v0v0v0v1 (T.R (T.Tuple2 fds fr) _) p =
                T.uap1 T.mkNoSrcPos p
                  (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                    (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                      (T.uwrapForward p
                        (hfoldl1
                          (T.ufun2 T.mkLambda T.mkNoSrcPos p
                            (\ fn fd p ->
                              T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
                                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fn
                                  fradix) fd))
                          (T.uwrapForward p
                            (hmap
                              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
                                (gfromIntegral T.mkNoSrcPos p) fdigToInt) fds
                              p)) p)) fr)) f_y
              v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in (v0v0v0v0v1))
            f_x)) (T.uwrapForward p (hnonnull fisDig fs p)))
    (T.fromExpList T.mkNoSrcPos p [])

greadDec,greadOct,greadHex ::
  Integral a => T.RefSrcPos -> T.RefExp -> T.R (ReadS a)

sreadDec,sreadOct,sreadHex :: Integral a => T.R (ReadS a)

greadDec preadDec p = T.uconstUse preadDec p sreadDec

sreadDec =
  T.uconstDef T.mkRoot areadDec
    (\ p ->
      T.uap3 T.mkNoSrcPos p (greadInt T.mkNoSrcPos p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 10)) (gisDigit T.mkNoSrcPos p)
        (gdigitToInt T.mkNoSrcPos p))

greadOct preadOct p = T.uconstUse preadOct p sreadOct

sreadOct =
  T.uconstDef T.mkRoot areadOct
    (\ p ->
      T.uap3 T.mkNoSrcPos p (greadInt T.mkNoSrcPos p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 8)) (gisOctDigit T.mkNoSrcPos p)
        (gdigitToInt T.mkNoSrcPos p))

greadHex preadHex p = T.uconstUse preadHex p sreadHex

sreadHex =
  T.uconstDef T.mkRoot areadHex
    (\ p ->
      T.uap3 T.mkNoSrcPos p (greadInt T.mkNoSrcPos p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 16)) (gisHexDigit T.mkNoSrcPos p)
        (gdigitToInt T.mkNoSrcPos p))

gshowEFloat ::
  RealFloat a =>
  T.RefSrcPos -> T.RefExp -> T.R (T.Fun (Maybe Int) (T.Fun a ShowS))

hshowEFloat ::
  RealFloat a => (T.R (Maybe Int)) -> (T.R a) -> T.RefExp -> T.R ShowS

gshowFFloat ::
  RealFloat a =>
  T.RefSrcPos -> T.RefExp -> T.R (T.Fun (Maybe Int) (T.Fun a ShowS))

hshowFFloat ::
  RealFloat a => (T.R (Maybe Int)) -> (T.R a) -> T.RefExp -> T.R ShowS

gshowGFloat ::
  RealFloat a =>
  T.RefSrcPos -> T.RefExp -> T.R (T.Fun (Maybe Int) (T.Fun a ShowS))

hshowGFloat ::
  RealFloat a => (T.R (Maybe Int)) -> (T.R a) -> T.RefExp -> T.R ShowS

gshowFloat :: RealFloat a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun a ShowS)

sshowFloat :: RealFloat a => T.R (T.Fun a ShowS)

gshowEFloat pshowEFloat p = T.ufun2 ashowEFloat pshowEFloat p hshowEFloat

hshowEFloat fd fx p =
  T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
    (T.uwrapForward p
      (hformatRealFloat (T.con0 T.mkNoSrcPos p FFExponent aFFExponent) fd fx p))

gshowFFloat pshowFFloat p = T.ufun2 ashowFFloat pshowFFloat p hshowFFloat

hshowFFloat fd fx p =
  T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
    (T.uwrapForward p
      (hformatRealFloat (T.con0 T.mkNoSrcPos p FFFixed aFFFixed) fd fx p))

gshowGFloat pshowGFloat p = T.ufun2 ashowGFloat pshowGFloat p hshowGFloat

hshowGFloat fd fx p =
  T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
    (T.uwrapForward p
      (hformatRealFloat (T.con0 T.mkNoSrcPos p FFGeneric aFFGeneric) fd fx p))

gshowFloat pshowFloat p = T.uconstUse pshowFloat p sshowFloat

sshowFloat =
  T.uconstDef T.mkRoot ashowFloat
    (\ p ->
      T.uap1 T.mkNoSrcPos p (gshowGFloat T.mkNoSrcPos p)
        (T.con0 T.mkNoSrcPos p Nothing aNothing))

data FFFormat = FFExponent  | FFFixed  | FFGeneric 

instance T.WrapVal (FFFormat)
  where
  
  wrapVal pwrapVal (kwrapVal@FFExponent) p =
    T.R kwrapVal (T.mkValueUse p pwrapVal aFFExponent)
  wrapVal pwrapVal (kwrapVal@FFFixed) p =
    T.R kwrapVal (T.mkValueUse p pwrapVal aFFFixed)
  wrapVal pwrapVal (kwrapVal@FFGeneric) p =
    T.R kwrapVal (T.mkValueUse p pwrapVal aFFGeneric)
  

gformatRealFloat ::
  RealFloat a =>
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun FFFormat (T.Fun (Maybe Int) (T.Fun a String)))

hformatRealFloat ::
  RealFloat a =>
  (T.R FFFormat) -> (T.R (Maybe Int)) -> (T.R a) -> T.RefExp -> T.R String

gformatRealFloat pformatRealFloat p =
  T.ufun3 aformatRealFloat pformatRealFloat p hformatRealFloat

hformatRealFloat ffmt fdecs fx p =
  gs T.mkNoSrcPos p
  where
  
  gbase pbase p = T.uconstUse pbase p sbase
  
  sbase =
    T.uconstDef p a2992v5v2992v13base
      (\ p ->
        T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 10))
  
  gs ps p = T.uconstUse ps p ss
  
  ss =
    T.uconstDef p a2993v5v3000v55s
      (\ p ->
        T.ucif p (T.uap1 T.mkNoSrcPos p (gisNaN T.mkNoSrcPos p) fx)
          (T.fromLitString T.mkNoSrcPos p "NaN")
          (T.ucif p (T.uap1 T.mkNoSrcPos p (gisInfinite T.mkNoSrcPos p) fx)
            (T.ucif p
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) fx
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 0)))
              (T.fromLitString T.mkNoSrcPos p "-Infinity")
              (T.fromLitString T.mkNoSrcPos p "Infinity"))
            (T.ucif p
              (T.uwrapForward p
                (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) fx
                      (T.uap1 T.mkNoSrcPos p
                        (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                        (T.conInteger T.mkNoSrcPos p 0)))
                    *||
                    (T.uap1 T.mkNoSrcPos p (gisNegativeZero T.mkNoSrcPos p) fx))
                  p))
              (T.con2 T.mkNoSrcPos p T.Cons T.aCons
                (T.conChar T.mkNoSrcPos p '-')
                (T.uwrapForward p
                  (hdoFmt ffmt
                    (T.uwrapForward p
                      (hfloatToDigits
                        (T.uap1 T.mkNoSrcPos p (gtoInteger T.mkNoSrcPos p)
                          (gbase T.mkNoSrcPos p))
                        (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p) fx) p))
                    p)))
              (T.uwrapForward p
                (hdoFmt ffmt
                  (T.uwrapForward p
                    (hfloatToDigits
                      (T.uap1 T.mkNoSrcPos p (gtoInteger T.mkNoSrcPos p)
                        (gbase T.mkNoSrcPos p)) fx p)) p)))))
  
  gdoFmt pdoFmt p = T.ufun2 a3002v5v3053v33doFmt pdoFmt p hdoFmt
  
  adoFmt = a3002v5v3053v33doFmt
  
  hdoFmt ffmt (T.R (T.Tuple2 fis fe) _) p =
    let
      gds pds p = T.uconstUse pds p sds
      sds =
        T.uconstDef p a3004v12v3004v33ds
          (\ p -> T.uwrapForward p (hmap (gintToDigit T.mkNoSrcPos p) fis p)) in
      (T.uccase T.mkNoSrcPos p
        (let
          v3006v9v3053v33v1 (T.R FFGeneric _) p =
            T.uwrapForward p
              (hdoFmt
                (T.ucif p
                  (T.uwrapForward p
                    (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) fe
                          (T.uap1 T.mkNoSrcPos p
                            (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                            (T.conInteger T.mkNoSrcPos p 0)))
                        *||
                        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) fe
                          (T.uap1 T.mkNoSrcPos p
                            (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                            (T.conInteger T.mkNoSrcPos p 7)))) p))
                  (T.con0 T.mkNoSrcPos p FFExponent aFFExponent)
                  (T.con0 T.mkNoSrcPos p FFFixed aFFFixed))
                (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 fis fe) p)
          v3006v9v3053v33v1 (T.R FFExponent _) p =
            T.uccase T.mkNoSrcPos p
              (let
                v3011v13v3026v55v1 (T.R Nothing _) p =
                  T.uccase T.mkNoSrcPos p
                    (let
                      v3013v17v3016v57v1 (T.R T.List _) p =
                        T.fromLitString T.mkNoSrcPos p "0.0e0"
                      v3013v17v3016v57v1 (T.R (T.Cons fd (T.R T.List _)) _) p =
                        T.con2 T.mkNoSrcPos p T.Cons T.aCons fd
                          (T.uwrapForward p
                            (((T.fromLitString T.mkNoSrcPos p ".0e")
                                *++
                                (T.uap1 T.mkNoSrcPos p (gshow T.mkNoSrcPos p)
                                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fe
                                    (T.uap1 T.mkNoSrcPos p
                                      (Hat.PreludeBasic.gfromInteger
                                        T.mkNoSrcPos p)
                                      (T.conInteger T.mkNoSrcPos p 1))))) p))
                      v3013v17v3016v57v1 (T.R (T.Cons fd fds) _) p =
                        T.con2 T.mkNoSrcPos p T.Cons T.aCons fd
                          (T.con2 T.mkNoSrcPos p T.Cons T.aCons
                            (T.conChar T.mkNoSrcPos p '.')
                            (T.uwrapForward p
                              ((fds
                                  *++
                                  (T.con2 T.mkNoSrcPos p T.Cons T.aCons
                                    (T.conChar T.mkNoSrcPos p 'e')
                                    (T.uap1 T.mkNoSrcPos p
                                      (gshow T.mkNoSrcPos p)
                                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
                                        fe
                                        (T.uap1 T.mkNoSrcPos p
                                          (Hat.PreludeBasic.gfromInteger
                                            T.mkNoSrcPos p)
                                          (T.conInteger T.mkNoSrcPos p 1))))))
                                p)))
                      v3013v17v3016v57v1 _ p = T.fatal p in
                      (v3013v17v3016v57v1)) (gds T.mkNoSrcPos p)
                v3011v13v3026v55v1 (T.R (Just fdec) _) p =
                  let
                    gdec' pdec' p = T.uconstUse pdec' p sdec'
                    sdec' =
                      T.uconstDef p a3019v21v3019v36dec'
                        (\ p ->
                          T.uap2 T.mkNoSrcPos p (gmax T.mkNoSrcPos p) fdec
                            (T.uap1 T.mkNoSrcPos p
                              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                              (T.conInteger T.mkNoSrcPos p 1))) in
                    (T.uccase T.mkNoSrcPos p
                      (let
                        v3020v17v3026v55v1 (T.R T.List _) p =
                          T.con2 T.mkNoSrcPos p T.Cons T.aCons
                            (T.conChar T.mkNoSrcPos p '0')
                            (T.con2 T.mkNoSrcPos p T.Cons T.aCons
                              (T.conChar T.mkNoSrcPos p '.')
                              (T.uwrapForward p
                                (((T.uwrapForward p
                                      (htake (gdec' T.mkNoSrcPos p)
                                        (T.uwrapForward p
                                          (hrepeat
                                            (T.conChar T.mkNoSrcPos p '0') p))
                                        p))
                                    *++
                                    (T.fromLitString T.mkNoSrcPos p "e0")) p)))
                        v3020v17v3026v55v1 _ p =
                          let
                            gei pei p = T.uconstUse pei p sei
                            gis' pei p = T.uconstUse pei p sis'
                            j3023v25v3023v33ei =
                              case
                                T.uwrapForward p
                                  (hroundTo (gbase T.mkNoSrcPos p)
                                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
                                      (gdec' T.mkNoSrcPos p)
                                      (T.uap1 T.mkNoSrcPos p
                                        (Hat.PreludeBasic.gfromInteger
                                          T.mkNoSrcPos p)
                                        (T.conInteger T.mkNoSrcPos p 1))) fis
                                    p) of
                                T.R (T.Tuple2 fei fis') kei -> (kei,fei,fis')
                                _ -> T.fatal p
                            sei =
                              T.uconstDef p a3023v26v3023v27ei
                                (\ _ ->
                                  case j3023v25v3023v33ei of
                                    (kei,fei,fis') -> fei)
                            sis' =
                              T.uconstDef p a3023v30v3023v32is'
                                (\ _ ->
                                  case j3023v25v3023v33ei of
                                    (kei,fei,fis') -> fis')
                            gd pd p = T.uconstUse pd p sd
                            gds pd p = T.uconstUse pd p sds
                            j3024v25v3024v28d =
                              case
                                T.uwrapForward p
                                  (hmap (gintToDigit T.mkNoSrcPos p)
                                    (T.ucif p
                                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p)
                                        (gei T.mkNoSrcPos p)
                                        (T.uap1 T.mkNoSrcPos p
                                          (Hat.PreludeBasic.gfromInteger
                                            T.mkNoSrcPos p)
                                          (T.conInteger T.mkNoSrcPos p 0)))
                                      (T.uwrapForward p
                                        (hinit (gis' T.mkNoSrcPos p) p))
                                      (gis' T.mkNoSrcPos p)) p) of
                                T.R (T.Cons fd fds) kd -> (kd,fd,fds)
                                _ -> T.fatal p
                            sd =
                              T.uconstDef p a3024v25v3024v25d
                                (\ _ ->
                                  case j3024v25v3024v28d of (kd,fd,fds) -> fd)
                            sds =
                              T.uconstDef p a3024v27v3024v28ds
                                (\ _ ->
                                  case j3024v25v3024v28d of (kd,fd,fds) -> fds)
                            in
                            (T.con2 T.mkNoSrcPos p T.Cons T.aCons
                              (gd T.mkNoSrcPos p)
                              (T.con2 T.mkNoSrcPos p T.Cons T.aCons
                                (T.conChar T.mkNoSrcPos p '.')
                                (T.uwrapForward p
                                  (((gds T.mkNoSrcPos p)
                                      *++
                                      (T.uwrapForward p
                                        (((T.fromLitString T.mkNoSrcPos p "e")
                                            *++
                                            (T.uap1 T.mkNoSrcPos p
                                              (gshow T.mkNoSrcPos p)
                                              (T.uap2 T.mkNoSrcPos p
                                                (T.mkNoSrcPos !+ p)
                                                (T.uap2 T.mkNoSrcPos p
                                                  (T.mkNoSrcPos !- p) fe
                                                  (T.uap1 T.mkNoSrcPos p
                                                    (Hat.PreludeBasic.gfromInteger
                                                      T.mkNoSrcPos p)
                                                    (T.conInteger T.mkNoSrcPos p
                                                      1)))
                                                (gei T.mkNoSrcPos p)))) p)))
                                    p)))) in (v3020v17v3026v55v1)) fis)
                v3011v13v3026v55v1 _ p = T.fatal p in (v3011v13v3026v55v1))
              fdecs
          v3006v9v3053v33v1 (T.R FFFixed _) p =
            T.uccase T.mkNoSrcPos p
              (let
                v3029v13v3047v36v1 (T.R Nothing _) p =
                  T.ucguard
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) fe
                      (T.uap1 T.mkNoSrcPos p
                        (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                        (T.conInteger T.mkNoSrcPos p 0)))
                    (T.uwrapForward p
                      (((T.uwrapForward p
                            (htake fe
                              (T.uwrapForward p
                                (((gds T.mkNoSrcPos p)
                                    *++
                                    (T.uwrapForward p
                                      (hrepeat (T.conChar T.mkNoSrcPos p '0')
                                        p))) p)) p))
                          *++
                          (T.con2 T.mkNoSrcPos p T.Cons T.aCons
                            (T.conChar T.mkNoSrcPos p '.')
                            (T.uwrapForward p
                              (hmk0
                                (T.uwrapForward p
                                  (hdrop fe (gds T.mkNoSrcPos p) p)) p)))) p))
                    (T.ucguard (gotherwise T.mkNoSrcPos p)
                      (T.uwrapForward p
                        (((T.fromLitString T.mkNoSrcPos p "0.")
                            *++
                            (T.uwrapForward p
                              (hmk0
                                (T.uwrapForward p
                                  (((T.uwrapForward p
                                        (hreplicate
                                          (T.uap1 T.mkNoSrcPos p
                                            (gnegate T.mkNoSrcPos p) fe)
                                          (T.conChar T.mkNoSrcPos p '0') p))
                                      *++
                                      (gds T.mkNoSrcPos p)) p)) p))) p))
                      (T.fatal p))
                v3029v13v3047v36v1 (T.R (Just fdec) _) p =
                  let
                    gdec' pdec' p = T.uconstUse pdec' p sdec'
                    sdec' =
                      T.uconstDef p a3036v22v3036v37dec'
                        (\ p ->
                          T.uap2 T.mkNoSrcPos p (gmax T.mkNoSrcPos p) fdec
                            (T.uap1 T.mkNoSrcPos p
                              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                              (T.conInteger T.mkNoSrcPos p 0))) in
                    (T.ucif p
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) fe
                        (T.uap1 T.mkNoSrcPos p
                          (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                          (T.conInteger T.mkNoSrcPos p 0)))
                      (let
                        gei pei p = T.uconstUse pei p sei
                        gis' pei p = T.uconstUse pei p sis'
                        j3038v24v3038v32ei =
                          case
                            T.uwrapForward p
                              (hroundTo (gbase T.mkNoSrcPos p)
                                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
                                  (gdec' T.mkNoSrcPos p) fe) fis p) of
                            T.R (T.Tuple2 fei fis') kei -> (kei,fei,fis')
                            _ -> T.fatal p
                        sei =
                          T.uconstDef p a3038v25v3038v26ei
                            (\ _ ->
                              case j3038v24v3038v32ei of (kei,fei,fis') -> fei)
                        sis' =
                          T.uconstDef p a3038v29v3038v31is'
                            (\ _ ->
                              case j3038v24v3038v32ei of (kei,fei,fis') -> fis')
                        gls pls p = T.uconstUse pls p sls
                        grs pls p = T.uconstUse pls p srs
                        j3039v24v3039v31ls =
                          case
                            T.uwrapForward p
                              (hsplitAt
                                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fe
                                  (gei T.mkNoSrcPos p))
                                (T.uwrapForward p
                                  (hmap (gintToDigit T.mkNoSrcPos p)
                                    (gis' T.mkNoSrcPos p) p)) p) of
                            T.R (T.Tuple2 fls frs) kls -> (kls,fls,frs)
                            _ -> T.fatal p
                        sls =
                          T.uconstDef p a3039v25v3039v26ls
                            (\ _ ->
                              case j3039v24v3039v31ls of (kls,fls,frs) -> fls)
                        srs =
                          T.uconstDef p a3039v29v3039v30rs
                            (\ _ ->
                              case j3039v24v3039v31ls of (kls,fls,frs) -> frs)
                        in
                        (T.uwrapForward p
                          (((T.uwrapForward p (hmk0 (gls T.mkNoSrcPos p) p))
                              *++
                              (T.uwrapForward p
                                (hmkdot0 (grs T.mkNoSrcPos p) p))) p)))
                      (let
                        gei pei p = T.uconstUse pei p sei
                        gis' pei p = T.uconstUse pei p sis'
                        j3043v24v3043v32ei =
                          case
                            T.uwrapForward p
                              (hroundTo (gbase T.mkNoSrcPos p)
                                (gdec' T.mkNoSrcPos p)
                                (T.uwrapForward p
                                  (((T.uwrapForward p
                                        (hreplicate
                                          (T.uap1 T.mkNoSrcPos p
                                            (gnegate T.mkNoSrcPos p) fe)
                                          (T.uap1 T.mkNoSrcPos p
                                            (Hat.PreludeBasic.gfromInteger
                                              T.mkNoSrcPos p)
                                            (T.conInteger T.mkNoSrcPos p 0)) p))
                                      *++
                                      fis) p)) p) of
                            T.R (T.Tuple2 fei fis') kei -> (kei,fei,fis')
                            _ -> T.fatal p
                        sei =
                          T.uconstDef p a3043v25v3043v26ei
                            (\ _ ->
                              case j3043v24v3043v32ei of (kei,fei,fis') -> fei)
                        sis' =
                          T.uconstDef p a3043v29v3043v31is'
                            (\ _ ->
                              case j3043v24v3043v32ei of (kei,fei,fis') -> fis')
                        gd pd p = T.uconstUse pd p sd
                        gds pd p = T.uconstUse pd p sds
                        j3045v24v3045v29d =
                          case
                            T.uwrapForward p
                              (hmap (gintToDigit T.mkNoSrcPos p)
                                (T.ucif p
                                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p)
                                    (gei T.mkNoSrcPos p)
                                    (T.uap1 T.mkNoSrcPos p
                                      (Hat.PreludeBasic.gfromInteger
                                        T.mkNoSrcPos p)
                                      (T.conInteger T.mkNoSrcPos p 0)))
                                  (gis' T.mkNoSrcPos p)
                                  (T.con2 T.mkNoSrcPos p T.Cons T.aCons
                                    (T.uap1 T.mkNoSrcPos p
                                      (Hat.PreludeBasic.gfromInteger
                                        T.mkNoSrcPos p)
                                      (T.conInteger T.mkNoSrcPos p 0))
                                    (gis' T.mkNoSrcPos p))) p) of
                            T.R (T.Cons fd fds) kd -> (kd,fd,fds)
                            _ -> T.fatal p
                        sd =
                          T.uconstDef p a3045v24v3045v24d
                            (\ _ -> case j3045v24v3045v29d of (kd,fd,fds) -> fd)
                        sds =
                          T.uconstDef p a3045v28v3045v29ds
                            (\ _ ->
                              case j3045v24v3045v29d of (kd,fd,fds) -> fds) in
                        (T.con2 T.mkNoSrcPos p T.Cons T.aCons
                          (gd T.mkNoSrcPos p)
                          (T.uwrapForward p (hmkdot0 (gds T.mkNoSrcPos p) p)))))
                v3029v13v3047v36v1 _ p = T.fatal p in (v3029v13v3047v36v1))
              fdecs
            where
            
            gmk0 pmk0 p = T.ufun1 a3049v15v3050v24mk0 pmk0 p hmk0
            
            amk0 = a3049v15v3050v24mk0
            
            hmk0 (T.R T.List _) p = T.fromLitString T.mkNoSrcPos p "0"
            hmk0 fs p = T.projection T.mkNoSrcPos p fs
            
            gmkdot0 pmkdot0 p = T.ufun1 a3052v15v3053v33mkdot0 pmkdot0 p hmkdot0
            
            amkdot0 = a3052v15v3053v33mkdot0
            
            hmkdot0 (T.R T.List _) p = T.fromLitString T.mkNoSrcPos p ""
            hmkdot0 fs p =
              T.con2 T.mkNoSrcPos p T.Cons T.aCons
                (T.conChar T.mkNoSrcPos p '.') fs
            
          v3006v9v3053v33v1 _ p = T.fatal p in (v3006v9v3053v33v1)) ffmt)
  hdoFmt _ _ p = T.fatal p
  

groundTo ::
  T.RefSrcPos ->
    T.RefExp ->
      T.R
        (T.Fun Int (T.Fun Int (T.Fun (T.List Int) (T.Tuple2 Int (T.List Int)))))

hroundTo ::
  (T.R Int) ->
    (T.R Int) ->
      (T.R (T.List Int)) -> T.RefExp -> T.R (T.Tuple2 Int (T.List Int))

groundTo proundTo p = T.ufun3 aroundTo proundTo p hroundTo

hroundTo fbase fd fis p =
  T.uccase T.mkNoSrcPos p
    (let
      v3058v21v3060v38v1
        (v3058v21v3060v38v2@(T.R (T.Tuple2 fv3059v18v3059v18n fis) _)) p =
        T.ucguard
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fv3059v18v3059v18n
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 0))) (h fis p)
          (v3058v21v3060v38v3 v3058v21v3060v38v2 p)
        where
        
        h fis p =
          T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 0)) fis
        h _ p = v3058v21v3060v38v3 v3058v21v3060v38v2 p
        
      v3058v21v3060v38v1 v3058v21v3060v38v2 p =
        v3058v21v3060v38v3 v3058v21v3060v38v2 p
      v3058v21v3060v38v3 (T.R (T.Tuple2 fv3060v18v3060v18n fis) _) p =
        T.ucguard
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fv3060v18v3060v18n
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 1))) (h fis p) (T.fatal p)
        where
        
        h fis p =
          T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 1))
            (T.con2 T.mkNoSrcPos p T.Cons T.aCons
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 1)) fis)
        h _ p = T.fatal p
        
      v3058v21v3060v38v3 _ p = T.fatal p in (v3058v21v3060v38v1))
    (T.uwrapForward p (hf fd fis p))
  where
  
  gb2 pb2 p = T.uconstUse pb2 p sb2
  
  sb2 =
    T.uconstDef p a3061v9v3061v25b2
      (\ p ->
        T.uap2 T.mkNoSrcPos p (gdiv T.mkNoSrcPos p) fbase
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 2)))
  
  gf pf p = T.ufun2 a3062v9v3067v60f pf p hf
  
  af = a3062v9v3067v60f
  
  hf fn (T.R T.List _) p =
    T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0))
      (T.uwrapForward p
        (hreplicate fn
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 0)) p))
  hf fv3063v11v3063v11n v3063v14v3063v16n p =
    T.ucguard
      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fv3063v11v3063v11n
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 0))) (h v3063v14v3063v16n p)
      (y1f fv3063v11v3063v11n v3063v14v3063v16n p)
    where
    
    h (T.R (T.Cons fi _) _) p =
      T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
        (T.ucif p
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) fi (gb2 T.mkNoSrcPos p))
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 1))
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 0)))
        (T.con0 T.mkNoSrcPos p T.List T.aList)
    h _ p = y1f fv3063v11v3063v11n v3063v14v3063v16n p
    
  hf fv3063v11v3063v11n v3063v14v3063v16n p =
    y1f fv3063v11v3063v11n v3063v14v3063v16n p
  
  y1f fd (T.R (T.Cons fi fis) _) p =
    let
      gc pc p = T.uconstUse pc p sc
      gds pc p = T.uconstUse pc p sds
      j3065v17v3065v23c =
        case
          T.uwrapForward p
            (hf
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fd
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 1))) fis p) of
          T.R (T.Tuple2 fc fds) kc -> (kc,fc,fds)
          _ -> T.fatal p
      sc =
        T.uconstDef p a3065v18v3065v18c
          (\ _ -> case j3065v17v3065v23c of (kc,fc,fds) -> fc)
      sds =
        T.uconstDef p a3065v21v3065v22ds
          (\ _ -> case j3065v17v3065v23c of (kc,fc,fds) -> fds)
      gi' pi' p = T.uconstUse pi' p si'
      si' =
        T.uconstDef p a3066v17v3066v26i'
          (\ p ->
            T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) (gc T.mkNoSrcPos p) fi) in
      (T.ucif p
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) (gi' T.mkNoSrcPos p) fbase)
        (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 1))
          (T.con2 T.mkNoSrcPos p T.Cons T.aCons
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 0)) (gds T.mkNoSrcPos p)))
        (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 0))
          (T.con2 T.mkNoSrcPos p T.Cons T.aCons (gi' T.mkNoSrcPos p)
            (gds T.mkNoSrcPos p))))
  y1f _ _ p = T.fatal p
  

gfloatToDigits ::
  RealFloat a =>
  T.RefSrcPos ->
    T.RefExp -> T.R (T.Fun Integer (T.Fun a (T.Tuple2 (T.List Int) Int)))

hfloatToDigits ::
  RealFloat a =>
  (T.R Integer) -> (T.R a) -> T.RefExp -> T.R (T.Tuple2 (T.List Int) Int)

gfloatToDigits pfloatToDigits p =
  T.ufun2 afloatToDigits pfloatToDigits p hfloatToDigits

hfloatToDigits (z1floatToDigits@_) fv3084v17v3084v17n p =
  T.ucguard
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fv3084v17v3084v17n
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0))) (h p)
    (y1floatToDigits z1floatToDigits fv3084v17v3084v17n p)
  where
  
  h p =
    T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
      (T.con0 T.mkNoSrcPos p T.List T.aList)
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0))
  h p = y1floatToDigits z1floatToDigits fv3084v17v3084v17n p
  
hfloatToDigits z1floatToDigits fv3084v17v3084v17n p =
  y1floatToDigits z1floatToDigits fv3084v17v3084v17n p

y1floatToDigits fbase fx p =
  let
    gf0 pf0 p = T.uconstUse pf0 p sf0
    ge0 pf0 p = T.uconstUse pf0 p se0
    j3086v9v3086v16f0 =
      case T.uap1 T.mkNoSrcPos p (gdecodeFloat T.mkNoSrcPos p) fx of
        T.R (T.Tuple2 ff0 fe0) kf0 -> (kf0,ff0,fe0)
        _ -> T.fatal p
    sf0 =
      T.uconstDef p a3086v10v3086v11f0
        (\ _ -> case j3086v9v3086v16f0 of (kf0,ff0,fe0) -> ff0)
    se0 =
      T.uconstDef p a3086v14v3086v15e0
        (\ _ -> case j3086v9v3086v16f0 of (kf0,ff0,fe0) -> fe0)
    gminExp0 pminExp0 p = T.uconstUse pminExp0 p sminExp0
    j3087v9v3087v20minExp0 =
      case T.uap1 T.mkNoSrcPos p (gfloatRange T.mkNoSrcPos p) fx of
        T.R (T.Tuple2 fminExp0 _) kminExp0 -> (kminExp0,fminExp0)
        _ -> T.fatal p
    sminExp0 =
      T.uconstDef p a3087v10v3087v16minExp0
        (\ _ -> case j3087v9v3087v20minExp0 of (kminExp0,fminExp0) -> fminExp0)
    gp pp p = T.uconstUse pp p sp
    sp =
      T.uconstDef p a3088v9v3088v25p
        (\ p -> T.uap1 T.mkNoSrcPos p (gfloatDigits T.mkNoSrcPos p) fx)
    gb pb p = T.uconstUse pb p sb
    sb =
      T.uconstDef p a3089v9v3089v24b
        (\ p -> T.uap1 T.mkNoSrcPos p (gfloatRadix T.mkNoSrcPos p) fx)
    gminExp pminExp p = T.uconstUse pminExp p sminExp
    sminExp =
      T.uconstDef p a3090v9v3090v28minExp
        (\ p ->
          T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) (gminExp0 T.mkNoSrcPos p)
            (gp T.mkNoSrcPos p))
    gf :: T.RefSrcPos -> T.RefExp -> T.R Integer
    sf :: T.R Integer
    ge :: T.RefSrcPos -> T.RefExp -> T.R Int
    se :: T.R Int
    gf pf p = T.uconstUse pf p sf
    ge pf p = T.uconstUse pf p se
    j3096v9v3096v14f =
      case
        let
          gn pn p = T.uconstUse pn p sn
          sn =
            T.uconstDef p a3096v22v3096v36n
              (\ p ->
                T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
                  (gminExp T.mkNoSrcPos p) (ge0 T.mkNoSrcPos p)) in
          (T.ucif p
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) (gn T.mkNoSrcPos p)
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 0)))
            (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
              (T.uap2 T.mkNoSrcPos p (gdiv T.mkNoSrcPos p) (gf0 T.mkNoSrcPos p)
                (T.uwrapForward p
                  (((gb T.mkNoSrcPos p) *^ (gn T.mkNoSrcPos p)) p)))
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) (ge0 T.mkNoSrcPos p)
                (gn T.mkNoSrcPos p)))
            (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 (gf0 T.mkNoSrcPos p)
              (ge0 T.mkNoSrcPos p))) of
        T.R (T.Tuple2 ff fe) kf -> (kf,ff,fe)
        _ -> T.fatal p
    sf =
      T.uconstDef p a3096v10v3096v10f
        (\ _ -> case j3096v9v3096v14f of (kf,ff,fe) -> ff)
    se =
      T.uconstDef p a3096v13v3096v13e
        (\ _ -> case j3096v9v3096v14f of (kf,ff,fe) -> fe)
    gr pr p = T.uconstUse pr p sr
    gs pr p = T.uconstUse pr p ss
    gmUp pr p = T.uconstUse pr p smUp
    gmDn pr p = T.uconstUse pr p smDn
    j3099v9v3099v24r =
      case
        T.ucif p
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) (ge T.mkNoSrcPos p)
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 0)))
          (let
            gbe pbe p = T.uconstUse pbe p sbe
            sbe =
              T.uconstDef p a3101v20v3101v27be
                (\ p ->
                  T.uwrapForward p
                    (((gb T.mkNoSrcPos p) *^ (ge T.mkNoSrcPos p)) p)) in
            (T.ucif p
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) (gf T.mkNoSrcPos p)
                (T.uwrapForward p
                  (((gb T.mkNoSrcPos p)
                      *^
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
                        (gp T.mkNoSrcPos p)
                        (T.uap1 T.mkNoSrcPos p
                          (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                          (T.conInteger T.mkNoSrcPos p 1)))) p)))
              (T.con4 T.mkNoSrcPos p T.Tuple4 T.aTuple4
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
                      (gf T.mkNoSrcPos p) (gbe T.mkNoSrcPos p))
                    (gb T.mkNoSrcPos p))
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                    (T.conInteger T.mkNoSrcPos p 2)))
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                    (T.conInteger T.mkNoSrcPos p 2)) (gb T.mkNoSrcPos p))
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) (gbe T.mkNoSrcPos p)
                  (gb T.mkNoSrcPos p)) (gb T.mkNoSrcPos p))
              (T.con4 T.mkNoSrcPos p T.Tuple4 T.aTuple4
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) (gf T.mkNoSrcPos p)
                    (gbe T.mkNoSrcPos p))
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                    (T.conInteger T.mkNoSrcPos p 2)))
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 2)) (gbe T.mkNoSrcPos p)
                (gbe T.mkNoSrcPos p))))
          (T.ucif p
            (T.uwrapForward p
              (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) (ge T.mkNoSrcPos p)
                    (gminExp T.mkNoSrcPos p))
                  *&&
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p)
                    (gf T.mkNoSrcPos p)
                    (T.uwrapForward p
                      (((gb T.mkNoSrcPos p)
                          *^
                          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
                            (gp T.mkNoSrcPos p)
                            (T.uap1 T.mkNoSrcPos p
                              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                              (T.conInteger T.mkNoSrcPos p 1)))) p)))) p))
            (T.con4 T.mkNoSrcPos p T.Tuple4 T.aTuple4
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) (gf T.mkNoSrcPos p)
                  (gb T.mkNoSrcPos p))
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 2)))
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
                (T.uwrapForward p
                  (((gb T.mkNoSrcPos p)
                      *^
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
                        (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p)
                          (ge T.mkNoSrcPos p))
                        (T.uap1 T.mkNoSrcPos p
                          (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                          (T.conInteger T.mkNoSrcPos p 1)))) p))
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 2))) (gb T.mkNoSrcPos p)
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 1)))
            (T.con4 T.mkNoSrcPos p T.Tuple4 T.aTuple4
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) (gf T.mkNoSrcPos p)
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 2)))
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
                (T.uwrapForward p
                  (((gb T.mkNoSrcPos p)
                      *^
                      (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p)
                        (ge T.mkNoSrcPos p))) p))
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 2)))
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 1))
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 1)))) of
        T.R (T.Tuple4 fr fs fmUp fmDn) kr -> (kr,fr,fs,fmUp,fmDn)
        _ -> T.fatal p
    sr =
      T.uconstDef p a3099v10v3099v10r
        (\ _ -> case j3099v9v3099v24r of (kr,fr,fs,fmUp,fmDn) -> fr)
    ss =
      T.uconstDef p a3099v13v3099v13s
        (\ _ -> case j3099v9v3099v24r of (kr,fr,fs,fmUp,fmDn) -> fs)
    smUp =
      T.uconstDef p a3099v16v3099v18mUp
        (\ _ -> case j3099v9v3099v24r of (kr,fr,fs,fmUp,fmDn) -> fmUp)
    smDn =
      T.uconstDef p a3099v21v3099v23mDn
        (\ _ -> case j3099v9v3099v24r of (kr,fr,fs,fmUp,fmDn) -> fmDn)
    gk pk p = T.uconstUse pk p sk
    sk =
      T.uconstDef p a3111v9v3130v24k
        (\ p ->
          let
            gk0 pk0 p = T.uconstUse pk0 p sk0
            sk0 =
              T.uconstDef p a3112v17v3123v42k0
                (\ p ->
                  T.ucif p
                    (T.uwrapForward p
                      (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p)
                            (gb T.mkNoSrcPos p)
                            (T.uap1 T.mkNoSrcPos p
                              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                              (T.conInteger T.mkNoSrcPos p 2)))
                          *&&
                          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fbase
                            (T.uap1 T.mkNoSrcPos p
                              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                              (T.conInteger T.mkNoSrcPos p 10)))) p))
                    (T.uap2 T.mkNoSrcPos p (gdiv T.mkNoSrcPos p)
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
                        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
                          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p)
                            (gp T.mkNoSrcPos p)
                            (T.uap1 T.mkNoSrcPos p
                              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                              (T.conInteger T.mkNoSrcPos p 1)))
                          (ge0 T.mkNoSrcPos p))
                        (T.uap1 T.mkNoSrcPos p
                          (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                          (T.conInteger T.mkNoSrcPos p 3)))
                      (T.uap1 T.mkNoSrcPos p
                        (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                        (T.conInteger T.mkNoSrcPos p 10)))
                    (T.uap1 T.mkNoSrcPos p (gceiling T.mkNoSrcPos p)
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p)
                          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
                            (T.uap1 T.mkNoSrcPos p (glog T.mkNoSrcPos p)
                              (T.uap1 T.mkNoSrcPos p
                                (gfromInteger T.mkNoSrcPos p)
                                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
                                  (gf T.mkNoSrcPos p)
                                  (T.uap1 T.mkNoSrcPos p
                                    (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos
                                      p) (T.conInteger T.mkNoSrcPos p 1)))))
                            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
                              (T.uap1 T.mkNoSrcPos p
                                (gfromIntegral T.mkNoSrcPos p)
                                (ge T.mkNoSrcPos p))
                              (T.uap1 T.mkNoSrcPos p (glog T.mkNoSrcPos p)
                                (T.uap1 T.mkNoSrcPos p
                                  (gfromInteger T.mkNoSrcPos p)
                                  (gb T.mkNoSrcPos p)))))
                          (T.uap1 T.mkNoSrcPos p (glog T.mkNoSrcPos p)
                            (T.uap1 T.mkNoSrcPos p (gfromInteger T.mkNoSrcPos p)
                              fbase))
                        :: T.R Double)))
            gfixup pfixup p = T.ufun1 a3124v17v3129v74fixup pfixup p hfixup
            afixup = a3124v17v3129v74fixup
            hfixup fn p =
              T.ucif p
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) fn
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                    (T.conInteger T.mkNoSrcPos p 0)))
                (T.ucif p
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !<= p)
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
                      (gr T.mkNoSrcPos p) (gmUp T.mkNoSrcPos p))
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
                      (T.uwrapForward p (hexpt fbase fn p))
                      (gs T.mkNoSrcPos p))) (T.projection T.mkNoSrcPos p fn)
                  (T.uwrapForward p
                    (hfixup
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fn
                        (T.uap1 T.mkNoSrcPos p
                          (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                          (T.conInteger T.mkNoSrcPos p 1))) p)))
                (T.ucif p
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !<= p)
                    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
                      (T.uwrapForward p
                        (hexpt fbase
                          (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p) fn)
                          p))
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
                        (gr T.mkNoSrcPos p) (gmUp T.mkNoSrcPos p)))
                    (gs T.mkNoSrcPos p)) (T.projection T.mkNoSrcPos p fn)
                  (T.uwrapForward p
                    (hfixup
                      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fn
                        (T.uap1 T.mkNoSrcPos p
                          (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                          (T.conInteger T.mkNoSrcPos p 1))) p))) in
            (T.uwrapForward p (hfixup (gk0 T.mkNoSrcPos p) p)))
    ggen pgen p = T.ufun5 a3132v9v3140v64gen pgen p hgen
    agen = a3132v9v3140v64gen
    hgen fds frn fsN fmUpN fmDnN p =
      let
        gdn pdn p = T.uconstUse pdn p sdn
        grn' pdn p = T.uconstUse pdn p srn'
        j3133v17v3133v25dn =
          case
            T.uap2 T.mkNoSrcPos p (gdivMod T.mkNoSrcPos p)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) frn fbase) fsN of
            T.R (T.Tuple2 fdn frn') kdn -> (kdn,fdn,frn')
            _ -> T.fatal p
        sdn =
          T.uconstDef p a3133v18v3133v19dn
            (\ _ -> case j3133v17v3133v25dn of (kdn,fdn,frn') -> fdn)
        srn' =
          T.uconstDef p a3133v22v3133v24rn'
            (\ _ -> case j3133v17v3133v25dn of (kdn,fdn,frn') -> frn')
        gmUpN' pmUpN' p = T.uconstUse pmUpN' p smUpN'
        smUpN' =
          T.uconstDef p a3134v17v3134v35mUpN'
            (\ p -> T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fmUpN fbase)
        gmDnN' pmDnN' p = T.uconstUse pmDnN' p smDnN'
        smDnN' =
          T.uconstDef p a3135v17v3135v35mDnN'
            (\ p -> T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fmDnN fbase) in
        (T.uccase T.mkNoSrcPos p
          (let
            v3136v17v3140v64v1 (T.R (T.Tuple2 (T.R True _) (T.R False _)) _) p =
              T.con2 T.mkNoSrcPos p T.Cons T.aCons (gdn T.mkNoSrcPos p) fds
            v3136v17v3140v64v1 (T.R (T.Tuple2 (T.R False _) (T.R True _)) _) p =
              T.con2 T.mkNoSrcPos p T.Cons T.aCons
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) (gdn T.mkNoSrcPos p)
                  (T.uap1 T.mkNoSrcPos p
                    (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                    (T.conInteger T.mkNoSrcPos p 1))) fds
            v3136v17v3140v64v1 (T.R (T.Tuple2 (T.R True _) (T.R True _)) _) p =
              T.ucif p
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p)
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
                    (grn' T.mkNoSrcPos p)
                    (T.uap1 T.mkNoSrcPos p
                      (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                      (T.conInteger T.mkNoSrcPos p 2))) fsN)
                (T.con2 T.mkNoSrcPos p T.Cons T.aCons (gdn T.mkNoSrcPos p) fds)
                (T.con2 T.mkNoSrcPos p T.Cons T.aCons
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
                    (gdn T.mkNoSrcPos p)
                    (T.uap1 T.mkNoSrcPos p
                      (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                      (T.conInteger T.mkNoSrcPos p 1))) fds)
            v3136v17v3140v64v1 (T.R (T.Tuple2 (T.R False _) (T.R False _)) _)
              p =
              T.uwrapForward p
                (hgen
                  (T.con2 T.mkNoSrcPos p T.Cons T.aCons (gdn T.mkNoSrcPos p)
                    fds) (grn' T.mkNoSrcPos p) fsN (gmUpN' T.mkNoSrcPos p)
                  (gmDnN' T.mkNoSrcPos p) p)
            v3136v17v3140v64v1 _ p = T.fatal p in (v3136v17v3140v64v1))
          (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) (grn' T.mkNoSrcPos p)
              (gmDnN' T.mkNoSrcPos p))
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) (grn' T.mkNoSrcPos p)
                (gmUpN' T.mkNoSrcPos p)) fsN)))
    grds prds p = T.uconstUse prds p srds
    srds =
      T.uconstDef p a3141v9v3146v58rds
        (\ p ->
          T.ucif p
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !>= p) (gk T.mkNoSrcPos p)
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 0)))
            (T.uwrapForward p
              (hgen (T.con0 T.mkNoSrcPos p T.List T.aList) (gr T.mkNoSrcPos p)
                (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) (gs T.mkNoSrcPos p)
                  (T.uwrapForward p (hexpt fbase (gk T.mkNoSrcPos p) p)))
                (gmUp T.mkNoSrcPos p) (gmDn T.mkNoSrcPos p) p))
            (let
              gbk pbk p = T.uconstUse pbk p sbk
              sbk =
                T.uconstDef p a3145v21v3145v38bk
                  (\ p ->
                    T.uwrapForward p
                      (hexpt fbase
                        (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p)
                          (gk T.mkNoSrcPos p)) p)) in
              (T.uwrapForward p
                (hgen (T.con0 T.mkNoSrcPos p T.List T.aList)
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) (gr T.mkNoSrcPos p)
                    (gbk T.mkNoSrcPos p)) (gs T.mkNoSrcPos p)
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
                    (gmUp T.mkNoSrcPos p) (gbk T.mkNoSrcPos p))
                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p)
                    (gmDn T.mkNoSrcPos p) (gbk T.mkNoSrcPos p)) p)))) in
    (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
      (T.uwrapForward p
        (hmap (gfromIntegral T.mkNoSrcPos p)
          (T.uap1 T.mkNoSrcPos p (greverse T.mkNoSrcPos p)
            (grds T.mkNoSrcPos p)) p)) (gk T.mkNoSrcPos p))

greadFloat :: RealFloat a => T.RefSrcPos -> T.RefExp -> T.R (ReadS a)

hreadFloat ::
  RealFloat a => (T.R (ReadS___1 a)) -> T.RefExp -> T.R (ReadS___2 a)

greadFloat preadFloat p = T.ufun1 areadFloat preadFloat p hreadFloat

hreadFloat fr p =
  T.uwrapForward p
    (((T.uap1 T.mkNoSrcPos p
          (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
            (T.ufun2 T.mkLambda T.mkNoSrcPos p
              (\ f_x f_y p ->
                T.uccase T.mkNoSrcPos p
                  (let
                    v0v0v0v0v1 (T.R (T.Tuple3 fn fd fs) _) p =
                      T.uap1 T.mkNoSrcPos p
                        (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                          (T.ufun2 T.mkLambda T.mkNoSrcPos p
                            (\ f_x f_y p ->
                              T.uccase T.mkNoSrcPos p
                                (let
                                  v0v0v0v0v1 (T.R (T.Tuple2 fk ft) _) p =
                                    T.uap1 T.mkNoSrcPos p
                                      (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                                        (T.con2 T.mkNoSrcPos p T.Tuple2
                                          T.aTuple2
                                          (T.uap1 T.mkNoSrcPos p
                                            (gfromRational T.mkNoSrcPos p)
                                            (T.uap2 T.mkNoSrcPos p
                                              (T.mkNoSrcPos !* p)
                                              (T.uwrapForward p
                                                ((fn
                                                    *%
                                                    (T.uap1 T.mkNoSrcPos p
                                                      (Hat.PreludeBasic.gfromInteger
                                                        T.mkNoSrcPos p)
                                                      (T.conInteger T.mkNoSrcPos
                                                        p 1))) p))
                                              (T.uwrapForward p
                                                (((T.uap1 T.mkNoSrcPos p
                                                      (Hat.PreludeBasic.gfromInteger
                                                        T.mkNoSrcPos p)
                                                      (T.conInteger T.mkNoSrcPos
                                                        p 10))
                                                    *^^
                                                    (T.uap2 T.mkNoSrcPos p
                                                      (T.mkNoSrcPos !- p) fk
                                                      fd)) p)))) ft)) f_y
                                  v0v0v0v0v1 _ p =
                                    T.projection T.mkNoSrcPos p f_y in
                                  (v0v0v0v0v1)) f_x))
                          (T.uwrapForward p (hreadExp fs p))) f_y
                    v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                    (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hreadFix fr p)))
          (T.fromExpList T.mkNoSrcPos p []))
        *++
        (T.uwrapForward p
          (((T.uap1 T.mkNoSrcPos p
                (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                  (T.ufun2 T.mkLambda T.mkNoSrcPos p
                    (\ f_x f_y p ->
                      T.uccase T.mkNoSrcPos p
                        (let
                          v0v0v0v0v1
                            (T.R
                              (T.Tuple2
                                (T.R
                                  (T.Cons (T.R 'N' _)
                                    (T.R
                                      (T.Cons (T.R 'a' _)
                                        (T.R (T.Cons (T.R 'N' _) (T.R T.List _))
                                          _)) _)) _) ft) _) p =
                            T.uap1 T.mkNoSrcPos p
                              (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                                (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p)
                                    (T.uap1 T.mkNoSrcPos p
                                      (Hat.PreludeBasic.gfromInteger
                                        T.mkNoSrcPos p)
                                      (T.conInteger T.mkNoSrcPos p 0))
                                    (T.uap1 T.mkNoSrcPos p
                                      (Hat.PreludeBasic.gfromInteger
                                        T.mkNoSrcPos p)
                                      (T.conInteger T.mkNoSrcPos p 0))) ft)) f_y
                          v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                          (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr p)))
                (T.fromExpList T.mkNoSrcPos p []))
              *++
              (T.uap1 T.mkNoSrcPos p
                (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                  (T.ufun2 T.mkLambda T.mkNoSrcPos p
                    (\ f_x f_y p ->
                      T.uccase T.mkNoSrcPos p
                        (let
                          v0v0v0v0v1
                            (T.R
                              (T.Tuple2
                                (T.R
                                  (T.Cons (T.R 'I' _)
                                    (T.R
                                      (T.Cons (T.R 'n' _)
                                        (T.R
                                          (T.Cons (T.R 'f' _)
                                            (T.R
                                              (T.Cons (T.R 'i' _)
                                                (T.R
                                                  (T.Cons (T.R 'n' _)
                                                    (T.R
                                                      (T.Cons (T.R 'i' _)
                                                        (T.R
                                                          (T.Cons (T.R 't' _)
                                                            (T.R
                                                              (T.Cons
                                                                (T.R 'y' _)
                                                                (T.R T.List _))
                                                              _)) _)) _)) _))
                                              _)) _)) _)) _) ft) _) p =
                            T.uap1 T.mkNoSrcPos p
                              (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                                (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                                  (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/ p)
                                    (T.uap1 T.mkNoSrcPos p
                                      (Hat.PreludeBasic.gfromInteger
                                        T.mkNoSrcPos p)
                                      (T.conInteger T.mkNoSrcPos p 1))
                                    (T.uap1 T.mkNoSrcPos p
                                      (Hat.PreludeBasic.gfromInteger
                                        T.mkNoSrcPos p)
                                      (T.conInteger T.mkNoSrcPos p 0))) ft)) f_y
                          v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                          (v0v0v0v0v1)) f_x)) (T.uwrapForward p (hlex fr p)))
                (T.fromExpList T.mkNoSrcPos p []))) p))) p)
  where
  
  greadFix preadFix p = T.ufun1 a3160v18v3160v24readFix preadFix p hreadFix
  
  areadFix = a3160v18v3160v24readFix
  
  hreadFix fr p =
    T.uap1 T.mkNoSrcPos p
      (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
        (T.ufun2 T.mkLambda T.mkNoSrcPos p
          (\ f_x f_y p ->
            T.uccase T.mkNoSrcPos p
              (let
                v0v0v0v0v1 (T.R (T.Tuple2 fds fd) _) p =
                  T.uap1 T.mkNoSrcPos p
                    (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                      (T.ufun2 T.mkLambda T.mkNoSrcPos p
                        (\ f_x f_y p ->
                          T.uccase T.mkNoSrcPos p
                            (let
                              v0v0v0v0v1 (T.R (T.Tuple2 fds' ft) _) p =
                                T.uap1 T.mkNoSrcPos p
                                  (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                                    (T.con3 T.mkNoSrcPos p T.Tuple3 T.aTuple3
                                      (T.uwrapForward p
                                        (hread
                                          (T.uwrapForward p ((fds *++ fds') p))
                                          p))
                                      (T.uwrapForward p (hlength fds' p)) ft))
                                  f_y
                              v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y
                              in (v0v0v0v0v1)) f_x))
                      (T.uwrapForward p (hlexFrac fd p))) f_y
                v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                (v0v0v0v0v1)) f_x))
        (T.uap1 T.mkNoSrcPos p (glexDigits T.mkNoSrcPos p) fr))
      (T.fromExpList T.mkNoSrcPos p [])
  
  glexFrac plexFrac p = T.ufun1 a3164v18v3165v44lexFrac plexFrac p hlexFrac
  
  alexFrac = a3164v18v3165v44lexFrac
  
  hlexFrac (T.R (T.Cons (T.R '.' _) fds) _) p =
    T.uap1 T.mkNoSrcPos p (glexDigits T.mkNoSrcPos p) fds
  hlexFrac fs p =
    T.fromExpList T.mkNoSrcPos p
      [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
          (T.fromLitString T.mkNoSrcPos p "") fs]
  
  greadExp preadExp p = T.ufun1 a3167v18v3168v56readExp preadExp p hreadExp
  
  areadExp = a3167v18v3168v56readExp
  
  hreadExp (z1readExp@(T.R (T.Cons fe fs) _)) p =
    T.ucguard
      (T.uap2 T.mkNoSrcPos p (gelem T.mkNoSrcPos p) fe
        (T.fromLitString T.mkNoSrcPos p "eE"))
      (T.uwrapForward p (hreadExp' fs p)) (y1readExp z1readExp p)
  hreadExp z1readExp p = y1readExp z1readExp p
  
  y1readExp fs p =
    T.fromExpList T.mkNoSrcPos p
      [T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 0)) fs]
  
  greadExp' preadExp' p = T.ufun1 a3170v18v3172v45readExp' preadExp' p hreadExp'
  
  areadExp' = a3170v18v3172v45readExp'
  
  hreadExp' (T.R (T.Cons (T.R '-' _) fs) _) p =
    T.uap1 T.mkNoSrcPos p
      (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
        (T.ufun2 T.mkLambda T.mkNoSrcPos p
          (\ f_x f_y p ->
            T.uccase T.mkNoSrcPos p
              (let
                v0v0v0v0v1 (T.R (T.Tuple2 fk ft) _) p =
                  T.uap1 T.mkNoSrcPos p
                    (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                      (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
                        (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p) fk) ft))
                    f_y
                v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                (v0v0v0v0v1)) f_x))
        (T.uap1 T.mkNoSrcPos p (greadDec T.mkNoSrcPos p) fs))
      (T.fromExpList T.mkNoSrcPos p [])
  hreadExp' (T.R (T.Cons (T.R '+' _) fs) _) p =
    T.uap1 T.mkNoSrcPos p (greadDec T.mkNoSrcPos p) fs
  hreadExp' fs p = T.uap1 T.mkNoSrcPos p (greadDec T.mkNoSrcPos p) fs
  

glexDigits :: T.RefSrcPos -> T.RefExp -> T.R (ReadS String)

slexDigits :: T.R (ReadS String)

glexDigits plexDigits p = T.uconstUse plexDigits p slexDigits

slexDigits =
  T.uconstDef T.mkRoot alexDigits
    (\ p ->
      T.uap1 T.mkNoSrcPos p (gnonnull T.mkNoSrcPos p) (gisDigit T.mkNoSrcPos p))

gnonnull ::
  T.RefSrcPos -> T.RefExp -> T.R (T.Fun (T.Fun Char Bool) (ReadS String))

hnonnull ::
  (T.R (T.Fun Char Bool)) ->
    (T.R (ReadS___1 String)) -> T.RefExp -> T.R (ReadS___2 String)

gnonnull pnonnull p = T.ufun2 anonnull pnonnull p hnonnull

hnonnull fp fs p =
  T.uap1 T.mkNoSrcPos p
    (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
      (T.ufun2 T.mkLambda T.mkNoSrcPos p
        (\ f_x f_y p ->
          T.uccase T.mkNoSrcPos p
            (let
              v0v0v0v0v1 (T.R (T.Tuple2 (fcs@(T.R (T.Cons _ _) _)) ft) _) p =
                T.uap1 T.mkNoSrcPos p
                  (T.pa1 T.Cons T.cn1 T.mkNoSrcPos p T.aCons
                    (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 fcs ft)) f_y
              v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in (v0v0v0v0v1))
            f_x))
      (T.fromExpList T.mkNoSrcPos p [T.uwrapForward p (hspan fp fs p)]))
    (T.fromExpList T.mkNoSrcPos p [])

gprec pprec p = T.uconstUse pprec p sprec

sprec =
  T.uconstDef T.mkRoot aprec
    (\ p ->
      T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 7)
        :: T.R Int)

data Integral a => Ratio a = (:%) !(T.R a) !(T.R a)

instance Integral a => T.WrapVal ((Ratio a))
  where
  
  wrapVal pwrapVal (kwrapVal@((T.R _ z1wrapVal) :% (T.R _ z2wrapVal))) p =
    T.R kwrapVal (T.mkValueApp2 p pwrapVal (+:%) z1wrapVal z2wrapVal)
  

instance (Integral a,Eq a) => Eq ((Ratio a))
  where
  
  (!==) (%==) p =
    T.ufun2 (+%#@@=*@=%#@@=*>==) (%==) p (*==)
    where
    
    (*==) (T.R (fy1 :% fy2) _) (T.R (fy3 :% fy4) _) p =
      T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fy1 fy3)
            *&&
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fy2 fy4)) p)
    (*==) _ _ p = T.con0 T.mkNoSrcPos p False aFalse
    
  

type Rational = Ratio Integer

(!%) ::
  Integral a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a (Ratio a)))

(*%) :: Integral a => (T.R a) -> (T.R a) -> T.RefExp -> T.R (Ratio a)

gnumerator,gdenominator ::
  Integral a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun (Ratio a) a)

hnumerator :: Integral a => (T.R (Ratio a)) -> T.RefExp -> T.R a

hdenominator :: Integral a => (T.R (Ratio a)) -> T.RefExp -> T.R a

gapproxRational ::
  RealFrac a => T.RefSrcPos -> T.RefExp -> T.R (T.Fun a (T.Fun a Rational))

happroxRational :: RealFrac a => (T.R a) -> (T.R a) -> T.RefExp -> T.R Rational

greduce preduce p = T.ufun2 areduce preduce p hreduce

hreduce (z1reduce@_) fv3204v10v3204v10n p =
  T.ucguard
    (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fv3204v10v3204v10n
      (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
        (T.conInteger T.mkNoSrcPos p 0))) (h p)
    (y1reduce z1reduce fv3204v10v3204v10n p)
  where
  
  h p =
    T.uwrapForward p
      (herror (T.fromLitString T.mkNoSrcPos p "Ratio.% : zero denominator") p)
  h p = y1reduce z1reduce fv3204v10v3204v10n p
  
hreduce z1reduce fv3204v10v3204v10n p = y1reduce z1reduce fv3204v10v3204v10n p

y1reduce fx fy p =
  T.con2 T.mkNoSrcPos p (:%) (+:%)
    (T.uap2 T.mkNoSrcPos p (gquot T.mkNoSrcPos p) fx (gd T.mkNoSrcPos p))
    (T.uap2 T.mkNoSrcPos p (gquot T.mkNoSrcPos p) fy (gd T.mkNoSrcPos p))
  where
  
  gd pd p = T.uconstUse pd p sd
  
  sd = T.uconstDef p a3206v34v3206v44d (\ p -> T.uwrapForward p (hgcd fx fy p))
  

(!%) (%%) p = T.ufun2 (+%) (%%) p (*%)

(*%) fx fy p =
  T.uwrapForward p
    (hreduce
      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fx
        (T.uap1 T.mkNoSrcPos p (gsignum T.mkNoSrcPos p) fy))
      (T.uap1 T.mkNoSrcPos p (gabs T.mkNoSrcPos p) fy) p)

gnumerator pnumerator p = T.ufun1 anumerator pnumerator p hnumerator

hnumerator (T.R (fx :% _) _) p = T.projection T.mkNoSrcPos p fx
hnumerator _ p = T.fatal p

gdenominator pdenominator p = T.ufun1 adenominator pdenominator p hdenominator

hdenominator (T.R (_ :% fy) _) p = T.projection T.mkNoSrcPos p fy
hdenominator _ p = T.fatal p

instance Integral a => Ord ((Ratio a))
  where
  
  (!<=) (%<=) p =
    T.ufun2 (+%$#+=#$=%$#+=#%<=) (%<=) p (*<=)
    where
    
    (*<=) (T.R (fx :% fy) _) (T.R (fx' :% fy') _) p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !<= p)
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fx fy')
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fx' fy)
    (*<=) _ _ p = T.fatal p
    
  
  (!<) (%<) p =
    T.ufun2 (+%$#^=#$=%$#^=#$<) (%<) p (*<)
    where
    
    (*<) (T.R (fx :% fy) _) (T.R (fx' :% fy') _) p =
      T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p)
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fx fy')
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fx' fy)
    (*<) _ _ p = T.fatal p
    
  

instance Integral a => Num ((Ratio a))
  where
  
  (!+) (%+) p =
    T.ufun2 (+%$$!=#$=%$$!=#$+) (%+) p (*+)
    where
    
    (*+) (T.R (fx :% fy) _) (T.R (fx' :% fy') _) p =
      T.uwrapForward p
        (hreduce
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fx fy')
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fx' fy))
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fy fy') p)
    (*+) _ _ p = T.fatal p
    
  
  (!*) (%*) p =
    T.ufun2 (+%$$#=#$=%$$#=#$*) (%*) p (**)
    where
    
    (**) (T.R (fx :% fy) _) (T.R (fx' :% fy') _) p =
      T.uwrapForward p
        (hreduce (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fx fx')
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fy fy') p)
    (**) _ _ p = T.fatal p
    
  
  gnegate pnegate p =
    T.ufun1 a3222v5v3222v36negate pnegate p hnegate
    where
    
    hnegate (T.R (fx :% fy) _) p =
      T.con2 T.mkNoSrcPos p (:%) (+:%)
        (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p) fx) fy
    hnegate _ p = T.fatal p
    
  
  gabs pabs p =
    T.ufun1 a3223v5v3223v37abs pabs p habs
    where
    
    habs (T.R (fx :% fy) _) p =
      T.con2 T.mkNoSrcPos p (:%) (+:%)
        (T.uap1 T.mkNoSrcPos p (gabs T.mkNoSrcPos p) fx) fy
    habs _ p = T.fatal p
    
  
  gsignum psignum p =
    T.ufun1 a3224v5v3224v40signum psignum p hsignum
    where
    
    hsignum (T.R (fx :% fy) _) p =
      T.con2 T.mkNoSrcPos p (:%) (+:%)
        (T.uap1 T.mkNoSrcPos p (gsignum T.mkNoSrcPos p) fx)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 1))
    hsignum _ p = T.fatal p
    
  
  gfromInteger pfromInteger p =
    T.ufun1 a3225v5v3225v45fromInteger pfromInteger p hfromInteger
    where
    
    hfromInteger fx p =
      T.con2 T.mkNoSrcPos p (:%) (+:%)
        (T.uap1 T.mkNoSrcPos p (gfromInteger T.mkNoSrcPos p) fx)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 1))
    
  

instance Integral a => Real ((Ratio a))
  where
  
  gtoRational ptoRational p =
    T.ufun1 a3228v5v3228v53toRational ptoRational p htoRational
    where
    
    htoRational (T.R (fx :% fy) _) p =
      T.con2 T.mkNoSrcPos p (:%) (+:%)
        (T.uap1 T.mkNoSrcPos p (gtoInteger T.mkNoSrcPos p) fx)
        (T.uap1 T.mkNoSrcPos p (gtoInteger T.mkNoSrcPos p) fy)
    htoRational _ p = T.fatal p
    
  

instance Integral a => Fractional ((Ratio a))
  where
  
  (!/) (%/) p =
    T.ufun2 (+%$%#=#$=%$%#=#$/) (%/) p (*/)
    where
    
    (*/) (T.R (fx :% fy) _) (T.R (fx' :% fy') _) p =
      T.uwrapForward p
        (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fx fy')
            *%
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) fy fx')) p)
    (*/) _ _ p = T.fatal p
    
  
  grecip precip p =
    T.ufun1 a3232v5v3232v32recip precip p hrecip
    where
    
    hrecip (T.R (fx :% fy) _) p = T.uwrapForward p ((fy *% fx) p)
    hrecip _ p = T.fatal p
    
  
  gfromRational pfromRational p =
    T.ufun1 a3233v5v3233v57fromRational pfromRational p hfromRational
    where
    
    hfromRational (T.R (fx :% fy) _) p =
      T.con2 T.mkNoSrcPos p (:%) (+:%)
        (T.uap1 T.mkNoSrcPos p (gfromInteger T.mkNoSrcPos p) fx)
        (T.uap1 T.mkNoSrcPos p (gfromInteger T.mkNoSrcPos p) fy)
    hfromRational _ p = T.fatal p
    
  

instance Integral a => RealFrac ((Ratio a))
  where
  
  gproperFraction pproperFraction p =
    T.ufun1 a3236v5v3237v53properFraction pproperFraction p hproperFraction
    where
    
    hproperFraction (T.R (fx :% fy) _) p =
      T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2
        (T.uap1 T.mkNoSrcPos p (gfromIntegral T.mkNoSrcPos p)
          (gq T.mkNoSrcPos p))
        (T.con2 T.mkNoSrcPos p (:%) (+:%) (gr T.mkNoSrcPos p) fy)
      where
      
      gq pq p = T.uconstUse pq p sq
      
      gr pq p = T.uconstUse pq p sr
      
      j3237v35v3237v39q =
        case T.uap2 T.mkNoSrcPos p (gquotRem T.mkNoSrcPos p) fx fy of
          T.R (T.Tuple2 fq fr) kq -> (kq,fq,fr)
          _ -> T.fatal p
      
      sq =
        T.uconstDef p a3237v36v3237v36q
          (\ _ -> case j3237v35v3237v39q of (kq,fq,fr) -> fq)
      
      sr =
        T.uconstDef p a3237v38v3237v38r
          (\ _ -> case j3237v35v3237v39q of (kq,fq,fr) -> fr)
      
    hproperFraction _ p = T.fatal p
    
  

instance Integral a => Enum ((Ratio a))
  where
  
  gtoEnum ptoEnum p = T.uconstUse ptoEnum p stoEnum
  
  stoEnum =
    T.uconstDef T.mkRoot a3240v5v3240v36toEnum
      (\ p -> gfromIntegral T.mkNoSrcPos p)
  
  gfromEnum pfromEnum p = T.uconstUse pfromEnum p sfromEnum
  
  sfromEnum =
    T.uconstDef T.mkRoot a3241v5v3241v46fromEnum
      (\ p ->
        T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p) (gfromInteger T.mkNoSrcPos p)
          (gtruncate T.mkNoSrcPos p))
  
  genumFrom penumFrom p = T.uconstUse penumFrom p senumFrom
  
  senumFrom =
    T.uconstDef T.mkRoot a3242v5v3242v39enumFrom
      (\ p -> gnumericEnumFrom T.mkNoSrcPos p)
  
  genumFromThen penumFromThen p = T.uconstUse penumFromThen p senumFromThen
  
  senumFromThen =
    T.uconstDef T.mkRoot a3243v5v3243v43enumFromThen
      (\ p -> gnumericEnumFromThen T.mkNoSrcPos p)
  
  genumFromTo penumFromTo p = T.uconstUse penumFromTo p senumFromTo
  
  senumFromTo =
    T.uconstDef T.mkRoot a3244v5v3244v41enumFromTo
      (\ p -> gnumericEnumFromTo T.mkNoSrcPos p)
  
  genumFromThenTo penumFromThenTo p =
    T.uconstUse penumFromThenTo p senumFromThenTo
  
  senumFromThenTo =
    T.uconstDef T.mkRoot a3245v5v3245v45enumFromThenTo
      (\ p -> gnumericEnumFromThenTo T.mkNoSrcPos p)
  

instance (Read a,Integral a) => Read ((Ratio a))
  where
  
  greadsPrec preadsPrec p =
    T.ufun1 a3248v5v3249v32readsPrec preadsPrec p hreadsPrec
    where
    
    hreadsPrec fp p =
      T.uwrapForward p
        (hreadParen
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) fp (gprec T.mkNoSrcPos p))
          (T.ufun1 T.mkLambda T.mkNoSrcPos p
            (\ fr p ->
              T.uap1 T.mkNoSrcPos p
                (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                  (T.ufun2 T.mkLambda T.mkNoSrcPos p
                    (\ f_x f_y p ->
                      T.uccase T.mkNoSrcPos p
                        (let
                          v0v0v0v0v1 (T.R (T.Tuple2 fx fs) _) p =
                            T.uap1 T.mkNoSrcPos p
                              (T.uap2 T.mkNoSrcPos p (g_foldr T.mkNoSrcPos p)
                                (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                  (\ f_x f_y p ->
                                    T.uccase T.mkNoSrcPos p
                                      (let
                                        v0v0v0v0v1
                                          (T.R
                                            (T.Tuple2
                                              (T.R
                                                (T.Cons (T.R '%' _)
                                                  (T.R T.List _)) _) ft) _) p =
                                          T.uap1 T.mkNoSrcPos p
                                            (T.uap2 T.mkNoSrcPos p
                                              (g_foldr T.mkNoSrcPos p)
                                              (T.ufun2 T.mkLambda T.mkNoSrcPos p
                                                (\ f_x f_y p ->
                                                  T.uccase T.mkNoSrcPos p
                                                    (let
                                                      v0v0v0v0v1
                                                        (T.R (T.Tuple2 fy fu) _)
                                                        p =
                                                        T.uap1 T.mkNoSrcPos p
                                                          (T.pa1 T.Cons T.cn1
                                                            T.mkNoSrcPos p
                                                            T.aCons
                                                            (T.con2 T.mkNoSrcPos
                                                              p T.Tuple2
                                                              T.aTuple2
                                                              (T.uwrapForward p
                                                                ((fx *% fy) p))
                                                              fu)) f_y
                                                      v0v0v0v0v1 _ p =
                                                        T.projection
                                                          T.mkNoSrcPos p f_y in
                                                      (v0v0v0v0v1)) f_x))
                                              (T.uap1 T.mkNoSrcPos p
                                                (greads T.mkNoSrcPos p) ft)) f_y
                                        v0v0v0v0v1 _ p =
                                          T.projection T.mkNoSrcPos p f_y in
                                        (v0v0v0v0v1)) f_x))
                                (T.uwrapForward p (hlex fs p))) f_y
                          v0v0v0v0v1 _ p = T.projection T.mkNoSrcPos p f_y in
                          (v0v0v0v0v1)) f_x))
                  (T.uap1 T.mkNoSrcPos p (greads T.mkNoSrcPos p) fr))
                (T.fromExpList T.mkNoSrcPos p []))) p)
    
  

instance Integral a => Show ((Ratio a))
  where
  
  gshowsPrec pshowsPrec p =
    T.ufun2 a3254v5v3255v68showsPrec pshowsPrec p hshowsPrec
    where
    
    hshowsPrec fp (T.R (fx :% fy) _) p =
      T.uwrapForward p
        (hshowParen
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) fp (gprec T.mkNoSrcPos p))
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
            (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fx)
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !. p)
              (T.uap1 T.mkNoSrcPos p (gshowString T.mkNoSrcPos p)
                (T.fromLitString T.mkNoSrcPos p " % "))
              (T.uap1 T.mkNoSrcPos p (gshows T.mkNoSrcPos p) fy))) p)
    hshowsPrec _ _ p = T.fatal p
    
  

gapproxRational papproxRational p =
  T.ufun2 aapproxRational papproxRational p happroxRational

happroxRational fx feps p =
  T.uwrapForward p
    (hsimplest (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !- p) fx feps)
      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) fx feps) p)
  where
  
  gsimplest psimplest p = T.ufun2 a3260v15v3266v70simplest psimplest p hsimplest
  
  asimplest = a3260v15v3266v70simplest
  
  hsimplest fx fy p =
    T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) fy fx)
      (T.uwrapForward p (hsimplest fy fx p))
      (T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) fx fy)
        (gxr T.mkNoSrcPos p)
        (T.ucguard
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !> p) fx
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 0)))
          (T.uwrapForward p
            (hsimplest' (gn T.mkNoSrcPos p) (gd T.mkNoSrcPos p)
              (gn' T.mkNoSrcPos p) (gd' T.mkNoSrcPos p) p))
          (T.ucguard
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !< p) fy
              (T.uap1 T.mkNoSrcPos p
                (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                (T.conInteger T.mkNoSrcPos p 0)))
            (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p)
              (T.uwrapForward p
                (hsimplest'
                  (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p)
                    (gn' T.mkNoSrcPos p)) (gd' T.mkNoSrcPos p)
                  (T.uap1 T.mkNoSrcPos p (gnegate T.mkNoSrcPos p)
                    (gn T.mkNoSrcPos p)) (gd T.mkNoSrcPos p) p)))
            (T.ucguard (gotherwise T.mkNoSrcPos p)
              (T.con2 T.mkNoSrcPos p (:%) (+:%)
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 0))
                (T.uap1 T.mkNoSrcPos p
                  (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
                  (T.conInteger T.mkNoSrcPos p 1))) (T.fatal p)))))
    where
    
    gxr pxr p = T.uconstUse pxr p sxr
    
    sxr =
      T.uconstDef p a3265v47v3265v48xr
        (\ p -> T.uap1 T.mkNoSrcPos p (gtoRational T.mkNoSrcPos p) fx)
    
    gn pn p = T.uconstUse pn p sn
    
    gd pn p = T.uconstUse pn p sd
    
    j3265v51v3265v54n =
      case gxr T.mkNoSrcPos p of T.R (fn :% fd) kn -> (kn,fn,fd); _ -> T.fatal p
    
    sn =
      T.uconstDef p a3265v51v3265v51n
        (\ _ -> case j3265v51v3265v54n of (kn,fn,fd) -> fn)
    
    sd =
      T.uconstDef p a3265v54v3265v54d
        (\ _ -> case j3265v51v3265v54n of (kn,fn,fd) -> fd)
    
    gn' pn' p = T.uconstUse pn' p sn'
    
    gd' pn' p = T.uconstUse pn' p sd'
    
    j3266v48v3266v53n' =
      case T.uap1 T.mkNoSrcPos p (gtoRational T.mkNoSrcPos p) fy of
        T.R (fn' :% fd') kn' -> (kn',fn',fd')
        _ -> T.fatal p
    
    sn' =
      T.uconstDef p a3266v48v3266v49n'
        (\ _ -> case j3266v48v3266v53n' of (kn',fn',fd') -> fn')
    
    sd' =
      T.uconstDef p a3266v52v3266v53d'
        (\ _ -> case j3266v48v3266v53n' of (kn',fn',fd') -> fd')
    
  
  gsimplest' psimplest' p =
    T.ufun4 a3268v15v3274v76simplest' psimplest' p hsimplest'
  
  asimplest' = a3268v15v3274v76simplest'
  
  hsimplest' fn fd fn' fd' p =
    T.ucguard
      (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !== p) (gr T.mkNoSrcPos p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 0)))
      (T.con2 T.mkNoSrcPos p (:%) (+:%) (gq T.mkNoSrcPos p)
        (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
          (T.conInteger T.mkNoSrcPos p 1)))
      (T.ucguard
        (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !/= p) (gq T.mkNoSrcPos p)
          (gq' T.mkNoSrcPos p))
        (T.con2 T.mkNoSrcPos p (:%) (+:%)
          (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p) (gq T.mkNoSrcPos p)
            (T.uap1 T.mkNoSrcPos p
              (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
              (T.conInteger T.mkNoSrcPos p 1)))
          (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p)
            (T.conInteger T.mkNoSrcPos p 1)))
        (T.ucguard (gotherwise T.mkNoSrcPos p)
          (T.con2 T.mkNoSrcPos p (:%) (+:%)
            (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !+ p)
              (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos !* p) (gq T.mkNoSrcPos p)
                (gn'' T.mkNoSrcPos p)) (gd'' T.mkNoSrcPos p))
            (gn'' T.mkNoSrcPos p)) (T.fatal p)))
    where
    
    gq pq p = T.uconstUse pq p sq
    
    gr pq p = T.uconstUse pq p sr
    
    j3272v44v3272v48q =
      case T.uap2 T.mkNoSrcPos p (gquotRem T.mkNoSrcPos p) fn fd of
        T.R (T.Tuple2 fq fr) kq -> (kq,fq,fr)
        _ -> T.fatal p
    
    sq =
      T.uconstDef p a3272v45v3272v45q
        (\ _ -> case j3272v44v3272v48q of (kq,fq,fr) -> fq)
    
    sr =
      T.uconstDef p a3272v47v3272v47r
        (\ _ -> case j3272v44v3272v48q of (kq,fq,fr) -> fr)
    
    gq' pq' p = T.uconstUse pq' p sq'
    
    gr' pq' p = T.uconstUse pq' p sr'
    
    j3273v44v3273v50q' =
      case T.uap2 T.mkNoSrcPos p (gquotRem T.mkNoSrcPos p) fn' fd' of
        T.R (T.Tuple2 fq' fr') kq' -> (kq',fq',fr')
        _ -> T.fatal p
    
    sq' =
      T.uconstDef p a3273v45v3273v46q'
        (\ _ -> case j3273v44v3273v50q' of (kq',fq',fr') -> fq')
    
    sr' =
      T.uconstDef p a3273v48v3273v49r'
        (\ _ -> case j3273v44v3273v50q' of (kq',fq',fr') -> fr')
    
    gn'' pn'' p = T.uconstUse pn'' p sn''
    
    gd'' pn'' p = T.uconstUse pn'' p sd''
    
    j3274v45v3274v52n'' =
      case
        T.uwrapForward p
          (hsimplest' fd' (gr' T.mkNoSrcPos p) fd (gr T.mkNoSrcPos p) p) of
        T.R (fn'' :% fd'') kn'' -> (kn'',fn'',fd'')
        _ -> T.fatal p
    
    sn'' =
      T.uconstDef p a3274v45v3274v47n''
        (\ _ -> case j3274v45v3274v52n'' of (kn'',fn'',fd'') -> fn'')
    
    sd'' =
      T.uconstDef p a3274v50v3274v52d''
        (\ _ -> case j3274v45v3274v52n'' of (kn'',fn'',fd'') -> fd'')
    
  

tPreludeBasic = T.mkModule "Prelude" "PreludeBasic.hs" Prelude.False

aNothing = T.mkConstructor tPreludeBasic 5000019 5000025 3 0 "Nothing"

aJust = T.mkConstructor tPreludeBasic 5000029 5000032 3 1 "Just"

aLeft = T.mkConstructor tPreludeBasic 5220022 5220025 3 1 "Left"

aRight = T.mkConstructor tPreludeBasic 5220031 5220035 3 1 "Right"

aLT = T.mkConstructor tPreludeBasic 5470020 5470021 3 0 "LT"

aEQ = T.mkConstructor tPreludeBasic 5470025 5470026 3 0 "EQ"

aGT = T.mkConstructor tPreludeBasic 5470030 5470031 3 0 "GT"

aFFExponent = T.mkConstructor tPreludeBasic 29860017 29860026 3 0 "FFExponent"

aFFFixed = T.mkConstructor tPreludeBasic 29860030 29860036 3 0 "FFFixed"

aFFGeneric = T.mkConstructor tPreludeBasic 29860040 29860048 3 0 "FFGeneric"

(+:%) = T.mkConstructor tPreludeBasic 31880041 31880042 3 2 ":%"

ayield = T.mkVariable tPreludeBasic 400001 400019 3 2 "yield" Prelude.False

alift = T.mkVariable tPreludeBasic 430001 430077 3 4 "lift" Prelude.False

athenAp = T.mkVariable tPreludeBasic 460001 460034 3 0 "thenAp" Prelude.False

athenLex = T.mkVariable tPreludeBasic 490001 490067 3 2 "thenLex" Prelude.False

aalt = T.mkVariable tPreludeBasic 520001 520022 3 3 "alt" Prelude.False

asubtract =
  T.mkVariable tPreludeBasic 2640001 2640027 3 0 "subtract" Prelude.False

aeven = T.mkVariable tPreludeBasic 2680001 2680034 3 1 "even" Prelude.False

aodd = T.mkVariable tPreludeBasic 2690001 2690030 3 0 "odd" Prelude.False

agcd = T.mkVariable tPreludeBasic 2730001 2760056 3 2 "gcd" Prelude.False

alcm = T.mkVariable tPreludeBasic 2800001 2820049 3 2 "lcm" Prelude.False

(+^) = T.mkVariable tPreludeBasic 2860003 2920003 33 2 "^" Prelude.False

(+^^) = T.mkVariable tPreludeBasic 2960003 2960004 33 2 "^^" Prelude.False

afromIntegral =
  T.mkVariable tPreludeBasic 3000001 3000043 3 0 "fromIntegral" Prelude.False

arealToFrac =
  T.mkVariable tPreludeBasic 3040001 3040044 3 0 "realToFrac" Prelude.False

asequence =
  T.mkVariable tPreludeBasic 3260001 3270073 3 0 "sequence" Prelude.False

asequence_ =
  T.mkVariable tPreludeBasic 3310001 3310040 3 0 "sequence_" Prelude.False

amapM = T.mkVariable tPreludeBasic 3370001 3370038 3 2 "mapM" Prelude.False

amapM_ = T.mkVariable tPreludeBasic 3410001 3410039 3 2 "mapM_" Prelude.False

(+=<<) = T.mkVariable tPreludeBasic 3450003 3450005 5 2 "=<<" Prelude.False

aid = T.mkVariable tPreludeBasic 3760001 3760021 3 1 "id" Prelude.False

aconst = T.mkVariable tPreludeBasic 3810001 3810021 3 2 "const" Prelude.False

(+.) = T.mkVariable tPreludeBasic 3860002 3860026 37 3 "." Prelude.False

aflip = T.mkVariable tPreludeBasic 3910001 3910025 3 3 "flip" Prelude.False

(+$) = T.mkVariable tPreludeBasic 4010003 4010003 1 2 "$" Prelude.False

(+$!) = T.mkVariable tPreludeBasic 4020003 4020004 1 2 "$!" Prelude.False

(+&&) = T.mkVariable tPreludeBasic 4500007 4510008 13 2 "&&" Prelude.False

(+||) = T.mkVariable tPreludeBasic 4520007 4530008 9 2 "||" Prelude.False

anot = T.mkVariable tPreludeBasic 4570001 4580024 3 1 "not" Prelude.False

aotherwise =
  T.mkVariable tPreludeBasic 4620001 4620024 3 0 "otherwise" Prelude.False

amaybe = T.mkVariable tPreludeBasic 5040001 5050025 3 3 "maybe" Prelude.False

aeither = T.mkVariable tPreludeBasic 5260001 5270027 3 3 "either" Prelude.False

aintEnumFromByTo =
  T.mkVariable tPreludeBasic 5990001 6060068 3 3 "intEnumFromByTo" Prelude.False

anumericEnumFrom =
  T.mkVariable tPreludeBasic 8610001 8610038 3 0 "numericEnumFrom" Prelude.False

anumericEnumFromThen =
  T.mkVariable tPreludeBasic 8620001 8620045 3 2 "numericEnumFromThen"
    Prelude.False

anumericEnumFromTo =
  T.mkVariable tPreludeBasic 8630001 8630066 3 2 "numericEnumFromTo"
    Prelude.False

anumericEnumFromThenTo =
  T.mkVariable tPreludeBasic 8640001 8670063 3 3 "numericEnumFromThenTo"
    Prelude.False

afst = T.mkVariable tPreludeBasic 13720001 13720021 3 1 "fst" Prelude.False

asnd = T.mkVariable tPreludeBasic 13760001 13760021 3 1 "snd" Prelude.False

acurry = T.mkVariable tPreludeBasic 13820001 13820028 3 3 "curry" Prelude.False

auncurry =
  T.mkVariable tPreludeBasic 13860001 13860036 3 2 "uncurry" Prelude.False

auntil = T.mkVariable tPreludeBasic 13930001 13950034 3 3 "until" Prelude.False

aasTypeOf =
  T.mkVariable tPreludeBasic 14020001 14020025 3 0 "asTypeOf" Prelude.False

a_foldr =
  T.mkVariable tPreludeBasic 14380001 14390042 3 3 "_foldr" Prelude.False

a_filter =
  T.mkVariable tPreludeBasic 14420001 14420036 3 3 "_filter" Prelude.False

amap = T.mkVariable tPreludeBasic 14520001 14530029 3 2 "map" Prelude.False

(+++) = T.mkVariable tPreludeBasic 14570008 14580009 21 2 "++" Prelude.False

afilter =
  T.mkVariable tPreludeBasic 14620001 14640041 3 2 "filter" Prelude.False

aconcat =
  T.mkVariable tPreludeBasic 14680001 14680030 3 1 "concat" Prelude.False

ahead = T.mkVariable tPreludeBasic 14780001 14790052 3 1 "head" Prelude.False

alast = T.mkVariable tPreludeBasic 14830001 14850052 3 1 "last" Prelude.False

atail = T.mkVariable tPreludeBasic 14890001 14900052 3 1 "tail" Prelude.False

ainit = T.mkVariable tPreludeBasic 14940001 14960052 3 1 "init" Prelude.False

anull = T.mkVariable tPreludeBasic 15000001 15010025 3 1 "null" Prelude.False

alength =
  T.mkVariable tPreludeBasic 15060001 15070032 3 1 "length" Prelude.False

(+!!) = T.mkVariable tPreludeBasic 15120008 15150009 38 2 "!!" Prelude.False

afoldl = T.mkVariable tPreludeBasic 15310001 15320038 3 3 "foldl" Prelude.False

afoldl1 =
  T.mkVariable tPreludeBasic 15360001 15370054 3 2 "foldl1" Prelude.False

ascanl = T.mkVariable tPreludeBasic 15410001 15430054 3 3 "scanl" Prelude.False

ascanl1 =
  T.mkVariable tPreludeBasic 15470001 15480022 3 2 "scanl1" Prelude.False

afoldr = T.mkVariable tPreludeBasic 15550001 15560037 3 3 "foldr" Prelude.False

afoldr1 =
  T.mkVariable tPreludeBasic 15600001 15620054 3 2 "foldr1" Prelude.False

ascanr = T.mkVariable tPreludeBasic 15660001 15680051 3 3 "scanr" Prelude.False

ascanr1 =
  T.mkVariable tPreludeBasic 15720001 15750047 3 2 "scanr1" Prelude.False

aiterate =
  T.mkVariable tPreludeBasic 15810001 15810038 3 2 "iterate" Prelude.False

arepeat =
  T.mkVariable tPreludeBasic 15860001 15860038 3 1 "repeat" Prelude.False

areplicate =
  T.mkVariable tPreludeBasic 15910001 15910036 3 2 "replicate" Prelude.False

acycle = T.mkVariable tPreludeBasic 15990001 16000045 3 1 "cycle" Prelude.False

atake = T.mkVariable tPreludeBasic 16090001 16110043 3 2 "take" Prelude.False

adrop = T.mkVariable tPreludeBasic 16150001 16170039 3 2 "drop" Prelude.False

asplitAt =
  T.mkVariable tPreludeBasic 16210001 16210050 3 2 "splitAt" Prelude.False

atakeWhile =
  T.mkVariable tPreludeBasic 16300001 16330029 3 2 "takeWhile" Prelude.False

adropWhile =
  T.mkVariable tPreludeBasic 16370001 16400029 3 2 "dropWhile" Prelude.False

aspan = T.mkVariable tPreludeBasic 16440001 16480053 3 2 "span" Prelude.False

abreak = T.mkVariable tPreludeBasic 16500001 16500040 3 1 "break" Prelude.False

alines = T.mkVariable tPreludeBasic 16610001 16650052 3 1 "lines" Prelude.False

awords = T.mkVariable tPreludeBasic 16690001 16720061 3 1 "words" Prelude.False

aunlines =
  T.mkVariable tPreludeBasic 16760001 16760038 3 0 "unlines" Prelude.False

aunwords =
  T.mkVariable tPreludeBasic 16800001 16810050 3 1 "unwords" Prelude.False

areverse =
  T.mkVariable tPreludeBasic 16860001 16860039 3 0 "reverse" Prelude.False

aand = T.mkVariable tPreludeBasic 16940001 16940035 3 0 "and" Prelude.False

aor = T.mkVariable tPreludeBasic 16950001 16950036 3 0 "or" Prelude.False

aany = T.mkVariable tPreludeBasic 17010001 17010030 3 1 "any" Prelude.False

aall = T.mkVariable tPreludeBasic 17020001 17020031 3 1 "all" Prelude.False

aelem = T.mkVariable tPreludeBasic 17080001 17080029 16 1 "elem" Prelude.False

anotElem =
  T.mkVariable tPreludeBasic 17090001 17090029 16 1 "notElem" Prelude.False

alookup =
  T.mkVariable tPreludeBasic 17140001 17170034 3 2 "lookup" Prelude.False

asum = T.mkVariable tPreludeBasic 17220001 17220031 3 0 "sum" Prelude.False

aproduct =
  T.mkVariable tPreludeBasic 17230001 17230031 3 0 "product" Prelude.False

amaximum =
  T.mkVariable tPreludeBasic 17290001 17300033 3 1 "maximum" Prelude.False

aminimum =
  T.mkVariable tPreludeBasic 17320001 17330033 3 1 "minimum" Prelude.False

aconcatMap =
  T.mkVariable tPreludeBasic 17370001 17370034 3 1 "concatMap" Prelude.False

azip = T.mkVariable tPreludeBasic 17460001 17460031 3 0 "zip" Prelude.False

azip3 = T.mkVariable tPreludeBasic 17490001 17490033 3 0 "zip3" Prelude.False

azipWith =
  T.mkVariable tPreludeBasic 17580001 17600022 3 3 "zipWith" Prelude.False

azipWith3 =
  T.mkVariable tPreludeBasic 17640001 17660022 3 4 "zipWith3" Prelude.False

aunzip = T.mkVariable tPreludeBasic 17730001 17730066 3 0 "unzip" Prelude.False

aunzip3 =
  T.mkVariable tPreludeBasic 17770001 17780036 3 0 "unzip3" Prelude.False

areads = T.mkVariable tPreludeBasic 18330001 18330031 3 0 "reads" Prelude.False

ashows = T.mkVariable tPreludeBasic 18370001 18370031 3 0 "shows" Prelude.False

aread = T.mkVariable tPreludeBasic 18410001 18440069 3 1 "read" Prelude.False

ashowChar =
  T.mkVariable tPreludeBasic 18480001 18480022 3 0 "showChar" Prelude.False

ashowString =
  T.mkVariable tPreludeBasic 18520001 18520023 3 0 "showString" Prelude.False

ashowParen =
  T.mkVariable tPreludeBasic 18560001 18560068 3 2 "showParen" Prelude.False

areadParen =
  T.mkVariable tPreludeBasic 18600001 18620035 3 2 "readParen" Prelude.False

alex = T.mkVariable tPreludeBasic 18740001 19130033 3 1 "lex" Prelude.False

aputStr =
  T.mkVariable tPreludeBasic 26700001 26700035 3 1 "putStr" Prelude.False

aputStrLn =
  T.mkVariable tPreludeBasic 26730001 26740034 3 1 "putStrLn" Prelude.False

aprint = T.mkVariable tPreludeBasic 26770001 26770036 3 1 "print" Prelude.False

agetLine =
  T.mkVariable tPreludeBasic 26830001 26860040 3 0 "getLine" Prelude.False

ainteract =
  T.mkVariable tPreludeBasic 26920001 26930034 3 1 "interact" Prelude.False

areadIO =
  T.mkVariable tPreludeBasic 27070001 27100073 3 1 "readIO" Prelude.False

areadLn =
  T.mkVariable tPreludeBasic 27140001 27160031 3 0 "readLn" Prelude.False

adigitToInt =
  T.mkVariable tPreludeBasic 27410001 27450064 3 1 "digitToInt" Prelude.False

aintToDigit =
  T.mkVariable tPreludeBasic 27480001 27510064 3 1 "intToDigit" Prelude.False

aord = T.mkVariable tPreludeBasic 27570001 27570035 3 0 "ord" Prelude.False

achr = T.mkVariable tPreludeBasic 27600001 27600033 3 0 "chr" Prelude.False

areadLitChar =
  T.mkVariable tPreludeBasic 27640001 27930034 3 1 "readLitChar" Prelude.False

ashowLitChar =
  T.mkVariable tPreludeBasic 27960001 28090071 3 1 "showLitChar" Prelude.False

aprotectEsc =
  T.mkVariable tPreludeBasic 28110001 28130057 3 2 "protectEsc" Prelude.False

aasciiTab =
  T.mkVariable tPreludeBasic 28140001 28200017 3 0 "asciiTab" Prelude.False

alexLitChar =
  T.mkVariable tPreludeBasic 28230001 28340025 3 1 "lexLitChar" Prelude.False

afromRat =
  T.mkVariable tPreludeBasic 28560001 28590019 3 1 "fromRat" Prelude.False

afromRat' =
  T.mkVariable tPreludeBasic 28690001 28800037 3 1 "fromRat'" Prelude.False

ascaleRat =
  T.mkVariable tPreludeBasic 28850001 28930014 3 6 "scaleRat" Prelude.False

aminExpt =
  T.mkVariable tPreludeBasic 28960001 28960016 3 0 "minExpt" Prelude.False

amaxExpt =
  T.mkVariable tPreludeBasic 28970001 28970019 3 0 "maxExpt" Prelude.False

aexpt = T.mkVariable tPreludeBasic 28990001 29030014 3 2 "expt" Prelude.False

aexpts = T.mkVariable tPreludeBasic 29060001 29060005 3 0 "expts" Prelude.False

aintegerLogBase =
  T.mkVariable tPreludeBasic 29130001 29210035 3 2 "integerLogBase"
    Prelude.False

ashowSigned =
  T.mkVariable tPreludeBasic 29270001 29290046 3 3 "showSigned" Prelude.False

ashowOct =
  T.mkVariable tPreludeBasic 29330001 29330037 3 0 "showOct" Prelude.False

ashowInt =
  T.mkVariable tPreludeBasic 29340001 29340037 3 0 "showInt" Prelude.False

ashowHex =
  T.mkVariable tPreludeBasic 29350001 29350037 3 0 "showHex" Prelude.False

ashowIntAtBase =
  T.mkVariable tPreludeBasic 29420001 29480045 3 4 "showIntAtBase" Prelude.False

areadSigned =
  T.mkVariable tPreludeBasic 29510001 29550033 3 1 "readSigned" Prelude.False

areadInt =
  T.mkVariable tPreludeBasic 29630001 29630007 3 4 "readInt" Prelude.False

areadDec =
  T.mkVariable tPreludeBasic 29690001 29690042 3 0 "readDec" Prelude.False

areadOct =
  T.mkVariable tPreludeBasic 29700001 29700042 3 0 "readOct" Prelude.False

areadHex =
  T.mkVariable tPreludeBasic 29710001 29710042 3 0 "readHex" Prelude.False

ashowEFloat =
  T.mkVariable tPreludeBasic 29790001 29790060 3 2 "showEFloat" Prelude.False

ashowFFloat =
  T.mkVariable tPreludeBasic 29800001 29800057 3 2 "showFFloat" Prelude.False

ashowGFloat =
  T.mkVariable tPreludeBasic 29810001 29810059 3 2 "showGFloat" Prelude.False

ashowFloat =
  T.mkVariable tPreludeBasic 29820001 29820036 3 0 "showFloat" Prelude.False

aformatRealFloat =
  T.mkVariable tPreludeBasic 29890001 30530033 3 3 "formatRealFloat"
    Prelude.False

aroundTo =
  T.mkVariable tPreludeBasic 30580001 30670060 3 3 "roundTo" Prelude.False

afloatToDigits =
  T.mkVariable tPreludeBasic 30840001 31470043 3 2 "floatToDigits" Prelude.False

areadFloat =
  T.mkVariable tPreludeBasic 31550001 31720045 3 1 "readFloat" Prelude.False

alexDigits =
  T.mkVariable tPreludeBasic 31750001 31750035 3 0 "lexDigits" Prelude.False

anonnull =
  T.mkVariable tPreludeBasic 31780001 31780007 3 2 "nonnull" Prelude.False

aprec = T.mkVariable tPreludeBasic 31860001 31860015 3 0 "prec" Prelude.False

areduce =
  T.mkVariable tPreludeBasic 32040001 32060044 3 2 "reduce" Prelude.False

(+%) = T.mkVariable tPreludeBasic 32080003 32080003 30 2 "%" Prelude.False

anumerator =
  T.mkVariable tPreludeBasic 32100001 32100028 3 1 "numerator" Prelude.False

adenominator =
  T.mkVariable tPreludeBasic 32120001 32120028 3 1 "denominator" Prelude.False

aapproxRational =
  T.mkVariable tPreludeBasic 32590001 32740076 3 2 "approxRational"
    Prelude.False

(++%=^=+%=@/=) =
  T.mkVariable tPreludeBasic 630007 630008 16 2 "/=" Prelude.False

(++&=^=+&=@==) =
  T.mkVariable tPreludeBasic 640007 640008 16 2 "==" Prelude.False

a75v5v78v26compare =
  T.mkVariable tPreludeBasic 750005 780026 3 2 "compare" Prelude.False

(+@!=^=@!=@<=) =
  T.mkVariable tPreludeBasic 800007 800008 16 2 "<=" Prelude.False

(+@#=^=@#=^<) = T.mkVariable tPreludeBasic 810007 810007 16 2 "<" Prelude.False

(+@$=^=@$=@>=) =
  T.mkVariable tPreludeBasic 820007 820008 16 2 ">=" Prelude.False

(+@%=^=@%=^>) = T.mkVariable tPreludeBasic 830007 830007 16 2 ">" Prelude.False

a86v5v88v25max =
  T.mkVariable tPreludeBasic 860005 880025 3 2 "max" Prelude.False

a89v5v91v25min =
  T.mkVariable tPreludeBasic 890005 910025 3 2 "min" Prelude.False

a111v5v111v48succ =
  T.mkVariable tPreludeBasic 1110005 1110048 3 0 "succ" Prelude.False

a112v5v112v56pred =
  T.mkVariable tPreludeBasic 1120005 1120056 3 0 "pred" Prelude.False

a113v5v113v36enumFrom =
  T.mkVariable tPreludeBasic 1130005 1130036 3 1 "enumFrom" Prelude.False

a114v5v114v36enumFromTo =
  T.mkVariable tPreludeBasic 1140005 1140036 3 2 "enumFromTo" Prelude.False

a115v5v115v36enumFromThen =
  T.mkVariable tPreludeBasic 1150005 1150036 3 2 "enumFromThen" Prelude.False

a116v5v117v36enumFromThenTo =
  T.mkVariable tPreludeBasic 1160005 1170036 3 3 "enumFromThenTo" Prelude.False

(+#%*=^=#%*=^-) =
  T.mkVariable tPreludeBasic 1350007 1350007 26 2 "-" Prelude.False

a136v5v136v29negate =
  T.mkVariable tPreludeBasic 1360005 1360029 3 1 "negate" Prelude.False

a151v8v151v11quot =
  T.mkVariable tPreludeBasic 1510008 1510011 30 2 "quot" Prelude.False

a152v8v152v10rem =
  T.mkVariable tPreludeBasic 1520008 1520010 30 2 "rem" Prelude.False

a153v8v153v10div =
  T.mkVariable tPreludeBasic 1530008 1530010 30 2 "div" Prelude.False

a154v8v154v10mod =
  T.mkVariable tPreludeBasic 1540008 1540010 30 2 "mod" Prelude.False

a155v5v158v52divMod =
  T.mkVariable tPreludeBasic 1550005 1580052 3 2 "divMod" Prelude.False

a168v5v168v29recip =
  T.mkVariable tPreludeBasic 1680005 1680029 3 1 "recip" Prelude.False

(+#+>=^=#+>=^/) =
  T.mkVariable tPreludeBasic 1690007 1690007 30 2 "/" Prelude.False

(+#@*=^=#@*=@**) =
  T.mkVariable tPreludeBasic 1850007 1850008 33 2 "**" Prelude.False

a186v5v186v37logBase =
  T.mkVariable tPreludeBasic 1860005 1860037 3 2 "logBase" Prelude.False

a187v5v187v31sqrt =
  T.mkVariable tPreludeBasic 1870005 1870031 3 1 "sqrt" Prelude.False

a188v5v188v39tan =
  T.mkVariable tPreludeBasic 1880005 1880039 3 1 "tan" Prelude.False

a189v5v189v39tanh =
  T.mkVariable tPreludeBasic 1890005 1890039 3 1 "tanh" Prelude.False

a200v5v200v57truncate =
  T.mkVariable tPreludeBasic 2000005 2000057 3 1 "truncate" Prelude.False

a202v5v207v40round =
  T.mkVariable tPreludeBasic 2020005 2070040 3 1 "round" Prelude.False

a215v5v216v54ceiling =
  T.mkVariable tPreludeBasic 2150005 2160054 3 1 "ceiling" Prelude.False

a218v5v219v54floor =
  T.mkVariable tPreludeBasic 2180005 2190054 3 1 "floor" Prelude.False

a238v5v239v51exponent =
  T.mkVariable tPreludeBasic 2380005 2390051 3 1 "exponent" Prelude.False

a241v5v242v51significand =
  T.mkVariable tPreludeBasic 2410005 2420051 3 1 "significand" Prelude.False

a244v5v245v51scaleFloat =
  T.mkVariable tPreludeBasic 2440005 2450051 3 2 "scaleFloat" Prelude.False

a247v5v258v30atan2 =
  T.mkVariable tPreludeBasic 2470005 2580030 3 2 "atan2" Prelude.False

(+%$#=^=%$#=@>>) =
  T.mkVariable tPreludeBasic 3210007 3210008 6 2 ">>" Prelude.False

a322v5v322v21fail =
  T.mkVariable tPreludeBasic 3220005 3220021 3 1 "fail" Prelude.False

(+%*&=^=%*&=@==) =
  T.mkVariable tPreludeBasic 3540007 3540008 16 2 "==" Prelude.False

a357v3v357v22compare =
  T.mkVariable tPreludeBasic 3570003 3570022 3 2 "compare" Prelude.False

a360v3v360v18fromEnum =
  T.mkVariable tPreludeBasic 3600003 3600018 3 1 "fromEnum" Prelude.False

a361v3v362v78toEnum =
  T.mkVariable tPreludeBasic 3610003 3620078 3 1 "toEnum" Prelude.False

a365v3v365v16minBound =
  T.mkVariable tPreludeBasic 3650003 3650016 3 0 "minBound" Prelude.False

a366v3v366v16maxBound =
  T.mkVariable tPreludeBasic 3660003 3660016 3 0 "maxBound" Prelude.False

(+&##=>=&#%=#!==) =
  T.mkVariable tPreludeBasic 4110009 4130010 16 2 "==" Prelude.False

a416v3v419v26compare =
  T.mkVariable tPreludeBasic 4160003 4190026 3 2 "compare" Prelude.False

a422v3v423v22fromEnum =
  T.mkVariable tPreludeBasic 4220003 4230022 3 1 "fromEnum" Prelude.False

a425v3v427v70toEnum =
  T.mkVariable tPreludeBasic 4250003 4270070 3 1 "toEnum" Prelude.False

a429v3v429v32enumFrom =
  T.mkVariable tPreludeBasic 4290003 4290032 3 1 "enumFrom" Prelude.False

a430v3v430v53enumFromThen =
  T.mkVariable tPreludeBasic 4300003 4300053 3 2 "enumFromThen" Prelude.False

a433v3v434v20readsPrec =
  T.mkVariable tPreludeBasic 4330003 4340020 3 1 "readsPrec" Prelude.False

a438v3v439v38showsPrec =
  T.mkVariable tPreludeBasic 4380003 4390038 3 2 "showsPrec" Prelude.False

a442v3v442v18minBound =
  T.mkVariable tPreludeBasic 4420003 4420018 3 0 "minBound" Prelude.False

a443v3v443v17maxBound =
  T.mkVariable tPreludeBasic 4430003 4430017 3 0 "maxBound" Prelude.False

(+&^$=^=&^$=@==) =
  T.mkVariable tPreludeBasic 4720007 4720008 16 2 "==" Prelude.False

(+&^+=^=&^+=@<=) =
  T.mkVariable tPreludeBasic 4760007 4760008 16 2 "<=" Prelude.False

a480v5v480v37toEnum =
  T.mkVariable tPreludeBasic 4800005 4800037 3 0 "toEnum" Prelude.False

a481v5v481v37fromEnum =
  T.mkVariable tPreludeBasic 4810005 4810037 3 0 "fromEnum" Prelude.False

a482v5v482v36enumFrom =
  T.mkVariable tPreludeBasic 4820005 4820036 3 1 "enumFrom" Prelude.False

a483v5v486v59enumFromThen =
  T.mkVariable tPreludeBasic 4830005 4860059 3 2 "enumFromThen" Prelude.False

a490v5v490v31minBound =
  T.mkVariable tPreludeBasic 4900005 4900031 3 0 "minBound" Prelude.False

a491v5v491v46maxBound =
  T.mkVariable tPreludeBasic 4910005 4910046 3 0 "maxBound" Prelude.False

(+*!!=*#=*!!=*$==) =
  T.mkVariable tPreludeBasic 5000051 5000052 3 2 "==" Prelude.False

a500v55v500v57compare =
  T.mkVariable tPreludeBasic 5000055 5000057 3 2 "compare" Prelude.False

a500v60v500v63readsPrec =
  T.mkVariable tPreludeBasic 5000060 5000063 3 1 "readsPrec" Prelude.False

a500v66v500v69showsPrec =
  T.mkVariable tPreludeBasic 5000066 5000069 3 2 "showsPrec" Prelude.False

a509v5v510v34fmap =
  T.mkVariable tPreludeBasic 5090005 5100034 3 2 "fmap" Prelude.False

(+*#&=#&=*#*=#+>>=) =
  T.mkVariable tPreludeBasic 5140014 5150016 6 2 ">>=" Prelude.False

a516v5v516v28return =
  T.mkVariable tPreludeBasic 5160005 5160028 3 0 "return" Prelude.False

a517v5v517v31fail =
  T.mkVariable tPreludeBasic 5170005 5170031 3 1 "fail" Prelude.False

(+*$$=*#=*$$=*$==) =
  T.mkVariable tPreludeBasic 5220051 5220052 3 2 "==" Prelude.False

a522v55v522v57compare =
  T.mkVariable tPreludeBasic 5220055 5220057 3 2 "compare" Prelude.False

a522v60v522v63readsPrec =
  T.mkVariable tPreludeBasic 5220060 5220063 3 1 "readsPrec" Prelude.False

a522v66v522v69showsPrec =
  T.mkVariable tPreludeBasic 5220066 5220069 3 2 "showsPrec" Prelude.False

a536v4v536v42fmap =
  T.mkVariable tPreludeBasic 5360004 5360042 3 2 "fmap" Prelude.False

(+*&!=*=*&!=$$>>=) =
  T.mkVariable tPreludeBasic 5400005 5400022 6 0 ">>=" Prelude.False

a541v4v541v24return =
  T.mkVariable tPreludeBasic 5410004 5410024 3 0 "return" Prelude.False

a542v4v542v32fail =
  T.mkVariable tPreludeBasic 5420004 5420032 3 1 "fail" Prelude.False

(+*&@=$#=*&@=$$==) =
  T.mkVariable tPreludeBasic 5480021 5480022 3 2 "==" Prelude.False

a548v25v548v27compare =
  T.mkVariable tPreludeBasic 5480025 5480027 3 2 "compare" Prelude.False

a548v30v548v33fromEnum =
  T.mkVariable tPreludeBasic 5480030 5480033 3 1 "fromEnum" Prelude.False

a548v30v548v33toEnum =
  T.mkVariable tPreludeBasic 5480030 5480033 3 1 "toEnum" Prelude.False

a548v30v548v33enumFrom =
  T.mkVariable tPreludeBasic 5480030 5480033 3 1 "enumFrom" Prelude.False

a548v30v548v33enumFromThen =
  T.mkVariable tPreludeBasic 5480030 5480033 3 2 "enumFromThen" Prelude.False

a548v36v548v39readsPrec =
  T.mkVariable tPreludeBasic 5480036 5480039 3 1 "readsPrec" Prelude.False

a548v42v548v45showsPrec =
  T.mkVariable tPreludeBasic 5480042 5480045 3 2 "showsPrec" Prelude.False

a548v48v548v54minBound =
  T.mkVariable tPreludeBasic 5480048 5480054 3 0 "minBound" Prelude.False

a548v48v548v54maxBound =
  T.mkVariable tPreludeBasic 5480048 5480054 3 0 "maxBound" Prelude.False

(+**>=*=**>=+==) =
  T.mkVariable tPreludeBasic 5590005 5590006 16 2 "==" Prelude.False

(+*+!=*=*+!=+/=) =
  T.mkVariable tPreludeBasic 5600005 5600006 16 2 "/=" Prelude.False

(+*+%=*=*+%=*<) =
  T.mkVariable tPreludeBasic 5630005 5630005 16 2 "<" Prelude.False

(+*+&=*=*+&=+<=) =
  T.mkVariable tPreludeBasic 5640005 5640006 16 2 "<=" Prelude.False

(+*+*=*=*+*=+>=) =
  T.mkVariable tPreludeBasic 5650005 5650006 16 2 ">=" Prelude.False

(+*++=*=*++=*>) =
  T.mkVariable tPreludeBasic 5660005 5660005 16 2 ">" Prelude.False

(+*+>=&=*+>=&+) =
  T.mkVariable tPreludeBasic 5690004 5690004 26 2 "+" Prelude.False

(+*^!=&=*^!=&-) =
  T.mkVariable tPreludeBasic 5700004 5700004 26 2 "-" Prelude.False

(+*^#=&=*^#=&*) =
  T.mkVariable tPreludeBasic 5710004 5710004 30 2 "*" Prelude.False

a572v2v572v27negate =
  T.mkVariable tPreludeBasic 5720002 5720027 3 1 "negate" Prelude.False

a573v2v573v24abs =
  T.mkVariable tPreludeBasic 5730002 5730024 3 1 "abs" Prelude.False

a574v2v574v27signum =
  T.mkVariable tPreludeBasic 5740002 5740027 3 1 "signum" Prelude.False

a575v2v575v37fromInteger =
  T.mkVariable tPreludeBasic 5750002 5750037 3 1 "fromInteger" Prelude.False

a578v5v578v36toRational =
  T.mkVariable tPreludeBasic 5780005 5780036 3 1 "toRational" Prelude.False

a581v8v581v11quot =
  T.mkVariable tPreludeBasic 5810008 5810011 30 2 "quot" Prelude.False

a582v8v582v10rem =
  T.mkVariable tPreludeBasic 5820008 5820010 30 2 "rem" Prelude.False

a583v8v583v14quotRem =
  T.mkVariable tPreludeBasic 5830008 5830014 3 2 "quotRem" Prelude.False

a585v5v585v46toInteger =
  T.mkVariable tPreludeBasic 5850005 5850046 3 1 "toInteger" Prelude.False

a588v3v588v13toEnum =
  T.mkVariable tPreludeBasic 5880003 5880013 3 0 "toEnum" Prelude.False

a589v3v589v15fromEnum =
  T.mkVariable tPreludeBasic 5890003 5890015 3 0 "fromEnum" Prelude.False

a591v3v591v36enumFrom =
  T.mkVariable tPreludeBasic 5910003 5910036 3 1 "enumFrom" Prelude.False

a592v3v592v78enumFromThen =
  T.mkVariable tPreludeBasic 5920003 5920078 3 2 "enumFromThen" Prelude.False

a593v3v593v40enumFromTo =
  T.mkVariable tPreludeBasic 5930003 5930040 3 2 "enumFromTo" Prelude.False

a594v3v594v52enumFromThenTo =
  T.mkVariable tPreludeBasic 5940003 5940052 3 3 "enumFromThenTo" Prelude.False

a610v3v610v28minBound =
  T.mkVariable tPreludeBasic 6100003 6100028 3 0 "minBound" Prelude.False

a611v3v611v28maxBound =
  T.mkVariable tPreludeBasic 6110003 6110028 3 0 "maxBound" Prelude.False

(++#^=*=+#^=+==) =
  T.mkVariable tPreludeBasic 6170005 6170006 16 2 "==" Prelude.False

(++#@=*=+#@=+/=) =
  T.mkVariable tPreludeBasic 6180005 6180006 16 2 "/=" Prelude.False

(++$#=*=+$#=*<) =
  T.mkVariable tPreludeBasic 6210005 6210005 16 2 "<" Prelude.False

(++$$=*=+$$=+<=) =
  T.mkVariable tPreludeBasic 6220005 6220006 16 2 "<=" Prelude.False

(++$%=*=+$%=+>=) =
  T.mkVariable tPreludeBasic 6230005 6230006 16 2 ">=" Prelude.False

(++$&=*=+$&=*>) =
  T.mkVariable tPreludeBasic 6240005 6240005 16 2 ">" Prelude.False

(++$^=&=+$^=&+) =
  T.mkVariable tPreludeBasic 6270004 6270004 26 2 "+" Prelude.False

(++$@=&=+$@=&-) =
  T.mkVariable tPreludeBasic 6280004 6280004 26 2 "-" Prelude.False

(++$>=&=+$>=&*) =
  T.mkVariable tPreludeBasic 6290004 6290004 30 2 "*" Prelude.False

a630v2v630v28negate =
  T.mkVariable tPreludeBasic 6300002 6300028 3 1 "negate" Prelude.False

a631v2v631v41abs =
  T.mkVariable tPreludeBasic 6310002 6310041 3 1 "abs" Prelude.False

a632v2v635v24signum =
  T.mkVariable tPreludeBasic 6320002 6350024 3 1 "signum" Prelude.False

a636v2v636v18fromInteger =
  T.mkVariable tPreludeBasic 6360002 6360018 3 1 "fromInteger" Prelude.False

a639v5v639v24toRational =
  T.mkVariable tPreludeBasic 6390005 6390024 3 1 "toRational" Prelude.False

a642v8v642v11quot =
  T.mkVariable tPreludeBasic 6420008 6420011 30 2 "quot" Prelude.False

a643v8v643v10rem =
  T.mkVariable tPreludeBasic 6430008 6430010 30 2 "rem" Prelude.False

a644v8v644v10div =
  T.mkVariable tPreludeBasic 6440008 6440010 30 2 "div" Prelude.False

a645v8v645v10mod =
  T.mkVariable tPreludeBasic 6450008 6450010 30 2 "mod" Prelude.False

a647v8v647v14quotRem =
  T.mkVariable tPreludeBasic 6470008 6470014 3 2 "quotRem" Prelude.False

a649v5v649v21toInteger =
  T.mkVariable tPreludeBasic 6490005 6490021 3 1 "toInteger" Prelude.False

a652v3v652v18succ =
  T.mkVariable tPreludeBasic 6520003 6520018 3 1 "succ" Prelude.False

a653v3v653v18pred =
  T.mkVariable tPreludeBasic 6530003 6530018 3 1 "pred" Prelude.False

a654v3v654v26toEnum =
  T.mkVariable tPreludeBasic 6540003 6540026 3 1 "toEnum" Prelude.False

a655v3v655v28fromEnum =
  T.mkVariable tPreludeBasic 6550003 6550028 3 1 "fromEnum" Prelude.False

a657v3v657v24enumFrom =
  T.mkVariable tPreludeBasic 6570003 6570024 3 0 "enumFrom" Prelude.False

a658v3v658v41enumFromThen =
  T.mkVariable tPreludeBasic 6580003 6580041 3 2 "enumFromThen" Prelude.False

a659v3v659v51enumFromTo =
  T.mkVariable tPreludeBasic 6590003 6590051 3 2 "enumFromTo" Prelude.False

a660v3v663v54enumFromThenTo =
  T.mkVariable tPreludeBasic 6600003 6630054 3 3 "enumFromThenTo" Prelude.False

(+++>=*=++>=+==) =
  T.mkVariable tPreludeBasic 6690005 6690006 16 2 "==" Prelude.False

(++^!=*=+^!=+/=) =
  T.mkVariable tPreludeBasic 6700005 6700006 16 2 "/=" Prelude.False

(++^%=*=+^%=*<) =
  T.mkVariable tPreludeBasic 6730005 6730005 16 2 "<" Prelude.False

(++^&=*=+^&=+<=) =
  T.mkVariable tPreludeBasic 6740005 6740006 16 2 "<=" Prelude.False

(++^*=*=+^*=+>=) =
  T.mkVariable tPreludeBasic 6750005 6750006 16 2 ">=" Prelude.False

(++^+=*=+^+=*>) =
  T.mkVariable tPreludeBasic 6760005 6760005 16 2 ">" Prelude.False

(++^>=&=+^>=&+) =
  T.mkVariable tPreludeBasic 6790004 6790004 26 2 "+" Prelude.False

(++@!=&=+@!=&-) =
  T.mkVariable tPreludeBasic 6800004 6800004 26 2 "-" Prelude.False

(++@#=&=+@#=&*) =
  T.mkVariable tPreludeBasic 6810004 6810004 30 2 "*" Prelude.False

a682v2v682v17negate =
  T.mkVariable tPreludeBasic 6820002 6820017 3 1 "negate" Prelude.False

a683v2v683v26abs =
  T.mkVariable tPreludeBasic 6830002 6830026 3 1 "abs" Prelude.False

a684v2v684v29signum =
  T.mkVariable tPreludeBasic 6840002 6840029 3 1 "signum" Prelude.False

a685v2v685v39fromInteger =
  T.mkVariable tPreludeBasic 6850002 6850039 3 1 "fromInteger" Prelude.False

a688v5v689v52toRational =
  T.mkVariable tPreludeBasic 6880005 6890052 3 1 "toRational" Prelude.False

(++>$=*=+>$=*/) =
  T.mkVariable tPreludeBasic 6920005 6920005 30 2 "/" Prelude.False

a693v3v701v76fromRational =
  T.mkVariable tPreludeBasic 6930003 7010076 3 1 "fromRational" Prelude.False

a704v5v704v38pi =
  T.mkVariable tPreludeBasic 7040005 7040038 3 0 "pi" Prelude.False

a705v5v705v41exp =
  T.mkVariable tPreludeBasic 7050005 7050041 3 1 "exp" Prelude.False

a706v5v706v41log =
  T.mkVariable tPreludeBasic 7060005 7060041 3 1 "log" Prelude.False

a707v5v707v42sqrt =
  T.mkVariable tPreludeBasic 7070005 7070042 3 1 "sqrt" Prelude.False

a708v5v708v41sin =
  T.mkVariable tPreludeBasic 7080005 7080041 3 1 "sin" Prelude.False

a709v5v709v41cos =
  T.mkVariable tPreludeBasic 7090005 7090041 3 1 "cos" Prelude.False

a710v5v710v41tan =
  T.mkVariable tPreludeBasic 7100005 7100041 3 1 "tan" Prelude.False

a711v5v711v42asin =
  T.mkVariable tPreludeBasic 7110005 7110042 3 1 "asin" Prelude.False

a712v5v712v42acos =
  T.mkVariable tPreludeBasic 7120005 7120042 3 1 "acos" Prelude.False

a713v5v713v42atan =
  T.mkVariable tPreludeBasic 7130005 7130042 3 1 "atan" Prelude.False

a714v5v714v48sinh =
  T.mkVariable tPreludeBasic 7140005 7140048 3 1 "sinh" Prelude.False

a715v5v715v48cosh =
  T.mkVariable tPreludeBasic 7150005 7150048 3 1 "cosh" Prelude.False

a716v5v716v73tanh =
  T.mkVariable tPreludeBasic 7160005 7160073 3 1 "tanh" Prelude.False

a717v5v717v34asinh =
  T.mkVariable tPreludeBasic 7170005 7170034 3 1 "asinh" Prelude.False

a718v5v718v47acosh =
  T.mkVariable tPreludeBasic 7180005 7180047 3 1 "acosh" Prelude.False

a719v5v719v40atanh =
  T.mkVariable tPreludeBasic 7190005 7190040 3 1 "atanh" Prelude.False

a722v5v728v67properFraction =
  T.mkVariable tPreludeBasic 7220005 7280067 3 1 "properFraction" Prelude.False

a731v5v731v34floatRadix =
  T.mkVariable tPreludeBasic 7310005 7310034 3 0 "floatRadix" Prelude.False

a732v5v732v35floatDigits =
  T.mkVariable tPreludeBasic 7320005 7320035 3 0 "floatDigits" Prelude.False

a733v5v733v34floatRange =
  T.mkVariable tPreludeBasic 7330005 7330034 3 0 "floatRange" Prelude.False

a734v5v734v37decodeFloat =
  T.mkVariable tPreludeBasic 7340005 7340037 3 1 "decodeFloat" Prelude.False

a735v5v735v41encodeFloat =
  T.mkVariable tPreludeBasic 7350005 7350041 3 2 "encodeFloat" Prelude.False

a737v5v737v35isNaN =
  T.mkVariable tPreludeBasic 7370005 7370035 3 0 "isNaN" Prelude.False

a738v5v738v40isInfinite =
  T.mkVariable tPreludeBasic 7380005 7380040 3 0 "isInfinite" Prelude.False

a739v5v739v44isDenormalized =
  T.mkVariable tPreludeBasic 7390005 7390044 3 0 "isDenormalized" Prelude.False

a740v5v740v44isNegativeZero =
  T.mkVariable tPreludeBasic 7400005 7400044 3 0 "isNegativeZero" Prelude.False

a741v5v741v36isIEEE =
  T.mkVariable tPreludeBasic 7410005 7410036 3 0 "isIEEE" Prelude.False

(+^&^=*=^&^=+==) =
  T.mkVariable tPreludeBasic 7470005 7470006 16 2 "==" Prelude.False

(+^&@=*=^&@=+/=) =
  T.mkVariable tPreludeBasic 7480005 7480006 16 2 "/=" Prelude.False

(+^*#=*=^*#=*<) =
  T.mkVariable tPreludeBasic 7510005 7510005 16 2 "<" Prelude.False

(+^*$=*=^*$=+<=) =
  T.mkVariable tPreludeBasic 7520005 7520006 16 2 "<=" Prelude.False

(+^*%=*=^*%=+>=) =
  T.mkVariable tPreludeBasic 7530005 7530006 16 2 ">=" Prelude.False

(+^*&=*=^*&=*>) =
  T.mkVariable tPreludeBasic 7540005 7540005 16 2 ">" Prelude.False

(+^*^=&=^*^=&+) =
  T.mkVariable tPreludeBasic 7570004 7570004 26 2 "+" Prelude.False

(+^*@=&=^*@=&-) =
  T.mkVariable tPreludeBasic 7580004 7580004 26 2 "-" Prelude.False

(+^*>=&=^*>=&*) =
  T.mkVariable tPreludeBasic 7590004 7590004 30 2 "*" Prelude.False

a760v2v760v18negate =
  T.mkVariable tPreludeBasic 7600002 7600018 3 1 "negate" Prelude.False

a761v2v761v27abs =
  T.mkVariable tPreludeBasic 7610002 7610027 3 1 "abs" Prelude.False

a762v2v762v30signum =
  T.mkVariable tPreludeBasic 7620002 7620030 3 1 "signum" Prelude.False

a763v2v763v40fromInteger =
  T.mkVariable tPreludeBasic 7630002 7630040 3 1 "fromInteger" Prelude.False

a766v5v767v51toRational =
  T.mkVariable tPreludeBasic 7660005 7670051 3 1 "toRational" Prelude.False

(+^^!=*=^^!=*/) =
  T.mkVariable tPreludeBasic 7700005 7700005 30 2 "/" Prelude.False

a771v3v780v11fromRational =
  T.mkVariable tPreludeBasic 7710003 7800011 3 1 "fromRational" Prelude.False

a784v5v784v39pi =
  T.mkVariable tPreludeBasic 7840005 7840039 3 0 "pi" Prelude.False

a785v5v785v42exp =
  T.mkVariable tPreludeBasic 7850005 7850042 3 1 "exp" Prelude.False

a786v5v786v42log =
  T.mkVariable tPreludeBasic 7860005 7860042 3 1 "log" Prelude.False

a787v5v787v43sqrt =
  T.mkVariable tPreludeBasic 7870005 7870043 3 1 "sqrt" Prelude.False

a788v5v788v42sin =
  T.mkVariable tPreludeBasic 7880005 7880042 3 1 "sin" Prelude.False

a789v5v789v42cos =
  T.mkVariable tPreludeBasic 7890005 7890042 3 1 "cos" Prelude.False

a790v5v790v42tan =
  T.mkVariable tPreludeBasic 7900005 7900042 3 1 "tan" Prelude.False

a791v5v791v43asin =
  T.mkVariable tPreludeBasic 7910005 7910043 3 1 "asin" Prelude.False

a792v5v792v43acos =
  T.mkVariable tPreludeBasic 7920005 7920043 3 1 "acos" Prelude.False

a793v5v793v43atan =
  T.mkVariable tPreludeBasic 7930005 7930043 3 1 "atan" Prelude.False

a794v5v794v63sinh =
  T.mkVariable tPreludeBasic 7940005 7940063 3 1 "sinh" Prelude.False

a795v5v795v63cosh =
  T.mkVariable tPreludeBasic 7950005 7950063 3 1 "cosh" Prelude.False

a796v5v796v67tanh =
  T.mkVariable tPreludeBasic 7960005 7960067 3 1 "tanh" Prelude.False

a797v5v797v34asinh =
  T.mkVariable tPreludeBasic 7970005 7970034 3 1 "asinh" Prelude.False

a798v5v798v47acosh =
  T.mkVariable tPreludeBasic 7980005 7980047 3 1 "acosh" Prelude.False

a799v5v799v40atanh =
  T.mkVariable tPreludeBasic 7990005 7990040 3 1 "atanh" Prelude.False

a802v5v808v67properFraction =
  T.mkVariable tPreludeBasic 8020005 8080067 3 1 "properFraction" Prelude.False

a812v5v812v35floatRadix =
  T.mkVariable tPreludeBasic 8120005 8120035 3 0 "floatRadix" Prelude.False

a813v5v813v36floatDigits =
  T.mkVariable tPreludeBasic 8130005 8130036 3 0 "floatDigits" Prelude.False

a814v5v814v35floatRange =
  T.mkVariable tPreludeBasic 8140005 8140035 3 0 "floatRange" Prelude.False

a815v5v815v38decodeFloat =
  T.mkVariable tPreludeBasic 8150005 8150038 3 1 "decodeFloat" Prelude.False

a816v5v816v42encodeFloat =
  T.mkVariable tPreludeBasic 8160005 8160042 3 2 "encodeFloat" Prelude.False

a818v5v818v36isNaN =
  T.mkVariable tPreludeBasic 8180005 8180036 3 0 "isNaN" Prelude.False

a819v5v819v41isInfinite =
  T.mkVariable tPreludeBasic 8190005 8190041 3 0 "isInfinite" Prelude.False

a820v5v820v45isDenormalized =
  T.mkVariable tPreludeBasic 8200005 8200045 3 0 "isDenormalized" Prelude.False

a821v5v821v45isNegativeZero =
  T.mkVariable tPreludeBasic 8210005 8210045 3 0 "isNegativeZero" Prelude.False

a822v5v822v37isIEEE =
  T.mkVariable tPreludeBasic 8220005 8220037 3 0 "isIEEE" Prelude.False

a833v5v833v27succ =
  T.mkVariable tPreludeBasic 8330005 8330027 3 1 "succ" Prelude.False

a834v5v834v27pred =
  T.mkVariable tPreludeBasic 8340005 8340027 3 1 "pred" Prelude.False

a835v5v835v36toEnum =
  T.mkVariable tPreludeBasic 8350005 8350036 3 0 "toEnum" Prelude.False

a836v5v836v46fromEnum =
  T.mkVariable tPreludeBasic 8360005 8360046 3 0 "fromEnum" Prelude.False

a837v5v837v39enumFrom =
  T.mkVariable tPreludeBasic 8370005 8370039 3 0 "enumFrom" Prelude.False

a838v5v838v43enumFromThen =
  T.mkVariable tPreludeBasic 8380005 8380043 3 0 "enumFromThen" Prelude.False

a839v5v839v41enumFromTo =
  T.mkVariable tPreludeBasic 8390005 8390041 3 0 "enumFromTo" Prelude.False

a840v5v840v45enumFromThenTo =
  T.mkVariable tPreludeBasic 8400005 8400045 3 0 "enumFromThenTo" Prelude.False

a844v5v844v27succ =
  T.mkVariable tPreludeBasic 8440005 8440027 3 1 "succ" Prelude.False

a845v5v845v27pred =
  T.mkVariable tPreludeBasic 8450005 8450027 3 1 "pred" Prelude.False

a846v5v846v36toEnum =
  T.mkVariable tPreludeBasic 8460005 8460036 3 0 "toEnum" Prelude.False

a847v5v847v46fromEnum =
  T.mkVariable tPreludeBasic 8470005 8470046 3 0 "fromEnum" Prelude.False

a848v5v848v39enumFrom =
  T.mkVariable tPreludeBasic 8480005 8480039 3 0 "enumFrom" Prelude.False

a849v5v849v43enumFromThen =
  T.mkVariable tPreludeBasic 8490005 8490043 3 0 "enumFromThen" Prelude.False

a850v5v850v41enumFromTo =
  T.mkVariable tPreludeBasic 8500005 8500041 3 0 "enumFromTo" Prelude.False

a851v5v851v45enumFromThenTo =
  T.mkVariable tPreludeBasic 8510005 8510045 3 0 "enumFromThenTo" Prelude.False

(+@^^=#!=@^>=##==) =
  T.mkVariable tPreludeBasic 8770010 8790011 16 2 "==" Prelude.False

a882v3v889v16compare =
  T.mkVariable tPreludeBasic 8820003 8890016 3 2 "compare" Prelude.False

a893v5v893v14fmap =
  T.mkVariable tPreludeBasic 8930005 8930014 3 0 "fmap" Prelude.False

(+@>^=^=@>^=>>>=) =
  T.mkVariable tPreludeBasic 8970007 8970009 6 2 ">>=" Prelude.False

a898v5v898v26return =
  T.mkVariable tPreludeBasic 8980005 8980026 3 1 "return" Prelude.False

a899v5v899v25fail =
  T.mkVariable tPreludeBasic 8990005 8990025 3 1 "fail" Prelude.False

(+>#!=>=>#!=#!==) =
  T.mkVariable tPreludeBasic 9100009 9100010 16 2 "==" Prelude.False

a913v3v917v16compare =
  T.mkVariable tPreludeBasic 9130003 9170016 3 2 "compare" Prelude.False

a920v3v920v33minBound =
  T.mkVariable tPreludeBasic 9200003 9200033 3 0 "minBound" Prelude.False

a921v3v921v33maxBound =
  T.mkVariable tPreludeBasic 9210003 9210033 3 0 "maxBound" Prelude.False

(+>$*=##=>$*=#$==) =
  T.mkVariable tPreludeBasic 9250011 9250012 16 2 "==" Prelude.False

a928v3v933v15compare =
  T.mkVariable tPreludeBasic 9280003 9330015 3 2 "compare" Prelude.False

a936v3v936v41minBound =
  T.mkVariable tPreludeBasic 9360003 9360041 3 0 "minBound" Prelude.False

a937v3v937v41maxBound =
  T.mkVariable tPreludeBasic 9370003 9370041 3 0 "maxBound" Prelude.False

(+>&#=#%=>&#=#&==) =
  T.mkVariable tPreludeBasic 9410013 9410014 16 2 "==" Prelude.False

a944v3v951v15compare =
  T.mkVariable tPreludeBasic 9440003 9510015 3 2 "compare" Prelude.False

a954v3v954v50minBound =
  T.mkVariable tPreludeBasic 9540003 9540050 3 0 "minBound" Prelude.False

a955v3v955v50maxBound =
  T.mkVariable tPreludeBasic 9550003 9550050 3 0 "maxBound" Prelude.False

(+>*>=#*=>*>=#+==) =
  T.mkVariable tPreludeBasic 9590015 9590016 16 2 "==" Prelude.False

a963v3v972v15compare =
  T.mkVariable tPreludeBasic 9630003 9720015 3 2 "compare" Prelude.False

a976v3v976v59minBound =
  T.mkVariable tPreludeBasic 9760003 9760059 3 0 "minBound" Prelude.False

a977v3v977v59maxBound =
  T.mkVariable tPreludeBasic 9770003 9770059 3 0 "maxBound" Prelude.False

(+>@#=#^=>@#=#@==) =
  T.mkVariable tPreludeBasic 9810017 9810018 16 2 "==" Prelude.False

a985v3v996v15compare =
  T.mkVariable tPreludeBasic 9850003 9960015 3 2 "compare" Prelude.False

a1000v3v1000v68minBound =
  T.mkVariable tPreludeBasic 10000003 10000068 3 0 "minBound" Prelude.False

a1001v3v1001v68maxBound =
  T.mkVariable tPreludeBasic 10010003 10010068 3 0 "maxBound" Prelude.False

(+#!!*=#>=#!!*=$!==) =
  T.mkVariable tPreludeBasic 10050019 10050020 16 2 "==" Prelude.False

a1010v3v1023v15compare =
  T.mkVariable tPreludeBasic 10100003 10230015 3 2 "compare" Prelude.False

a1028v3v1028v77minBound =
  T.mkVariable tPreludeBasic 10280003 10280077 3 0 "minBound" Prelude.False

a1029v3v1029v77maxBound =
  T.mkVariable tPreludeBasic 10290003 10290077 3 0 "maxBound" Prelude.False

(+#!%&=$#=#!%&=$$==) =
  T.mkVariable tPreludeBasic 10340021 10340022 16 2 "==" Prelude.False

a1040v3v1054v15compare =
  T.mkVariable tPreludeBasic 10400003 10540015 3 2 "compare" Prelude.False

a1059v3v1060v23minBound =
  T.mkVariable tPreludeBasic 10590003 10600023 3 0 "minBound" Prelude.False

a1061v3v1062v23maxBound =
  T.mkVariable tPreludeBasic 10610003 10620023 3 0 "maxBound" Prelude.False

(+#!++=$%=#!++=$&==) =
  T.mkVariable tPreludeBasic 10660023 10660024 16 2 "==" Prelude.False

a1072v3v1088v13compare =
  T.mkVariable tPreludeBasic 10720003 10880013 3 2 "compare" Prelude.False

a1093v3v1094v32minBound =
  T.mkVariable tPreludeBasic 10930003 10940032 3 0 "minBound" Prelude.False

a1095v3v1096v32maxBound =
  T.mkVariable tPreludeBasic 10950003 10960032 3 0 "maxBound" Prelude.False

(+##!#=$*=##!#=$+==) =
  T.mkVariable tPreludeBasic 11010025 11010026 16 2 "==" Prelude.False

a1107v3v1125v13compare =
  T.mkVariable tPreludeBasic 11070003 11250013 3 2 "compare" Prelude.False

a1130v3v1131v41minBound =
  T.mkVariable tPreludeBasic 11300003 11310041 3 0 "minBound" Prelude.False

a1132v3v1133v41maxBound =
  T.mkVariable tPreludeBasic 11320003 11330041 3 0 "maxBound" Prelude.False

(+##%@=$^=##%@=$@==) =
  T.mkVariable tPreludeBasic 11380027 11380028 16 2 "==" Prelude.False

a1144v3v1164v13compare =
  T.mkVariable tPreludeBasic 11440003 11640013 3 2 "compare" Prelude.False

a1169v3v1170v50minBound =
  T.mkVariable tPreludeBasic 11690003 11700050 3 0 "minBound" Prelude.False

a1171v3v1172v50maxBound =
  T.mkVariable tPreludeBasic 11710003 11720050 3 0 "maxBound" Prelude.False

(+##^^=$>=##^^=%!==) =
  T.mkVariable tPreludeBasic 11770029 11770030 16 2 "==" Prelude.False

a1184v3v1206v13compare =
  T.mkVariable tPreludeBasic 11840003 12060013 3 2 "compare" Prelude.False

a1211v3v1212v59minBound =
  T.mkVariable tPreludeBasic 12110003 12120059 3 0 "minBound" Prelude.False

a1213v3v1214v59maxBound =
  T.mkVariable tPreludeBasic 12130003 12140059 3 0 "maxBound" Prelude.False

(+#$#>=%#=#$#>=%$==) =
  T.mkVariable tPreludeBasic 12190031 12190032 16 2 "==" Prelude.False

a1226v3v1251v13compare =
  T.mkVariable tPreludeBasic 12260003 12510013 3 2 "compare" Prelude.False

a1257v3v1258v68minBound =
  T.mkVariable tPreludeBasic 12570003 12580068 3 0 "minBound" Prelude.False

a1259v3v1260v68maxBound =
  T.mkVariable tPreludeBasic 12590003 12600068 3 0 "maxBound" Prelude.False

(+#$+*=%%=#$+*=%&==) =
  T.mkVariable tPreludeBasic 12650033 12650034 16 2 "==" Prelude.False

a1274v3v1301v13compare =
  T.mkVariable tPreludeBasic 12740003 13010013 3 2 "compare" Prelude.False

a1307v3v1308v77minBound =
  T.mkVariable tPreludeBasic 13070003 13080077 3 0 "minBound" Prelude.False

a1309v3v1310v77maxBound =
  T.mkVariable tPreludeBasic 13090003 13100077 3 0 "maxBound" Prelude.False

(+#%#+=%*=#%#+=%+==) =
  T.mkVariable tPreludeBasic 13160035 13160036 16 2 "==" Prelude.False

a1325v3v1354v13compare =
  T.mkVariable tPreludeBasic 13250003 13540013 3 2 "compare" Prelude.False

a1360v3v1362v23minBound =
  T.mkVariable tPreludeBasic 13600003 13620023 3 0 "minBound" Prelude.False

a1363v3v1365v23maxBound =
  T.mkVariable tPreludeBasic 13630003 13650023 3 0 "maxBound" Prelude.False

a1804v5v1809v35readList =
  T.mkVariable tPreludeBasic 18040005 18090035 3 0 "readList" Prelude.False

a1822v5v1822v35showsPrec =
  T.mkVariable tPreludeBasic 18220005 18220035 3 3 "showsPrec" Prelude.False

a1824v5v1824v36show =
  T.mkVariable tPreludeBasic 18240005 18240036 3 1 "show" Prelude.False

a1826v5v1830v53showList =
  T.mkVariable tPreludeBasic 18260005 18300053 3 1 "showList" Prelude.False

a1917v5v1917v41showsPrec =
  T.mkVariable tPreludeBasic 19170005 19170041 3 1 "showsPrec" Prelude.False

a1923v3v1923v11readsPrec =
  T.mkVariable tPreludeBasic 19230003 19230011 3 2 "readsPrec" Prelude.False

a1929v5v1929v44showsPrec =
  T.mkVariable tPreludeBasic 19290005 19290044 3 0 "showsPrec" Prelude.False

a1933v5v1933v44readsPrec =
  T.mkVariable tPreludeBasic 19330005 19330044 3 1 "readsPrec" Prelude.False

a1937v5v1937v35showsPrec =
  T.mkVariable tPreludeBasic 19370005 19370035 3 1 "showsPrec" Prelude.False

a1941v5v1941v46readsPrec =
  T.mkVariable tPreludeBasic 19410005 19410046 3 1 "readsPrec" Prelude.False

a1945v5v1945v35showsPrec =
  T.mkVariable tPreludeBasic 19450005 19450035 3 1 "showsPrec" Prelude.False

a1949v5v1949v46readsPrec =
  T.mkVariable tPreludeBasic 19490005 19490046 3 1 "readsPrec" Prelude.False

a1953v5v1953v37showsPrec =
  T.mkVariable tPreludeBasic 19530005 19530037 3 2 "showsPrec" Prelude.False

a1957v5v1958v30readsPrec =
  T.mkVariable tPreludeBasic 19570005 19580030 3 1 "readsPrec" Prelude.False

a1962v5v1963v68showsPrec =
  T.mkVariable tPreludeBasic 19620005 19630068 3 2 "showsPrec" Prelude.False

a1965v5v1968v64showList =
  T.mkVariable tPreludeBasic 19650005 19680064 3 1 "showList" Prelude.False

a1972v5v1973v30readsPrec =
  T.mkVariable tPreludeBasic 19720005 19730030 3 1 "readsPrec" Prelude.False

a1976v5v1980v19readList =
  T.mkVariable tPreludeBasic 19760005 19800019 3 0 "readList" Prelude.False

a1985v5v1985v31showsPrec =
  T.mkVariable tPreludeBasic 19850005 19850031 3 1 "showsPrec" Prelude.False

a1989v5v1989v31readsPrec =
  T.mkVariable tPreludeBasic 19890005 19890031 3 1 "readsPrec" Prelude.False

a1995v5v1996v61showsPrec =
  T.mkVariable tPreludeBasic 19950005 19960061 3 2 "showsPrec" Prelude.False

a2000v5v2001v30readsPrec =
  T.mkVariable tPreludeBasic 20000005 20010030 3 1 "readsPrec" Prelude.False

a2009v5v2010v30readsPrec =
  T.mkVariable tPreludeBasic 20090005 20100030 3 1 "readsPrec" Prelude.False

a2020v5v2021v30readsPrec =
  T.mkVariable tPreludeBasic 20200005 20210030 3 1 "readsPrec" Prelude.False

a2033v5v2034v30readsPrec =
  T.mkVariable tPreludeBasic 20330005 20340030 3 1 "readsPrec" Prelude.False

a2049v5v2050v30readsPrec =
  T.mkVariable tPreludeBasic 20490005 20500030 3 1 "readsPrec" Prelude.False

a2067v5v2068v30readsPrec =
  T.mkVariable tPreludeBasic 20670005 20680030 3 1 "readsPrec" Prelude.False

a2088v5v2089v30readsPrec =
  T.mkVariable tPreludeBasic 20880005 20890030 3 1 "readsPrec" Prelude.False

a2111v5v2112v30readsPrec =
  T.mkVariable tPreludeBasic 21110005 21120030 3 1 "readsPrec" Prelude.False

a2136v5v2137v30readsPrec =
  T.mkVariable tPreludeBasic 21360005 21370030 3 1 "readsPrec" Prelude.False

a2163v5v2164v22readsPrec =
  T.mkVariable tPreludeBasic 21630005 21640022 3 1 "readsPrec" Prelude.False

a2192v5v2193v22readsPrec =
  T.mkVariable tPreludeBasic 21920005 21930022 3 1 "readsPrec" Prelude.False

a2223v5v2224v22readsPrec =
  T.mkVariable tPreludeBasic 22230005 22240022 3 1 "readsPrec" Prelude.False

a2256v5v2257v22readsPrec =
  T.mkVariable tPreludeBasic 22560005 22570022 3 1 "readsPrec" Prelude.False

a2292v5v2293v22readsPrec =
  T.mkVariable tPreludeBasic 22920005 22930022 3 1 "readsPrec" Prelude.False

a2329v5v2331v63showsPrec =
  T.mkVariable tPreludeBasic 23290005 23310063 3 2 "showsPrec" Prelude.False

a2338v5v2341v65showsPrec =
  T.mkVariable tPreludeBasic 23380005 23410065 3 2 "showsPrec" Prelude.False

a2349v5v2353v65showsPrec =
  T.mkVariable tPreludeBasic 23490005 23530065 3 2 "showsPrec" Prelude.False

a2363v5v2368v65showsPrec =
  T.mkVariable tPreludeBasic 23630005 23680065 3 2 "showsPrec" Prelude.False

a2379v5v2385v65showsPrec =
  T.mkVariable tPreludeBasic 23790005 23850065 3 2 "showsPrec" Prelude.False

a2398v5v2405v65showsPrec =
  T.mkVariable tPreludeBasic 23980005 24050065 3 2 "showsPrec" Prelude.False

a2419v5v2428v65showsPrec =
  T.mkVariable tPreludeBasic 24190005 24280065 3 2 "showsPrec" Prelude.False

a2444v5v2454v65showsPrec =
  T.mkVariable tPreludeBasic 24440005 24540065 3 2 "showsPrec" Prelude.False

a2471v5v2482v65showsPrec =
  T.mkVariable tPreludeBasic 24710005 24820065 3 2 "showsPrec" Prelude.False

a2500v5v2512v65showsPrec =
  T.mkVariable tPreludeBasic 25000005 25120065 3 2 "showsPrec" Prelude.False

a2531v5v2544v65showsPrec =
  T.mkVariable tPreludeBasic 25310005 25440065 3 2 "showsPrec" Prelude.False

a2564v5v2578v65showsPrec =
  T.mkVariable tPreludeBasic 25640005 25780065 3 2 "showsPrec" Prelude.False

a2599v5v2614v65showsPrec =
  T.mkVariable tPreludeBasic 25990005 26140065 3 2 "showsPrec" Prelude.False

a2650v3v2650v24show =
  T.mkVariable tPreludeBasic 26500003 26500024 3 0 "show" Prelude.False

(+%#@@=*@=%#@@=*>==) =
  T.mkVariable tPreludeBasic 31880058 31880059 3 2 "==" Prelude.False

(+%$#+=#$=%$#+=#%<=) =
  T.mkVariable tPreludeBasic 32160012 32160013 16 2 "<=" Prelude.False

(+%$#^=#$=%$#^=#$<) =
  T.mkVariable tPreludeBasic 32170012 32170012 16 2 "<" Prelude.False

(+%$$!=#$=%$$!=#$+) =
  T.mkVariable tPreludeBasic 32200012 32200012 26 2 "+" Prelude.False

(+%$$#=#$=%$$#=#$*) =
  T.mkVariable tPreludeBasic 32210012 32210012 30 2 "*" Prelude.False

a3222v5v3222v36negate =
  T.mkVariable tPreludeBasic 32220005 32220036 3 1 "negate" Prelude.False

a3223v5v3223v37abs =
  T.mkVariable tPreludeBasic 32230005 32230037 3 1 "abs" Prelude.False

a3224v5v3224v40signum =
  T.mkVariable tPreludeBasic 32240005 32240040 3 1 "signum" Prelude.False

a3225v5v3225v45fromInteger =
  T.mkVariable tPreludeBasic 32250005 32250045 3 1 "fromInteger" Prelude.False

a3228v5v3228v53toRational =
  T.mkVariable tPreludeBasic 32280005 32280053 3 1 "toRational" Prelude.False

(+%$%#=#$=%$%#=#$/) =
  T.mkVariable tPreludeBasic 32310012 32310012 30 2 "/" Prelude.False

a3232v5v3232v32recip =
  T.mkVariable tPreludeBasic 32320005 32320032 3 1 "recip" Prelude.False

a3233v5v3233v57fromRational =
  T.mkVariable tPreludeBasic 32330005 32330057 3 1 "fromRational" Prelude.False

a3236v5v3237v53properFraction =
  T.mkVariable tPreludeBasic 32360005 32370053 3 1 "properFraction"
    Prelude.False

a3240v5v3240v36toEnum =
  T.mkVariable tPreludeBasic 32400005 32400036 3 0 "toEnum" Prelude.False

a3241v5v3241v46fromEnum =
  T.mkVariable tPreludeBasic 32410005 32410046 3 0 "fromEnum" Prelude.False

a3242v5v3242v39enumFrom =
  T.mkVariable tPreludeBasic 32420005 32420039 3 0 "enumFrom" Prelude.False

a3243v5v3243v43enumFromThen =
  T.mkVariable tPreludeBasic 32430005 32430043 3 0 "enumFromThen" Prelude.False

a3244v5v3244v41enumFromTo =
  T.mkVariable tPreludeBasic 32440005 32440041 3 0 "enumFromTo" Prelude.False

a3245v5v3245v45enumFromThenTo =
  T.mkVariable tPreludeBasic 32450005 32450045 3 0 "enumFromThenTo"
    Prelude.False

a3248v5v3249v32readsPrec =
  T.mkVariable tPreludeBasic 32480005 32490032 3 1 "readsPrec" Prelude.False

a3254v5v3255v68showsPrec =
  T.mkVariable tPreludeBasic 32540005 32550068 3 2 "showsPrec" Prelude.False

a151v35v151v35q =
  T.mkVariable tPreludeBasic 1510035 1510035 3 0 "q" Prelude.True

a151v37v151v37r =
  T.mkVariable tPreludeBasic 1510037 1510037 3 0 "r" Prelude.True

a152v35v152v35q =
  T.mkVariable tPreludeBasic 1520035 1520035 3 0 "q" Prelude.True

a152v37v152v37r =
  T.mkVariable tPreludeBasic 1520037 1520037 3 0 "r" Prelude.True

a153v35v153v35q =
  T.mkVariable tPreludeBasic 1530035 1530035 3 0 "q" Prelude.True

a153v37v153v37r =
  T.mkVariable tPreludeBasic 1530037 1530037 3 0 "r" Prelude.True

a154v35v154v35q =
  T.mkVariable tPreludeBasic 1540035 1540035 3 0 "q" Prelude.True

a154v37v154v37r =
  T.mkVariable tPreludeBasic 1540037 1540037 3 0 "r" Prelude.True

a158v31v158v32qr =
  T.mkVariable tPreludeBasic 1580031 1580032 3 0 "qr" Prelude.True

a158v35v158v35q =
  T.mkVariable tPreludeBasic 1580035 1580035 3 0 "q" Prelude.True

a158v37v158v37r =
  T.mkVariable tPreludeBasic 1580037 1580037 3 0 "r" Prelude.True

a200v35v200v35m =
  T.mkVariable tPreludeBasic 2000035 2000035 3 0 "m" Prelude.True

a202v30v202v30n =
  T.mkVariable tPreludeBasic 2020030 2020030 3 0 "n" Prelude.True

a202v32v202v32r =
  T.mkVariable tPreludeBasic 2020032 2020032 3 0 "r" Prelude.True

a203v29v203v66m =
  T.mkVariable tPreludeBasic 2030029 2030066 3 0 "m" Prelude.True

a216v32v216v32n =
  T.mkVariable tPreludeBasic 2160032 2160032 3 0 "n" Prelude.True

a216v34v216v34r =
  T.mkVariable tPreludeBasic 2160034 2160034 3 0 "r" Prelude.True

a219v32v219v32n =
  T.mkVariable tPreludeBasic 2190032 2190032 3 0 "n" Prelude.True

a219v34v219v34r =
  T.mkVariable tPreludeBasic 2190034 2190034 3 0 "r" Prelude.True

a239v32v239v32m =
  T.mkVariable tPreludeBasic 2390032 2390032 3 0 "m" Prelude.True

a239v34v239v34n =
  T.mkVariable tPreludeBasic 2390034 2390034 3 0 "n" Prelude.True

a242v32v242v32m =
  T.mkVariable tPreludeBasic 2420032 2420032 3 0 "m" Prelude.True

a245v32v245v32m =
  T.mkVariable tPreludeBasic 2450032 2450032 3 0 "m" Prelude.True

a245v34v245v34n =
  T.mkVariable tPreludeBasic 2450034 2450034 3 0 "n" Prelude.True

a275v27v276v56gcd' =
  T.mkVariable tPreludeBasic 2750027 2760056 3 2 "gcd'" Prelude.True

a288v27v291v70f =
  T.mkVariable tPreludeBasic 2880027 2910070 3 3 "f" Prelude.True

a290v37v291v70g =
  T.mkVariable tPreludeBasic 2900037 2910070 3 2 "g" Prelude.True

a327v27v327v73mcons =
  T.mkVariable tPreludeBasic 3270027 3270073 3 2 "mcons" Prelude.True

a485v29v486v59lastChar =
  T.mkVariable tPreludeBasic 4850029 4860059 3 0 "lastChar" Prelude.True

a500v55v500v57localFromEnum =
  T.mkVariable tPreludeBasic 5000055 5000057 3 1 "localFromEnum" Prelude.True

a522v55v522v57localFromEnum =
  T.mkVariable tPreludeBasic 5220055 5220057 3 1 "localFromEnum" Prelude.True

a548v25v548v27localFromEnum =
  T.mkVariable tPreludeBasic 5480025 5480027 3 1 "localFromEnum" Prelude.True

a606v3v606v68go =
  T.mkVariable tPreludeBasic 6060003 6060068 3 2 "go" Prelude.True

a661v9v661v16d = T.mkVariable tPreludeBasic 6610009 6610016 3 0 "d" Prelude.True

a689v31v689v52bf =
  T.mkVariable tPreludeBasic 6890031 6890052 3 0 "bf" Prelude.True

a694v13v694v25x0 =
  T.mkVariable tPreludeBasic 6940013 6940025 3 0 "x0" Prelude.True

a695v13v699v48ff =
  T.mkVariable tPreludeBasic 6950013 6990048 3 1 "ff" Prelude.True

a700v16v700v17ef =
  T.mkVariable tPreludeBasic 7000016 7000017 3 0 "ef" Prelude.True

a697v26v697v78yf =
  T.mkVariable tPreludeBasic 6970026 6970078 3 0 "yf" Prelude.True

a698v29v698v31ef' =
  T.mkVariable tPreludeBasic 6980029 6980031 3 0 "ef'" Prelude.True

a699v26v699v48bf =
  T.mkVariable tPreludeBasic 6990026 6990048 3 0 "bf" Prelude.True

a716v49v716v58af =
  T.mkVariable tPreludeBasic 7160049 7160058 3 0 "af" Prelude.True

a716v62v716v73bf =
  T.mkVariable tPreludeBasic 7160062 7160073 3 0 "bf" Prelude.True

a767v31v767v51b =
  T.mkVariable tPreludeBasic 7670031 7670051 3 0 "b" Prelude.True

a772v11v776v48f =
  T.mkVariable tPreludeBasic 7720011 7760048 3 1 "f" Prelude.True

a777v11v778v76e =
  T.mkVariable tPreludeBasic 7770011 7780076 3 0 "e" Prelude.True

a779v11v779v20x' =
  T.mkVariable tPreludeBasic 7790011 7790020 3 0 "x'" Prelude.True

a773v22v773v69y =
  T.mkVariable tPreludeBasic 7730022 7730069 3 0 "y" Prelude.True

a774v22v774v44e' =
  T.mkVariable tPreludeBasic 7740022 7740044 3 0 "e'" Prelude.True

a775v22v775v39bd =
  T.mkVariable tPreludeBasic 7750022 7750039 3 0 "bd" Prelude.True

a796v45v796v53a =
  T.mkVariable tPreludeBasic 7960045 7960053 3 0 "a" Prelude.True

a796v57v796v67b =
  T.mkVariable tPreludeBasic 7960057 7960067 3 0 "b" Prelude.True

a866v32v867v63p =
  T.mkVariable tPreludeBasic 8660032 8670063 3 0 "p" Prelude.True

a1568v28v1568v29qs =
  T.mkVariable tPreludeBasic 15680028 15680029 3 0 "qs" Prelude.True

a1568v32v1568v32q =
  T.mkVariable tPreludeBasic 15680032 15680032 3 0 "q" Prelude.True

a1575v26v1575v27qs =
  T.mkVariable tPreludeBasic 15750026 15750027 3 0 "qs" Prelude.True

a1575v30v1575v30q =
  T.mkVariable tPreludeBasic 15750030 15750030 3 0 "q" Prelude.True

a1586v30v1586v38xs =
  T.mkVariable tPreludeBasic 15860030 15860038 3 0 "xs" Prelude.True

a1600v31v1600v45xs' =
  T.mkVariable tPreludeBasic 16000031 16000045 3 0 "xs'" Prelude.True

a1648v35v1648v36ys =
  T.mkVariable tPreludeBasic 16480035 16480036 3 0 "ys" Prelude.True

a1648v38v1648v39zs =
  T.mkVariable tPreludeBasic 16480038 16480039 3 0 "zs" Prelude.True

a1662v26v1662v26l =
  T.mkVariable tPreludeBasic 16620026 16620026 3 0 "l" Prelude.True

a1662v29v1662v30s' =
  T.mkVariable tPreludeBasic 16620029 16620030 3 0 "s'" Prelude.True

a1672v36v1672v36w =
  T.mkVariable tPreludeBasic 16720036 16720036 3 0 "w" Prelude.True

a1672v39v1672v41s'' =
  T.mkVariable tPreludeBasic 16720039 16720041 3 0 "s''" Prelude.True

a0v0v0v0as = T.mkVariable tPreludeBasic 0 0 3 0 "as" Prelude.True

a0v0v0v0bs = T.mkVariable tPreludeBasic 0 0 3 0 "bs" Prelude.True

a0v0v0v0cs = T.mkVariable tPreludeBasic 0 0 3 0 "cs" Prelude.True

a1806v30v1806v34readl =
  T.mkVariable tPreludeBasic 18060030 18060034 3 1 "readl" Prelude.True

a1809v30v1809v35readl' =
  T.mkVariable tPreludeBasic 18090030 18090035 3 1 "readl'" Prelude.True

a1828v31v1830v53showl =
  T.mkVariable tPreludeBasic 18280031 18300053 3 1 "showl" Prelude.True

a1861v27v1861v58optional =
  T.mkVariable tPreludeBasic 18610027 18610058 3 1 "optional" Prelude.True

a1862v27v1862v35mandatory =
  T.mkVariable tPreludeBasic 18620027 18620035 3 1 "mandatory" Prelude.True

a1881v21v1882v29lexString =
  T.mkVariable tPreludeBasic 18810021 18820029 3 1 "lexString" Prelude.True

a1886v21v1891v58lexStrItem =
  T.mkVariable tPreludeBasic 18860021 18910058 3 1 "lexStrItem" Prelude.True

a1900v15v1900v49isSingle =
  T.mkVariable tPreludeBasic 19000015 19000049 3 1 "isSingle" Prelude.True

a1901v15v1901v60isSym =
  T.mkVariable tPreludeBasic 19010015 19010060 3 1 "isSym" Prelude.True

a1902v15v1902v57isIdChar =
  T.mkVariable tPreludeBasic 19020015 19020057 3 1 "isIdChar" Prelude.True

a1904v15v1907v38lexFracExp =
  T.mkVariable tPreludeBasic 19040015 19070038 3 1 "lexFracExp" Prelude.True

a1909v15v1913v33lexExp =
  T.mkVariable tPreludeBasic 19090015 19130033 3 1 "lexExp" Prelude.True

a1966v24v1968v64showl =
  T.mkVariable tPreludeBasic 19660024 19680064 3 1 "showl" Prelude.True

a1978v15v1980v19readl =
  T.mkVariable tPreludeBasic 19780015 19800019 3 1 "readl" Prelude.True

a2766v9v2788v29readEsc =
  T.mkVariable tPreludeBasic 27660009 27880029 3 1 "readEsc" Prelude.True

a2791v9v2792v48match =
  T.mkVariable tPreludeBasic 27910009 27920048 3 2 "match" Prelude.True

a2783v32v2783v78table =
  T.mkVariable tPreludeBasic 27830032 27830078 3 0 "table" Prelude.True

a2812v36v2813v57cont =
  T.mkVariable tPreludeBasic 28120036 28130057 3 1 "cont" Prelude.True

a2825v11v2830v57lexEsc =
  T.mkVariable tPreludeBasic 28250011 28300057 3 1 "lexEsc" Prelude.True

a2831v11v2831v47isCharName =
  T.mkVariable tPreludeBasic 28310011 28310047 3 1 "isCharName" Prelude.True

a2870v9v2870v24b =
  T.mkVariable tPreludeBasic 28700009 28700024 3 0 "b" Prelude.True

a2871v9v2871v25p =
  T.mkVariable tPreludeBasic 28710009 28710025 3 0 "p" Prelude.True

a2872v10v2872v16minExp0 =
  T.mkVariable tPreludeBasic 28720010 28720016 3 0 "minExp0" Prelude.True

a2873v9v2873v28minExp =
  T.mkVariable tPreludeBasic 28730009 28730028 3 0 "minExp" Prelude.True

a2874v9v2874v38xMin =
  T.mkVariable tPreludeBasic 28740009 28740038 3 0 "xMin" Prelude.True

a2875v9v2875v35xMax =
  T.mkVariable tPreludeBasic 28750009 28750035 3 0 "xMax" Prelude.True

a2876v9v2877v64p0 =
  T.mkVariable tPreludeBasic 28760009 28770064 3 0 "p0" Prelude.True

a2878v9v2878v62f =
  T.mkVariable tPreludeBasic 28780009 28780062 3 0 "f" Prelude.True

a2879v10v2879v11x' =
  T.mkVariable tPreludeBasic 28790010 28790011 3 0 "x'" Prelude.True

a2879v14v2879v15p' =
  T.mkVariable tPreludeBasic 28790014 28790015 3 0 "p'" Prelude.True

a2880v9v2880v37r =
  T.mkVariable tPreludeBasic 28800009 28800037 3 0 "r" Prelude.True

a2918v13v2918v42l =
  T.mkVariable tPreludeBasic 29180013 29180042 3 0 "l" Prelude.True

a2920v13v2920v67doDiv =
  T.mkVariable tPreludeBasic 29200013 29200067 3 2 "doDiv" Prelude.True

a2947v6v2947v7n' =
  T.mkVariable tPreludeBasic 29470006 29470007 3 0 "n'" Prelude.True

a2947v9v2947v9d =
  T.mkVariable tPreludeBasic 29470009 29470009 3 0 "d" Prelude.True

a2948v5v2948v45rest' =
  T.mkVariable tPreludeBasic 29480005 29480045 3 0 "rest'" Prelude.True

a2952v28v2952v46read' =
  T.mkVariable tPreludeBasic 29520028 29520046 3 1 "read'" Prelude.True

a2955v28v2955v33read'' =
  T.mkVariable tPreludeBasic 29550028 29550033 3 1 "read''" Prelude.True

a2992v5v2992v13base =
  T.mkVariable tPreludeBasic 29920005 29920013 3 0 "base" Prelude.True

a2993v5v3000v55s =
  T.mkVariable tPreludeBasic 29930005 30000055 3 0 "s" Prelude.True

a3002v5v3053v33doFmt =
  T.mkVariable tPreludeBasic 30020005 30530033 3 2 "doFmt" Prelude.True

a3004v12v3004v33ds =
  T.mkVariable tPreludeBasic 30040012 30040033 3 0 "ds" Prelude.True

a3049v15v3050v24mk0 =
  T.mkVariable tPreludeBasic 30490015 30500024 3 1 "mk0" Prelude.True

a3052v15v3053v33mkdot0 =
  T.mkVariable tPreludeBasic 30520015 30530033 3 1 "mkdot0" Prelude.True

a3019v21v3019v36dec' =
  T.mkVariable tPreludeBasic 30190021 30190036 3 0 "dec'" Prelude.True

a3023v26v3023v27ei =
  T.mkVariable tPreludeBasic 30230026 30230027 3 0 "ei" Prelude.True

a3023v30v3023v32is' =
  T.mkVariable tPreludeBasic 30230030 30230032 3 0 "is'" Prelude.True

a3024v25v3024v25d =
  T.mkVariable tPreludeBasic 30240025 30240025 3 0 "d" Prelude.True

a3024v27v3024v28ds =
  T.mkVariable tPreludeBasic 30240027 30240028 3 0 "ds" Prelude.True

a3036v22v3036v37dec' =
  T.mkVariable tPreludeBasic 30360022 30360037 3 0 "dec'" Prelude.True

a3038v25v3038v26ei =
  T.mkVariable tPreludeBasic 30380025 30380026 3 0 "ei" Prelude.True

a3038v29v3038v31is' =
  T.mkVariable tPreludeBasic 30380029 30380031 3 0 "is'" Prelude.True

a3039v25v3039v26ls =
  T.mkVariable tPreludeBasic 30390025 30390026 3 0 "ls" Prelude.True

a3039v29v3039v30rs =
  T.mkVariable tPreludeBasic 30390029 30390030 3 0 "rs" Prelude.True

a3043v25v3043v26ei =
  T.mkVariable tPreludeBasic 30430025 30430026 3 0 "ei" Prelude.True

a3043v29v3043v31is' =
  T.mkVariable tPreludeBasic 30430029 30430031 3 0 "is'" Prelude.True

a3045v24v3045v24d =
  T.mkVariable tPreludeBasic 30450024 30450024 3 0 "d" Prelude.True

a3045v28v3045v29ds =
  T.mkVariable tPreludeBasic 30450028 30450029 3 0 "ds" Prelude.True

a3061v9v3061v25b2 =
  T.mkVariable tPreludeBasic 30610009 30610025 3 0 "b2" Prelude.True

a3062v9v3067v60f =
  T.mkVariable tPreludeBasic 30620009 30670060 3 2 "f" Prelude.True

a3065v18v3065v18c =
  T.mkVariable tPreludeBasic 30650018 30650018 3 0 "c" Prelude.True

a3065v21v3065v22ds =
  T.mkVariable tPreludeBasic 30650021 30650022 3 0 "ds" Prelude.True

a3066v17v3066v26i' =
  T.mkVariable tPreludeBasic 30660017 30660026 3 0 "i'" Prelude.True

a3086v10v3086v11f0 =
  T.mkVariable tPreludeBasic 30860010 30860011 3 0 "f0" Prelude.True

a3086v14v3086v15e0 =
  T.mkVariable tPreludeBasic 30860014 30860015 3 0 "e0" Prelude.True

a3087v10v3087v16minExp0 =
  T.mkVariable tPreludeBasic 30870010 30870016 3 0 "minExp0" Prelude.True

a3088v9v3088v25p =
  T.mkVariable tPreludeBasic 30880009 30880025 3 0 "p" Prelude.True

a3089v9v3089v24b =
  T.mkVariable tPreludeBasic 30890009 30890024 3 0 "b" Prelude.True

a3090v9v3090v28minExp =
  T.mkVariable tPreludeBasic 30900009 30900028 3 0 "minExp" Prelude.True

a3096v10v3096v10f =
  T.mkVariable tPreludeBasic 30960010 30960010 3 0 "f" Prelude.True

a3096v13v3096v13e =
  T.mkVariable tPreludeBasic 30960013 30960013 3 0 "e" Prelude.True

a3099v10v3099v10r =
  T.mkVariable tPreludeBasic 30990010 30990010 3 0 "r" Prelude.True

a3099v13v3099v13s =
  T.mkVariable tPreludeBasic 30990013 30990013 3 0 "s" Prelude.True

a3099v16v3099v18mUp =
  T.mkVariable tPreludeBasic 30990016 30990018 3 0 "mUp" Prelude.True

a3099v21v3099v23mDn =
  T.mkVariable tPreludeBasic 30990021 30990023 3 0 "mDn" Prelude.True

a3111v9v3130v24k =
  T.mkVariable tPreludeBasic 31110009 31300024 3 0 "k" Prelude.True

a3132v9v3140v64gen =
  T.mkVariable tPreludeBasic 31320009 31400064 3 5 "gen" Prelude.True

a3141v9v3146v58rds =
  T.mkVariable tPreludeBasic 31410009 31460058 3 0 "rds" Prelude.True

a3096v22v3096v36n =
  T.mkVariable tPreludeBasic 30960022 30960036 3 0 "n" Prelude.True

a3101v20v3101v27be =
  T.mkVariable tPreludeBasic 31010020 31010027 3 0 "be" Prelude.True

a3112v17v3123v42k0 =
  T.mkVariable tPreludeBasic 31120017 31230042 3 0 "k0" Prelude.True

a3124v17v3129v74fixup =
  T.mkVariable tPreludeBasic 31240017 31290074 3 1 "fixup" Prelude.True

a3133v18v3133v19dn =
  T.mkVariable tPreludeBasic 31330018 31330019 3 0 "dn" Prelude.True

a3133v22v3133v24rn' =
  T.mkVariable tPreludeBasic 31330022 31330024 3 0 "rn'" Prelude.True

a3134v17v3134v35mUpN' =
  T.mkVariable tPreludeBasic 31340017 31340035 3 0 "mUpN'" Prelude.True

a3135v17v3135v35mDnN' =
  T.mkVariable tPreludeBasic 31350017 31350035 3 0 "mDnN'" Prelude.True

a3145v21v3145v38bk =
  T.mkVariable tPreludeBasic 31450021 31450038 3 0 "bk" Prelude.True

a3160v18v3160v24readFix =
  T.mkVariable tPreludeBasic 31600018 31600024 3 1 "readFix" Prelude.True

a3164v18v3165v44lexFrac =
  T.mkVariable tPreludeBasic 31640018 31650044 3 1 "lexFrac" Prelude.True

a3167v18v3168v56readExp =
  T.mkVariable tPreludeBasic 31670018 31680056 3 1 "readExp" Prelude.True

a3170v18v3172v45readExp' =
  T.mkVariable tPreludeBasic 31700018 31720045 3 1 "readExp'" Prelude.True

a3206v34v3206v44d =
  T.mkVariable tPreludeBasic 32060034 32060044 3 0 "d" Prelude.True

a3237v36v3237v36q =
  T.mkVariable tPreludeBasic 32370036 32370036 3 0 "q" Prelude.True

a3237v38v3237v38r =
  T.mkVariable tPreludeBasic 32370038 32370038 3 0 "r" Prelude.True

a3260v15v3266v70simplest =
  T.mkVariable tPreludeBasic 32600015 32660070 3 2 "simplest" Prelude.True

a3268v15v3274v76simplest' =
  T.mkVariable tPreludeBasic 32680015 32740076 3 4 "simplest'" Prelude.True

a3265v47v3265v48xr =
  T.mkVariable tPreludeBasic 32650047 32650048 3 0 "xr" Prelude.True

a3265v51v3265v51n =
  T.mkVariable tPreludeBasic 32650051 32650051 3 0 "n" Prelude.True

a3265v54v3265v54d =
  T.mkVariable tPreludeBasic 32650054 32650054 3 0 "d" Prelude.True

a3266v48v3266v49n' =
  T.mkVariable tPreludeBasic 32660048 32660049 3 0 "n'" Prelude.True

a3266v52v3266v53d' =
  T.mkVariable tPreludeBasic 32660052 32660053 3 0 "d'" Prelude.True

a3272v45v3272v45q =
  T.mkVariable tPreludeBasic 32720045 32720045 3 0 "q" Prelude.True

a3272v47v3272v47r =
  T.mkVariable tPreludeBasic 32720047 32720047 3 0 "r" Prelude.True

a3273v45v3273v46q' =
  T.mkVariable tPreludeBasic 32730045 32730046 3 0 "q'" Prelude.True

a3273v48v3273v49r' =
  T.mkVariable tPreludeBasic 32730048 32730049 3 0 "r'" Prelude.True

a3274v45v3274v47n'' =
  T.mkVariable tPreludeBasic 32740045 32740047 3 0 "n''" Prelude.True

a3274v50v3274v52d'' =
  T.mkVariable tPreludeBasic 32740050 32740052 3 0 "d''" Prelude.True