{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE EmptyCase #-}
{-# LANGUAGE EmptyDataDecls #-}
{-# LANGUAGE ExistentialQuantification #-}
{-# LANGUAGE NoMonomorphismRestriction #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# OPTIONS_GHC -Wno-overlapping-patterns #-}
module MAlonzo.Code.Category.Monad.Indexed where
import MAlonzo.RTE (coe, erased, AgdaAny, addInt, subInt, mulInt,
quotInt, remInt, geqInt, ltInt, eqInt, add64, sub64, mul64, quot64,
rem64, lt64, eq64, word64FromNat, word64ToNat)
import qualified MAlonzo.RTE
import qualified Data.Text
import qualified MAlonzo.Code.Agda.Primitive
import qualified MAlonzo.Code.Category.Applicative.Indexed
import qualified MAlonzo.Code.Category.Functor
d_RawIMonad_32 a0 a1 a2 a3 = ()
data T_RawIMonad_32
= C_RawIMonad'46'constructor_459 (() ->
AgdaAny -> AgdaAny -> AgdaAny)
(() ->
() ->
AgdaAny ->
AgdaAny ->
AgdaAny -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny)
d_return_52 ::
T_RawIMonad_32 -> () -> AgdaAny -> AgdaAny -> AgdaAny
d_return_52 v0
= case coe v0 of
C_RawIMonad'46'constructor_459 v1 v2 -> coe v1
_ -> MAlonzo.RTE.mazUnreachableError
d__'62''62''61'__60 ::
T_RawIMonad_32 ->
() ->
() ->
AgdaAny ->
AgdaAny -> AgdaAny -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny
d__'62''62''61'__60 v0
= case coe v0 of
C_RawIMonad'46'constructor_459 v1 v2 -> coe v2
_ -> MAlonzo.RTE.mazUnreachableError
d__'62''62'__68 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonad_32 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d__'62''62'__68 ~v0 ~v1 ~v2 ~v3 v4 ~v5 ~v6 v7 v8 v9 v10 v11
= du__'62''62'__68 v4 v7 v8 v9 v10 v11
du__'62''62'__68 ::
T_RawIMonad_32 ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du__'62''62'__68 v0 v1 v2 v3 v4 v5
= coe d__'62''62''61'__60 v0 erased erased v1 v2 v3 v4 (\ v6 -> v5)
d__'61''60''60'__82 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonad_32 ->
() ->
() ->
AgdaAny ->
AgdaAny -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
d__'61''60''60'__82 ~v0 ~v1 ~v2 ~v3 v4 ~v5 ~v6 v7 v8 v9 v10 v11
= du__'61''60''60'__82 v4 v7 v8 v9 v10 v11
du__'61''60''60'__82 ::
T_RawIMonad_32 ->
AgdaAny ->
AgdaAny -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
du__'61''60''60'__82 v0 v1 v2 v3 v4 v5
= coe d__'62''62''61'__60 v0 erased erased v1 v2 v3 v5 v4
d__'62''61''62'__94 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonad_32 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
() ->
() ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
d__'62''61''62'__94 ~v0 ~v1 ~v2 ~v3 v4 ~v5 ~v6 ~v7 ~v8 v9 v10 v11
v12 v13 v14
= du__'62''61''62'__94 v4 v9 v10 v11 v12 v13 v14
du__'62''61''62'__94 ::
T_RawIMonad_32 ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
du__'62''61''62'__94 v0 v1 v2 v3 v4 v5 v6
= coe
du__'61''60''60'__82 (coe v0) (coe v1) (coe v2) (coe v3) (coe v5)
(coe v4 v6)
d__'60''61''60'__106 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonad_32 ->
() ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
d__'60''61''60'__106 ~v0 ~v1 ~v2 ~v3 v4 ~v5 ~v6 ~v7 ~v8 v9 v10 v11
v12 v13
= du__'60''61''60'__106 v4 v9 v10 v11 v12 v13
du__'60''61''60'__106 ::
T_RawIMonad_32 ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
du__'60''61''60'__106 v0 v1 v2 v3 v4 v5
= coe
du__'62''61''62'__94 (coe v0) (coe v1) (coe v2) (coe v3) (coe v5)
(coe v4)
d_join_118 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonad_32 ->
() -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d_join_118 ~v0 ~v1 ~v2 ~v3 v4 ~v5 v6 v7 v8 v9
= du_join_118 v4 v6 v7 v8 v9
du_join_118 ::
T_RawIMonad_32 ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du_join_118 v0 v1 v2 v3 v4
= coe d__'62''62''61'__60 v0 erased erased v1 v2 v3 v4 (\ v5 -> v5)
d_rawIApplicative_122 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonad_32 ->
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38
d_rawIApplicative_122 ~v0 ~v1 ~v2 ~v3 v4
= du_rawIApplicative_122 v4
du_rawIApplicative_122 ::
T_RawIMonad_32 ->
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38
du_rawIApplicative_122 v0
= coe
MAlonzo.Code.Category.Applicative.Indexed.C_RawIApplicative'46'constructor_517
(coe d_return_52 (coe v0))
(coe
(\ v1 v2 v3 v4 v5 v6 v7 ->
coe
d__'62''62''61'__60 v0 erased erased v3 v4 v5 v6
(\ v8 ->
coe
d__'62''62''61'__60 v0 erased erased v4 v5 v5 v7
(\ v9 -> coe d_return_52 v0 erased v5 (coe v8 v9)))))
d__'60''36'__134 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonad_32 ->
AgdaAny -> AgdaAny -> () -> () -> AgdaAny -> AgdaAny -> AgdaAny
d__'60''36'__134 ~v0 ~v1 ~v2 ~v3 v4 = du__'60''36'__134 v4
du__'60''36'__134 ::
T_RawIMonad_32 ->
AgdaAny -> AgdaAny -> () -> () -> AgdaAny -> AgdaAny -> AgdaAny
du__'60''36'__134 v0
= let v1 = coe du_rawIApplicative_122 (coe v0) in
coe
(\ v2 v3 v4 v5 v6 v7 ->
coe
MAlonzo.Code.Category.Functor.du__'60''36'__32
(coe
MAlonzo.Code.Category.Applicative.Indexed.du_rawFunctor_72 (coe v1)
(coe v2) (coe v3))
v6 v7)
d__'60''36''62'__136 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonad_32 ->
AgdaAny ->
AgdaAny -> () -> () -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
d__'60''36''62'__136 ~v0 ~v1 ~v2 ~v3 v4 = du__'60''36''62'__136 v4
du__'60''36''62'__136 ::
T_RawIMonad_32 ->
AgdaAny ->
AgdaAny -> () -> () -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
du__'60''36''62'__136 v0
= let v1 = coe du_rawIApplicative_122 (coe v0) in
coe
(\ v2 v3 ->
MAlonzo.Code.Category.Functor.d__'60''36''62'__30
(coe
MAlonzo.Code.Category.Applicative.Indexed.du_rawFunctor_72 (coe v1)
(coe v2) (coe v3)))
d__'60''38''62'__138 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonad_32 ->
AgdaAny ->
AgdaAny -> () -> () -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny
d__'60''38''62'__138 ~v0 ~v1 ~v2 ~v3 v4 = du__'60''38''62'__138 v4
du__'60''38''62'__138 ::
T_RawIMonad_32 ->
AgdaAny ->
AgdaAny -> () -> () -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny
du__'60''38''62'__138 v0
= let v1 = coe du_rawIApplicative_122 (coe v0) in
coe
(\ v2 v3 v4 v5 v6 v7 ->
coe
MAlonzo.Code.Category.Functor.du__'60''38''62'__38
(coe
MAlonzo.Code.Category.Applicative.Indexed.du_rawFunctor_72 (coe v1)
(coe v2) (coe v3))
v6 v7)
d__'60''8859'__140 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonad_32 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d__'60''8859'__140 ~v0 ~v1 ~v2 ~v3 v4 = du__'60''8859'__140 v4
du__'60''8859'__140 ::
T_RawIMonad_32 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du__'60''8859'__140 v0 v1 v2 v3 v4 v5 v6 v7
= coe
MAlonzo.Code.Category.Applicative.Indexed.du__'60''8859'__96
(coe du_rawIApplicative_122 (coe v0)) v3 v4 v5 v6 v7
d__'8855'__142 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonad_32 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d__'8855'__142 ~v0 ~v1 ~v2 ~v3 v4 = du__'8855'__142 v4
du__'8855'__142 ::
T_RawIMonad_32 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du__'8855'__142 v0 v1 v2 v3 v4 v5 v6 v7
= coe
MAlonzo.Code.Category.Applicative.Indexed.du__'8855'__120
(coe du_rawIApplicative_122 (coe v0)) v3 v4 v5 v6 v7
d__'8859'__144 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonad_32 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d__'8859'__144 ~v0 ~v1 ~v2 ~v3 v4 ~v5 ~v6 v7 v8 v9 v10 v11
= du__'8859'__144 v4 v7 v8 v9 v10 v11
du__'8859'__144 ::
T_RawIMonad_32 ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du__'8859'__144 v0 v1 v2 v3 v4 v5
= coe
d__'62''62''61'__60 v0 erased erased v1 v2 v3 v4
(\ v6 ->
coe
d__'62''62''61'__60 v0 erased erased v2 v3 v3 v5
(\ v7 -> coe d_return_52 v0 erased v3 (coe v6 v7)))
d__'8859''62'__146 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonad_32 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d__'8859''62'__146 ~v0 ~v1 ~v2 ~v3 v4 = du__'8859''62'__146 v4
du__'8859''62'__146 ::
T_RawIMonad_32 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du__'8859''62'__146 v0 v1 v2 v3 v4 v5 v6 v7
= coe
MAlonzo.Code.Category.Applicative.Indexed.du__'8859''62'__108
(coe du_rawIApplicative_122 (coe v0)) v3 v4 v5 v6 v7
d_pure_148 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonad_32 -> () -> AgdaAny -> AgdaAny -> AgdaAny
d_pure_148 ~v0 ~v1 ~v2 ~v3 v4 = du_pure_148 v4
du_pure_148 ::
T_RawIMonad_32 -> () -> AgdaAny -> AgdaAny -> AgdaAny
du_pure_148 v0 = coe d_return_52 (coe v0)
d_rawFunctor_150 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonad_32 ->
AgdaAny -> AgdaAny -> MAlonzo.Code.Category.Functor.T_RawFunctor_24
d_rawFunctor_150 ~v0 ~v1 ~v2 ~v3 v4 = du_rawFunctor_150 v4
du_rawFunctor_150 ::
T_RawIMonad_32 ->
AgdaAny -> AgdaAny -> MAlonzo.Code.Category.Functor.T_RawFunctor_24
du_rawFunctor_150 v0
= coe
MAlonzo.Code.Category.Applicative.Indexed.du_rawFunctor_72
(coe du_rawIApplicative_122 (coe v0))
d_zip_152 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonad_32 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d_zip_152 ~v0 ~v1 ~v2 ~v3 v4 = du_zip_152 v4
du_zip_152 ::
T_RawIMonad_32 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du_zip_152 v0 v1 v2 v3 v4 v5
= coe
MAlonzo.Code.Category.Applicative.Indexed.du_zip_146
(coe du_rawIApplicative_122 (coe v0)) v3 v4 v5
d_zipWith_154 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonad_32 ->
() ->
() ->
() ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -> AgdaAny
d_zipWith_154 ~v0 ~v1 ~v2 ~v3 v4 = du_zipWith_154 v4
du_zipWith_154 ::
T_RawIMonad_32 ->
() ->
() ->
() ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -> AgdaAny
du_zipWith_154 v0 v1 v2 v3 v4 v5 v6 v7 v8 v9
= coe
MAlonzo.Code.Category.Applicative.Indexed.du_zipWith_132
(coe du_rawIApplicative_122 (coe v0)) v4 v5 v6 v7 v8 v9
d_RawIMonadT_160 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
((AgdaAny -> AgdaAny -> () -> ()) ->
AgdaAny -> AgdaAny -> () -> ()) ->
()
d_RawIMonadT_160 = erased
d_RawIMonadZero_174 a0 a1 a2 a3 = ()
data T_RawIMonadZero_174
= C_RawIMonadZero'46'constructor_7839 T_RawIMonad_32
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicativeZero_156
d_monad_184 :: T_RawIMonadZero_174 -> T_RawIMonad_32
d_monad_184 v0
= case coe v0 of
C_RawIMonadZero'46'constructor_7839 v1 v2 -> coe v1
_ -> MAlonzo.RTE.mazUnreachableError
d_applicativeZero_186 ::
T_RawIMonadZero_174 ->
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicativeZero_156
d_applicativeZero_186 v0
= case coe v0 of
C_RawIMonadZero'46'constructor_7839 v1 v2 -> coe v2
_ -> MAlonzo.RTE.mazUnreachableError
d__'60''36'__190 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadZero_174 ->
AgdaAny -> AgdaAny -> () -> () -> AgdaAny -> AgdaAny -> AgdaAny
d__'60''36'__190 ~v0 ~v1 ~v2 ~v3 v4 = du__'60''36'__190 v4
du__'60''36'__190 ::
T_RawIMonadZero_174 ->
AgdaAny -> AgdaAny -> () -> () -> AgdaAny -> AgdaAny -> AgdaAny
du__'60''36'__190 v0
= let v1 = d_monad_184 (coe v0) in
let v2 = coe du_rawIApplicative_122 (coe v1) in
coe
(\ v3 v4 v5 v6 v7 v8 ->
coe
MAlonzo.Code.Category.Functor.du__'60''36'__32
(coe
MAlonzo.Code.Category.Applicative.Indexed.du_rawFunctor_72 (coe v2)
(coe v3) (coe v4))
v7 v8)
d__'60''36''62'__192 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadZero_174 ->
AgdaAny ->
AgdaAny -> () -> () -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
d__'60''36''62'__192 ~v0 ~v1 ~v2 ~v3 v4 = du__'60''36''62'__192 v4
du__'60''36''62'__192 ::
T_RawIMonadZero_174 ->
AgdaAny ->
AgdaAny -> () -> () -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
du__'60''36''62'__192 v0
= let v1 = d_monad_184 (coe v0) in
let v2 = coe du_rawIApplicative_122 (coe v1) in
coe
(\ v3 v4 ->
MAlonzo.Code.Category.Functor.d__'60''36''62'__30
(coe
MAlonzo.Code.Category.Applicative.Indexed.du_rawFunctor_72 (coe v2)
(coe v3) (coe v4)))
d__'60''38''62'__194 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadZero_174 ->
AgdaAny ->
AgdaAny -> () -> () -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny
d__'60''38''62'__194 ~v0 ~v1 ~v2 ~v3 v4 = du__'60''38''62'__194 v4
du__'60''38''62'__194 ::
T_RawIMonadZero_174 ->
AgdaAny ->
AgdaAny -> () -> () -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny
du__'60''38''62'__194 v0
= let v1 = d_monad_184 (coe v0) in
let v2 = coe du_rawIApplicative_122 (coe v1) in
coe
(\ v3 v4 v5 v6 v7 v8 ->
coe
MAlonzo.Code.Category.Functor.du__'60''38''62'__38
(coe
MAlonzo.Code.Category.Applicative.Indexed.du_rawFunctor_72 (coe v2)
(coe v3) (coe v4))
v7 v8)
d__'60''61''60'__196 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadZero_174 ->
() ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
d__'60''61''60'__196 ~v0 ~v1 ~v2 ~v3 v4 = du__'60''61''60'__196 v4
du__'60''61''60'__196 ::
T_RawIMonadZero_174 ->
() ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
du__'60''61''60'__196 v0 v1 v2 v3 v4 v5 v6 v7 v8 v9
= coe
du__'60''61''60'__106 (coe d_monad_184 (coe v0)) v5 v6 v7 v8 v9
d__'60''8859'__198 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadZero_174 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d__'60''8859'__198 ~v0 ~v1 ~v2 ~v3 v4 = du__'60''8859'__198 v4
du__'60''8859'__198 ::
T_RawIMonadZero_174 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du__'60''8859'__198 v0
= let v1 = d_monad_184 (coe v0) in
\ v2 v3 v4 v5 v6 v7 v8 ->
coe
MAlonzo.Code.Category.Applicative.Indexed.du__'60''8859'__96
(coe du_rawIApplicative_122 (coe v1)) v4 v5 v6 v7 v8
d__'61''60''60'__200 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadZero_174 ->
() ->
() ->
AgdaAny ->
AgdaAny -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
d__'61''60''60'__200 ~v0 ~v1 ~v2 ~v3 v4 = du__'61''60''60'__200 v4
du__'61''60''60'__200 ::
T_RawIMonadZero_174 ->
() ->
() ->
AgdaAny ->
AgdaAny -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
du__'61''60''60'__200 v0 v1 v2 v3 v4 v5 v6 v7
= coe
du__'61''60''60'__82 (coe d_monad_184 (coe v0)) v3 v4 v5 v6 v7
d__'62''61''62'__202 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadZero_174 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
() ->
() ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
d__'62''61''62'__202 ~v0 ~v1 ~v2 ~v3 v4 = du__'62''61''62'__202 v4
du__'62''61''62'__202 ::
T_RawIMonadZero_174 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
() ->
() ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
du__'62''61''62'__202 v0 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10
= coe
du__'62''61''62'__94 (coe d_monad_184 (coe v0)) v5 v6 v7 v8 v9 v10
d__'62''62'__204 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadZero_174 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d__'62''62'__204 ~v0 ~v1 ~v2 ~v3 v4 = du__'62''62'__204 v4
du__'62''62'__204 ::
T_RawIMonadZero_174 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du__'62''62'__204 v0 v1 v2 v3 v4 v5 v6 v7
= coe du__'62''62'__68 (coe d_monad_184 (coe v0)) v3 v4 v5 v6 v7
d__'62''62''61'__206 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadZero_174 ->
() ->
() ->
AgdaAny ->
AgdaAny -> AgdaAny -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny
d__'62''62''61'__206 ~v0 ~v1 ~v2 ~v3 v4 = du__'62''62''61'__206 v4
du__'62''62''61'__206 ::
T_RawIMonadZero_174 ->
() ->
() ->
AgdaAny ->
AgdaAny -> AgdaAny -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny
du__'62''62''61'__206 v0
= coe d__'62''62''61'__60 (coe d_monad_184 (coe v0))
d__'8855'__208 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadZero_174 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d__'8855'__208 ~v0 ~v1 ~v2 ~v3 v4 = du__'8855'__208 v4
du__'8855'__208 ::
T_RawIMonadZero_174 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du__'8855'__208 v0
= let v1 = d_monad_184 (coe v0) in
\ v2 v3 v4 v5 v6 v7 v8 ->
coe
MAlonzo.Code.Category.Applicative.Indexed.du__'8855'__120
(coe du_rawIApplicative_122 (coe v1)) v4 v5 v6 v7 v8
d__'8859'__210 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadZero_174 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d__'8859'__210 ~v0 ~v1 ~v2 ~v3 v4 = du__'8859'__210 v4
du__'8859'__210 ::
T_RawIMonadZero_174 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du__'8859'__210 v0
= let v1 = d_monad_184 (coe v0) in
coe
(\ v2 v3 v4 v5 v6 v7 v8 ->
coe
d__'62''62''61'__60 v1 erased erased v4 v5 v6 v7
(\ v9 ->
coe
d__'62''62''61'__60 v1 erased erased v5 v6 v6 v8
(\ v10 -> coe d_return_52 v1 erased v6 (coe v9 v10))))
d__'8859''62'__212 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadZero_174 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d__'8859''62'__212 ~v0 ~v1 ~v2 ~v3 v4 = du__'8859''62'__212 v4
du__'8859''62'__212 ::
T_RawIMonadZero_174 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du__'8859''62'__212 v0
= let v1 = d_monad_184 (coe v0) in
\ v2 v3 v4 v5 v6 v7 v8 ->
coe
MAlonzo.Code.Category.Applicative.Indexed.du__'8859''62'__108
(coe du_rawIApplicative_122 (coe v1)) v4 v5 v6 v7 v8
d_join_214 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadZero_174 ->
() -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d_join_214 ~v0 ~v1 ~v2 ~v3 v4 = du_join_214 v4
du_join_214 ::
T_RawIMonadZero_174 ->
() -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du_join_214 v0 v1 v2 v3 v4 v5
= coe du_join_118 (coe d_monad_184 (coe v0)) v2 v3 v4 v5
d_pure_216 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadZero_174 -> () -> AgdaAny -> AgdaAny -> AgdaAny
d_pure_216 ~v0 ~v1 ~v2 ~v3 v4 = du_pure_216 v4
du_pure_216 ::
T_RawIMonadZero_174 -> () -> AgdaAny -> AgdaAny -> AgdaAny
du_pure_216 v0
= let v1 = d_monad_184 (coe v0) in coe d_return_52 (coe v1)
d_rawFunctor_218 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadZero_174 ->
AgdaAny -> AgdaAny -> MAlonzo.Code.Category.Functor.T_RawFunctor_24
d_rawFunctor_218 ~v0 ~v1 ~v2 ~v3 v4 = du_rawFunctor_218 v4
du_rawFunctor_218 ::
T_RawIMonadZero_174 ->
AgdaAny -> AgdaAny -> MAlonzo.Code.Category.Functor.T_RawFunctor_24
du_rawFunctor_218 v0
= let v1 = d_monad_184 (coe v0) in
coe
MAlonzo.Code.Category.Applicative.Indexed.du_rawFunctor_72
(coe du_rawIApplicative_122 (coe v1))
d_rawIApplicative_220 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadZero_174 ->
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38
d_rawIApplicative_220 ~v0 ~v1 ~v2 ~v3 v4
= du_rawIApplicative_220 v4
du_rawIApplicative_220 ::
T_RawIMonadZero_174 ->
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38
du_rawIApplicative_220 v0
= coe du_rawIApplicative_122 (coe d_monad_184 (coe v0))
d_return_222 ::
T_RawIMonadZero_174 -> () -> AgdaAny -> AgdaAny -> AgdaAny
d_return_222 v0 = coe d_return_52 (coe d_monad_184 (coe v0))
d_zip_224 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadZero_174 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d_zip_224 ~v0 ~v1 ~v2 ~v3 v4 = du_zip_224 v4
du_zip_224 ::
T_RawIMonadZero_174 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du_zip_224 v0
= let v1 = d_monad_184 (coe v0) in
\ v2 v3 v4 v5 v6 ->
coe
MAlonzo.Code.Category.Applicative.Indexed.du_zip_146
(coe du_rawIApplicative_122 (coe v1)) v4 v5 v6
d_zipWith_226 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadZero_174 ->
() ->
() ->
() ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -> AgdaAny
d_zipWith_226 ~v0 ~v1 ~v2 ~v3 v4 = du_zipWith_226 v4
du_zipWith_226 ::
T_RawIMonadZero_174 ->
() ->
() ->
() ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -> AgdaAny
du_zipWith_226 v0
= let v1 = d_monad_184 (coe v0) in
\ v2 v3 v4 v5 v6 v7 v8 v9 v10 ->
coe
MAlonzo.Code.Category.Applicative.Indexed.du_zipWith_132
(coe du_rawIApplicative_122 (coe v1)) v5 v6 v7 v8 v9 v10
d_'8709'_230 ::
T_RawIMonadZero_174 -> () -> AgdaAny -> AgdaAny -> AgdaAny
d_'8709'_230 v0
= coe
MAlonzo.Code.Category.Applicative.Indexed.d_'8709'_176
(coe d_applicativeZero_186 (coe v0))
d_RawIMonadPlus_240 a0 a1 a2 a3 = ()
data T_RawIMonadPlus_240
= C_RawIMonadPlus'46'constructor_9847 T_RawIMonad_32
MAlonzo.Code.Category.Applicative.Indexed.T_RawIAlternative_210
d_monad_250 :: T_RawIMonadPlus_240 -> T_RawIMonad_32
d_monad_250 v0
= case coe v0 of
C_RawIMonadPlus'46'constructor_9847 v1 v2 -> coe v1
_ -> MAlonzo.RTE.mazUnreachableError
d_alternative_252 ::
T_RawIMonadPlus_240 ->
MAlonzo.Code.Category.Applicative.Indexed.T_RawIAlternative_210
d_alternative_252 v0
= case coe v0 of
C_RawIMonadPlus'46'constructor_9847 v1 v2 -> coe v2
_ -> MAlonzo.RTE.mazUnreachableError
d__'60''36'__256 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadPlus_240 ->
AgdaAny -> AgdaAny -> () -> () -> AgdaAny -> AgdaAny -> AgdaAny
d__'60''36'__256 ~v0 ~v1 ~v2 ~v3 v4 = du__'60''36'__256 v4
du__'60''36'__256 ::
T_RawIMonadPlus_240 ->
AgdaAny -> AgdaAny -> () -> () -> AgdaAny -> AgdaAny -> AgdaAny
du__'60''36'__256 v0
= let v1 = d_monad_250 (coe v0) in
let v2 = coe du_rawIApplicative_122 (coe v1) in
coe
(\ v3 v4 v5 v6 v7 v8 ->
coe
MAlonzo.Code.Category.Functor.du__'60''36'__32
(coe
MAlonzo.Code.Category.Applicative.Indexed.du_rawFunctor_72 (coe v2)
(coe v3) (coe v4))
v7 v8)
d__'60''36''62'__258 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadPlus_240 ->
AgdaAny ->
AgdaAny -> () -> () -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
d__'60''36''62'__258 ~v0 ~v1 ~v2 ~v3 v4 = du__'60''36''62'__258 v4
du__'60''36''62'__258 ::
T_RawIMonadPlus_240 ->
AgdaAny ->
AgdaAny -> () -> () -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
du__'60''36''62'__258 v0
= let v1 = d_monad_250 (coe v0) in
let v2 = coe du_rawIApplicative_122 (coe v1) in
coe
(\ v3 v4 ->
MAlonzo.Code.Category.Functor.d__'60''36''62'__30
(coe
MAlonzo.Code.Category.Applicative.Indexed.du_rawFunctor_72 (coe v2)
(coe v3) (coe v4)))
d__'60''38''62'__260 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadPlus_240 ->
AgdaAny ->
AgdaAny -> () -> () -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny
d__'60''38''62'__260 ~v0 ~v1 ~v2 ~v3 v4 = du__'60''38''62'__260 v4
du__'60''38''62'__260 ::
T_RawIMonadPlus_240 ->
AgdaAny ->
AgdaAny -> () -> () -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny
du__'60''38''62'__260 v0
= let v1 = d_monad_250 (coe v0) in
let v2 = coe du_rawIApplicative_122 (coe v1) in
coe
(\ v3 v4 v5 v6 v7 v8 ->
coe
MAlonzo.Code.Category.Functor.du__'60''38''62'__38
(coe
MAlonzo.Code.Category.Applicative.Indexed.du_rawFunctor_72 (coe v2)
(coe v3) (coe v4))
v7 v8)
d__'60''61''60'__262 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadPlus_240 ->
() ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
d__'60''61''60'__262 ~v0 ~v1 ~v2 ~v3 v4 = du__'60''61''60'__262 v4
du__'60''61''60'__262 ::
T_RawIMonadPlus_240 ->
() ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
du__'60''61''60'__262 v0 v1 v2 v3 v4 v5 v6 v7 v8 v9
= coe
du__'60''61''60'__106 (coe d_monad_250 (coe v0)) v5 v6 v7 v8 v9
d__'60''8859'__264 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadPlus_240 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d__'60''8859'__264 ~v0 ~v1 ~v2 ~v3 v4 = du__'60''8859'__264 v4
du__'60''8859'__264 ::
T_RawIMonadPlus_240 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du__'60''8859'__264 v0
= let v1 = d_monad_250 (coe v0) in
\ v2 v3 v4 v5 v6 v7 v8 ->
coe
MAlonzo.Code.Category.Applicative.Indexed.du__'60''8859'__96
(coe du_rawIApplicative_122 (coe v1)) v4 v5 v6 v7 v8
d__'61''60''60'__266 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadPlus_240 ->
() ->
() ->
AgdaAny ->
AgdaAny -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
d__'61''60''60'__266 ~v0 ~v1 ~v2 ~v3 v4 = du__'61''60''60'__266 v4
du__'61''60''60'__266 ::
T_RawIMonadPlus_240 ->
() ->
() ->
AgdaAny ->
AgdaAny -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
du__'61''60''60'__266 v0 v1 v2 v3 v4 v5 v6 v7
= coe
du__'61''60''60'__82 (coe d_monad_250 (coe v0)) v3 v4 v5 v6 v7
d__'62''61''62'__268 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadPlus_240 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
() ->
() ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
d__'62''61''62'__268 ~v0 ~v1 ~v2 ~v3 v4 = du__'62''61''62'__268 v4
du__'62''61''62'__268 ::
T_RawIMonadPlus_240 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
() ->
() ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
du__'62''61''62'__268 v0 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10
= coe
du__'62''61''62'__94 (coe d_monad_250 (coe v0)) v5 v6 v7 v8 v9 v10
d__'62''62'__270 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadPlus_240 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d__'62''62'__270 ~v0 ~v1 ~v2 ~v3 v4 = du__'62''62'__270 v4
du__'62''62'__270 ::
T_RawIMonadPlus_240 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du__'62''62'__270 v0 v1 v2 v3 v4 v5 v6 v7
= coe du__'62''62'__68 (coe d_monad_250 (coe v0)) v3 v4 v5 v6 v7
d__'62''62''61'__272 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadPlus_240 ->
() ->
() ->
AgdaAny ->
AgdaAny -> AgdaAny -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny
d__'62''62''61'__272 ~v0 ~v1 ~v2 ~v3 v4 = du__'62''62''61'__272 v4
du__'62''62''61'__272 ::
T_RawIMonadPlus_240 ->
() ->
() ->
AgdaAny ->
AgdaAny -> AgdaAny -> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny
du__'62''62''61'__272 v0
= coe d__'62''62''61'__60 (coe d_monad_250 (coe v0))
d__'8855'__274 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadPlus_240 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d__'8855'__274 ~v0 ~v1 ~v2 ~v3 v4 = du__'8855'__274 v4
du__'8855'__274 ::
T_RawIMonadPlus_240 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du__'8855'__274 v0
= let v1 = d_monad_250 (coe v0) in
\ v2 v3 v4 v5 v6 v7 v8 ->
coe
MAlonzo.Code.Category.Applicative.Indexed.du__'8855'__120
(coe du_rawIApplicative_122 (coe v1)) v4 v5 v6 v7 v8
d__'8859'__276 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadPlus_240 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d__'8859'__276 ~v0 ~v1 ~v2 ~v3 v4 = du__'8859'__276 v4
du__'8859'__276 ::
T_RawIMonadPlus_240 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du__'8859'__276 v0
= let v1 = d_monad_250 (coe v0) in
coe
(\ v2 v3 v4 v5 v6 v7 v8 ->
coe
d__'62''62''61'__60 v1 erased erased v4 v5 v6 v7
(\ v9 ->
coe
d__'62''62''61'__60 v1 erased erased v5 v6 v6 v8
(\ v10 -> coe d_return_52 v1 erased v6 (coe v9 v10))))
d__'8859''62'__278 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadPlus_240 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d__'8859''62'__278 ~v0 ~v1 ~v2 ~v3 v4 = du__'8859''62'__278 v4
du__'8859''62'__278 ::
T_RawIMonadPlus_240 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du__'8859''62'__278 v0
= let v1 = d_monad_250 (coe v0) in
\ v2 v3 v4 v5 v6 v7 v8 ->
coe
MAlonzo.Code.Category.Applicative.Indexed.du__'8859''62'__108
(coe du_rawIApplicative_122 (coe v1)) v4 v5 v6 v7 v8
d_join_280 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadPlus_240 ->
() -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d_join_280 ~v0 ~v1 ~v2 ~v3 v4 = du_join_280 v4
du_join_280 ::
T_RawIMonadPlus_240 ->
() -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du_join_280 v0 v1 v2 v3 v4 v5
= coe du_join_118 (coe d_monad_250 (coe v0)) v2 v3 v4 v5
d_pure_282 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadPlus_240 -> () -> AgdaAny -> AgdaAny -> AgdaAny
d_pure_282 ~v0 ~v1 ~v2 ~v3 v4 = du_pure_282 v4
du_pure_282 ::
T_RawIMonadPlus_240 -> () -> AgdaAny -> AgdaAny -> AgdaAny
du_pure_282 v0
= let v1 = d_monad_250 (coe v0) in coe d_return_52 (coe v1)
d_rawFunctor_284 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadPlus_240 ->
AgdaAny -> AgdaAny -> MAlonzo.Code.Category.Functor.T_RawFunctor_24
d_rawFunctor_284 ~v0 ~v1 ~v2 ~v3 v4 = du_rawFunctor_284 v4
du_rawFunctor_284 ::
T_RawIMonadPlus_240 ->
AgdaAny -> AgdaAny -> MAlonzo.Code.Category.Functor.T_RawFunctor_24
du_rawFunctor_284 v0
= let v1 = d_monad_250 (coe v0) in
coe
MAlonzo.Code.Category.Applicative.Indexed.du_rawFunctor_72
(coe du_rawIApplicative_122 (coe v1))
d_rawIApplicative_286 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadPlus_240 ->
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38
d_rawIApplicative_286 ~v0 ~v1 ~v2 ~v3 v4
= du_rawIApplicative_286 v4
du_rawIApplicative_286 ::
T_RawIMonadPlus_240 ->
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38
du_rawIApplicative_286 v0
= coe du_rawIApplicative_122 (coe d_monad_250 (coe v0))
d_return_288 ::
T_RawIMonadPlus_240 -> () -> AgdaAny -> AgdaAny -> AgdaAny
d_return_288 v0 = coe d_return_52 (coe d_monad_250 (coe v0))
d_zip_290 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadPlus_240 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d_zip_290 ~v0 ~v1 ~v2 ~v3 v4 = du_zip_290 v4
du_zip_290 ::
T_RawIMonadPlus_240 ->
() ->
() ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du_zip_290 v0
= let v1 = d_monad_250 (coe v0) in
\ v2 v3 v4 v5 v6 ->
coe
MAlonzo.Code.Category.Applicative.Indexed.du_zip_146
(coe du_rawIApplicative_122 (coe v1)) v4 v5 v6
d_zipWith_292 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadPlus_240 ->
() ->
() ->
() ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -> AgdaAny
d_zipWith_292 ~v0 ~v1 ~v2 ~v3 v4 = du_zipWith_292 v4
du_zipWith_292 ::
T_RawIMonadPlus_240 ->
() ->
() ->
() ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -> AgdaAny
du_zipWith_292 v0
= let v1 = d_monad_250 (coe v0) in
\ v2 v3 v4 v5 v6 v7 v8 v9 v10 ->
coe
MAlonzo.Code.Category.Applicative.Indexed.du_zipWith_132
(coe du_rawIApplicative_122 (coe v1)) v5 v6 v7 v8 v9 v10
d__'8739'__296 ::
T_RawIMonadPlus_240 ->
() -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d__'8739'__296 v0
= coe
MAlonzo.Code.Category.Applicative.Indexed.d__'8739'__230
(coe d_alternative_252 (coe v0))
d_'8709'_298 ::
T_RawIMonadPlus_240 -> () -> AgdaAny -> AgdaAny -> AgdaAny
d_'8709'_298 v0
= coe
MAlonzo.Code.Category.Applicative.Indexed.d_'8709'_176
(coe
MAlonzo.Code.Category.Applicative.Indexed.d_applicativeZero_224
(coe d_alternative_252 (coe v0)))
d_monadZero_300 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> () -> ()) ->
T_RawIMonadPlus_240 -> T_RawIMonadZero_174
d_monadZero_300 ~v0 ~v1 ~v2 ~v3 v4 = du_monadZero_300 v4
du_monadZero_300 :: T_RawIMonadPlus_240 -> T_RawIMonadZero_174
du_monadZero_300 v0
= coe
C_RawIMonadZero'46'constructor_7839 (coe d_monad_250 (coe v0))
(coe
MAlonzo.Code.Category.Applicative.Indexed.d_applicativeZero_224
(coe d_alternative_252 (coe v0)))