{-# 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.Maybe.Relation.Unary.All 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.Bool
import qualified MAlonzo.Code.Agda.Builtin.Equality
import qualified MAlonzo.Code.Agda.Builtin.Maybe
import qualified MAlonzo.Code.Agda.Builtin.Sigma
import qualified MAlonzo.Code.Agda.Primitive
import qualified MAlonzo.Code.Data.Maybe.Relation.Unary.Any
import qualified MAlonzo.Code.Data.Product.Base
import qualified MAlonzo.Code.Effect.Applicative
import qualified MAlonzo.Code.Effect.Functor
import qualified MAlonzo.Code.Effect.Monad
import qualified MAlonzo.Code.Function.Base
import qualified MAlonzo.Code.Function.Bundles
import qualified MAlonzo.Code.Relation.Nullary.Decidable
import qualified MAlonzo.Code.Relation.Nullary.Decidable.Core
import qualified MAlonzo.Code.Relation.Nullary.Reflects
d_All_18 :: p -> p -> p -> p -> p -> ()
d_All_18 p
a0 p
a1 p
a2 p
a3 p
a4 = ()
data T_All_18 = C_just_30 AgdaAny | C_nothing_32
d_drop'45'just_48 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> ()) -> AgdaAny -> T_All_18 -> AgdaAny
d_drop'45'just_48 :: () -> () -> () -> (AgdaAny -> ()) -> AgdaAny -> T_All_18 -> AgdaAny
d_drop'45'just_48 ~()
v0 ~()
v1 ~()
v2 ~AgdaAny -> ()
v3 ~AgdaAny
v4 T_All_18
v5 = T_All_18 -> AgdaAny
du_drop'45'just_48 T_All_18
v5
du_drop'45'just_48 :: T_All_18 -> AgdaAny
du_drop'45'just_48 :: T_All_18 -> AgdaAny
du_drop'45'just_48 T_All_18
v0
= case T_All_18 -> T_All_18
forall a b. a -> b
coe T_All_18
v0 of
C_just_30 AgdaAny
v2 -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2
T_All_18
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
d_just'45'equivalence_54 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> ()) ->
AgdaAny -> MAlonzo.Code.Function.Bundles.T_Equivalence_1714
d_just'45'equivalence_54 :: () -> () -> () -> (AgdaAny -> ()) -> AgdaAny -> T_Equivalence_1714
d_just'45'equivalence_54 ~()
v0 ~()
v1 ~()
v2 ~AgdaAny -> ()
v3 ~AgdaAny
v4
= T_Equivalence_1714
du_just'45'equivalence_54
du_just'45'equivalence_54 ::
MAlonzo.Code.Function.Bundles.T_Equivalence_1714
du_just'45'equivalence_54 :: T_Equivalence_1714
du_just'45'equivalence_54
= ((AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny) -> T_Equivalence_1714)
-> AgdaAny -> AgdaAny -> T_Equivalence_1714
forall a b. a -> b
coe
(AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> T_Equivalence_1714
MAlonzo.Code.Function.Bundles.du_mk'8660'_2298 ((AgdaAny -> T_All_18) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_All_18
C_just_30)
((T_All_18 -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe T_All_18 -> AgdaAny
du_drop'45'just_48)
d_map_60 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> ()) ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(AgdaAny -> ()) ->
(AgdaAny -> AgdaAny -> AgdaAny) ->
Maybe AgdaAny -> T_All_18 -> T_All_18
d_map_60 :: ()
-> ()
-> ()
-> (AgdaAny -> ())
-> ()
-> (AgdaAny -> ())
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> Maybe AgdaAny
-> T_All_18
-> T_All_18
d_map_60 ~()
v0 ~()
v1 ~()
v2 ~AgdaAny -> ()
v3 ~()
v4 ~AgdaAny -> ()
v5 AgdaAny -> AgdaAny -> AgdaAny
v6 Maybe AgdaAny
v7 T_All_18
v8 = (AgdaAny -> AgdaAny -> AgdaAny)
-> Maybe AgdaAny -> T_All_18 -> T_All_18
du_map_60 AgdaAny -> AgdaAny -> AgdaAny
v6 Maybe AgdaAny
v7 T_All_18
v8
du_map_60 ::
(AgdaAny -> AgdaAny -> AgdaAny) ->
Maybe AgdaAny -> T_All_18 -> T_All_18
du_map_60 :: (AgdaAny -> AgdaAny -> AgdaAny)
-> Maybe AgdaAny -> T_All_18 -> T_All_18
du_map_60 AgdaAny -> AgdaAny -> AgdaAny
v0 Maybe AgdaAny
v1 T_All_18
v2
= case T_All_18 -> T_All_18
forall a b. a -> b
coe T_All_18
v2 of
C_just_30 AgdaAny
v4
-> case Maybe AgdaAny -> Maybe AgdaAny
forall a b. a -> b
coe Maybe AgdaAny
v1 of
MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 AgdaAny
v5
-> (AgdaAny -> T_All_18) -> AgdaAny -> T_All_18
forall a b. a -> b
coe AgdaAny -> T_All_18
C_just_30 ((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> AgdaAny
v0 AgdaAny
v5 AgdaAny
v4)
Maybe AgdaAny
_ -> T_All_18
forall a. a
MAlonzo.RTE.mazUnreachableError
T_All_18
C_nothing_32 -> T_All_18 -> T_All_18
forall a b. a -> b
coe T_All_18
v2
T_All_18
_ -> T_All_18
forall a. a
MAlonzo.RTE.mazUnreachableError
d_fromAny_68 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> ()) ->
Maybe AgdaAny ->
MAlonzo.Code.Data.Maybe.Relation.Unary.Any.T_Any_18 -> T_All_18
d_fromAny_68 :: ()
-> ()
-> ()
-> (AgdaAny -> ())
-> Maybe AgdaAny
-> T_Any_18
-> T_All_18
d_fromAny_68 ~()
v0 ~()
v1 ~()
v2 ~AgdaAny -> ()
v3 ~Maybe AgdaAny
v4 T_Any_18
v5 = T_Any_18 -> T_All_18
du_fromAny_68 T_Any_18
v5
du_fromAny_68 ::
MAlonzo.Code.Data.Maybe.Relation.Unary.Any.T_Any_18 -> T_All_18
du_fromAny_68 :: T_Any_18 -> T_All_18
du_fromAny_68 T_Any_18
v0
= case T_Any_18 -> T_Any_18
forall a b. a -> b
coe T_Any_18
v0 of
MAlonzo.Code.Data.Maybe.Relation.Unary.Any.C_just_30 AgdaAny
v2
-> (AgdaAny -> T_All_18) -> AgdaAny -> T_All_18
forall a b. a -> b
coe AgdaAny -> T_All_18
C_just_30 AgdaAny
v2
T_Any_18
_ -> T_All_18
forall a. a
MAlonzo.RTE.mazUnreachableError
d_zipWith_92 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> ()) ->
(AgdaAny -> ()) ->
(AgdaAny -> ()) ->
(AgdaAny -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> AgdaAny) ->
Maybe AgdaAny -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> T_All_18
d_zipWith_92 :: ()
-> ()
-> ()
-> ()
-> ()
-> (AgdaAny -> ())
-> (AgdaAny -> ())
-> (AgdaAny -> ())
-> (AgdaAny -> T_Σ_14 -> AgdaAny)
-> Maybe AgdaAny
-> T_Σ_14
-> T_All_18
d_zipWith_92 ~()
v0 ~()
v1 ~()
v2 ~()
v3 ~()
v4 ~AgdaAny -> ()
v5 ~AgdaAny -> ()
v6 ~AgdaAny -> ()
v7 AgdaAny -> T_Σ_14 -> AgdaAny
v8 Maybe AgdaAny
v9 T_Σ_14
v10
= (AgdaAny -> T_Σ_14 -> AgdaAny)
-> Maybe AgdaAny -> T_Σ_14 -> T_All_18
du_zipWith_92 AgdaAny -> T_Σ_14 -> AgdaAny
v8 Maybe AgdaAny
v9 T_Σ_14
v10
du_zipWith_92 ::
(AgdaAny -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> AgdaAny) ->
Maybe AgdaAny -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> T_All_18
du_zipWith_92 :: (AgdaAny -> T_Σ_14 -> AgdaAny)
-> Maybe AgdaAny -> T_Σ_14 -> T_All_18
du_zipWith_92 AgdaAny -> T_Σ_14 -> AgdaAny
v0 Maybe AgdaAny
v1 T_Σ_14
v2
= case T_Σ_14 -> T_Σ_14
forall a b. a -> b
coe T_Σ_14
v2 of
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 AgdaAny
v3 AgdaAny
v4
-> case AgdaAny -> T_All_18
forall a b. a -> b
coe AgdaAny
v3 of
C_just_30 AgdaAny
v6
-> case Maybe AgdaAny -> Maybe AgdaAny
forall a b. a -> b
coe Maybe AgdaAny
v1 of
MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 AgdaAny
v7
-> case AgdaAny -> T_All_18
forall a b. a -> b
coe AgdaAny
v4 of
C_just_30 AgdaAny
v9
-> (AgdaAny -> T_All_18) -> AgdaAny -> T_All_18
forall a b. a -> b
coe
AgdaAny -> T_All_18
C_just_30
((AgdaAny -> T_Σ_14 -> AgdaAny) -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> T_Σ_14 -> AgdaAny
v0 AgdaAny
v7
((AgdaAny -> AgdaAny -> T_Σ_14) -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> AgdaAny -> T_Σ_14
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v6)
(AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v9)))
T_All_18
_ -> T_All_18
forall a. a
MAlonzo.RTE.mazUnreachableError
Maybe AgdaAny
_ -> T_All_18
forall a. a
MAlonzo.RTE.mazUnreachableError
T_All_18
C_nothing_32 -> (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -> T_All_18
forall a b. a -> b
coe AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b -> b
seq (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v4) (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v3)
T_All_18
_ -> T_All_18
forall a. a
MAlonzo.RTE.mazUnreachableError
T_Σ_14
_ -> T_All_18
forall a. a
MAlonzo.RTE.mazUnreachableError
d_unzipWith_102 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> ()) ->
(AgdaAny -> ()) ->
(AgdaAny -> ()) ->
(AgdaAny -> AgdaAny -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) ->
Maybe AgdaAny -> T_All_18 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_unzipWith_102 :: ()
-> ()
-> ()
-> ()
-> ()
-> (AgdaAny -> ())
-> (AgdaAny -> ())
-> (AgdaAny -> ())
-> (AgdaAny -> AgdaAny -> T_Σ_14)
-> Maybe AgdaAny
-> T_All_18
-> T_Σ_14
d_unzipWith_102 ~()
v0 ~()
v1 ~()
v2 ~()
v3 ~()
v4 ~AgdaAny -> ()
v5 ~AgdaAny -> ()
v6 ~AgdaAny -> ()
v7 AgdaAny -> AgdaAny -> T_Σ_14
v8 Maybe AgdaAny
v9 T_All_18
v10
= (AgdaAny -> AgdaAny -> T_Σ_14)
-> Maybe AgdaAny -> T_All_18 -> T_Σ_14
du_unzipWith_102 AgdaAny -> AgdaAny -> T_Σ_14
v8 Maybe AgdaAny
v9 T_All_18
v10
du_unzipWith_102 ::
(AgdaAny -> AgdaAny -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) ->
Maybe AgdaAny -> T_All_18 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_unzipWith_102 :: (AgdaAny -> AgdaAny -> T_Σ_14)
-> Maybe AgdaAny -> T_All_18 -> T_Σ_14
du_unzipWith_102 AgdaAny -> AgdaAny -> T_Σ_14
v0 Maybe AgdaAny
v1 T_All_18
v2
= case T_All_18 -> T_All_18
forall a b. a -> b
coe T_All_18
v2 of
C_just_30 AgdaAny
v4
-> case Maybe AgdaAny -> Maybe AgdaAny
forall a b. a -> b
coe Maybe AgdaAny
v1 of
MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 AgdaAny
v5
-> ((AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny -> AgdaAny) -> T_Σ_14 -> T_Σ_14)
-> AgdaAny -> AgdaAny -> AgdaAny -> T_Σ_14
forall a b. a -> b
coe
(AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny -> AgdaAny) -> T_Σ_14 -> T_Σ_14
MAlonzo.Code.Data.Product.Base.du_map_128 ((AgdaAny -> T_All_18) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_All_18
C_just_30)
((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe (\ AgdaAny
v6 -> (AgdaAny -> T_All_18) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_All_18
C_just_30)) ((AgdaAny -> AgdaAny -> T_Σ_14) -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> T_Σ_14
v0 AgdaAny
v5 AgdaAny
v4)
Maybe AgdaAny
_ -> T_Σ_14
forall a. a
MAlonzo.RTE.mazUnreachableError
T_All_18
C_nothing_32
-> (AgdaAny -> AgdaAny -> T_Σ_14) -> AgdaAny -> AgdaAny -> T_Σ_14
forall a b. a -> b
coe
AgdaAny -> AgdaAny -> T_Σ_14
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (T_All_18 -> AgdaAny
forall a b. a -> b
coe T_All_18
v2) (T_All_18 -> AgdaAny
forall a b. a -> b
coe T_All_18
v2)
T_All_18
_ -> T_Σ_14
forall a. a
MAlonzo.RTE.mazUnreachableError
d_zip_126 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> ()) ->
(AgdaAny -> ()) ->
Maybe AgdaAny -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> T_All_18
d_zip_126 :: ()
-> ()
-> ()
-> ()
-> (AgdaAny -> ())
-> (AgdaAny -> ())
-> Maybe AgdaAny
-> T_Σ_14
-> T_All_18
d_zip_126 ~()
v0 ~()
v1 ~()
v2 ~()
v3 ~AgdaAny -> ()
v4 ~AgdaAny -> ()
v5 Maybe AgdaAny
v6 = Maybe AgdaAny -> T_Σ_14 -> T_All_18
du_zip_126 Maybe AgdaAny
v6
du_zip_126 ::
Maybe AgdaAny -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> T_All_18
du_zip_126 :: Maybe AgdaAny -> T_Σ_14 -> T_All_18
du_zip_126 Maybe AgdaAny
v0 = ((AgdaAny -> T_Σ_14 -> AgdaAny)
-> Maybe AgdaAny -> T_Σ_14 -> T_All_18)
-> AgdaAny -> AgdaAny -> T_Σ_14 -> T_All_18
forall a b. a -> b
coe (AgdaAny -> T_Σ_14 -> AgdaAny)
-> Maybe AgdaAny -> T_Σ_14 -> T_All_18
du_zipWith_92 ((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe (\ AgdaAny
v1 AgdaAny
v2 -> AgdaAny
v2)) (Maybe AgdaAny -> AgdaAny
forall a b. a -> b
coe Maybe AgdaAny
v0)
d_unzip_128 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> ()) ->
(AgdaAny -> ()) ->
Maybe AgdaAny -> T_All_18 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_unzip_128 :: ()
-> ()
-> ()
-> ()
-> (AgdaAny -> ())
-> (AgdaAny -> ())
-> Maybe AgdaAny
-> T_All_18
-> T_Σ_14
d_unzip_128 ~()
v0 ~()
v1 ~()
v2 ~()
v3 ~AgdaAny -> ()
v4 ~AgdaAny -> ()
v5 Maybe AgdaAny
v6 = Maybe AgdaAny -> T_All_18 -> T_Σ_14
du_unzip_128 Maybe AgdaAny
v6
du_unzip_128 ::
Maybe AgdaAny -> T_All_18 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_unzip_128 :: Maybe AgdaAny -> T_All_18 -> T_Σ_14
du_unzip_128 Maybe AgdaAny
v0
= ((AgdaAny -> AgdaAny -> T_Σ_14)
-> Maybe AgdaAny -> T_All_18 -> T_Σ_14)
-> AgdaAny -> AgdaAny -> T_All_18 -> T_Σ_14
forall a b. a -> b
coe (AgdaAny -> AgdaAny -> T_Σ_14)
-> Maybe AgdaAny -> T_All_18 -> T_Σ_14
du_unzipWith_102 ((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe (\ AgdaAny
v1 AgdaAny
v2 -> AgdaAny
v2)) (Maybe AgdaAny -> AgdaAny
forall a b. a -> b
coe Maybe AgdaAny
v0)
d_sequenceA_182 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> ()) ->
(() -> ()) ->
MAlonzo.Code.Effect.Applicative.T_RawApplicative_20 ->
Maybe AgdaAny -> T_All_18 -> AgdaAny
d_sequenceA_182 :: ()
-> ()
-> ()
-> ()
-> (AgdaAny -> ())
-> (() -> ())
-> T_RawApplicative_20
-> Maybe AgdaAny
-> T_All_18
-> AgdaAny
d_sequenceA_182 ~()
v0 ~()
v1 ~()
v2 ~()
v3 ~AgdaAny -> ()
v4 ~() -> ()
v5 T_RawApplicative_20
v6 ~Maybe AgdaAny
v7 T_All_18
v8
= T_RawApplicative_20 -> T_All_18 -> AgdaAny
du_sequenceA_182 T_RawApplicative_20
v6 T_All_18
v8
du_sequenceA_182 ::
MAlonzo.Code.Effect.Applicative.T_RawApplicative_20 ->
T_All_18 -> AgdaAny
du_sequenceA_182 :: T_RawApplicative_20 -> T_All_18 -> AgdaAny
du_sequenceA_182 T_RawApplicative_20
v0 T_All_18
v1
= case T_All_18 -> T_All_18
forall a b. a -> b
coe T_All_18
v1 of
C_just_30 AgdaAny
v3
-> (T_RawFunctor_24
-> () -> () -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny)
-> T_RawFunctor_24
-> AgdaAny
-> AgdaAny
-> AgdaAny
-> AgdaAny
-> AgdaAny
forall a b. a -> b
coe
T_RawFunctor_24
-> () -> () -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
MAlonzo.Code.Effect.Functor.d__'60''36''62'__30
(T_RawApplicative_20 -> T_RawFunctor_24
MAlonzo.Code.Effect.Applicative.d_rawFunctor_30 (T_RawApplicative_20 -> T_RawApplicative_20
forall a b. a -> b
coe T_RawApplicative_20
v0)) AgdaAny
forall a. a
erased
AgdaAny
forall a. a
erased ((AgdaAny -> T_All_18) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_All_18
C_just_30) AgdaAny
v3
T_All_18
C_nothing_32
-> (T_RawApplicative_20 -> () -> AgdaAny -> AgdaAny)
-> T_RawApplicative_20 -> AgdaAny -> T_All_18 -> AgdaAny
forall a b. a -> b
coe T_RawApplicative_20 -> () -> AgdaAny -> AgdaAny
MAlonzo.Code.Effect.Applicative.d_pure_32 T_RawApplicative_20
v0 AgdaAny
forall a. a
erased T_All_18
v1
T_All_18
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
d_mapA_190 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> ()) ->
(() -> ()) ->
MAlonzo.Code.Effect.Applicative.T_RawApplicative_20 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(AgdaAny -> ()) ->
(AgdaAny -> AgdaAny -> AgdaAny) ->
Maybe AgdaAny -> T_All_18 -> AgdaAny
d_mapA_190 :: ()
-> ()
-> ()
-> ()
-> (AgdaAny -> ())
-> (() -> ())
-> T_RawApplicative_20
-> ()
-> (AgdaAny -> ())
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> Maybe AgdaAny
-> T_All_18
-> AgdaAny
d_mapA_190 ~()
v0 ~()
v1 ~()
v2 ~()
v3 ~AgdaAny -> ()
v4 ~() -> ()
v5 T_RawApplicative_20
v6 ~()
v7 ~AgdaAny -> ()
v8 AgdaAny -> AgdaAny -> AgdaAny
v9 Maybe AgdaAny
v10
= T_RawApplicative_20
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> Maybe AgdaAny
-> T_All_18
-> AgdaAny
du_mapA_190 T_RawApplicative_20
v6 AgdaAny -> AgdaAny -> AgdaAny
v9 Maybe AgdaAny
v10
du_mapA_190 ::
MAlonzo.Code.Effect.Applicative.T_RawApplicative_20 ->
(AgdaAny -> AgdaAny -> AgdaAny) ->
Maybe AgdaAny -> T_All_18 -> AgdaAny
du_mapA_190 :: T_RawApplicative_20
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> Maybe AgdaAny
-> T_All_18
-> AgdaAny
du_mapA_190 T_RawApplicative_20
v0 AgdaAny -> AgdaAny -> AgdaAny
v1 Maybe AgdaAny
v2
= ((AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny)
-> AgdaAny -> AgdaAny -> T_All_18 -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
MAlonzo.Code.Function.Base.du__'8728''8242'__216
((T_RawApplicative_20 -> T_All_18 -> AgdaAny) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe T_RawApplicative_20 -> T_All_18 -> AgdaAny
du_sequenceA_182 (T_RawApplicative_20 -> AgdaAny
forall a b. a -> b
coe T_RawApplicative_20
v0)) (((AgdaAny -> AgdaAny -> AgdaAny)
-> Maybe AgdaAny -> T_All_18 -> T_All_18)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> AgdaAny -> AgdaAny)
-> Maybe AgdaAny -> T_All_18 -> T_All_18
du_map_60 ((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> AgdaAny
v1) (Maybe AgdaAny -> AgdaAny
forall a b. a -> b
coe Maybe AgdaAny
v2))
d_forA_200 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> ()) ->
(() -> ()) ->
MAlonzo.Code.Effect.Applicative.T_RawApplicative_20 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(AgdaAny -> ()) ->
Maybe AgdaAny ->
T_All_18 -> (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
d_forA_200 :: ()
-> ()
-> ()
-> ()
-> (AgdaAny -> ())
-> (() -> ())
-> T_RawApplicative_20
-> ()
-> (AgdaAny -> ())
-> Maybe AgdaAny
-> T_All_18
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny
d_forA_200 ~()
v0 ~()
v1 ~()
v2 ~()
v3 ~AgdaAny -> ()
v4 ~() -> ()
v5 T_RawApplicative_20
v6 ~()
v7 ~AgdaAny -> ()
v8 Maybe AgdaAny
v9 T_All_18
v10 AgdaAny -> AgdaAny -> AgdaAny
v11
= T_RawApplicative_20
-> Maybe AgdaAny
-> T_All_18
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny
du_forA_200 T_RawApplicative_20
v6 Maybe AgdaAny
v9 T_All_18
v10 AgdaAny -> AgdaAny -> AgdaAny
v11
du_forA_200 ::
MAlonzo.Code.Effect.Applicative.T_RawApplicative_20 ->
Maybe AgdaAny ->
T_All_18 -> (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
du_forA_200 :: T_RawApplicative_20
-> Maybe AgdaAny
-> T_All_18
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny
du_forA_200 T_RawApplicative_20
v0 Maybe AgdaAny
v1 T_All_18
v2 AgdaAny -> AgdaAny -> AgdaAny
v3 = (T_RawApplicative_20
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> Maybe AgdaAny
-> T_All_18
-> AgdaAny)
-> T_RawApplicative_20
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> Maybe AgdaAny
-> T_All_18
-> AgdaAny
forall a b. a -> b
coe T_RawApplicative_20
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> Maybe AgdaAny
-> T_All_18
-> AgdaAny
du_mapA_190 T_RawApplicative_20
v0 AgdaAny -> AgdaAny -> AgdaAny
v3 Maybe AgdaAny
v1 T_All_18
v2
d_App_224 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> ()) ->
(() -> ()) ->
MAlonzo.Code.Effect.Monad.T_RawMonad_24 ->
MAlonzo.Code.Effect.Applicative.T_RawApplicative_20
d_App_224 :: ()
-> ()
-> ()
-> ()
-> (AgdaAny -> ())
-> (() -> ())
-> T_RawMonad_24
-> T_RawApplicative_20
d_App_224 ~()
v0 ~()
v1 ~()
v2 ~()
v3 ~AgdaAny -> ()
v4 ~() -> ()
v5 T_RawMonad_24
v6 = T_RawMonad_24 -> T_RawApplicative_20
du_App_224 T_RawMonad_24
v6
du_App_224 ::
MAlonzo.Code.Effect.Monad.T_RawMonad_24 ->
MAlonzo.Code.Effect.Applicative.T_RawApplicative_20
du_App_224 :: T_RawMonad_24 -> T_RawApplicative_20
du_App_224 T_RawMonad_24
v0
= (T_RawMonad_24 -> T_RawApplicative_20)
-> AgdaAny -> T_RawApplicative_20
forall a b. a -> b
coe T_RawMonad_24 -> T_RawApplicative_20
MAlonzo.Code.Effect.Monad.d_rawApplicative_32 (T_RawMonad_24 -> AgdaAny
forall a b. a -> b
coe T_RawMonad_24
v0)
d_sequenceM_226 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> ()) ->
(() -> ()) ->
MAlonzo.Code.Effect.Monad.T_RawMonad_24 ->
Maybe AgdaAny -> T_All_18 -> AgdaAny
d_sequenceM_226 :: ()
-> ()
-> ()
-> ()
-> (AgdaAny -> ())
-> (() -> ())
-> T_RawMonad_24
-> Maybe AgdaAny
-> T_All_18
-> AgdaAny
d_sequenceM_226 ~()
v0 ~()
v1 ~()
v2 ~()
v3 ~AgdaAny -> ()
v4 ~() -> ()
v5 T_RawMonad_24
v6 ~Maybe AgdaAny
v7
= T_RawMonad_24 -> T_All_18 -> AgdaAny
du_sequenceM_226 T_RawMonad_24
v6
du_sequenceM_226 ::
MAlonzo.Code.Effect.Monad.T_RawMonad_24 -> T_All_18 -> AgdaAny
du_sequenceM_226 :: T_RawMonad_24 -> T_All_18 -> AgdaAny
du_sequenceM_226 T_RawMonad_24
v0
= (T_RawApplicative_20 -> T_All_18 -> AgdaAny)
-> AgdaAny -> T_All_18 -> AgdaAny
forall a b. a -> b
coe T_RawApplicative_20 -> T_All_18 -> AgdaAny
du_sequenceA_182 ((T_RawMonad_24 -> T_RawApplicative_20) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe T_RawMonad_24 -> T_RawApplicative_20
du_App_224 (T_RawMonad_24 -> AgdaAny
forall a b. a -> b
coe T_RawMonad_24
v0))
d_mapM_232 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> ()) ->
(() -> ()) ->
MAlonzo.Code.Effect.Monad.T_RawMonad_24 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(AgdaAny -> ()) ->
(AgdaAny -> AgdaAny -> AgdaAny) ->
Maybe AgdaAny -> T_All_18 -> AgdaAny
d_mapM_232 :: ()
-> ()
-> ()
-> ()
-> (AgdaAny -> ())
-> (() -> ())
-> T_RawMonad_24
-> ()
-> (AgdaAny -> ())
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> Maybe AgdaAny
-> T_All_18
-> AgdaAny
d_mapM_232 ~()
v0 ~()
v1 ~()
v2 ~()
v3 ~AgdaAny -> ()
v4 ~() -> ()
v5 T_RawMonad_24
v6 ~()
v7 ~AgdaAny -> ()
v8 = T_RawMonad_24
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> Maybe AgdaAny
-> T_All_18
-> AgdaAny
du_mapM_232 T_RawMonad_24
v6
du_mapM_232 ::
MAlonzo.Code.Effect.Monad.T_RawMonad_24 ->
(AgdaAny -> AgdaAny -> AgdaAny) ->
Maybe AgdaAny -> T_All_18 -> AgdaAny
du_mapM_232 :: T_RawMonad_24
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> Maybe AgdaAny
-> T_All_18
-> AgdaAny
du_mapM_232 T_RawMonad_24
v0 = (T_RawApplicative_20
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> Maybe AgdaAny
-> T_All_18
-> AgdaAny)
-> AgdaAny
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> Maybe AgdaAny
-> T_All_18
-> AgdaAny
forall a b. a -> b
coe T_RawApplicative_20
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> Maybe AgdaAny
-> T_All_18
-> AgdaAny
du_mapA_190 ((T_RawMonad_24 -> T_RawApplicative_20) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe T_RawMonad_24 -> T_RawApplicative_20
du_App_224 (T_RawMonad_24 -> AgdaAny
forall a b. a -> b
coe T_RawMonad_24
v0))
d_forM_240 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> ()) ->
(() -> ()) ->
MAlonzo.Code.Effect.Monad.T_RawMonad_24 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(AgdaAny -> ()) ->
Maybe AgdaAny ->
T_All_18 -> (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
d_forM_240 :: ()
-> ()
-> ()
-> ()
-> (AgdaAny -> ())
-> (() -> ())
-> T_RawMonad_24
-> ()
-> (AgdaAny -> ())
-> Maybe AgdaAny
-> T_All_18
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny
d_forM_240 ~()
v0 ~()
v1 ~()
v2 ~()
v3 ~AgdaAny -> ()
v4 ~() -> ()
v5 T_RawMonad_24
v6 ~()
v7 ~AgdaAny -> ()
v8 Maybe AgdaAny
v9
= T_RawMonad_24
-> Maybe AgdaAny
-> T_All_18
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny
du_forM_240 T_RawMonad_24
v6 Maybe AgdaAny
v9
du_forM_240 ::
MAlonzo.Code.Effect.Monad.T_RawMonad_24 ->
Maybe AgdaAny ->
T_All_18 -> (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
du_forM_240 :: T_RawMonad_24
-> Maybe AgdaAny
-> T_All_18
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny
du_forM_240 T_RawMonad_24
v0 Maybe AgdaAny
v1
= (T_RawApplicative_20
-> Maybe AgdaAny
-> T_All_18
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny)
-> AgdaAny
-> AgdaAny
-> T_All_18
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny
forall a b. a -> b
coe T_RawApplicative_20
-> Maybe AgdaAny
-> T_All_18
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny
du_forA_200 ((T_RawMonad_24 -> T_RawApplicative_20) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe T_RawMonad_24 -> T_RawApplicative_20
du_App_224 (T_RawMonad_24 -> AgdaAny
forall a b. a -> b
coe T_RawMonad_24
v0)) (Maybe AgdaAny -> AgdaAny
forall a b. a -> b
coe Maybe AgdaAny
v1)
d_dec_254 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> ()) ->
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
Maybe AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20
d_dec_254 :: ()
-> ()
-> ()
-> (AgdaAny -> ())
-> (AgdaAny -> T_Dec_20)
-> Maybe AgdaAny
-> T_Dec_20
d_dec_254 ~()
v0 ~()
v1 ~()
v2 ~AgdaAny -> ()
v3 AgdaAny -> T_Dec_20
v4 Maybe AgdaAny
v5 = (AgdaAny -> T_Dec_20) -> Maybe AgdaAny -> T_Dec_20
du_dec_254 AgdaAny -> T_Dec_20
v4 Maybe AgdaAny
v5
du_dec_254 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
Maybe AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20
du_dec_254 :: (AgdaAny -> T_Dec_20) -> Maybe AgdaAny -> T_Dec_20
du_dec_254 AgdaAny -> T_Dec_20
v0 Maybe AgdaAny
v1
= case Maybe AgdaAny -> Maybe AgdaAny
forall a b. a -> b
coe Maybe AgdaAny
v1 of
MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 AgdaAny
v2
-> (T_Equivalence_1714 -> T_Dec_20 -> T_Dec_20)
-> AgdaAny -> AgdaAny -> T_Dec_20
forall a b. a -> b
coe
T_Equivalence_1714 -> T_Dec_20 -> T_Dec_20
MAlonzo.Code.Relation.Nullary.Decidable.du_map_18
(T_Equivalence_1714 -> AgdaAny
forall a b. a -> b
coe T_Equivalence_1714
du_just'45'equivalence_54) ((AgdaAny -> T_Dec_20) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0 AgdaAny
v2)
Maybe AgdaAny
MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18
-> (Bool -> T_Reflects_16 -> T_Dec_20)
-> AgdaAny -> AgdaAny -> T_Dec_20
forall a b. a -> b
coe
Bool -> T_Reflects_16 -> T_Dec_20
MAlonzo.Code.Relation.Nullary.Decidable.Core.C__because__32
(Bool -> AgdaAny
forall a b. a -> b
coe Bool
MAlonzo.Code.Agda.Builtin.Bool.C_true_10)
((AgdaAny -> T_Reflects_16) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> T_Reflects_16
MAlonzo.Code.Relation.Nullary.Reflects.C_of'696'_22
(T_All_18 -> AgdaAny
forall a b. a -> b
coe T_All_18
C_nothing_32))
Maybe AgdaAny
_ -> T_Dec_20
forall a. a
MAlonzo.RTE.mazUnreachableError
d_universal_262 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> ()) ->
(AgdaAny -> AgdaAny) -> Maybe AgdaAny -> T_All_18
d_universal_262 :: ()
-> ()
-> ()
-> (AgdaAny -> ())
-> (AgdaAny -> AgdaAny)
-> Maybe AgdaAny
-> T_All_18
d_universal_262 ~()
v0 ~()
v1 ~()
v2 ~AgdaAny -> ()
v3 AgdaAny -> AgdaAny
v4 Maybe AgdaAny
v5 = (AgdaAny -> AgdaAny) -> Maybe AgdaAny -> T_All_18
du_universal_262 AgdaAny -> AgdaAny
v4 Maybe AgdaAny
v5
du_universal_262 ::
(AgdaAny -> AgdaAny) -> Maybe AgdaAny -> T_All_18
du_universal_262 :: (AgdaAny -> AgdaAny) -> Maybe AgdaAny -> T_All_18
du_universal_262 AgdaAny -> AgdaAny
v0 Maybe AgdaAny
v1
= case Maybe AgdaAny -> Maybe AgdaAny
forall a b. a -> b
coe Maybe AgdaAny
v1 of
MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 AgdaAny
v2
-> (AgdaAny -> T_All_18) -> AgdaAny -> T_All_18
forall a b. a -> b
coe AgdaAny -> T_All_18
C_just_30 ((AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny
v0 AgdaAny
v2)
Maybe AgdaAny
MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18 -> T_All_18 -> T_All_18
forall a b. a -> b
coe T_All_18
C_nothing_32
Maybe AgdaAny
_ -> T_All_18
forall a. a
MAlonzo.RTE.mazUnreachableError
d_irrelevant_270 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> ()) ->
(AgdaAny ->
AgdaAny ->
AgdaAny -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) ->
Maybe AgdaAny ->
T_All_18 ->
T_All_18 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12
d_irrelevant_270 :: ()
-> ()
-> ()
-> (AgdaAny -> ())
-> (AgdaAny -> AgdaAny -> AgdaAny -> T__'8801'__12)
-> Maybe AgdaAny
-> T_All_18
-> T_All_18
-> T__'8801'__12
d_irrelevant_270 = ()
-> ()
-> ()
-> (AgdaAny -> ())
-> (AgdaAny -> AgdaAny -> AgdaAny -> T__'8801'__12)
-> Maybe AgdaAny
-> T_All_18
-> T_All_18
-> T__'8801'__12
forall a. a
erased
d_satisfiable_280 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> ()) -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_satisfiable_280 :: () -> () -> () -> (AgdaAny -> ()) -> T_Σ_14
d_satisfiable_280 ~()
v0 ~()
v1 ~()
v2 ~AgdaAny -> ()
v3 = T_Σ_14
du_satisfiable_280
du_satisfiable_280 :: MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_satisfiable_280 :: T_Σ_14
du_satisfiable_280
= (AgdaAny -> AgdaAny -> T_Σ_14) -> AgdaAny -> AgdaAny -> T_Σ_14
forall a b. a -> b
coe
AgdaAny -> AgdaAny -> T_Σ_14
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32
(Maybe AgdaAny -> AgdaAny
forall a b. a -> b
coe Maybe AgdaAny
forall {a}. Maybe a
MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18)
(T_All_18 -> AgdaAny
forall a b. a -> b
coe T_All_18
C_nothing_32)