{-# 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.List.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.List
import qualified MAlonzo.Code.Agda.Builtin.Sigma
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.List.Relation.Unary.Any
import qualified MAlonzo.Code.Data.Product
import qualified MAlonzo.Code.Data.Sum.Base
import qualified MAlonzo.Code.Function.Base
import qualified MAlonzo.Code.Relation.Binary.Bundles
import qualified MAlonzo.Code.Relation.Binary.PropositionalEquality.Properties
import qualified MAlonzo.Code.Relation.Binary.Structures
import qualified MAlonzo.Code.Relation.Nullary
import qualified MAlonzo.Code.Relation.Nullary.Decidable.Core
import qualified MAlonzo.Code.Relation.Nullary.Product
d_All_44 a0 a1 a2 a3 a4 = ()
data T_All_44 = C_'91''93'_50 | C__'8759'__60 AgdaAny T_All_44
d__'91'_'93''61'__74 a0 a1 a2 a3 a4 a5 a6 a7 a8 = ()
data T__'91'_'93''61'__74
= C_here_88 | C_there_104 T__'91'_'93''61'__74
d_Null_106 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 -> () -> [AgdaAny] -> ()
d_Null_106 = erased
d_uncons_110 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
AgdaAny ->
[AgdaAny] -> T_All_44 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_uncons_110 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 = du_uncons_110 v6
du_uncons_110 :: T_All_44 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_uncons_110 v0
= case coe v0 of
C__'8759'__60 v3 v4
-> coe
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v3) (coe v4)
_ -> MAlonzo.RTE.mazUnreachableError
d_head_116 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) -> AgdaAny -> [AgdaAny] -> T_All_44 -> AgdaAny
d_head_116 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 = du_head_116 v6
du_head_116 :: T_All_44 -> AgdaAny
du_head_116 v0
= coe
MAlonzo.Code.Agda.Builtin.Sigma.d_fst_28
(coe du_uncons_110 (coe v0))
d_tail_118 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) -> AgdaAny -> [AgdaAny] -> T_All_44 -> T_All_44
d_tail_118 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 = du_tail_118 v6
du_tail_118 :: T_All_44 -> T_All_44
du_tail_118 v0
= coe
MAlonzo.Code.Agda.Builtin.Sigma.d_snd_30
(coe du_uncons_110 (coe v0))
d_reduce_124 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
[AgdaAny] ->
(AgdaAny -> AgdaAny -> AgdaAny) -> T_All_44 -> [AgdaAny]
d_reduce_124 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 v8
= du_reduce_124 v6 v7 v8
du_reduce_124 ::
[AgdaAny] ->
(AgdaAny -> AgdaAny -> AgdaAny) -> T_All_44 -> [AgdaAny]
du_reduce_124 v0 v1 v2
= case coe v2 of
C_'91''93'_50 -> coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16
C__'8759'__60 v5 v6
-> case coe v0 of
(:) v7 v8
-> coe
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (coe v1 v7 v5)
(coe du_reduce_124 (coe v8) (coe v1) (coe v6))
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_construct_138 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
(AgdaAny -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_construct_138 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7
= du_construct_138 v6 v7
du_construct_138 ::
(AgdaAny -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_construct_138 v0 v1
= case coe v1 of
[]
-> coe
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v1)
(coe C_'91''93'_50)
(:) v2 v3
-> coe
MAlonzo.Code.Data.Product.du_zip_218
(coe MAlonzo.Code.Agda.Builtin.List.C__'8759'__22)
(\ v4 v5 v6 v7 -> coe C__'8759'__60 v6 v7) (coe v0 v2)
(coe du_construct_138 (coe v0) (coe v3))
_ -> MAlonzo.RTE.mazUnreachableError
d_fromList_150 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
[MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14] -> T_All_44
d_fromList_150 ~v0 ~v1 ~v2 ~v3 v4 = du_fromList_150 v4
du_fromList_150 ::
[MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14] -> T_All_44
du_fromList_150 v0
= case coe v0 of
[] -> coe C_'91''93'_50
(:) v1 v2
-> case coe v1 of
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v3 v4
-> coe C__'8759'__60 v4 (coe du_fromList_150 (coe v2))
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_toList_158 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
[AgdaAny] -> T_All_44 -> [MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14]
d_toList_158 ~v0 ~v1 ~v2 ~v3 v4 v5 = du_toList_158 v4 v5
du_toList_158 ::
[AgdaAny] -> T_All_44 -> [MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14]
du_toList_158 v0 v1
= coe
du_reduce_124 (coe v0)
(coe
(\ v2 v3 ->
coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v2) (coe v3)))
(coe v1)
d_map_166 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
(AgdaAny -> AgdaAny -> AgdaAny) ->
[AgdaAny] -> T_All_44 -> T_All_44
d_map_166 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 v8 = du_map_166 v6 v7 v8
du_map_166 ::
(AgdaAny -> AgdaAny -> AgdaAny) ->
[AgdaAny] -> T_All_44 -> T_All_44
du_map_166 v0 v1 v2
= case coe v2 of
C_'91''93'_50 -> coe v2
C__'8759'__60 v5 v6
-> case coe v1 of
(:) v7 v8
-> coe
C__'8759'__60 (coe v0 v7 v5)
(coe du_map_166 (coe v0) (coe v8) (coe v6))
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_zipWith_176 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
(AgdaAny -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> AgdaAny) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> T_All_44
d_zipWith_176 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 v8 v9 v10
= du_zipWith_176 v8 v9 v10
du_zipWith_176 ::
(AgdaAny -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> AgdaAny) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> T_All_44
du_zipWith_176 v0 v1 v2
= case coe v2 of
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v3 v4
-> case coe v3 of
C_'91''93'_50 -> coe seq (coe v4) (coe v3)
C__'8759'__60 v7 v8
-> case coe v1 of
(:) v9 v10
-> case coe v4 of
C__'8759'__60 v13 v14
-> coe
C__'8759'__60
(coe
v0 v9
(coe
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v7)
(coe v13)))
(coe
du_zipWith_176 (coe v0) (coe v10)
(coe
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v8)
(coe v14)))
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_unzipWith_190 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
(AgdaAny -> AgdaAny -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) ->
[AgdaAny] -> T_All_44 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_unzipWith_190 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 v8 v9 v10
= du_unzipWith_190 v8 v9 v10
du_unzipWith_190 ::
(AgdaAny -> AgdaAny -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) ->
[AgdaAny] -> T_All_44 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_unzipWith_190 v0 v1 v2
= case coe v2 of
C_'91''93'_50
-> coe
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v2) (coe v2)
C__'8759'__60 v5 v6
-> case coe v1 of
(:) v7 v8
-> coe
MAlonzo.Code.Data.Product.du_zip_218 (coe C__'8759'__60)
(coe (\ v9 v10 -> coe C__'8759'__60)) (coe v0 v7 v5)
(coe du_unzipWith_190 (coe v0) (coe v8) (coe v6))
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_zip_200 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> T_All_44
d_zip_200 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 = du_zip_200 v6
du_zip_200 ::
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> T_All_44
du_zip_200 v0 = coe du_zipWith_176 (coe (\ v1 v2 -> v2)) (coe v0)
d_unzip_202 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
[AgdaAny] -> T_All_44 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_unzip_202 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 = du_unzip_202 v6
du_unzip_202 ::
[AgdaAny] -> T_All_44 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_unzip_202 v0
= coe du_unzipWith_190 (coe (\ v1 v2 -> v2)) (coe v0)
d__'8712'__242 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Relation.Binary.Bundles.T_Setoid_44 ->
(AgdaAny -> ()) -> AgdaAny -> [AgdaAny] -> ()
d__'8712'__242 = erased
d_tabulate'8347'_260 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Relation.Binary.Bundles.T_Setoid_44 ->
(AgdaAny -> ()) ->
[AgdaAny] ->
(AgdaAny ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 -> AgdaAny) ->
T_All_44
d_tabulate'8347'_260 ~v0 ~v1 ~v2 v3 ~v4 v5 v6
= du_tabulate'8347'_260 v3 v5 v6
du_tabulate'8347'_260 ::
MAlonzo.Code.Relation.Binary.Bundles.T_Setoid_44 ->
[AgdaAny] ->
(AgdaAny ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 -> AgdaAny) ->
T_All_44
du_tabulate'8347'_260 v0 v1 v2
= case coe v1 of
[] -> coe C_'91''93'_50
(:) v3 v4
-> coe
C__'8759'__60
(coe
v2 v3
(coe
MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46
(coe
MAlonzo.Code.Relation.Binary.Structures.d_refl_34
(MAlonzo.Code.Relation.Binary.Bundles.d_isEquivalence_60 (coe v0))
v3)))
(coe
du_tabulate'8347'_260 (coe v0) (coe v4)
(coe
(\ v5 v6 ->
coe
v2 v5
(coe MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 v6))))
_ -> MAlonzo.RTE.mazUnreachableError
d_tabulate_272 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
[AgdaAny] ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
(AgdaAny ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 -> AgdaAny) ->
T_All_44
d_tabulate_272 ~v0 ~v1 v2 ~v3 ~v4 = du_tabulate_272 v2
du_tabulate_272 ::
[AgdaAny] ->
(AgdaAny ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 -> AgdaAny) ->
T_All_44
du_tabulate_272 v0
= coe
du_tabulate'8347'_260
(coe
MAlonzo.Code.Relation.Binary.PropositionalEquality.Properties.du_setoid_404)
(coe v0)
d_self_276 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() -> [AgdaAny] -> T_All_44
d_self_276 ~v0 ~v1 v2 = du_self_276 v2
du_self_276 :: [AgdaAny] -> T_All_44
du_self_276 v0 = coe du_tabulate_272 v0 (\ v1 v2 -> v1)
d_updateAt_282 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
AgdaAny ->
[AgdaAny] ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 ->
(AgdaAny -> AgdaAny) -> T_All_44 -> T_All_44
d_updateAt_282 ~v0 ~v1 ~v2 v3 ~v4 ~v5 v6 v7 v8
= du_updateAt_282 v3 v6 v7 v8
du_updateAt_282 ::
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 ->
(AgdaAny -> AgdaAny) -> T_All_44 -> T_All_44
du_updateAt_282 v0 v1 v2 v3
= case coe v3 of
C__'8759'__60 v6 v7
-> case coe v0 of
(:) v8 v9
-> case coe v1 of
MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 v12
-> coe C__'8759'__60 (coe v2 v6) v7
MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 v12
-> coe
C__'8759'__60 v6
(coe du_updateAt_282 (coe v9) (coe v12) (coe v2) (coe v7))
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d__'91'_'93''37''61'__300 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> ()) ->
[AgdaAny] ->
AgdaAny ->
T_All_44 ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 ->
(AgdaAny -> AgdaAny) -> T_All_44
d__'91'_'93''37''61'__300 ~v0 ~v1 ~v2 ~v3 v4 ~v5 v6 v7 v8
= du__'91'_'93''37''61'__300 v4 v6 v7 v8
du__'91'_'93''37''61'__300 ::
[AgdaAny] ->
T_All_44 ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 ->
(AgdaAny -> AgdaAny) -> T_All_44
du__'91'_'93''37''61'__300 v0 v1 v2 v3
= coe du_updateAt_282 (coe v0) (coe v2) (coe v3) (coe v1)
d__'91'_'93''8788'__308 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> ()) ->
[AgdaAny] ->
AgdaAny ->
T_All_44 ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 ->
AgdaAny -> T_All_44
d__'91'_'93''8788'__308 ~v0 ~v1 ~v2 ~v3 v4 ~v5 v6 v7 v8
= du__'91'_'93''8788'__308 v4 v6 v7 v8
du__'91'_'93''8788'__308 ::
[AgdaAny] ->
T_All_44 ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 ->
AgdaAny -> T_All_44
du__'91'_'93''8788'__308 v0 v1 v2 v3
= coe
du__'91'_'93''37''61'__300 (coe v0) (coe v1) (coe v2)
(coe (\ v4 -> v3))
d_sequenceA_356 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> ()) ->
(() -> ()) ->
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38 ->
[AgdaAny] -> T_All_44 -> AgdaAny
d_sequenceA_356 ~v0 ~v1 ~v2 ~v3 ~v4 v5 v6 v7
= du_sequenceA_356 v5 v6 v7
du_sequenceA_356 ::
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38 ->
[AgdaAny] -> T_All_44 -> AgdaAny
du_sequenceA_356 v0 v1 v2
= case coe v2 of
C_'91''93'_50
-> coe
MAlonzo.Code.Category.Applicative.Indexed.d_pure_58 v0 erased
(coe MAlonzo.Code.Agda.Builtin.Unit.C_tt_8) v2
C__'8759'__60 v5 v6
-> case coe v1 of
(:) v7 v8
-> coe
MAlonzo.Code.Category.Applicative.Indexed.d__'8859'__66 v0 erased
erased (coe MAlonzo.Code.Agda.Builtin.Unit.C_tt_8)
(coe MAlonzo.Code.Agda.Builtin.Unit.C_tt_8)
(coe MAlonzo.Code.Agda.Builtin.Unit.C_tt_8)
(let v9 = coe MAlonzo.Code.Agda.Builtin.Unit.C_tt_8 in
let v10 = coe MAlonzo.Code.Agda.Builtin.Unit.C_tt_8 in
coe
MAlonzo.Code.Category.Functor.d__'60''36''62'__30
(coe
MAlonzo.Code.Category.Applicative.Indexed.du_rawFunctor_72 (coe v0)
(coe v9) (coe v10))
erased erased (coe C__'8759'__60) v5)
(coe du_sequenceA_356 (coe v0) (coe v8) (coe v6))
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_mapA_364 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> ()) ->
(() -> ()) ->
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
(AgdaAny -> AgdaAny -> AgdaAny) -> [AgdaAny] -> T_All_44 -> AgdaAny
d_mapA_364 ~v0 ~v1 ~v2 ~v3 ~v4 v5 ~v6 ~v7 v8 v9
= du_mapA_364 v5 v8 v9
du_mapA_364 ::
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38 ->
(AgdaAny -> AgdaAny -> AgdaAny) -> [AgdaAny] -> T_All_44 -> AgdaAny
du_mapA_364 v0 v1 v2
= coe
MAlonzo.Code.Function.Base.du__'8728''8242'__216
(coe du_sequenceA_356 (coe v0) (coe v2))
(coe du_map_166 (coe v1) (coe v2))
d_forA_370 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> ()) ->
(() -> ()) ->
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
[AgdaAny] ->
(AgdaAny -> ()) ->
T_All_44 -> (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
d_forA_370 ~v0 ~v1 ~v2 ~v3 ~v4 v5 ~v6 v7 ~v8 v9 v10
= du_forA_370 v5 v7 v9 v10
du_forA_370 ::
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38 ->
[AgdaAny] -> T_All_44 -> (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
du_forA_370 v0 v1 v2 v3 = coe du_mapA_364 v0 v3 v1 v2
d_App_392 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> ()) ->
(() -> ()) ->
MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32 ->
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38
d_App_392 ~v0 ~v1 ~v2 ~v3 ~v4 v5 = du_App_392 v5
du_App_392 ::
MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32 ->
MAlonzo.Code.Category.Applicative.Indexed.T_RawIApplicative_38
du_App_392 v0
= coe
MAlonzo.Code.Category.Monad.Indexed.du_rawIApplicative_122 (coe v0)
d_sequenceM_394 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> ()) ->
(() -> ()) ->
MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32 ->
[AgdaAny] -> T_All_44 -> AgdaAny
d_sequenceM_394 ~v0 ~v1 ~v2 ~v3 ~v4 v5 v6 = du_sequenceM_394 v5 v6
du_sequenceM_394 ::
MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32 ->
[AgdaAny] -> T_All_44 -> AgdaAny
du_sequenceM_394 v0 v1
= coe du_sequenceA_356 (coe du_App_392 (coe v0)) (coe v1)
d_mapM_398 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> ()) ->
(() -> ()) ->
MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
(AgdaAny -> AgdaAny -> AgdaAny) -> [AgdaAny] -> T_All_44 -> AgdaAny
d_mapM_398 ~v0 ~v1 ~v2 ~v3 ~v4 v5 ~v6 ~v7 = du_mapM_398 v5
du_mapM_398 ::
MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32 ->
(AgdaAny -> AgdaAny -> AgdaAny) -> [AgdaAny] -> T_All_44 -> AgdaAny
du_mapM_398 v0 = coe du_mapA_364 (coe du_App_392 (coe v0))
d_forM_402 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> ()) ->
(() -> ()) ->
MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
[AgdaAny] ->
(AgdaAny -> ()) ->
T_All_44 -> (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
d_forM_402 ~v0 ~v1 ~v2 ~v3 ~v4 v5 ~v6 v7 ~v8 = du_forM_402 v5 v7
du_forM_402 ::
MAlonzo.Code.Category.Monad.Indexed.T_RawIMonad_32 ->
[AgdaAny] -> T_All_44 -> (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
du_forM_402 v0 v1
= coe du_forA_370 (coe du_App_392 (coe v0)) (coe v1)
d_lookupAny_406 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
[AgdaAny] ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
T_All_44 ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_lookupAny_406 ~v0 ~v1 ~v2 ~v3 v4 ~v5 ~v6 v7 v8
= du_lookupAny_406 v4 v7 v8
du_lookupAny_406 ::
[AgdaAny] ->
T_All_44 ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_lookupAny_406 v0 v1 v2
= case coe v1 of
C__'8759'__60 v5 v6
-> case coe v0 of
(:) v7 v8
-> case coe v2 of
MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 v11
-> coe
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v5) (coe v11)
MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 v11
-> coe du_lookupAny_406 (coe v8) (coe v6) (coe v11)
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_lookupWith_422 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
[AgdaAny] ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
T_All_44 ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 -> AgdaAny
d_lookupWith_422 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 v8 v9 v10 v11
= du_lookupWith_422 v8 v9 v10 v11
du_lookupWith_422 ::
[AgdaAny] ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
T_All_44 ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 -> AgdaAny
du_lookupWith_422 v0 v1 v2 v3
= coe
MAlonzo.Code.Data.Product.du_uncurry_264
(coe
v1
(coe
MAlonzo.Code.Data.List.Relation.Unary.Any.du_lookup_94 (coe v0)
(coe v3)))
(coe du_lookupAny_406 (coe v0) (coe v2) (coe v3))
d_lookup_432 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> ()) ->
[AgdaAny] ->
T_All_44 ->
AgdaAny ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 -> AgdaAny
d_lookup_432 ~v0 ~v1 ~v2 ~v3 v4 v5 ~v6 = du_lookup_432 v4 v5
du_lookup_432 ::
[AgdaAny] ->
T_All_44 ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 -> AgdaAny
du_lookup_432 v0 v1
= coe du_lookupWith_422 (coe v0) (coe (\ v2 v3 v4 -> v3)) (coe v1)
d__'8776'__456 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Relation.Binary.Bundles.T_Setoid_44 ->
(AgdaAny -> ()) -> AgdaAny -> AgdaAny -> ()
d__'8776'__456 = erased
d__'8712'__478 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Relation.Binary.Bundles.T_Setoid_44 ->
(AgdaAny -> ()) -> AgdaAny -> [AgdaAny] -> ()
d__'8712'__478 = erased
d_lookup'8347'_496 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Relation.Binary.Bundles.T_Setoid_44 ->
(AgdaAny -> ()) ->
[AgdaAny] ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
T_All_44 ->
AgdaAny ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 -> AgdaAny
d_lookup'8347'_496 ~v0 ~v1 ~v2 v3 ~v4 v5 v6 v7 v8
= du_lookup'8347'_496 v3 v5 v6 v7 v8
du_lookup'8347'_496 ::
MAlonzo.Code.Relation.Binary.Bundles.T_Setoid_44 ->
[AgdaAny] ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
T_All_44 ->
AgdaAny ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 -> AgdaAny
du_lookup'8347'_496 v0 v1 v2 v3 v4
= coe
du_lookupWith_422 (coe v1)
(coe
(\ v5 v6 v7 ->
coe
v2 v5 v4
(coe
MAlonzo.Code.Relation.Binary.Structures.d_sym_36
(MAlonzo.Code.Relation.Binary.Bundles.d_isEquivalence_60 (coe v0))
v4 v5 v7)
v6))
(coe v3)
d_all'63'_506 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
(AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32) ->
[AgdaAny] -> MAlonzo.Code.Relation.Nullary.T_Dec_32
d_all'63'_506 ~v0 ~v1 ~v2 ~v3 v4 v5 = du_all'63'_506 v4 v5
du_all'63'_506 ::
(AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32) ->
[AgdaAny] -> MAlonzo.Code.Relation.Nullary.T_Dec_32
du_all'63'_506 v0 v1
= case coe v1 of
[]
-> coe
MAlonzo.Code.Relation.Nullary.C__because__46
(coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10)
(coe
MAlonzo.Code.Relation.Nullary.C_of'696'_22 (coe C_'91''93'_50))
(:) v2 v3
-> coe
MAlonzo.Code.Relation.Nullary.Decidable.Core.du_map'8242'_168
(coe MAlonzo.Code.Data.Product.du_uncurry_264 (coe C__'8759'__60))
(coe
MAlonzo.Code.Relation.Nullary.Product.du__'215''45'dec__30
(coe v0 v2) (coe du_all'63'_506 (coe v0) (coe v3)))
_ -> MAlonzo.RTE.mazUnreachableError
d_universal_516 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) -> (AgdaAny -> AgdaAny) -> [AgdaAny] -> T_All_44
d_universal_516 ~v0 ~v1 ~v2 ~v3 v4 v5 = du_universal_516 v4 v5
du_universal_516 :: (AgdaAny -> AgdaAny) -> [AgdaAny] -> T_All_44
du_universal_516 v0 v1
= case coe v1 of
[] -> coe C_'91''93'_50
(:) v2 v3
-> coe
C__'8759'__60 (coe v0 v2) (coe du_universal_516 (coe v0) (coe v3))
_ -> MAlonzo.RTE.mazUnreachableError
d_irrelevant_526 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
(AgdaAny ->
AgdaAny ->
AgdaAny -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12) ->
[AgdaAny] ->
T_All_44 ->
T_All_44 -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12
d_irrelevant_526 = erased
d_satisfiable_540 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_satisfiable_540 ~v0 ~v1 ~v2 ~v3 = du_satisfiable_540
du_satisfiable_540 :: MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_satisfiable_540
= coe
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32
(coe MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)
(coe C_'91''93'_50)
d_decide_542 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
(AgdaAny -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30) ->
[AgdaAny] -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30
d_decide_542 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 = du_decide_542 v6 v7
du_decide_542 ::
(AgdaAny -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30) ->
[AgdaAny] -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30
du_decide_542 v0 v1
= case coe v1 of
[]
-> coe
MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 (coe C_'91''93'_50)
(:) v2 v3
-> let v4 = coe v0 v2 in
case coe v4 of
MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 v5
-> coe
MAlonzo.Code.Data.Sum.Base.du_map_84 (coe C__'8759'__60 v5)
(coe MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54)
(coe du_decide_542 (coe v0) (coe v3))
MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42 v5
-> coe
MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42
(coe MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 v5)
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_all_574 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> ()) ->
(AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32) ->
[AgdaAny] -> MAlonzo.Code.Relation.Nullary.T_Dec_32
d_all_574 v0 v1 v2 v3 v4 v5 = coe du_all'63'_506 v4 v5