{-# 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.Data.Sum.Categorical.Left 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.Builtin.Unit
import qualified MAlonzo.Code.Agda.Primitive
import qualified MAlonzo.Code.Category.Applicative.Indexed
import qualified MAlonzo.Code.Category.Functor
import qualified MAlonzo.Code.Category.Monad.Indexed
import qualified MAlonzo.Code.Data.Sum.Base
import qualified MAlonzo.Code.Function.Base
import qualified MAlonzo.Code.Function.Identity.Categorical
d_Sum'8343'_14 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> MAlonzo.Code.Agda.Primitive.T_Level_18 -> () -> ()
d_Sum'8343'_14 :: T_Level_18 -> T_Level_18 -> T_Level_18 -> T_Level_18 -> T_Level_18
d_Sum'8343'_14 = T_Level_18 -> T_Level_18 -> T_Level_18 -> T_Level_18 -> T_Level_18
forall a. a
erased
d_functor_18 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Category.Functor.T_RawFunctor_24
d_functor_18 :: T_Level_18 -> T_Level_18 -> T_Level_18 -> T_RawFunctor_24
d_functor_18 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 = T_RawFunctor_24
du_functor_18
du_functor_18 :: MAlonzo.Code.Category.Functor.T_RawFunctor_24
du_functor_18 :: T_RawFunctor_24
du_functor_18
= ((T_Level_18 -> T_Level_18 -> (Any -> Any) -> Any -> Any)
-> T_RawFunctor_24)
-> Any -> T_RawFunctor_24
forall a b. a -> b
coe
(T_Level_18 -> T_Level_18 -> (Any -> Any) -> Any -> Any)
-> T_RawFunctor_24
MAlonzo.Code.Category.Functor.C_RawFunctor'46'constructor_241
((Any -> Any -> Any) -> Any
forall a b. a -> b
coe (\ Any
v0 Any
v1 -> ((Any -> Any) -> T__'8846'__30 -> T__'8846'__30) -> Any
forall a b. a -> b
coe (Any -> Any) -> T__'8846'__30 -> T__'8846'__30
MAlonzo.Code.Data.Sum.Base.du_map'8322'_94))
d_applicative_20 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38
d_applicative_20 :: T_Level_18 -> T_Level_18 -> T_Level_18 -> T_RawIApplicative_38
d_applicative_20 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 = T_RawIApplicative_38
du_applicative_20
du_applicative_20 ::
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38
du_applicative_20 :: T_RawIApplicative_38
du_applicative_20
= ((T_Level_18 -> Any -> Any -> Any)
-> (T_Level_18
-> T_Level_18 -> Any -> Any -> Any -> Any -> Any -> Any)
-> T_RawIApplicative_38)
-> Any -> Any -> T_RawIApplicative_38
forall a b. a -> b
coe
(T_Level_18 -> Any -> Any -> Any)
-> (T_Level_18
-> T_Level_18 -> Any -> Any -> Any -> Any -> Any -> Any)
-> T_RawIApplicative_38
MAlonzo.Code.Category.Applicative.Indexed.C_RawIApplicative'46'constructor_815
((Any -> Any -> Any) -> Any
forall a b. a -> b
coe (\ Any
v0 Any
v1 -> (Any -> T__'8846'__30) -> Any
forall a b. a -> b
coe Any -> T__'8846'__30
MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42))
((Any -> Any -> Any -> Any -> Any -> Any) -> Any
forall a b. a -> b
coe
(\ Any
v0 Any
v1 Any
v2 Any
v3 Any
v4 ->
((Any -> Any) -> (Any -> Any) -> T__'8846'__30 -> Any)
-> (Any -> Any) -> Any -> Any
forall a b. a -> b
coe
(Any -> Any) -> (Any -> Any) -> T__'8846'__30 -> Any
MAlonzo.Code.Data.Sum.Base.du_'91'_'44'_'93''8242'_66
(\ Any
v5 ->
let v6 :: t
v6 = (Any -> T__'8846'__30) -> Any -> t
forall a b. a -> b
coe Any -> T__'8846'__30
MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 (Any -> Any
forall a b. a -> b
coe Any
v5) in
(Any -> Any) -> Any
forall a b. a -> b
coe (\ Any
v7 -> Any
forall a. a
v6))
(((Any -> Any) -> T__'8846'__30 -> T__'8846'__30) -> Any
forall a b. a -> b
coe (Any -> Any) -> T__'8846'__30 -> T__'8846'__30
MAlonzo.Code.Data.Sum.Base.du_map'8322'_94)))
d_monadT_24 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(MAlonzo.Code.Agda.Builtin.Unit.T_'8868'_6 ->
MAlonzo.Code.Agda.Builtin.Unit.T_'8868'_6 -> () -> ()) ->
MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32 ->
MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32
d_monadT_24 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (T_Level_18 -> T_Level_18 -> T_Level_18 -> T_Level_18)
-> T_RawIMonad_32
-> T_RawIMonad_32
d_monadT_24 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18 -> T_Level_18 -> T_Level_18 -> T_Level_18
v3 T_RawIMonad_32
v4 = T_RawIMonad_32 -> T_RawIMonad_32
du_monadT_24 T_RawIMonad_32
v4
du_monadT_24 ::
MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32 ->
MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32
du_monadT_24 :: T_RawIMonad_32 -> T_RawIMonad_32
du_monadT_24 T_RawIMonad_32
v0
= ((T_Level_18 -> Any -> Any -> Any)
-> (T_Level_18
-> T_Level_18 -> Any -> Any -> Any -> Any -> (Any -> Any) -> Any)
-> T_RawIMonad_32)
-> Any -> Any -> T_RawIMonad_32
forall a b. a -> b
coe
(T_Level_18 -> Any -> Any -> Any)
-> (T_Level_18
-> T_Level_18 -> Any -> Any -> Any -> Any -> (Any -> Any) -> Any)
-> T_RawIMonad_32
MAlonzo.Code.Category.Monad.Indexed.C_RawIMonad'46'constructor_711
((Any -> Any -> Any -> Any) -> Any
forall a b. a -> b
coe
(\ Any
v1 Any
v2 Any
v3 ->
(T_RawIMonad_32 -> T_Level_18 -> Any -> Any -> Any)
-> T_RawIMonad_32 -> Any -> Any -> Any -> Any
forall a b. a -> b
coe
T_RawIMonad_32 -> T_Level_18 -> Any -> Any -> Any
MAlonzo.Code.Category.Monad.Indexed.d_return_52 T_RawIMonad_32
v0 Any
forall a. a
erased
(T_Level_18 -> Any
forall a b. a -> b
coe T_Level_18
MAlonzo.Code.Agda.Builtin.Unit.C_tt_8)
((Any -> T__'8846'__30) -> Any -> Any
forall a b. a -> b
coe Any -> T__'8846'__30
MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42 (Any -> Any
forall a b. a -> b
coe Any
v3))))
((Any -> Any -> Any -> Any -> Any -> Any -> Any -> Any) -> Any
forall a b. a -> b
coe
(\ Any
v1 Any
v2 Any
v3 Any
v4 Any
v5 Any
v6 Any
v7 ->
(T_RawIMonad_32
-> T_Level_18
-> T_Level_18
-> Any
-> Any
-> Any
-> Any
-> (Any -> Any)
-> Any)
-> T_RawIMonad_32
-> Any
-> Any
-> Any
-> Any
-> Any
-> Any
-> Any
-> Any
forall a b. a -> b
coe
T_RawIMonad_32
-> T_Level_18
-> T_Level_18
-> Any
-> Any
-> Any
-> Any
-> (Any -> Any)
-> Any
MAlonzo.Code.Category.Monad.Indexed.d__'62''62''61'__60 T_RawIMonad_32
v0 Any
forall a. a
erased
Any
forall a. a
erased (T_Level_18 -> Any
forall a b. a -> b
coe T_Level_18
MAlonzo.Code.Agda.Builtin.Unit.C_tt_8)
(T_Level_18 -> Any
forall a b. a -> b
coe T_Level_18
MAlonzo.Code.Agda.Builtin.Unit.C_tt_8)
(T_Level_18 -> Any
forall a b. a -> b
coe T_Level_18
MAlonzo.Code.Agda.Builtin.Unit.C_tt_8) Any
v6
(((Any -> Any) -> (Any -> Any) -> T__'8846'__30 -> Any)
-> Any -> Any -> Any
forall a b. a -> b
coe
(Any -> Any) -> (Any -> Any) -> T__'8846'__30 -> Any
MAlonzo.Code.Data.Sum.Base.du_'91'_'44'_'93''8242'_66
(((Any -> Any) -> (Any -> Any) -> Any -> Any) -> Any -> Any -> Any
forall a b. a -> b
coe
(Any -> Any) -> (Any -> Any) -> Any -> Any
MAlonzo.Code.Function.Base.du__'8728''8242'__226
((T_RawIMonad_32 -> T_Level_18 -> Any -> Any -> Any)
-> T_RawIMonad_32 -> Any -> Any -> Any
forall a b. a -> b
coe
T_RawIMonad_32 -> T_Level_18 -> Any -> Any -> Any
MAlonzo.Code.Category.Monad.Indexed.d_return_52 T_RawIMonad_32
v0 Any
forall a. a
erased
(T_Level_18 -> Any
forall a b. a -> b
coe T_Level_18
MAlonzo.Code.Agda.Builtin.Unit.C_tt_8))
((Any -> T__'8846'__30) -> Any
forall a b. a -> b
coe Any -> T__'8846'__30
MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38))
Any
v7)))
d_monad_76 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32
d_monad_76 :: T_Level_18 -> T_Level_18 -> T_Level_18 -> T_RawIMonad_32
d_monad_76 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 = T_RawIMonad_32
du_monad_76
du_monad_76 :: MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32
du_monad_76 :: T_RawIMonad_32
du_monad_76
= (T_RawIMonad_32 -> T_RawIMonad_32) -> Any -> T_RawIMonad_32
forall a b. a -> b
coe
T_RawIMonad_32 -> T_RawIMonad_32
du_monadT_24
(T_RawIMonad_32 -> Any
forall a b. a -> b
coe T_RawIMonad_32
MAlonzo.Code.Function.Identity.Categorical.du_monad_16)
d_sequenceA_110 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(() -> ()) ->
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38 ->
() -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -> AgdaAny
d_sequenceA_110 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (T_Level_18 -> T_Level_18)
-> T_RawIApplicative_38
-> T_Level_18
-> T__'8846'__30
-> Any
d_sequenceA_110 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18 -> T_Level_18
v3 T_RawIApplicative_38
v4 ~T_Level_18
v5 T__'8846'__30
v6 = T_RawIApplicative_38 -> T__'8846'__30 -> Any
du_sequenceA_110 T_RawIApplicative_38
v4 T__'8846'__30
v6
du_sequenceA_110 ::
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38 ->
MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -> AgdaAny
du_sequenceA_110 :: T_RawIApplicative_38 -> T__'8846'__30 -> Any
du_sequenceA_110 T_RawIApplicative_38
v0 T__'8846'__30
v1
= case T__'8846'__30 -> T__'8846'__30
forall a b. a -> b
coe T__'8846'__30
v1 of
MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 Any
v2
-> (T_RawIApplicative_38 -> T_Level_18 -> Any -> Any -> Any)
-> T_RawIApplicative_38 -> Any -> Any -> T__'8846'__30 -> Any
forall a b. a -> b
coe
T_RawIApplicative_38 -> T_Level_18 -> Any -> Any -> Any
MAlonzo.Code.Category.Applicative.Indexed.d_pure_58 T_RawIApplicative_38
v0 Any
forall a. a
erased
(T_Level_18 -> Any
forall a b. a -> b
coe T_Level_18
MAlonzo.Code.Agda.Builtin.Unit.C_tt_8) T__'8846'__30
v1
MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42 Any
v2
-> let v3 :: b
v3 = T_Level_18 -> b
forall a b. a -> b
coe T_Level_18
MAlonzo.Code.Agda.Builtin.Unit.C_tt_8 in
Any -> Any
forall a b. a -> b
coe
(let v4 :: b
v4 = T_Level_18 -> b
forall a b. a -> b
coe T_Level_18
MAlonzo.Code.Agda.Builtin.Unit.C_tt_8 in
Any -> Any
forall a b. a -> b
coe
((T_RawFunctor_24
-> T_Level_18 -> T_Level_18 -> (Any -> Any) -> Any -> Any)
-> Any -> Any -> Any -> Any -> Any -> Any
forall a b. a -> b
coe
T_RawFunctor_24
-> T_Level_18 -> T_Level_18 -> (Any -> Any) -> Any -> Any
MAlonzo.Code.Category.Functor.d__'60''36''62'__30
((T_RawIApplicative_38 -> Any -> Any -> T_RawFunctor_24)
-> Any -> Any -> Any -> Any
forall a b. a -> b
coe
T_RawIApplicative_38 -> Any -> Any -> T_RawFunctor_24
MAlonzo.Code.Category.Applicative.Indexed.du_rawFunctor_72 (T_RawIApplicative_38 -> Any
forall a b. a -> b
coe T_RawIApplicative_38
v0)
(Any -> Any
forall a b. a -> b
coe Any
forall a. a
v3) (Any -> Any
forall a b. a -> b
coe Any
forall a. a
v4))
Any
forall a. a
erased Any
forall a. a
erased ((Any -> T__'8846'__30) -> Any
forall a b. a -> b
coe Any -> T__'8846'__30
MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42) Any
v2))
T__'8846'__30
_ -> Any
forall a. a
MAlonzo.RTE.mazUnreachableError
d_mapA_120 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(() -> ()) ->
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38 ->
() ->
() ->
(AgdaAny -> AgdaAny) ->
MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -> AgdaAny
d_mapA_120 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (T_Level_18 -> T_Level_18)
-> T_RawIApplicative_38
-> T_Level_18
-> T_Level_18
-> (Any -> Any)
-> T__'8846'__30
-> Any
d_mapA_120 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18 -> T_Level_18
v3 T_RawIApplicative_38
v4 ~T_Level_18
v5 ~T_Level_18
v6 Any -> Any
v7 T__'8846'__30
v8 = T_RawIApplicative_38 -> (Any -> Any) -> T__'8846'__30 -> Any
du_mapA_120 T_RawIApplicative_38
v4 Any -> Any
v7 T__'8846'__30
v8
du_mapA_120 ::
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38 ->
(AgdaAny -> AgdaAny) ->
MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -> AgdaAny
du_mapA_120 :: T_RawIApplicative_38 -> (Any -> Any) -> T__'8846'__30 -> Any
du_mapA_120 T_RawIApplicative_38
v0 Any -> Any
v1 T__'8846'__30
v2
= (T_RawIApplicative_38 -> T__'8846'__30 -> Any) -> Any -> Any -> Any
forall a b. a -> b
coe
T_RawIApplicative_38 -> T__'8846'__30 -> Any
du_sequenceA_110 (T_RawIApplicative_38 -> Any
forall a b. a -> b
coe T_RawIApplicative_38
v0)
(((Any -> Any) -> T__'8846'__30 -> T__'8846'__30)
-> (Any -> Any) -> T__'8846'__30 -> Any
forall a b. a -> b
coe (Any -> Any) -> T__'8846'__30 -> T__'8846'__30
MAlonzo.Code.Data.Sum.Base.du_map'8322'_94 Any -> Any
v1 T__'8846'__30
v2)
d_forA_128 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(() -> ()) ->
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38 ->
() ->
() ->
MAlonzo.Code.Data.Sum.Base.T__'8846'__30 ->
(AgdaAny -> AgdaAny) -> AgdaAny
d_forA_128 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (T_Level_18 -> T_Level_18)
-> T_RawIApplicative_38
-> T_Level_18
-> T_Level_18
-> T__'8846'__30
-> (Any -> Any)
-> Any
d_forA_128 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18 -> T_Level_18
v3 T_RawIApplicative_38
v4 ~T_Level_18
v5 ~T_Level_18
v6 T__'8846'__30
v7 Any -> Any
v8 = T_RawIApplicative_38 -> T__'8846'__30 -> (Any -> Any) -> Any
du_forA_128 T_RawIApplicative_38
v4 T__'8846'__30
v7 Any -> Any
v8
du_forA_128 ::
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38 ->
MAlonzo.Code.Data.Sum.Base.T__'8846'__30 ->
(AgdaAny -> AgdaAny) -> AgdaAny
du_forA_128 :: T_RawIApplicative_38 -> T__'8846'__30 -> (Any -> Any) -> Any
du_forA_128 T_RawIApplicative_38
v0 T__'8846'__30
v1 Any -> Any
v2 = (T_RawIApplicative_38 -> (Any -> Any) -> T__'8846'__30 -> Any)
-> Any -> Any -> Any -> Any
forall a b. a -> b
coe T_RawIApplicative_38 -> (Any -> Any) -> T__'8846'__30 -> Any
du_mapA_120 (T_RawIApplicative_38 -> Any
forall a b. a -> b
coe T_RawIApplicative_38
v0) ((Any -> Any) -> Any
forall a b. a -> b
coe Any -> Any
v2) (T__'8846'__30 -> Any
forall a b. a -> b
coe T__'8846'__30
v1)
d_forA_178 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(() -> ()) ->
MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32 ->
() ->
() ->
MAlonzo.Code.Data.Sum.Base.T__'8846'__30 ->
(AgdaAny -> AgdaAny) -> AgdaAny
d_forA_178 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (T_Level_18 -> T_Level_18)
-> T_RawIMonad_32
-> T_Level_18
-> T_Level_18
-> T__'8846'__30
-> (Any -> Any)
-> Any
d_forA_178 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18 -> T_Level_18
v3 T_RawIMonad_32
v4 = T_RawIMonad_32
-> T_Level_18 -> T_Level_18 -> T__'8846'__30 -> (Any -> Any) -> Any
du_forA_178 T_RawIMonad_32
v4
du_forA_178 ::
MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32 ->
() ->
() ->
MAlonzo.Code.Data.Sum.Base.T__'8846'__30 ->
(AgdaAny -> AgdaAny) -> AgdaAny
du_forA_178 :: T_RawIMonad_32
-> T_Level_18 -> T_Level_18 -> T__'8846'__30 -> (Any -> Any) -> Any
du_forA_178 T_RawIMonad_32
v0 T_Level_18
v1 T_Level_18
v2 T__'8846'__30
v3 Any -> Any
v4
= (T_RawIApplicative_38 -> T__'8846'__30 -> (Any -> Any) -> Any)
-> Any -> T__'8846'__30 -> (Any -> Any) -> Any
forall a b. a -> b
coe
T_RawIApplicative_38 -> T__'8846'__30 -> (Any -> Any) -> Any
du_forA_128
((T_RawIMonad_32 -> T_RawIApplicative_38) -> Any -> Any
forall a b. a -> b
coe
T_RawIMonad_32 -> T_RawIApplicative_38
MAlonzo.Code.Category.Monad.Indexed.du_rawIApplicative_122
(T_RawIMonad_32 -> Any
forall a b. a -> b
coe T_RawIMonad_32
v0))
T__'8846'__30
v3 Any -> Any
v4
d_mapA_180 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(() -> ()) ->
MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32 ->
() ->
() ->
(AgdaAny -> AgdaAny) ->
MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -> AgdaAny
d_mapA_180 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (T_Level_18 -> T_Level_18)
-> T_RawIMonad_32
-> T_Level_18
-> T_Level_18
-> (Any -> Any)
-> T__'8846'__30
-> Any
d_mapA_180 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18 -> T_Level_18
v3 T_RawIMonad_32
v4 = T_RawIMonad_32
-> T_Level_18 -> T_Level_18 -> (Any -> Any) -> T__'8846'__30 -> Any
du_mapA_180 T_RawIMonad_32
v4
du_mapA_180 ::
MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32 ->
() ->
() ->
(AgdaAny -> AgdaAny) ->
MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -> AgdaAny
du_mapA_180 :: T_RawIMonad_32
-> T_Level_18 -> T_Level_18 -> (Any -> Any) -> T__'8846'__30 -> Any
du_mapA_180 T_RawIMonad_32
v0 T_Level_18
v1 T_Level_18
v2 Any -> Any
v3 T__'8846'__30
v4
= (T_RawIApplicative_38 -> (Any -> Any) -> T__'8846'__30 -> Any)
-> Any -> (Any -> Any) -> T__'8846'__30 -> Any
forall a b. a -> b
coe
T_RawIApplicative_38 -> (Any -> Any) -> T__'8846'__30 -> Any
du_mapA_120
((T_RawIMonad_32 -> T_RawIApplicative_38) -> Any -> Any
forall a b. a -> b
coe
T_RawIMonad_32 -> T_RawIApplicative_38
MAlonzo.Code.Category.Monad.Indexed.du_rawIApplicative_122
(T_RawIMonad_32 -> Any
forall a b. a -> b
coe T_RawIMonad_32
v0))
Any -> Any
v3 T__'8846'__30
v4
d_sequenceA_182 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(() -> ()) ->
MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32 ->
() -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -> AgdaAny
d_sequenceA_182 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (T_Level_18 -> T_Level_18)
-> T_RawIMonad_32
-> T_Level_18
-> T__'8846'__30
-> Any
d_sequenceA_182 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18 -> T_Level_18
v3 T_RawIMonad_32
v4 = T_RawIMonad_32 -> T_Level_18 -> T__'8846'__30 -> Any
du_sequenceA_182 T_RawIMonad_32
v4
du_sequenceA_182 ::
MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32 ->
() -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30 -> AgdaAny
du_sequenceA_182 :: T_RawIMonad_32 -> T_Level_18 -> T__'8846'__30 -> Any
du_sequenceA_182 T_RawIMonad_32
v0 T_Level_18
v1 T__'8846'__30
v2
= (T_RawIApplicative_38 -> T__'8846'__30 -> Any)
-> Any -> T__'8846'__30 -> Any
forall a b. a -> b
coe
T_RawIApplicative_38 -> T__'8846'__30 -> Any
du_sequenceA_110
((T_RawIMonad_32 -> T_RawIApplicative_38) -> Any -> Any
forall a b. a -> b
coe
T_RawIMonad_32 -> T_RawIApplicative_38
MAlonzo.Code.Category.Monad.Indexed.du_rawIApplicative_122
(T_RawIMonad_32 -> Any
forall a b. a -> b
coe T_RawIMonad_32
v0))
T__'8846'__30
v2