[project @ 1997-09-05 14:11:05 by simonm]
[ghc-hetmet.git] / ghc / tests / deSugar / should_compile / ds018.stderr
index c74c3bd..2f21228 100644 (file)
-ds018.hs:41: 
-    Warning: Possibly incomplete patterns
-       in the definition of function `fb'
 ds018.hs:39: 
     Warning: Possibly incomplete patterns
        in the definition of function `fa'
+ds018.hs:41: 
+    Warning: Possibly incomplete patterns
+       in the definition of function `fb'
 
 
 ================================================================================
 Desugared:
-gb2_aCw  :: 
-    PrelBase.(){-40,p-} -> PrelBase.(){-40,p-}
+Rec {
+gb2_azP  ::  PrelBase.(){-40,W-} -> PrelBase.(){-40,W-}
 {-# L #-}
-gb2_aCw =
-    \ ds_d18I  :: 
-         PrelBase.(){-40,p-}
+gb2_azP =
+    \ ds_d1bE  ::  PrelBase.(){-40,W-}
       {-# L #-}
-      ds_d18I ->
-       case ds_d18I of { PrelBase.(){-60,p-}{i}  ->
-       PrelBase.(){-60,p-}{i};}
-gb2{-r50,x-}  :: 
-    PrelBase.(){-40,p-} -> PrelBase.(){-40,p-}
+      ds_d1bE ->
+       case ds_d1bE of { PrelBase.(){-60,w-}{i}  ->
+       PrelBase.(){-60,w-}{i};}
+gb2{-r4T,x-}  ::  PrelBase.(){-40,W-} -> PrelBase.(){-40,W-}
 {-# L #-}
-gb2{-r50,x-} =
-    gb2_aCw
-gb{-r51,x-}  :: 
-    _forall_ [t{-aCG-}] => PrelBase.(){-40,p-} -> t{-aCG-} -> t{-aCG-}
+gb2{-r4T,x-} =
+    gb2_azP
+gb{-r4U,x-}  ::  _forall_
+                [taA5]
+                =>
+                PrelBase.(){-40,W-} -> taA5 -> taA5
 {-# L #-}
-gb{-r51,x-} =
-    _/\_ t{-aCG-} -> \ ds_d19f  :: 
-                          PrelBase.(){-40,p-}
-                      {-# L #-}
-                      ds_d19f x_r4Z  :: 
-                                  t{-aCG-}
-                              {-# L #-}
-                              x_r4Z ->
-       case ds_d19f of { PrelBase.(){-60,p-}{i}  -> x_r4Z;}
-ga{-r52,x-}  :: 
-    _forall_
-    [t{-aDB-} t{-aDE-} t{-aDH-} t{-aDK-} t{-aDN-} t{-aDQ-} t{-aDT-} t{-aDW-} t{-aDZ-} t{-aE2-} t{-aE5-} t{-aE8-} t{-aEb-} t{-aEe-} t{-aEh-} t{-aEk-} t{-aEn-} t{-aEq-} t{-aEt-} t{-aEw-} t{-aEz-} t{-aEC-} t{-aEF-} t{-aEI-} t{-aEL-} t{-aEO-} t{-aER-} t{-aEU-} t{-aEX-} t{-aF0-} t{-aF3-} t{-aF6-} t{-aF9-} t{-aFc-} t{-aFf-} t{-aFi-} t{-aFl-} t{-aFo-} t{-aFr-} t{-aFu-} t{-aFx-} t{-aFA-} t{-aFD-} t{-aFG-} t{-aFJ-} t{-aFM-} t{-aFP-} t{-aFS-} t{-aFV-} t{-aFY-} t{-aG1-} t{-aG4-}]
-    =>
-    (t{-aDB-}, t{-aDE-}, t{-aDH-}, t{-aDK-}, t{-aDN-}, t{-aDQ-}, t{-aDT-}, t{-aDW-}, t{-aDZ-}, t{-aE2-}, t{-aE5-}, t{-aE8-}, t{-aEb-}, t{-aEe-}, t{-aEh-}, t{-aEk-}, t{-aEn-}, t{-aEq-}, t{-aEt-}, t{-aEw-}, t{-aEz-}, t{-aEC-}, t{-aEF-}, t{-aEI-}, t{-aEL-}, t{-aEO-}, t{-aER-}, t{-aEU-}, t{-aEX-}, t{-aF0-}, t{-aF3-}, t{-aF6-}, t{-aF9-}, t{-aFc-}, t{-aFf-}, t{-aFi-}, t{-aFl-}, t{-aFo-}, t{-aFr-}, t{-aFu-}, t{-aFx-}, t{-aFA-}, t{-aFD-}, t{-aFG-}, t{-aFJ-}, t{-aFM-}, t{-aFP-}, t{-aFS-}, t{-aFV-}, t{-aFY-}, t{-aG1-}, t{-aG4-})
-    -> t{-aEI-}
+gb{-r4U,x-} =
+    _/\_ taA5 ->
+       _letrec_ {
+         gb_azU  ::  PrelBase.(){-40,W-} -> taA5 -> taA5
+         {-# L #-}
+         gb_azU =
+             \ ds_d1cC  ::  PrelBase.(){-40,W-}
+               {-# L #-}
+               ds_d1cC x_r4S  ::  taA5
+                       {-# L #-}
+                       x_r4S ->
+                 case ds_d1cC of { PrelBase.(){-60,w-}{i}  -> x_r4S;};
+       } in  gb_azU
+ga{-r4V,x-}  ::  _forall_
+                [taB2 taB5 taB8 taBb taBe taBh taBk taBn taBq taBt taBw taBz taBC taBF taBI taBL taBO taBR taBU taBX taC0 taC3 taC6 taC9 taCc taCf taCi taCl taCo taCr taCu taCx taCA taCD taCG taCJ taCM taCP taCS taCV taCY taD1 taD4 taD7 taDa taDd taDg taDj taDm taDp taDs taDv]
+                =>
+                (taB2, taB5, taB8, taBb, taBe, taBh, taBk, taBn, taBq, taBt, taBw, taBz, taBC, taBF, taBI, taBL, taBO, taBR, taBU, taBX, taC0, taC3, taC6, taC9, taCc, taCf, taCi, taCl, taCo, taCr, taCu, taCx, taCA, taCD, taCG, taCJ, taCM, taCP, taCS, taCV, taCY, taD1, taD4, taD7, taDa, taDd, taDg, taDj, taDm, taDp, taDs, taDv)
+                -> taC9
 {-# L #-}
-ga{-r52,x-} =
-    _/\_ t{-aDB-} t{-aDE-} t{-aDH-} t{-aDK-} t{-aDN-} t{-aDQ-} t{-aDT-} t{-aDW-} t{-aDZ-} t{-aE2-} t{-aE5-} t{-aE8-} t{-aEb-} t{-aEe-} t{-aEh-} t{-aEk-} t{-aEn-} t{-aEq-} t{-aEt-} t{-aEw-} t{-aEz-} t{-aEC-} t{-aEF-} t{-aEI-} t{-aEL-} t{-aEO-} t{-aER-} t{-aEU-} t{-aEX-} t{-aF0-} t{-aF3-} t{-aF6-} t{-aF9-} t{-aFc-} t{-aFf-} t{-aFi-} t{-aFl-} t{-aFo-} t{-aFr-} t{-aFu-} t{-aFx-} t{-aFA-} t{-aFD-} t{-aFG-} t{-aFJ-} t{-aFM-} t{-aFP-} t{-aFS-} t{-aFV-} t{-aFY-} t{-aG1-} t{-aG4-} -> \ ds_d1ar  :: 
-                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (t{-aDB-}, t{-aDE-}, t{-aDH-}, t{-aDK-}, t{-aDN-}, t{-aDQ-}, t{-aDT-}, t{-aDW-}, t{-aDZ-}, t{-aE2-}, t{-aE5-}, t{-aE8-}, t{-aEb-}, t{-aEe-}, t{-aEh-}, t{-aEk-}, t{-aEn-}, t{-aEq-}, t{-aEt-}, t{-aEw-}, t{-aEz-}, t{-aEC-}, t{-aEF-}, t{-aEI-}, t{-aEL-}, t{-aEO-}, t{-aER-}, t{-aEU-}, t{-aEX-}, t{-aF0-}, t{-aF3-}, t{-aF6-}, t{-aF9-}, t{-aFc-}, t{-aFf-}, t{-aFi-}, t{-aFl-}, t{-aFo-}, t{-aFr-}, t{-aFu-}, t{-aFx-}, t{-aFA-}, t{-aFD-}, t{-aFG-}, t{-aFJ-}, t{-aFM-}, t{-aFP-}, t{-aFS-}, t{-aFV-}, t{-aFY-}, t{-aG1-}, t{-aG4-})
-                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 {-# L #-}
-                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ds_d1ar ->
-       case
-           ds_d1ar
-       of {
-       PrelTup.(,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,){-6Q,p-}{i} a_r47 b_r48 c_r49 d_r4a e_r4b f_r4c g_r4d h_r4e i_r4f j_r4g k_r4h l_r4i m_r4j n_r4k o_r4l p_r4m q_r4n r_r4o s_r4p t_r4q u_r4r v_r4s w_r4t x_r4u y_r4v z_r4w aa_r4x ab_r4y ac_r4z ad_r4A ae_r4B af_r4C ag_r4D ah_r4E ai_r4F aj_r4G ak_r4H al_r4I am_r4J an_r4K ao_r4L ap_r4M aq_r4N ar_r4O as_r4P at_r4Q au_r4R av_r4S aw_r4T ax_r4U ay_r4V az_r4W  ->
-       x_r4u;}
-fb{-r53,x-}  :: 
-    _forall_ [t{-aGc-} t{-aGe-}] => [t{-aGc-}] -> [t{-aGe-}]
+ga{-r4V,x-} =
+    _/\_ taB2 taB5 taB8 taBb taBe taBh taBk taBn taBq taBt taBw taBz taBC taBF taBI taBL taBO taBR taBU taBX taC0 taC3 taC6 taC9 taCc taCf taCi taCl taCo taCr taCu taCx taCA taCD taCG taCJ taCM taCP taCS taCV taCY taD1 taD4 taD7 taDa taDd taDg taDj taDm taDp taDs taDv ->
+       _letrec_ {
+         ga_aA7  ::  (taB2, taB5, taB8, taBb, taBe, taBh, taBk, taBn, taBq, taBt, taBw, taBz, taBC, taBF, taBI, taBL, taBO, taBR, taBU, taBX, taC0, taC3, taC6, taC9, taCc, taCf, taCi, taCl, taCo, taCr, taCu, taCx, taCA, taCD, taCG, taCJ, taCM, taCP, taCS, taCV, taCY, taD1, taD4, taD7, taDa, taDd, taDg, taDj, taDm, taDp, taDs, taDv)
+                     -> taC9
+         {-# L #-}
+         ga_aA7 =
+             \ ds_d1dO  ::  (taB2, taB5, taB8, taBb, taBe, taBh, taBk, taBn, taBq, taBt, taBw, taBz, taBC, taBF, taBI, taBL, taBO, taBR, taBU, taBX, taC0, taC3, taC6, taC9, taCc, taCf, taCi, taCl, taCo, taCr, taCu, taCx, taCA, taCD, taCG, taCJ, taCM, taCP, taCS, taCV, taCY, taD1, taD4, taD7, taDa, taDd, taDg, taDj, taDm, taDp, taDs, taDv)
+               {-# L #-}
+               ds_d1dO ->
+                 case
+                     ds_d1dO
+                 of {
+                 PrelTup.(,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,){-6Q,w-}{i} a_r41 b_r42 c_r43 d_r44 e_r45 f_r46 g_r47 h_r48 i_r49 j_r4a k_r4b l_r4c m_r4d n_r4e o_r4f p_r4g q_r4h r_r4i s_r4j t_r4k u_r4l v_r4m w_r4n x_r4o y_r4p z_r4q aa_r4r ab_r4s ac_r4t ad_r4u ae_r4v af_r4w ag_r4x ah_r4y ai_r4z aj_r4A ak_r4B al_r4C am_r4D an_r4E ao_r4F ap_r4G aq_r4H ar_r4I as_r4J at_r4K au_r4L av_r4M aw_r4N ax_r4O ay_r4P az_r4Q  ->
+                 x_r4o;};
+       } in  ga_aA7
+fb{-r4W,x-}  ::  _forall_ [taDG taDJ] => [taDG] -> [taDJ]
 {-# L #-}
-fb{-r53,x-} =
-    _/\_ t{-aGc-} t{-aGe-} -> \ ds_d1aY  :: 
-                                   [t{-aGc-}]
-                               {-# L #-}
-                               ds_d1aY ->
-       let {
-         fail_d1aZ  :: 
-             [t{-aGe-}]
+fb{-r4W,x-} =
+    _/\_ taDG taDJ ->
+       _letrec_ {
+         fb_aDA  ::  [taDG] -> [taDJ]
          {-# L #-}
-         fail_d1aZ =
-             GHCerr.patError{-8r,p-}
-                 _@_ [t{-aGe-}] _string_ "ds018.hs:41|function `fb'"
-       } in 
-         case ds_d1aY of {
-           PrelBase.:{-55,p-}{i} ds_d1b7 ds_d1b6 ->
-               fail_d1aZ;
-           PrelBase.[]{-5i,p-}{i} ->
-               PrelBase.[]{-5i,p-}{i}
-                   _@_ t{-aGe-};
-         }
-fa{-r54,x-}  :: 
-    _forall_ [t{-aGJ-}] => [t{-aGJ-}] -> t{-aGJ-}
+         fb_aDA =
+             \ ds_d1el  ::  [taDG]
+               {-# L #-}
+               ds_d1el ->
+                 let {
+                   fail_d1em  ::  [taDJ]
+                   {-# L #-}
+                   fail_d1em =
+                       GHCerr.patError{-8r,w-}
+                           _@_ [taDJ] _string_ "ds018.hs:41|function `fb'"
+                 } in 
+                   case ds_d1el of {
+                     PrelBase.:{-55,w-}{i} ds_d1et ds_d1eu -> fail_d1em;
+                     PrelBase.[]{-5i,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taDJ;
+                   };
+       } in  fb_aDA
+fa{-r4X,x-}  ::  _forall_ [taEg] => [taEg] -> taEg
 {-# L #-}
-fa{-r54,x-} =
-    _/\_ t{-aGJ-} -> \ ds_d1bF  :: 
-                          [t{-aGJ-}]
-                      {-# L #-}
-                      ds_d1bF ->
-       let {
-         fail_d1bG  :: 
-             t{-aGJ-}
+fa{-r4X,x-} =
+    _/\_ taEg ->
+       _letrec_ {
+         fa_aDL  ::  [taEg] -> taEg
          {-# L #-}
-         fail_d1bG =
-             GHCerr.patError{-8r,p-}
-                 _@_ t{-aGJ-} _string_ "ds018.hs:39|function `fa'"
-       } in 
-         case ds_d1bF of {
-           PrelBase.[]{-5i,p-}{i} ->
-               fail_d1bG;
-           PrelBase.:{-55,p-}{i} a_r3F ds_d1bT ->
-               case ds_d1bT of {
-                 PrelBase.[]{-5i,p-}{i} ->
-                     fail_d1bG;
-                 PrelBase.:{-55,p-}{i} b_r3G ds_d1c6 ->
-                     case ds_d1c6 of {
-                       PrelBase.[]{-5i,p-}{i} ->
-                           fail_d1bG;
-                       PrelBase.:{-55,p-}{i} c_r3H ds_d1cj ->
-                           case ds_d1cj of {
-                             PrelBase.[]{-5i,p-}{i} ->
-                                 fail_d1bG;
-                             PrelBase.:{-55,p-}{i} d_r3I ds_d1cw ->
-                                 case ds_d1cw of {
-                                   PrelBase.[]{-5i,p-}{i} ->
-                                       fail_d1bG;
-                                   PrelBase.:{-55,p-}{i} e_r3J ds_d1cJ ->
-                                       case ds_d1cJ of {
-                                         PrelBase.[]{-5i,p-}{i} ->
-                                             fail_d1bG;
-                                         PrelBase.:{-55,p-}{i} f_r3K ds_d1cW ->
-                                             case ds_d1cW of {
-                                               PrelBase.[]{-5i,p-}{i} ->
-                                                   fail_d1bG;
-                                               PrelBase.:{-55,p-}{i} g_r3L ds_d1d9 ->
-                                                   case ds_d1d9 of {
-                                                     PrelBase.[]{-5i,p-}{i} ->
-                                                         fail_d1bG;
-                                                     PrelBase.:{-55,p-}{i} h_r3M ds_d1dm ->
-                                                         case ds_d1dm of {
-                                                           PrelBase.[]{-5i,p-}{i} ->
-                                                               fail_d1bG;
-                                                           PrelBase.:{-55,p-}{i} i_r3N ds_d1dz ->
-                                                               case ds_d1dz of {
-                                                                 PrelBase.[]{-5i,p-}{i} ->
-                                                                     fail_d1bG;
-                                                                 PrelBase.:{-55,p-}{i} j_r3O ds_d1dM ->
-                                                                     case ds_d1dM of {
-                                                                       PrelBase.[]{-5i,p-}{i} ->
-                                                                           fail_d1bG;
-                                                                       PrelBase.:{-55,p-}{i} k_r3P ds_d1dZ ->
-                                                                           case ds_d1dZ of {
-                                                                             PrelBase.[]{-5i,p-}{i} ->
-                                                                                 fail_d1bG;
-                                                                             PrelBase.:{-55,p-}{i} l_r3Q ds_d1ec ->
-                                                                                 case ds_d1ec of {
-                                                                                   PrelBase.[]{-5i,p-}{i} ->
-                                                                                       fail_d1bG;
-                                                                                   PrelBase.:{-55,p-}{i} m_r3R ds_d1ep ->
-                                                                                       case
-                                                                                           ds_d1ep
-                                                                                       of {
-                                                                                         PrelBase.[]{-5i,p-}{i} ->
-                                                                                             fail_d1bG;
-                                                                                         PrelBase.:{-55,p-}{i} n_r3S ds_d1eC ->
-                                                                                             case
-                                                                                                 ds_d1eC
-                                                                                             of {
-                                                                                               PrelBase.[]{-5i,p-}{i} ->
-                                                                                                   fail_d1bG;
-                                                                                               PrelBase.:{-55,p-}{i} o_r3T ds_d1eP ->
-                                                                                                   case
-                                                                                                       ds_d1eP
-                                                                                                   of {
-                                                                                                     PrelBase.[]{-5i,p-}{i} ->
-                                                                                                         fail_d1bG;
-                                                                                                     PrelBase.:{-55,p-}{i} p_r3U ds_d1f2 ->
-                                                                                                         case
-                                                                                                             ds_d1f2
-                                                                                                         of {
-                                                                                                           PrelBase.[]{-5i,p-}{i} ->
-                                                                                                               fail_d1bG;
-                                                                                                           PrelBase.:{-55,p-}{i} q_r3V ds_d1ff ->
-                                                                                                               case
-                                                                                                                   ds_d1ff
-                                                                                                               of {
-                                                                                                                 PrelBase.[]{-5i,p-}{i} ->
-                                                                                                                     fail_d1bG;
-                                                                                                                 PrelBase.:{-55,p-}{i} r_r3W ds_d1fs ->
-                                                                                                                     case
-                                                                                                                         ds_d1fs
-                                                                                                                     of {
-                                                                                                                       PrelBase.[]{-5i,p-}{i} ->
-                                                                                                                           fail_d1bG;
-                                                                                                                       PrelBase.:{-55,p-}{i} s_r3X ds_d1fF ->
-                                                                                                                           case
-                                                                                                                               ds_d1fF
-                                                                                                                           of {
-                                                                                                                             PrelBase.[]{-5i,p-}{i} ->
-                                                                                                                                 fail_d1bG;
-                                                                                                                             PrelBase.:{-55,p-}{i} t_r3Y ds_d1fS ->
-                                                                                                                                 case
-                                                                                                                                     ds_d1fS
-                                                                                                                                 of {
-                                                                                                                                   PrelBase.[]{-5i,p-}{i} ->
-                                                                                                                                       fail_d1bG;
-                                                                                                                                   PrelBase.:{-55,p-}{i} u_r3Z ds_d1g5 ->
-                                                                                                                                       case
-                                                                                                                                           ds_d1g5
-                                                                                                                                       of {
-                                                                                                                                         PrelBase.[]{-5i,p-}{i} ->
-                                                                                                                                             fail_d1bG;
-                                                                                                                                         PrelBase.:{-55,p-}{i} v_r40 ds_d1gi ->
-                                                                                                                                             case
-                                                                                                                                                 ds_d1gi
-                                                                                                                                             of {
-                                                                                                                                               PrelBase.[]{-5i,p-}{i} ->
-                                                                                                                                                   fail_d1bG;
-                                                                                                                                               PrelBase.:{-55,p-}{i} w_r41 ds_d1gv ->
-                                                                                                                                                   case
-                                                                                                                                                       ds_d1gv
-                                                                                                                                                   of {
-                                                                                                                                                     PrelBase.[]{-5i,p-}{i} ->
-                                                                                                                                                         fail_d1bG;
-                                                                                                                                                     PrelBase.:{-55,p-}{i} x_r42 ds_d1gI ->
-                                                                                                                                                         case
-                                                                                                                                                             ds_d1gI
-                                                                                                                                                         of {
-                                                                                                                                                           PrelBase.[]{-5i,p-}{i} ->
-                                                                                                                                                               fail_d1bG;
-                                                                                                                                                           PrelBase.:{-55,p-}{i} y_r43 ds_d1gV ->
-                                                                                                                                                               case
-                                                                                                                                                                   ds_d1gV
-                                                                                                                                                               of {
-                                                                                                                                                                 PrelBase.[]{-5i,p-}{i} ->
-                                                                                                                                                                     fail_d1bG;
-                                                                                                                                                                 PrelBase.:{-55,p-}{i} z_r44 ds_d1h8 ->
-                                                                                                                                                                     case
-                                                                                                                                                                         ds_d1h8
-                                                                                                                                                                     of {
-                                                                                                                                                                       PrelBase.:{-55,p-}{i} ds_d1hg ds_d1hf ->
-                                                                                                                                                                           fail_d1bG;
-                                                                                                                                                                       PrelBase.[]{-5i,p-}{i} ->
-                                                                                                                                                                           x_r42;
-                                                                                                                                                                     };
-                                                                                                                                                               };
-                                                                                                                                                         };
-                                                                                                                                                   };
-                                                                                                                                             };
-                                                                                                                                       };
-                                                                                                                                 };
-                                                                                                                           };
-                                                                                                                     };
-                                                                                                               };
-                                                                                                         };
-                                                                                                   };
-                                                                                             };
-                                                                                       };
-                                                                                 };
-                                                                           };
-                                                                     };
-                                                               };
-                                                         };
-                                                   };
-                                             };
-                                       };
-                                 };
-                           };
-                     };
-               };
-         }
-g{-r55,x-}  :: 
-    _forall_
-    [t{-aHm-} t{-aHo-} t{-aHq-}]
-    =>
-    t{-aHm-}
-    -> t{-aHo-}
-    -> t{-aHq-}
-    -> (t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-}, t{-aHm-}, t{-aHo-}, t{-aHq-})
+         fa_aDL =
+             \ ds_d1f2  ::  [taEg]
+               {-# L #-}
+               ds_d1f2 ->
+                 let {
+                   fail_d1f3  ::  taEg
+                   {-# L #-}
+                   fail_d1f3 =
+                       GHCerr.patError{-8r,w-}
+                           _@_ taEg _string_ "ds018.hs:39|function `fa'"
+                 } in 
+                   case ds_d1f2 of {
+                     PrelBase.[]{-5i,w-}{i} -> fail_d1f3;
+                     PrelBase.:{-55,w-}{i} a_r3z ds_d1fg ->
+                         case ds_d1fg of {
+                           PrelBase.[]{-5i,w-}{i} -> fail_d1f3;
+                           PrelBase.:{-55,w-}{i} b_r3A ds_d1ft ->
+                               case ds_d1ft of {
+                                 PrelBase.[]{-5i,w-}{i} -> fail_d1f3;
+                                 PrelBase.:{-55,w-}{i} c_r3B ds_d1fG ->
+                                     case ds_d1fG of {
+                                       PrelBase.[]{-5i,w-}{i} -> fail_d1f3;
+                                       PrelBase.:{-55,w-}{i} d_r3C ds_d1fT ->
+                                           case ds_d1fT of {
+                                             PrelBase.[]{-5i,w-}{i} -> fail_d1f3;
+                                             PrelBase.:{-55,w-}{i} e_r3D ds_d1g6 ->
+                                                 case ds_d1g6 of {
+                                                   PrelBase.[]{-5i,w-}{i} -> fail_d1f3;
+                                                   PrelBase.:{-55,w-}{i} f_r3E ds_d1gj ->
+                                                       case ds_d1gj of {
+                                                         PrelBase.[]{-5i,w-}{i} -> fail_d1f3;
+                                                         PrelBase.:{-55,w-}{i} g_r3F ds_d1gw ->
+                                                             case ds_d1gw of {
+                                                               PrelBase.[]{-5i,w-}{i} -> fail_d1f3;
+                                                               PrelBase.:{-55,w-}{i} h_r3G ds_d1gJ ->
+                                                                   case ds_d1gJ of {
+                                                                     PrelBase.[]{-5i,w-}{i} ->
+                                                                         fail_d1f3;
+                                                                     PrelBase.:{-55,w-}{i} i_r3H ds_d1gW ->
+                                                                         case ds_d1gW of {
+                                                                           PrelBase.[]{-5i,w-}{i} ->
+                                                                               fail_d1f3;
+                                                                           PrelBase.:{-55,w-}{i} j_r3I ds_d1h9 ->
+                                                                               case ds_d1h9 of {
+                                                                                 PrelBase.[]{-5i,w-}{i} ->
+                                                                                     fail_d1f3;
+                                                                                 PrelBase.:{-55,w-}{i} k_r3J ds_d1hm ->
+                                                                                     case
+                                                                                         ds_d1hm
+                                                                                     of {
+                                                                                       PrelBase.[]{-5i,w-}{i} ->
+                                                                                           fail_d1f3;
+                                                                                       PrelBase.:{-55,w-}{i} l_r3K ds_d1hz ->
+                                                                                           case
+                                                                                               ds_d1hz
+                                                                                           of {
+                                                                                             PrelBase.[]{-5i,w-}{i} ->
+                                                                                                 fail_d1f3;
+                                                                                             PrelBase.:{-55,w-}{i} m_r3L ds_d1hM ->
+                                                                                                 case
+                                                                                                     ds_d1hM
+                                                                                                 of {
+                                                                                                   PrelBase.[]{-5i,w-}{i} ->
+                                                                                                       fail_d1f3;
+                                                                                                   PrelBase.:{-55,w-}{i} n_r3M ds_d1hZ ->
+                                                                                                       case
+                                                                                                           ds_d1hZ
+                                                                                                       of {
+                                                                                                         PrelBase.[]{-5i,w-}{i} ->
+                                                                                                             fail_d1f3;
+                                                                                                         PrelBase.:{-55,w-}{i} o_r3N ds_d1ic ->
+                                                                                                             case
+                                                                                                                 ds_d1ic
+                                                                                                             of {
+                                                                                                               PrelBase.[]{-5i,w-}{i} ->
+                                                                                                                   fail_d1f3;
+                                                                                                               PrelBase.:{-55,w-}{i} p_r3O ds_d1ip ->
+                                                                                                                   case
+                                                                                                                       ds_d1ip
+                                                                                                                   of {
+                                                                                                                     PrelBase.[]{-5i,w-}{i} ->
+                                                                                                                         fail_d1f3;
+                                                                                                                     PrelBase.:{-55,w-}{i} q_r3P ds_d1iC ->
+                                                                                                                         case
+                                                                                                                             ds_d1iC
+                                                                                                                         of {
+                                                                                                                           PrelBase.[]{-5i,w-}{i} ->
+                                                                                                                               fail_d1f3;
+                                                                                                                           PrelBase.:{-55,w-}{i} r_r3Q ds_d1iP ->
+                                                                                                                               case
+                                                                                                                                   ds_d1iP
+                                                                                                                               of {
+                                                                                                                                 PrelBase.[]{-5i,w-}{i} ->
+                                                                                                                                     fail_d1f3;
+                                                                                                                                 PrelBase.:{-55,w-}{i} s_r3R ds_d1j2 ->
+                                                                                                                                     case
+                                                                                                                                         ds_d1j2
+                                                                                                                                     of {
+                                                                                                                                       PrelBase.[]{-5i,w-}{i} ->
+                                                                                                                                           fail_d1f3;
+                                                                                                                                       PrelBase.:{-55,w-}{i} t_r3S ds_d1jf ->
+                                                                                                                                           case
+                                                                                                                                               ds_d1jf
+                                                                                                                                           of {
+                                                                                                                                             PrelBase.[]{-5i,w-}{i} ->
+                                                                                                                                                 fail_d1f3;
+                                                                                                                                             PrelBase.:{-55,w-}{i} u_r3T ds_d1js ->
+                                                                                                                                                 case
+                                                                                                                                                     ds_d1js
+                                                                                                                                                 of {
+                                                                                                                                                   PrelBase.[]{-5i,w-}{i} ->
+                                                                                                                                                       fail_d1f3;
+                                                                                                                                                   PrelBase.:{-55,w-}{i} v_r3U ds_d1jF ->
+                                                                                                                                                       case
+                                                                                                                                                           ds_d1jF
+                                                                                                                                                       of {
+                                                                                                                                                         PrelBase.[]{-5i,w-}{i} ->
+                                                                                                                                                             fail_d1f3;
+                                                                                                                                                         PrelBase.:{-55,w-}{i} w_r3V ds_d1jS ->
+                                                                                                                                                             case
+                                                                                                                                                                 ds_d1jS
+                                                                                                                                                             of {
+                                                                                                                                                               PrelBase.[]{-5i,w-}{i} ->
+                                                                                                                                                                   fail_d1f3;
+                                                                                                                                                               PrelBase.:{-55,w-}{i} x_r3W ds_d1k5 ->
+                                                                                                                                                                   case
+                                                                                                                                                                       ds_d1k5
+                                                                                                                                                                   of {
+                                                                                                                                                                     PrelBase.[]{-5i,w-}{i} ->
+                                                                                                                                                                         fail_d1f3;
+                                                                                                                                                                     PrelBase.:{-55,w-}{i} y_r3X ds_d1ki ->
+                                                                                                                                                                         case
+                                                                                                                                                                             ds_d1ki
+                                                                                                                                                                         of {
+                                                                                                                                                                           PrelBase.[]{-5i,w-}{i} ->
+                                                                                                                                                                               fail_d1f3;
+                                                                                                                                                                           PrelBase.:{-55,w-}{i} z_r3Y ds_d1kv ->
+                                                                                                                                                                               case
+                                                                                                                                                                                   ds_d1kv
+                                                                                                                                                                               of {
+                                                                                                                                                                                 PrelBase.:{-55,w-}{i} ds_d1kC ds_d1kD ->
+                                                                                                                                                                                     fail_d1f3;
+                                                                                                                                                                                 PrelBase.[]{-5i,w-}{i} ->
+                                                                                                                                                                                     x_r3W;
+                                                                                                                                                                               };
+                                                                                                                                                                         };
+                                                                                                                                                                   };
+                                                                                                                                                             };
+                                                                                                                                                       };
+                                                                                                                                                 };
+                                                                                                                                           };
+                                                                                                                                     };
+                                                                                                                               };
+                                                                                                                         };
+                                                                                                                   };
+                                                                                                             };
+                                                                                                       };
+                                                                                                 };
+                                                                                           };
+                                                                                     };
+                                                                               };
+                                                                         };
+                                                                   };
+                                                             };
+                                                       };
+                                                 };
+                                           };
+                                     };
+                               };
+                         };
+                   };
+       } in  fa_aDL
+g{-r4Y,x-}  ::  _forall_
+               [taJN taJP taJR]
+               =>
+               taJN
+               -> taJP
+               -> taJR
+               -> (taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR)
 {-# L #-}
-g{-r55,x-} =
-    _/\_ t{-aHm-} t{-aHo-} t{-aHq-} -> \ x_r3z  :: 
-                                            t{-aHm-}
-                                        {-# L #-}
-                                        x_r3z y_r3B  :: 
-                                                  t{-aHo-}
-                                              {-# L #-}
-                                              y_r3B z_r3D  :: 
-                                                        t{-aHq-}
-                                                    {-# L #-}
-                                                    z_r3D ->
-       PrelTup.(,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,){-62q,p-}{i}
-           {_@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            _@_ t{-aHm-}
-            _@_ t{-aHo-}
-            _@_ t{-aHq-}
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D
-            x_r3z
-            y_r3B
-            z_r3D}
-g1{-r56,x-}  :: 
-    _forall_
-    [t{-aHA-} t{-aHC-}]
-    =>
-    t{-aHA-} -> t{-aHC-} -> PrelBase.(){-40,p-}
+g{-r4Y,x-} =
+    _/\_ taJN taJP taJR ->
+       _letrec_ {
+         g_aEK  ::  taJN
+                    -> taJP
+                    -> taJR
+                    -> (taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR)
+         {-# L #-}
+         g_aEK =
+             \ x_r3v  ::  taJN
+               {-# L #-}
+               x_r3v y_r3w  ::  taJP
+                     {-# L #-}
+                     y_r3w z_r3x  ::  taJR
+                           {-# L #-}
+                           z_r3x ->
+                 PrelTup.(,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,){-62q,w-}{i}
+                     {_@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      _@_ taJN
+                      _@_ taJP
+                      _@_ taJR
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x
+                      x_r3v
+                      y_r3w
+                      z_r3x};
+       } in  g_aEK
+g1{-r4Z,x-}  ::  _forall_
+                [taK6 taK8]
+                =>
+                taK6 -> taK8 -> PrelBase.(){-40,W-}
 {-# L #-}
-g1{-r56,x-} =
-    _/\_ t{-aHA-} t{-aHC-} -> \ x_r3v  :: 
-                                   t{-aHA-}
-                               {-# L #-}
-                               x_r3v y_r3x  :: 
-                                         t{-aHC-}
-                                     {-# L #-}
-                                     y_r3x ->
-       PrelBase.(){-60,p-}{i}
-f2{-r57,x-}  :: 
-    _forall_
-    [t{-aHO-} t{-aHQ-} t{-aHM-}]
-    =>
-    t{-aHO-} -> t{-aHQ-} -> [t{-aHM-}]
+g1{-r4Z,x-} =
+    _/\_ taK6 taK8 ->
+       _letrec_ {
+         g1_aJT  ::  taK6 -> taK8 -> PrelBase.(){-40,W-}
+         {-# L #-}
+         g1_aJT =
+             \ x_r3s  ::  taK6
+               {-# L #-}
+               x_r3s y_r3t  ::  taK8
+                     {-# L #-}
+                     y_r3t ->
+                 PrelBase.(){-60,w-}{i};
+       } in  g1_aJT
+f2{-r50,x-}  ::  _forall_
+                [taKq taKs taKo]
+                =>
+                taKq -> taKs -> [taKo]
 {-# L #-}
-f2{-r57,x-} =
-    _/\_ t{-aHO-} t{-aHQ-} t{-aHM-} -> \ x_r3r  :: 
-                                            t{-aHO-}
-                                        {-# L #-}
-                                        x_r3r y_r3t  :: 
-                                                  t{-aHQ-}
-                                              {-# L #-}
-                                              y_r3t ->
-       PrelBase.[]{-5i,p-}{i}
-           _@_ t{-aHM-}
-f{-r58,x-}  :: 
-    _forall_
-    [t{-aI2-}]
-    =>
-    t{-aI2-} -> t{-aI2-} -> t{-aI2-} -> [t{-aI2-}]
+f2{-r50,x-} =
+    _/\_ taKq taKs taKo ->
+       _letrec_ {
+         f2_aKa  ::  taKq -> taKs -> [taKo]
+         {-# L #-}
+         f2_aKa =
+             \ x_r3p  ::  taKq
+               {-# L #-}
+               x_r3p y_r3q  ::  taKs
+                     {-# L #-}
+                     y_r3q ->
+                 PrelBase.[]{-5i,w-}{i} _@_ taKo;
+       } in  f2_aKa
+f{-r51,x-}  ::  _forall_ [taKN] => taKN -> taKN -> taKN -> [taKN]
 {-# L #-}
-f{-r58,x-} =
-    _/\_ t{-aI2-} -> \ x_r3l  :: 
-                          t{-aI2-}
-                      {-# L #-}
-                      x_r3l y_r3n  :: 
-                                t{-aI2-}
-                            {-# L #-}
-                            y_r3n z_r3p  :: 
-                                      t{-aI2-}
-                                  {-# L #-}
-                                  z_r3p ->
-       let { ds_d1uJ  :: 
-                 [t{-aI2-}]
-             {-# L #-}
-             ds_d1uJ =
-         let { ds_d1uV  :: 
-                   [t{-aI2-}]
+f{-r51,x-} =
+    _/\_ taKN ->
+       _letrec_ {
+         f_aKu  ::  taKN -> taKN -> taKN -> [taKN]
+         {-# L #-}
+         f_aKu =
+             \ x_r3l  ::  taKN
                {-# L #-}
-               ds_d1uV =
-           let { ds_d1v7  :: 
-                     [t{-aI2-}]
-                 {-# L #-}
-                 ds_d1v7 =
-             let { ds_d1vj  :: 
-                       [t{-aI2-}]
-                   {-# L #-}
-                   ds_d1vj =
-               let { ds_d1vv  :: 
-                         [t{-aI2-}]
+               x_r3l y_r3m  ::  taKN
                      {-# L #-}
-                     ds_d1vv =
-                 let {
-                   ds_d1vH  :: 
-                       [t{-aI2-}]
-                   {-# L #-}
-                   ds_d1vH =
-                       PrelBase.[]{-5i,p-}{i}
-                           {_@_ t{-aI2-}}
-                 } in 
-                   PrelBase.:{-55,p-}{i}
-                       {_@_ t{-aI2-} z_r3p ds_d1vH}
-               } in
-               PrelBase.:{-55,p-}{i}
-                   {_@_ t{-aI2-} y_r3n ds_d1vv}
-             } in
-             PrelBase.:{-55,p-}{i}
-                 {_@_ t{-aI2-} x_r3l ds_d1vj}
-           } in
-           PrelBase.:{-55,p-}{i}
-               {_@_ t{-aI2-} z_r3p ds_d1v7}
-         } in
-         PrelBase.:{-55,p-}{i}
-             {_@_ t{-aI2-} y_r3n ds_d1uV}
-       } in
-       PrelBase.:{-55,p-}{i}
-           {_@_ t{-aI2-} x_r3l ds_d1uJ}
+                     y_r3m z_r3n  ::  taKN
+                           {-# L #-}
+                           z_r3n ->
+                 let { ds_d1y6  ::  [taKN]
+                       {-# L #-}
+                       ds_d1y6 =
+                   let { ds_d1yi  ::  [taKN]
+                         {-# L #-}
+                         ds_d1yi =
+                     let { ds_d1yu  ::  [taKN]
+                           {-# L #-}
+                           ds_d1yu =
+                       let { ds_d1yG  ::  [taKN]
+                             {-# L #-}
+                             ds_d1yG =
+                         let { ds_d1yS  ::  [taKN]
+                               {-# L #-}
+                               ds_d1yS =
+                           let {
+                             ds_d1z4  ::  [taKN]
+                             {-# L #-}
+                             ds_d1z4 =
+                                 PrelBase.[]{-5i,w-}{i} {_@_ taKN}
+                           } in  PrelBase.:{-55,w-}{i} {_@_ taKN z_r3n ds_d1z4}
+                         } in
+                         PrelBase.:{-55,w-}{i} {_@_ taKN y_r3m ds_d1yS}
+                       } in
+                       PrelBase.:{-55,w-}{i} {_@_ taKN x_r3l ds_d1yG}
+                     } in
+                     PrelBase.:{-55,w-}{i} {_@_ taKN z_r3n ds_d1yu}
+                   } in
+                   PrelBase.:{-55,w-}{i} {_@_ taKN y_r3m ds_d1yi}
+                 } in
+                 PrelBase.:{-55,w-}{i} {_@_ taKN x_r3l ds_d1y6};
+       } in  f_aKu
+end Rec }