{-# 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.Base 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.List
import qualified MAlonzo.Code.Agda.Builtin.Maybe
import qualified MAlonzo.Code.Agda.Builtin.Sigma
import qualified MAlonzo.Code.Agda.Primitive
import qualified MAlonzo.Code.Algebra.Bundles.Raw
import qualified MAlonzo.Code.Data.Bool.Base
import qualified MAlonzo.Code.Data.Fin.Base
import qualified MAlonzo.Code.Data.Maybe.Base
import qualified MAlonzo.Code.Data.Product.Base
import qualified MAlonzo.Code.Data.Sum.Base
import qualified MAlonzo.Code.Data.These.Base
import qualified MAlonzo.Code.Function.Base
import qualified MAlonzo.Code.Relation.Nullary.Decidable.Core
d_map_22 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny]
d_map_22 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny)
-> [AgdaAny]
-> [AgdaAny]
d_map_22 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 AgdaAny -> AgdaAny
v4 [AgdaAny]
v5 = (AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny]
du_map_22 AgdaAny -> AgdaAny
v4 [AgdaAny]
v5
du_map_22 :: (AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny]
du_map_22 :: (AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny]
du_map_22 AgdaAny -> AgdaAny
v0 [AgdaAny]
v1
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
[] -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1
(:) AgdaAny
v2 [AgdaAny]
v3
-> (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 ((AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny
v0 AgdaAny
v2)
(((AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny]
du_map_22 ((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3))
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d__'43''43'__32 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
d__'43''43'__32 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
d__'43''43'__32 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 [AgdaAny]
v3 = [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du__'43''43'__32 [AgdaAny]
v2 [AgdaAny]
v3
du__'43''43'__32 :: [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du__'43''43'__32 :: [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du__'43''43'__32 [AgdaAny]
v0 [AgdaAny]
v1
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v0 of
[] -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1
(:) AgdaAny
v2 [AgdaAny]
v3
-> (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2)
(([AgdaAny] -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du__'43''43'__32 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1))
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_intersperse_42 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> AgdaAny -> [AgdaAny] -> [AgdaAny]
d_intersperse_42 :: T_Level_18 -> T_Level_18 -> AgdaAny -> [AgdaAny] -> [AgdaAny]
d_intersperse_42 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny
v2 [AgdaAny]
v3 = AgdaAny -> [AgdaAny] -> [AgdaAny]
du_intersperse_42 AgdaAny
v2 [AgdaAny]
v3
du_intersperse_42 :: AgdaAny -> [AgdaAny] -> [AgdaAny]
du_intersperse_42 :: AgdaAny -> [AgdaAny] -> [AgdaAny]
du_intersperse_42 AgdaAny
v0 [AgdaAny]
v1
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
[] -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1
(:) AgdaAny
v2 [AgdaAny]
v3
-> let v4 :: t
v4
= (AgdaAny -> [AgdaAny] -> [AgdaAny]) -> AgdaAny -> AgdaAny -> t
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2)
((AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v0)
((AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> [AgdaAny] -> [AgdaAny]
du_intersperse_42 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3))) in
AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
(case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v3 of
[] -> [AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1
[AgdaAny]
_ -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
forall a. a
v4)
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_intercalate_56 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> [[AgdaAny]] -> [AgdaAny]
d_intercalate_56 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> [[AgdaAny]] -> [AgdaAny]
d_intercalate_56 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 [[AgdaAny]]
v3 = [AgdaAny] -> [[AgdaAny]] -> [AgdaAny]
du_intercalate_56 [AgdaAny]
v2 [[AgdaAny]]
v3
du_intercalate_56 :: [AgdaAny] -> [[AgdaAny]] -> [AgdaAny]
du_intercalate_56 :: [AgdaAny] -> [[AgdaAny]] -> [AgdaAny]
du_intercalate_56 [AgdaAny]
v0 [[AgdaAny]]
v1
= case [[AgdaAny]] -> [AgdaAny]
forall a b. a -> b
coe [[AgdaAny]]
v1 of
[] -> [[AgdaAny]] -> [AgdaAny]
forall a b. a -> b
coe [[AgdaAny]]
v1
(:) AgdaAny
v2 [AgdaAny]
v3
-> let v4 :: t
v4
= ([AgdaAny] -> [AgdaAny] -> [AgdaAny]) -> AgdaAny -> AgdaAny -> t
forall a b. a -> b
coe
[AgdaAny] -> [AgdaAny] -> [AgdaAny]
du__'43''43'__32 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2)
(([AgdaAny] -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
[AgdaAny] -> [AgdaAny] -> [AgdaAny]
du__'43''43'__32 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v0)
(([AgdaAny] -> [[AgdaAny]] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> [[AgdaAny]] -> [AgdaAny]
du_intercalate_56 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3))) in
AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
(case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v3 of
[] -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2
[AgdaAny]
_ -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
forall a. a
v4)
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_cartesianProductWith_70 ::
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] -> [AgdaAny]
d_cartesianProductWith_70 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> [AgdaAny]
-> [AgdaAny]
-> [AgdaAny]
d_cartesianProductWith_70 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 ~T_Level_18
v4 ~T_Level_18
v5 AgdaAny -> AgdaAny -> AgdaAny
v6 [AgdaAny]
v7 [AgdaAny]
v8
= (AgdaAny -> AgdaAny -> AgdaAny)
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_cartesianProductWith_70 AgdaAny -> AgdaAny -> AgdaAny
v6 [AgdaAny]
v7 [AgdaAny]
v8
du_cartesianProductWith_70 ::
(AgdaAny -> AgdaAny -> AgdaAny) ->
[AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_cartesianProductWith_70 :: (AgdaAny -> AgdaAny -> AgdaAny)
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_cartesianProductWith_70 AgdaAny -> AgdaAny -> AgdaAny
v0 [AgdaAny]
v1 [AgdaAny]
v2
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
[] -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1
(:) AgdaAny
v3 [AgdaAny]
v4
-> ([AgdaAny] -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
[AgdaAny] -> [AgdaAny] -> [AgdaAny]
du__'43''43'__32 (((AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny]
du_map_22 ((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> AgdaAny
v0 AgdaAny
v3) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v2))
(((AgdaAny -> AgdaAny -> AgdaAny)
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> AgdaAny -> AgdaAny)
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_cartesianProductWith_70 ((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> AgdaAny
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v4) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v2))
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_cartesianProduct_82 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
[AgdaAny] -> [AgdaAny] -> [MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14]
d_cartesianProduct_82 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> [AgdaAny]
-> [AgdaAny]
-> [T_Σ_14]
d_cartesianProduct_82 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 = [AgdaAny] -> [AgdaAny] -> [T_Σ_14]
du_cartesianProduct_82
du_cartesianProduct_82 ::
[AgdaAny] -> [AgdaAny] -> [MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14]
du_cartesianProduct_82 :: [AgdaAny] -> [AgdaAny] -> [T_Σ_14]
du_cartesianProduct_82
= ((AgdaAny -> AgdaAny -> AgdaAny)
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> [AgdaAny] -> [AgdaAny] -> [T_Σ_14]
forall a b. a -> b
coe
(AgdaAny -> AgdaAny -> AgdaAny)
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_cartesianProductWith_70
((AgdaAny -> AgdaAny -> T_Σ_14) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> T_Σ_14
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32)
d_alignWith_84 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(MAlonzo.Code.Data.These.Base.T_These_38 -> AgdaAny) ->
[AgdaAny] -> [AgdaAny] -> [AgdaAny]
d_alignWith_84 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> (T_These_38 -> AgdaAny)
-> [AgdaAny]
-> [AgdaAny]
-> [AgdaAny]
d_alignWith_84 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 ~T_Level_18
v4 ~T_Level_18
v5 T_These_38 -> AgdaAny
v6 [AgdaAny]
v7 [AgdaAny]
v8
= (T_These_38 -> AgdaAny) -> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_alignWith_84 T_These_38 -> AgdaAny
v6 [AgdaAny]
v7 [AgdaAny]
v8
du_alignWith_84 ::
(MAlonzo.Code.Data.These.Base.T_These_38 -> AgdaAny) ->
[AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_alignWith_84 :: (T_These_38 -> AgdaAny) -> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_alignWith_84 T_These_38 -> AgdaAny
v0 [AgdaAny]
v1 [AgdaAny]
v2
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
[]
-> ((AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
(AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny]
du_map_22
(((AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
MAlonzo.Code.Function.Base.du__'8728''8242'__216 ((T_These_38 -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe T_These_38 -> AgdaAny
v0)
((AgdaAny -> T_These_38) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_These_38
MAlonzo.Code.Data.These.Base.C_that_50))
([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v2)
(:) AgdaAny
v3 [AgdaAny]
v4
-> case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v2 of
[]
-> ((AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
(AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny]
du_map_22
(((AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
MAlonzo.Code.Function.Base.du__'8728''8242'__216 ((T_These_38 -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe T_These_38 -> AgdaAny
v0)
((AgdaAny -> T_These_38) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_These_38
MAlonzo.Code.Data.These.Base.C_this_48))
([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1)
(:) AgdaAny
v5 [AgdaAny]
v6
-> (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22
((T_These_38 -> AgdaAny) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
T_These_38 -> AgdaAny
v0 ((AgdaAny -> AgdaAny -> T_These_38) -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> T_These_38
MAlonzo.Code.Data.These.Base.C_these_52 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v3) (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v5)))
(((T_These_38 -> AgdaAny) -> [AgdaAny] -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (T_These_38 -> AgdaAny) -> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_alignWith_84 ((T_These_38 -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe T_These_38 -> AgdaAny
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v4) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v6))
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_zipWith_104 ::
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] -> [AgdaAny]
d_zipWith_104 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> [AgdaAny]
-> [AgdaAny]
-> [AgdaAny]
d_zipWith_104 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 ~T_Level_18
v4 ~T_Level_18
v5 AgdaAny -> AgdaAny -> AgdaAny
v6 [AgdaAny]
v7 [AgdaAny]
v8
= (AgdaAny -> AgdaAny -> AgdaAny)
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_zipWith_104 AgdaAny -> AgdaAny -> AgdaAny
v6 [AgdaAny]
v7 [AgdaAny]
v8
du_zipWith_104 ::
(AgdaAny -> AgdaAny -> AgdaAny) ->
[AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_zipWith_104 :: (AgdaAny -> AgdaAny -> AgdaAny)
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_zipWith_104 AgdaAny -> AgdaAny -> AgdaAny
v0 [AgdaAny]
v1 [AgdaAny]
v2
= let v3 :: b
v3 = [AgdaAny] -> b
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16 in
AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
(case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
(:) AgdaAny
v4 [AgdaAny]
v5
-> case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v2 of
(:) AgdaAny
v6 [AgdaAny]
v7
-> (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 ((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> AgdaAny
v0 AgdaAny
v4 AgdaAny
v6)
(((AgdaAny -> AgdaAny -> AgdaAny)
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> AgdaAny -> AgdaAny)
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_zipWith_104 ((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> AgdaAny
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v5) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v7))
[AgdaAny]
_ -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
forall a. a
v3
[AgdaAny]
_ -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
forall a. a
v3)
d_unalignWith_118 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> MAlonzo.Code.Data.These.Base.T_These_38) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_unalignWith_118 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_These_38)
-> [AgdaAny]
-> T_Σ_14
d_unalignWith_118 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 ~T_Level_18
v4 ~T_Level_18
v5 AgdaAny -> T_These_38
v6 [AgdaAny]
v7
= (AgdaAny -> T_These_38) -> [AgdaAny] -> T_Σ_14
du_unalignWith_118 AgdaAny -> T_These_38
v6 [AgdaAny]
v7
du_unalignWith_118 ::
(AgdaAny -> MAlonzo.Code.Data.These.Base.T_These_38) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_unalignWith_118 :: (AgdaAny -> T_These_38) -> [AgdaAny] -> T_Σ_14
du_unalignWith_118 AgdaAny -> T_These_38
v0 [AgdaAny]
v1
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
[]
-> (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 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1)
(:) AgdaAny
v2 [AgdaAny]
v3
-> let v4 :: t
v4 = (AgdaAny -> T_These_38) -> AgdaAny -> t
forall a b. a -> b
coe AgdaAny -> T_These_38
v0 AgdaAny
v2 in
AgdaAny -> T_Σ_14
forall a b. a -> b
coe
(case AgdaAny -> T_These_38
forall a b. a -> b
coe AgdaAny
forall a. a
v4 of
MAlonzo.Code.Data.These.Base.C_this_48 AgdaAny
v5
-> ((AgdaAny -> AgdaAny) -> T_Σ_14 -> T_Σ_14)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> AgdaAny) -> T_Σ_14 -> T_Σ_14
MAlonzo.Code.Data.Product.Base.du_map'8321'_138
((AgdaAny -> [AgdaAny] -> [AgdaAny]) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v5))
(((AgdaAny -> T_These_38) -> [AgdaAny] -> T_Σ_14)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> T_These_38) -> [AgdaAny] -> T_Σ_14
du_unalignWith_118 ((AgdaAny -> T_These_38) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_These_38
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3))
MAlonzo.Code.Data.These.Base.C_that_50 AgdaAny
v5
-> ((AgdaAny -> AgdaAny -> AgdaAny) -> T_Σ_14 -> T_Σ_14)
-> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> AgdaAny -> AgdaAny) -> T_Σ_14 -> T_Σ_14
MAlonzo.Code.Data.Product.Base.du_map'8322'_150
(\ AgdaAny
v6 -> (AgdaAny -> [AgdaAny] -> [AgdaAny]) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v5))
(((AgdaAny -> T_These_38) -> [AgdaAny] -> T_Σ_14)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> T_These_38) -> [AgdaAny] -> T_Σ_14
du_unalignWith_118 ((AgdaAny -> T_These_38) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_These_38
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3))
MAlonzo.Code.Data.These.Base.C_these_52 AgdaAny
v5 AgdaAny
v6
-> ((AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny -> AgdaAny) -> T_Σ_14 -> T_Σ_14)
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny -> AgdaAny) -> T_Σ_14 -> T_Σ_14
MAlonzo.Code.Data.Product.Base.du_map_128
((AgdaAny -> [AgdaAny] -> [AgdaAny]) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v5))
((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe
(\ AgdaAny
v7 ->
(AgdaAny -> [AgdaAny] -> [AgdaAny]) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v6)))
(((AgdaAny -> T_These_38) -> [AgdaAny] -> T_Σ_14)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> T_These_38) -> [AgdaAny] -> T_Σ_14
du_unalignWith_118 ((AgdaAny -> T_These_38) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_These_38
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3))
T_These_38
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError)
[AgdaAny]
_ -> T_Σ_14
forall a. a
MAlonzo.RTE.mazUnreachableError
d_unzipWith_166 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_unzipWith_166 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Σ_14)
-> [AgdaAny]
-> T_Σ_14
d_unzipWith_166 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 ~T_Level_18
v4 ~T_Level_18
v5 AgdaAny -> T_Σ_14
v6 [AgdaAny]
v7
= (AgdaAny -> T_Σ_14) -> [AgdaAny] -> T_Σ_14
du_unzipWith_166 AgdaAny -> T_Σ_14
v6 [AgdaAny]
v7
du_unzipWith_166 ::
(AgdaAny -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_unzipWith_166 :: (AgdaAny -> T_Σ_14) -> [AgdaAny] -> T_Σ_14
du_unzipWith_166 AgdaAny -> T_Σ_14
v0 [AgdaAny]
v1
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
[]
-> (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 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1)
(:) AgdaAny
v2 [AgdaAny]
v3
-> ((AgdaAny -> AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny)
-> T_Σ_14
-> T_Σ_14
-> T_Σ_14)
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> T_Σ_14
forall a b. a -> b
coe
(AgdaAny -> AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny)
-> T_Σ_14
-> T_Σ_14
-> T_Σ_14
MAlonzo.Code.Data.Product.Base.du_zip_198
((AgdaAny -> [AgdaAny] -> [AgdaAny]) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22)
((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe (\ AgdaAny
v4 AgdaAny
v5 -> (AgdaAny -> [AgdaAny] -> [AgdaAny]) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22))
((AgdaAny -> T_Σ_14) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Σ_14
v0 AgdaAny
v2) (((AgdaAny -> T_Σ_14) -> [AgdaAny] -> T_Σ_14)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> T_Σ_14) -> [AgdaAny] -> T_Σ_14
du_unzipWith_166 ((AgdaAny -> T_Σ_14) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Σ_14
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3))
[AgdaAny]
_ -> T_Σ_14
forall a. a
MAlonzo.RTE.mazUnreachableError
d_partitionSumsWith_176 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_partitionSumsWith_176 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T__'8846'__30)
-> [AgdaAny]
-> T_Σ_14
d_partitionSumsWith_176 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 ~T_Level_18
v4 ~T_Level_18
v5 AgdaAny -> T__'8846'__30
v6
= (AgdaAny -> T__'8846'__30) -> [AgdaAny] -> T_Σ_14
du_partitionSumsWith_176 AgdaAny -> T__'8846'__30
v6
du_partitionSumsWith_176 ::
(AgdaAny -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_partitionSumsWith_176 :: (AgdaAny -> T__'8846'__30) -> [AgdaAny] -> T_Σ_14
du_partitionSumsWith_176 AgdaAny -> T__'8846'__30
v0
= ((AgdaAny -> T_These_38) -> [AgdaAny] -> T_Σ_14)
-> AgdaAny -> [AgdaAny] -> T_Σ_14
forall a b. a -> b
coe
(AgdaAny -> T_These_38) -> [AgdaAny] -> T_Σ_14
du_unalignWith_118
(((AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
MAlonzo.Code.Function.Base.du__'8728''8242'__216
((T__'8846'__30 -> T_These_38) -> AgdaAny
forall a b. a -> b
coe T__'8846'__30 -> T_These_38
MAlonzo.Code.Data.These.Base.du_fromSum_54) ((AgdaAny -> T__'8846'__30) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T__'8846'__30
v0))
d_align_180 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
[AgdaAny] -> [AgdaAny] -> [MAlonzo.Code.Data.These.Base.T_These_38]
d_align_180 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> [AgdaAny]
-> [AgdaAny]
-> [T_These_38]
d_align_180 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 = [AgdaAny] -> [AgdaAny] -> [T_These_38]
du_align_180
du_align_180 ::
[AgdaAny] -> [AgdaAny] -> [MAlonzo.Code.Data.These.Base.T_These_38]
du_align_180 :: [AgdaAny] -> [AgdaAny] -> [T_These_38]
du_align_180 = ((T_These_38 -> AgdaAny) -> [AgdaAny] -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> [AgdaAny] -> [AgdaAny] -> [T_These_38]
forall a b. a -> b
coe (T_These_38 -> AgdaAny) -> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_alignWith_84 ((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe (\ AgdaAny
v0 -> AgdaAny
v0))
d_zip_182 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
[AgdaAny] -> [AgdaAny] -> [MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14]
d_zip_182 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> [AgdaAny]
-> [AgdaAny]
-> [T_Σ_14]
d_zip_182 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 = [AgdaAny] -> [AgdaAny] -> [T_Σ_14]
du_zip_182
du_zip_182 ::
[AgdaAny] -> [AgdaAny] -> [MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14]
du_zip_182 :: [AgdaAny] -> [AgdaAny] -> [T_Σ_14]
du_zip_182
= ((AgdaAny -> AgdaAny -> AgdaAny)
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> [AgdaAny] -> [AgdaAny] -> [T_Σ_14]
forall a b. a -> b
coe
(AgdaAny -> AgdaAny -> AgdaAny)
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_zipWith_104 ((AgdaAny -> AgdaAny -> T_Σ_14) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> T_Σ_14
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32)
d_unalign_184 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
[MAlonzo.Code.Data.These.Base.T_These_38] ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_unalign_184 :: T_Level_18
-> T_Level_18 -> T_Level_18 -> T_Level_18 -> [T_These_38] -> T_Σ_14
d_unalign_184 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 = [T_These_38] -> T_Σ_14
du_unalign_184
du_unalign_184 ::
[MAlonzo.Code.Data.These.Base.T_These_38] ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_unalign_184 :: [T_These_38] -> T_Σ_14
du_unalign_184 = ((AgdaAny -> T_These_38) -> [AgdaAny] -> T_Σ_14)
-> AgdaAny -> [T_These_38] -> T_Σ_14
forall a b. a -> b
coe (AgdaAny -> T_These_38) -> [AgdaAny] -> T_Σ_14
du_unalignWith_118 ((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe (\ AgdaAny
v0 -> AgdaAny
v0))
d_unzip_186 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
[MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14] ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_unzip_186 :: T_Level_18
-> T_Level_18 -> T_Level_18 -> T_Level_18 -> [T_Σ_14] -> T_Σ_14
d_unzip_186 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 = [T_Σ_14] -> T_Σ_14
du_unzip_186
du_unzip_186 ::
[MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14] ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_unzip_186 :: [T_Σ_14] -> T_Σ_14
du_unzip_186 = ((AgdaAny -> T_Σ_14) -> [AgdaAny] -> T_Σ_14)
-> AgdaAny -> [T_Σ_14] -> T_Σ_14
forall a b. a -> b
coe (AgdaAny -> T_Σ_14) -> [AgdaAny] -> T_Σ_14
du_unzipWith_166 ((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe (\ AgdaAny
v0 -> AgdaAny
v0))
d_partitionSums_188 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
[MAlonzo.Code.Data.Sum.Base.T__'8846'__30] ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_partitionSums_188 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> [T__'8846'__30]
-> T_Σ_14
d_partitionSums_188 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 = [T__'8846'__30] -> T_Σ_14
du_partitionSums_188
du_partitionSums_188 ::
[MAlonzo.Code.Data.Sum.Base.T__'8846'__30] ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_partitionSums_188 :: [T__'8846'__30] -> T_Σ_14
du_partitionSums_188
= ((AgdaAny -> T__'8846'__30) -> [AgdaAny] -> T_Σ_14)
-> AgdaAny -> [T__'8846'__30] -> T_Σ_14
forall a b. a -> b
coe (AgdaAny -> T__'8846'__30) -> [AgdaAny] -> T_Σ_14
du_partitionSumsWith_176 ((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe (\ AgdaAny
v0 -> AgdaAny
v0))
d_merge_192 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(AgdaAny -> AgdaAny -> ()) ->
(AgdaAny ->
AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [AgdaAny] -> [AgdaAny]
d_merge_192 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny -> T_Level_18)
-> (AgdaAny -> AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [AgdaAny]
-> [AgdaAny]
d_merge_192 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~AgdaAny -> AgdaAny -> T_Level_18
v3 AgdaAny -> AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5 [AgdaAny]
v6 = (AgdaAny -> AgdaAny -> T_Dec_20)
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_merge_192 AgdaAny -> AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5 [AgdaAny]
v6
du_merge_192 ::
(AgdaAny ->
AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_merge_192 :: (AgdaAny -> AgdaAny -> T_Dec_20)
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_merge_192 AgdaAny -> AgdaAny -> T_Dec_20
v0 [AgdaAny]
v1 [AgdaAny]
v2
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
[] -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v2
(:) AgdaAny
v3 [AgdaAny]
v4
-> case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v2 of
[] -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1
(:) AgdaAny
v5 [AgdaAny]
v6
-> (Bool -> AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
Bool -> AgdaAny -> AgdaAny -> AgdaAny
MAlonzo.Code.Data.Bool.Base.du_if_then_else__44
((T_Dec_20 -> Bool) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
T_Dec_20 -> Bool
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_does_28
((AgdaAny -> AgdaAny -> T_Dec_20) -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> T_Dec_20
v0 AgdaAny
v3 AgdaAny
v5))
((AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v3)
(((AgdaAny -> AgdaAny -> T_Dec_20)
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> AgdaAny -> T_Dec_20)
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_merge_192 ((AgdaAny -> AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> T_Dec_20
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v4) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v2)))
((AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v5)
(((AgdaAny -> AgdaAny -> T_Dec_20)
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> AgdaAny -> T_Dec_20)
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_merge_192 ((AgdaAny -> AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> T_Dec_20
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v6)))
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_foldr_216 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> [AgdaAny] -> AgdaAny
d_foldr_216 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny
-> [AgdaAny]
-> AgdaAny
d_foldr_216 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 AgdaAny -> AgdaAny -> AgdaAny
v4 AgdaAny
v5 [AgdaAny]
v6 = (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> [AgdaAny] -> AgdaAny
du_foldr_216 AgdaAny -> AgdaAny -> AgdaAny
v4 AgdaAny
v5 [AgdaAny]
v6
du_foldr_216 ::
(AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> [AgdaAny] -> AgdaAny
du_foldr_216 :: (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> [AgdaAny] -> AgdaAny
du_foldr_216 AgdaAny -> AgdaAny -> AgdaAny
v0 AgdaAny
v1 [AgdaAny]
v2
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v2 of
[] -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1
(:) AgdaAny
v3 [AgdaAny]
v4
-> (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> AgdaAny
v0 AgdaAny
v3 (((AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> AgdaAny)
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> [AgdaAny] -> AgdaAny
du_foldr_216 ((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> AgdaAny
v0) (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v4))
[AgdaAny]
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
d_foldl_230 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> [AgdaAny] -> AgdaAny
d_foldl_230 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny
-> [AgdaAny]
-> AgdaAny
d_foldl_230 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 AgdaAny -> AgdaAny -> AgdaAny
v4 AgdaAny
v5 [AgdaAny]
v6 = (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> [AgdaAny] -> AgdaAny
du_foldl_230 AgdaAny -> AgdaAny -> AgdaAny
v4 AgdaAny
v5 [AgdaAny]
v6
du_foldl_230 ::
(AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> [AgdaAny] -> AgdaAny
du_foldl_230 :: (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> [AgdaAny] -> AgdaAny
du_foldl_230 AgdaAny -> AgdaAny -> AgdaAny
v0 AgdaAny
v1 [AgdaAny]
v2
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v2 of
[] -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1
(:) AgdaAny
v3 [AgdaAny]
v4 -> ((AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> AgdaAny)
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> [AgdaAny] -> AgdaAny
du_foldl_230 ((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> AgdaAny
v0) ((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> AgdaAny
v0 AgdaAny
v1 AgdaAny
v3) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v4)
[AgdaAny]
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
d_concat_244 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [[AgdaAny]] -> [AgdaAny]
d_concat_244 :: T_Level_18 -> T_Level_18 -> [[AgdaAny]] -> [AgdaAny]
d_concat_244 ~T_Level_18
v0 ~T_Level_18
v1 = [[AgdaAny]] -> [AgdaAny]
du_concat_244
du_concat_244 :: [[AgdaAny]] -> [AgdaAny]
du_concat_244 :: [[AgdaAny]] -> [AgdaAny]
du_concat_244
= ((AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> AgdaAny)
-> AgdaAny -> AgdaAny -> [[AgdaAny]] -> [AgdaAny]
forall a b. a -> b
coe
(AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> [AgdaAny] -> AgdaAny
du_foldr_216 (([AgdaAny] -> [AgdaAny] -> [AgdaAny]) -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du__'43''43'__32)
([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)
d_concatMap_246 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> [AgdaAny]) -> [AgdaAny] -> [AgdaAny]
d_concatMap_246 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> [AgdaAny])
-> [AgdaAny]
-> [AgdaAny]
d_concatMap_246 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 AgdaAny -> [AgdaAny]
v4 [AgdaAny]
v5 = (AgdaAny -> [AgdaAny]) -> [AgdaAny] -> [AgdaAny]
du_concatMap_246 AgdaAny -> [AgdaAny]
v4 [AgdaAny]
v5
du_concatMap_246 ::
(AgdaAny -> [AgdaAny]) -> [AgdaAny] -> [AgdaAny]
du_concatMap_246 :: (AgdaAny -> [AgdaAny]) -> [AgdaAny] -> [AgdaAny]
du_concatMap_246 AgdaAny -> [AgdaAny]
v0 [AgdaAny]
v1
= ([[AgdaAny]] -> [AgdaAny]) -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe [[AgdaAny]] -> [AgdaAny]
du_concat_244 (((AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny]
du_map_22 ((AgdaAny -> [AgdaAny]) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> [AgdaAny]
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1))
d_ap_250 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny -> AgdaAny] -> [AgdaAny] -> [AgdaAny]
d_ap_250 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> [AgdaAny -> AgdaAny]
-> [AgdaAny]
-> [AgdaAny]
d_ap_250 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 [AgdaAny -> AgdaAny]
v4 [AgdaAny]
v5 = [AgdaAny -> AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_ap_250 [AgdaAny -> AgdaAny]
v4 [AgdaAny]
v5
du_ap_250 :: [AgdaAny -> AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_ap_250 :: [AgdaAny -> AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_ap_250 [AgdaAny -> AgdaAny]
v0 [AgdaAny]
v1
= ((AgdaAny -> [AgdaAny]) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
(AgdaAny -> [AgdaAny]) -> [AgdaAny] -> [AgdaAny]
du_concatMap_246 ((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe (\ AgdaAny
v2 -> ((AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny]
du_map_22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1)))
([AgdaAny -> AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny -> AgdaAny]
v0)
d_catMaybes_256 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [Maybe AgdaAny] -> [AgdaAny]
d_catMaybes_256 :: T_Level_18 -> T_Level_18 -> [Maybe AgdaAny] -> [AgdaAny]
d_catMaybes_256 ~T_Level_18
v0 ~T_Level_18
v1 = [Maybe AgdaAny] -> [AgdaAny]
du_catMaybes_256
du_catMaybes_256 :: [Maybe AgdaAny] -> [AgdaAny]
du_catMaybes_256 :: [Maybe AgdaAny] -> [AgdaAny]
du_catMaybes_256
= ((AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> AgdaAny)
-> AgdaAny -> AgdaAny -> [Maybe AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe
(AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> [AgdaAny] -> AgdaAny
du_foldr_216
(((AgdaAny -> AgdaAny) -> AgdaAny -> Maybe AgdaAny -> AgdaAny)
-> AgdaAny -> (AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> AgdaAny) -> AgdaAny -> Maybe AgdaAny -> AgdaAny
MAlonzo.Code.Data.Maybe.Base.du_maybe'8242'_44
((AgdaAny -> [AgdaAny] -> [AgdaAny]) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22) (\ AgdaAny
v0 -> AgdaAny
v0))
([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)
d_mapMaybe_258 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> Maybe AgdaAny) -> [AgdaAny] -> [AgdaAny]
d_mapMaybe_258 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> Maybe AgdaAny)
-> [AgdaAny]
-> [AgdaAny]
d_mapMaybe_258 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 AgdaAny -> Maybe AgdaAny
v4 [AgdaAny]
v5 = (AgdaAny -> Maybe AgdaAny) -> [AgdaAny] -> [AgdaAny]
du_mapMaybe_258 AgdaAny -> Maybe AgdaAny
v4 [AgdaAny]
v5
du_mapMaybe_258 ::
(AgdaAny -> Maybe AgdaAny) -> [AgdaAny] -> [AgdaAny]
du_mapMaybe_258 :: (AgdaAny -> Maybe AgdaAny) -> [AgdaAny] -> [AgdaAny]
du_mapMaybe_258 AgdaAny -> Maybe AgdaAny
v0 [AgdaAny]
v1
= ([Maybe AgdaAny] -> [AgdaAny]) -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe [Maybe AgdaAny] -> [AgdaAny]
du_catMaybes_256 (((AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny]
du_map_22 ((AgdaAny -> Maybe AgdaAny) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> Maybe AgdaAny
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1))
d_null_262 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 -> () -> [AgdaAny] -> Bool
d_null_262 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> Bool
d_null_262 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> Bool
du_null_262 [AgdaAny]
v2
du_null_262 :: [AgdaAny] -> Bool
du_null_262 :: [AgdaAny] -> Bool
du_null_262 [AgdaAny]
v0
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v0 of
[] -> Bool -> Bool
forall a b. a -> b
coe Bool
MAlonzo.Code.Agda.Builtin.Bool.C_true_10
(:) AgdaAny
v1 [AgdaAny]
v2 -> Bool -> Bool
forall a b. a -> b
coe Bool
MAlonzo.Code.Agda.Builtin.Bool.C_false_8
[AgdaAny]
_ -> Bool
forall a. a
MAlonzo.RTE.mazUnreachableError
d_and_268 :: [Bool] -> Bool
d_and_268 :: [Bool] -> Bool
d_and_268
= ((AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> AgdaAny)
-> AgdaAny -> AgdaAny -> [Bool] -> Bool
forall a b. a -> b
coe
(AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> [AgdaAny] -> AgdaAny
du_foldr_216 ((Bool -> Bool -> Bool) -> AgdaAny
forall a b. a -> b
coe Bool -> Bool -> Bool
MAlonzo.Code.Data.Bool.Base.d__'8743'__24)
(Bool -> AgdaAny
forall a b. a -> b
coe Bool
MAlonzo.Code.Agda.Builtin.Bool.C_true_10)
d_or_270 :: [Bool] -> Bool
d_or_270 :: [Bool] -> Bool
d_or_270
= ((AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> AgdaAny)
-> AgdaAny -> AgdaAny -> [Bool] -> Bool
forall a b. a -> b
coe
(AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> [AgdaAny] -> AgdaAny
du_foldr_216 ((Bool -> Bool -> Bool) -> AgdaAny
forall a b. a -> b
coe Bool -> Bool -> Bool
MAlonzo.Code.Data.Bool.Base.d__'8744'__30)
(Bool -> AgdaAny
forall a b. a -> b
coe Bool
MAlonzo.Code.Agda.Builtin.Bool.C_false_8)
d_any_272 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> Bool) -> [AgdaAny] -> Bool
d_any_272 :: T_Level_18 -> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> Bool
d_any_272 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 [AgdaAny]
v3 = (AgdaAny -> Bool) -> [AgdaAny] -> Bool
du_any_272 AgdaAny -> Bool
v2 [AgdaAny]
v3
du_any_272 :: (AgdaAny -> Bool) -> [AgdaAny] -> Bool
du_any_272 :: (AgdaAny -> Bool) -> [AgdaAny] -> Bool
du_any_272 AgdaAny -> Bool
v0 [AgdaAny]
v1 = ([Bool] -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe [Bool] -> Bool
d_or_270 (((AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny]
du_map_22 ((AgdaAny -> Bool) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> Bool
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1))
d_all_276 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> Bool) -> [AgdaAny] -> Bool
d_all_276 :: T_Level_18 -> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> Bool
d_all_276 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 [AgdaAny]
v3 = (AgdaAny -> Bool) -> [AgdaAny] -> Bool
du_all_276 AgdaAny -> Bool
v2 [AgdaAny]
v3
du_all_276 :: (AgdaAny -> Bool) -> [AgdaAny] -> Bool
du_all_276 :: (AgdaAny -> Bool) -> [AgdaAny] -> Bool
du_all_276 AgdaAny -> Bool
v0 [AgdaAny]
v1 = ([Bool] -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe [Bool] -> Bool
d_and_268 (((AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny]
du_map_22 ((AgdaAny -> Bool) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> Bool
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1))
d_sum_280 :: [Integer] -> Integer
d_sum_280 :: [Integer] -> Integer
d_sum_280 = ((AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> AgdaAny)
-> AgdaAny -> AgdaAny -> [Integer] -> Integer
forall a b. a -> b
coe (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> [AgdaAny] -> AgdaAny
du_foldr_216 ((Integer -> Integer -> Integer) -> AgdaAny
forall a b. a -> b
coe Integer -> Integer -> Integer
addInt) (Integer -> AgdaAny
forall a b. a -> b
coe (Integer
0 :: Integer))
d_product_282 :: [Integer] -> Integer
d_product_282 :: [Integer] -> Integer
d_product_282 = ((AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> AgdaAny)
-> AgdaAny -> AgdaAny -> [Integer] -> Integer
forall a b. a -> b
coe (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> [AgdaAny] -> AgdaAny
du_foldr_216 ((Integer -> Integer -> Integer) -> AgdaAny
forall a b. a -> b
coe Integer -> Integer -> Integer
mulInt) (Integer -> AgdaAny
forall a b. a -> b
coe (Integer
1 :: Integer))
d_length_284 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> Integer
d_length_284 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> Integer
d_length_284 ~T_Level_18
v0 ~T_Level_18
v1 = [AgdaAny] -> Integer
du_length_284
du_length_284 :: [AgdaAny] -> Integer
du_length_284 :: [AgdaAny] -> Integer
du_length_284
= ((AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> AgdaAny)
-> AgdaAny -> AgdaAny -> [AgdaAny] -> Integer
forall a b. a -> b
coe
(AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> [AgdaAny] -> AgdaAny
du_foldr_216
(let v0 :: a -> Integer
v0 = \ a
v0 -> Integer -> Integer -> Integer
addInt (Integer -> Integer
forall a b. a -> b
coe (Integer
1 :: Integer)) (a -> Integer
forall a b. a -> b
coe a
v0) in
AgdaAny -> AgdaAny
forall a b. a -> b
coe ((AgdaAny -> AgdaAny -> Integer) -> AgdaAny
forall a b. a -> b
coe (\ AgdaAny
v1 -> AgdaAny -> Integer
forall {a}. a -> Integer
v0)))
(Integer -> AgdaAny
forall a b. a -> b
coe (Integer
0 :: Integer))
d_'91'_'93'_286 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> AgdaAny -> [AgdaAny]
d_'91'_'93'_286 :: T_Level_18 -> T_Level_18 -> AgdaAny -> [AgdaAny]
d_'91'_'93'_286 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny
v2 = AgdaAny -> [AgdaAny]
du_'91'_'93'_286 AgdaAny
v2
du_'91'_'93'_286 :: AgdaAny -> [AgdaAny]
du_'91'_'93'_286 :: AgdaAny -> [AgdaAny]
du_'91'_'93'_286 AgdaAny
v0
= (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v0)
([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)
d_fromMaybe_290 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> Maybe AgdaAny -> [AgdaAny]
d_fromMaybe_290 :: T_Level_18 -> T_Level_18 -> Maybe AgdaAny -> [AgdaAny]
d_fromMaybe_290 ~T_Level_18
v0 ~T_Level_18
v1 Maybe AgdaAny
v2 = Maybe AgdaAny -> [AgdaAny]
du_fromMaybe_290 Maybe AgdaAny
v2
du_fromMaybe_290 :: Maybe AgdaAny -> [AgdaAny]
du_fromMaybe_290 :: Maybe AgdaAny -> [AgdaAny]
du_fromMaybe_290 Maybe AgdaAny
v0
= case Maybe AgdaAny -> Maybe AgdaAny
forall a b. a -> b
coe Maybe AgdaAny
v0 of
MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 AgdaAny
v1
-> (AgdaAny -> [AgdaAny]) -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe AgdaAny -> [AgdaAny]
du_'91'_'93'_286 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1)
Maybe AgdaAny
MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18
-> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16
Maybe AgdaAny
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_replicate_294 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> Integer -> AgdaAny -> [AgdaAny]
d_replicate_294 :: T_Level_18 -> T_Level_18 -> Integer -> AgdaAny -> [AgdaAny]
d_replicate_294 ~T_Level_18
v0 ~T_Level_18
v1 Integer
v2 AgdaAny
v3 = Integer -> AgdaAny -> [AgdaAny]
du_replicate_294 Integer
v2 AgdaAny
v3
du_replicate_294 :: Integer -> AgdaAny -> [AgdaAny]
du_replicate_294 :: Integer -> AgdaAny -> [AgdaAny]
du_replicate_294 Integer
v0 AgdaAny
v1
= case Integer -> Integer
forall a b. a -> b
coe Integer
v0 of
Integer
0 -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16
Integer
_ -> let v2 :: Integer
v2 = Integer -> Integer -> Integer
subInt (Integer -> Integer
forall a b. a -> b
coe Integer
v0) (Integer -> Integer
forall a b. a -> b
coe (Integer
1 :: Integer)) in
AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
((AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1)
((Integer -> AgdaAny -> [AgdaAny]) -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe Integer -> AgdaAny -> [AgdaAny]
du_replicate_294 (Integer -> AgdaAny
forall a b. a -> b
coe Integer
v2) (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1)))
d_iterate_302 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> AgdaAny) -> AgdaAny -> Integer -> [AgdaAny]
d_iterate_302 :: T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny)
-> AgdaAny
-> Integer
-> [AgdaAny]
d_iterate_302 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> AgdaAny
v2 AgdaAny
v3 Integer
v4 = (AgdaAny -> AgdaAny) -> AgdaAny -> Integer -> [AgdaAny]
du_iterate_302 AgdaAny -> AgdaAny
v2 AgdaAny
v3 Integer
v4
du_iterate_302 ::
(AgdaAny -> AgdaAny) -> AgdaAny -> Integer -> [AgdaAny]
du_iterate_302 :: (AgdaAny -> AgdaAny) -> AgdaAny -> Integer -> [AgdaAny]
du_iterate_302 AgdaAny -> AgdaAny
v0 AgdaAny
v1 Integer
v2
= case Integer -> Integer
forall a b. a -> b
coe Integer
v2 of
Integer
0 -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16
Integer
_ -> let v3 :: Integer
v3 = Integer -> Integer -> Integer
subInt (Integer -> Integer
forall a b. a -> b
coe Integer
v2) (Integer -> Integer
forall a b. a -> b
coe (Integer
1 :: Integer)) in
AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
((AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1)
(((AgdaAny -> AgdaAny) -> AgdaAny -> Integer -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> AgdaAny) -> AgdaAny -> Integer -> [AgdaAny]
du_iterate_302 ((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny
v0) ((AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny
v0 AgdaAny
v1) (Integer -> AgdaAny
forall a b. a -> b
coe Integer
v3)))
d_inits_314 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> [[AgdaAny]]
d_inits_314 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> [[AgdaAny]]
d_inits_314 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> [[AgdaAny]]
du_inits_314 [AgdaAny]
v2
du_inits_314 :: [AgdaAny] -> [[AgdaAny]]
du_inits_314 :: [AgdaAny] -> [[AgdaAny]]
du_inits_314 [AgdaAny]
v0
= (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [[AgdaAny]]
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22
([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)
(([AgdaAny] -> [[AgdaAny]]) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> [[AgdaAny]]
du_tail_320 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v0))
d_tail_320 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> [[AgdaAny]]
d_tail_320 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> [[AgdaAny]]
d_tail_320 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> [[AgdaAny]]
du_tail_320 [AgdaAny]
v2
du_tail_320 :: [AgdaAny] -> [[AgdaAny]]
du_tail_320 :: [AgdaAny] -> [[AgdaAny]]
du_tail_320 [AgdaAny]
v0
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v0 of
[] -> [AgdaAny] -> [[AgdaAny]]
forall a b. a -> b
coe [AgdaAny]
v0
(:) AgdaAny
v1 [AgdaAny]
v2
-> (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [[AgdaAny]]
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22
((AgdaAny -> [AgdaAny]) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> [AgdaAny]
du_'91'_'93'_286 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1))
(((AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny]
du_map_22
((AgdaAny -> [AgdaAny] -> [AgdaAny]) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1))
(([AgdaAny] -> [[AgdaAny]]) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> [[AgdaAny]]
du_tail_320 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v2)))
[AgdaAny]
_ -> [[AgdaAny]]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_tails_330 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> [[AgdaAny]]
d_tails_330 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> [[AgdaAny]]
d_tails_330 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> [[AgdaAny]]
du_tails_330 [AgdaAny]
v2
du_tails_330 :: [AgdaAny] -> [[AgdaAny]]
du_tails_330 :: [AgdaAny] -> [[AgdaAny]]
du_tails_330 [AgdaAny]
v0
= (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [[AgdaAny]]
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v0)
(([AgdaAny] -> [[AgdaAny]]) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> [[AgdaAny]]
du_tail_336 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v0))
d_tail_336 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> [[AgdaAny]]
d_tail_336 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> [[AgdaAny]]
d_tail_336 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> [[AgdaAny]]
du_tail_336 [AgdaAny]
v2
du_tail_336 :: [AgdaAny] -> [[AgdaAny]]
du_tail_336 :: [AgdaAny] -> [[AgdaAny]]
du_tail_336 [AgdaAny]
v0
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v0 of
[] -> [AgdaAny] -> [[AgdaAny]]
forall a b. a -> b
coe [AgdaAny]
v0
(:) AgdaAny
v1 [AgdaAny]
v2
-> (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [[AgdaAny]]
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v2)
(([AgdaAny] -> [[AgdaAny]]) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> [[AgdaAny]]
du_tail_336 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v2))
[AgdaAny]
_ -> [[AgdaAny]]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_insertAt_344 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
[AgdaAny] ->
MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny -> [AgdaAny]
d_insertAt_344 :: T_Level_18
-> T_Level_18 -> [AgdaAny] -> T_Fin_10 -> AgdaAny -> [AgdaAny]
d_insertAt_344 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 T_Fin_10
v3 AgdaAny
v4 = [AgdaAny] -> T_Fin_10 -> AgdaAny -> [AgdaAny]
du_insertAt_344 [AgdaAny]
v2 T_Fin_10
v3 AgdaAny
v4
du_insertAt_344 ::
[AgdaAny] ->
MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny -> [AgdaAny]
du_insertAt_344 :: [AgdaAny] -> T_Fin_10 -> AgdaAny -> [AgdaAny]
du_insertAt_344 [AgdaAny]
v0 T_Fin_10
v1 AgdaAny
v2
= case T_Fin_10 -> T_Fin_10
forall a b. a -> b
coe T_Fin_10
v1 of
T_Fin_10
MAlonzo.Code.Data.Fin.Base.C_zero_12
-> (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v0)
MAlonzo.Code.Data.Fin.Base.C_suc_16 T_Fin_10
v4
-> case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v0 of
(:) AgdaAny
v5 [AgdaAny]
v6
-> (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v5)
(([AgdaAny] -> T_Fin_10 -> AgdaAny -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> T_Fin_10 -> AgdaAny -> [AgdaAny]
du_insertAt_344 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v6) (T_Fin_10 -> AgdaAny
forall a b. a -> b
coe T_Fin_10
v4) (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2))
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
T_Fin_10
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_updateAt_360 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
[AgdaAny] ->
MAlonzo.Code.Data.Fin.Base.T_Fin_10 ->
(AgdaAny -> AgdaAny) -> [AgdaAny]
d_updateAt_360 :: T_Level_18
-> T_Level_18
-> [AgdaAny]
-> T_Fin_10
-> (AgdaAny -> AgdaAny)
-> [AgdaAny]
d_updateAt_360 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 T_Fin_10
v3 AgdaAny -> AgdaAny
v4 = [AgdaAny] -> T_Fin_10 -> (AgdaAny -> AgdaAny) -> [AgdaAny]
du_updateAt_360 [AgdaAny]
v2 T_Fin_10
v3 AgdaAny -> AgdaAny
v4
du_updateAt_360 ::
[AgdaAny] ->
MAlonzo.Code.Data.Fin.Base.T_Fin_10 ->
(AgdaAny -> AgdaAny) -> [AgdaAny]
du_updateAt_360 :: [AgdaAny] -> T_Fin_10 -> (AgdaAny -> AgdaAny) -> [AgdaAny]
du_updateAt_360 [AgdaAny]
v0 T_Fin_10
v1 AgdaAny -> AgdaAny
v2
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v0 of
(:) AgdaAny
v3 [AgdaAny]
v4
-> case T_Fin_10 -> T_Fin_10
forall a b. a -> b
coe T_Fin_10
v1 of
T_Fin_10
MAlonzo.Code.Data.Fin.Base.C_zero_12
-> (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 ((AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny
v2 AgdaAny
v3) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v4)
MAlonzo.Code.Data.Fin.Base.C_suc_16 T_Fin_10
v6
-> (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v3)
(([AgdaAny] -> T_Fin_10 -> (AgdaAny -> AgdaAny) -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> T_Fin_10 -> (AgdaAny -> AgdaAny) -> [AgdaAny]
du_updateAt_360 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v4) (T_Fin_10 -> AgdaAny
forall a b. a -> b
coe T_Fin_10
v6) ((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny
v2))
T_Fin_10
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_applyUpTo_376 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (Integer -> AgdaAny) -> Integer -> [AgdaAny]
d_applyUpTo_376 :: T_Level_18
-> T_Level_18 -> (Integer -> AgdaAny) -> Integer -> [AgdaAny]
d_applyUpTo_376 ~T_Level_18
v0 ~T_Level_18
v1 Integer -> AgdaAny
v2 Integer
v3 = (Integer -> AgdaAny) -> Integer -> [AgdaAny]
du_applyUpTo_376 Integer -> AgdaAny
v2 Integer
v3
du_applyUpTo_376 :: (Integer -> AgdaAny) -> Integer -> [AgdaAny]
du_applyUpTo_376 :: (Integer -> AgdaAny) -> Integer -> [AgdaAny]
du_applyUpTo_376 Integer -> AgdaAny
v0 Integer
v1
= case Integer -> Integer
forall a b. a -> b
coe Integer
v1 of
Integer
0 -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16
Integer
_ -> let v2 :: Integer
v2 = Integer -> Integer -> Integer
subInt (Integer -> Integer
forall a b. a -> b
coe Integer
v1) (Integer -> Integer
forall a b. a -> b
coe (Integer
1 :: Integer)) in
AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
((AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22
((Integer -> AgdaAny) -> Integer -> AgdaAny
forall a b. a -> b
coe Integer -> AgdaAny
v0 (Integer
0 :: Integer))
(((Integer -> AgdaAny) -> Integer -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(Integer -> AgdaAny) -> Integer -> [AgdaAny]
du_applyUpTo_376
((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe (\ AgdaAny
v3 -> (Integer -> AgdaAny) -> Integer -> AgdaAny
forall a b. a -> b
coe Integer -> AgdaAny
v0 (Integer -> Integer -> Integer
addInt (Integer -> Integer
forall a b. a -> b
coe (Integer
1 :: Integer)) (AgdaAny -> Integer
forall a b. a -> b
coe AgdaAny
v3))))
(Integer -> AgdaAny
forall a b. a -> b
coe Integer
v2)))
d_applyDownFrom_384 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (Integer -> AgdaAny) -> Integer -> [AgdaAny]
d_applyDownFrom_384 :: T_Level_18
-> T_Level_18 -> (Integer -> AgdaAny) -> Integer -> [AgdaAny]
d_applyDownFrom_384 ~T_Level_18
v0 ~T_Level_18
v1 Integer -> AgdaAny
v2 Integer
v3 = (Integer -> AgdaAny) -> Integer -> [AgdaAny]
du_applyDownFrom_384 Integer -> AgdaAny
v2 Integer
v3
du_applyDownFrom_384 ::
(Integer -> AgdaAny) -> Integer -> [AgdaAny]
du_applyDownFrom_384 :: (Integer -> AgdaAny) -> Integer -> [AgdaAny]
du_applyDownFrom_384 Integer -> AgdaAny
v0 Integer
v1
= case Integer -> Integer
forall a b. a -> b
coe Integer
v1 of
Integer
0 -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16
Integer
_ -> let v2 :: Integer
v2 = Integer -> Integer -> Integer
subInt (Integer -> Integer
forall a b. a -> b
coe Integer
v1) (Integer -> Integer
forall a b. a -> b
coe (Integer
1 :: Integer)) in
AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
((AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 ((Integer -> AgdaAny) -> Integer -> AgdaAny
forall a b. a -> b
coe Integer -> AgdaAny
v0 Integer
v2)
(((Integer -> AgdaAny) -> Integer -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (Integer -> AgdaAny) -> Integer -> [AgdaAny]
du_applyDownFrom_384 ((Integer -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe Integer -> AgdaAny
v0) (Integer -> AgdaAny
forall a b. a -> b
coe Integer
v2)))
d_tabulate_396 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
Integer ->
(MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny) -> [AgdaAny]
d_tabulate_396 :: T_Level_18
-> T_Level_18 -> Integer -> (T_Fin_10 -> AgdaAny) -> [AgdaAny]
d_tabulate_396 ~T_Level_18
v0 ~T_Level_18
v1 Integer
v2 T_Fin_10 -> AgdaAny
v3 = Integer -> (T_Fin_10 -> AgdaAny) -> [AgdaAny]
du_tabulate_396 Integer
v2 T_Fin_10 -> AgdaAny
v3
du_tabulate_396 ::
Integer ->
(MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny) -> [AgdaAny]
du_tabulate_396 :: Integer -> (T_Fin_10 -> AgdaAny) -> [AgdaAny]
du_tabulate_396 Integer
v0 T_Fin_10 -> AgdaAny
v1
= case Integer -> Integer
forall a b. a -> b
coe Integer
v0 of
Integer
0 -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16
Integer
_ -> let v2 :: Integer
v2 = Integer -> Integer -> Integer
subInt (Integer -> Integer
forall a b. a -> b
coe Integer
v0) (Integer -> Integer
forall a b. a -> b
coe (Integer
1 :: Integer)) in
AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
((AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22
((T_Fin_10 -> AgdaAny) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe T_Fin_10 -> AgdaAny
v1 (T_Fin_10 -> AgdaAny
forall a b. a -> b
coe T_Fin_10
MAlonzo.Code.Data.Fin.Base.C_zero_12))
((Integer -> (T_Fin_10 -> AgdaAny) -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
Integer -> (T_Fin_10 -> AgdaAny) -> [AgdaAny]
du_tabulate_396 (Integer -> AgdaAny
forall a b. a -> b
coe Integer
v2)
((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe
(\ AgdaAny
v3 -> (T_Fin_10 -> AgdaAny) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe T_Fin_10 -> AgdaAny
v1 ((T_Fin_10 -> T_Fin_10) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe T_Fin_10 -> T_Fin_10
MAlonzo.Code.Data.Fin.Base.C_suc_16 AgdaAny
v3)))))
d_lookup_406 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny
d_lookup_406 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> T_Fin_10 -> AgdaAny
d_lookup_406 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 T_Fin_10
v3 = [AgdaAny] -> T_Fin_10 -> AgdaAny
du_lookup_406 [AgdaAny]
v2 T_Fin_10
v3
du_lookup_406 ::
[AgdaAny] -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny
du_lookup_406 :: [AgdaAny] -> T_Fin_10 -> AgdaAny
du_lookup_406 [AgdaAny]
v0 T_Fin_10
v1
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v0 of
(:) AgdaAny
v2 [AgdaAny]
v3
-> case T_Fin_10 -> T_Fin_10
forall a b. a -> b
coe T_Fin_10
v1 of
T_Fin_10
MAlonzo.Code.Data.Fin.Base.C_zero_12 -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2
MAlonzo.Code.Data.Fin.Base.C_suc_16 T_Fin_10
v5
-> ([AgdaAny] -> T_Fin_10 -> AgdaAny) -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> T_Fin_10 -> AgdaAny
du_lookup_406 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3) (T_Fin_10 -> AgdaAny
forall a b. a -> b
coe T_Fin_10
v5)
T_Fin_10
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
[AgdaAny]
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
d_upTo_418 :: Integer -> [Integer]
d_upTo_418 :: Integer -> [Integer]
d_upTo_418 = ((Integer -> AgdaAny) -> Integer -> [AgdaAny])
-> AgdaAny -> Integer -> [Integer]
forall a b. a -> b
coe (Integer -> AgdaAny) -> Integer -> [AgdaAny]
du_applyUpTo_376 ((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe (\ AgdaAny
v0 -> AgdaAny
v0))
d_downFrom_420 :: Integer -> [Integer]
d_downFrom_420 :: Integer -> [Integer]
d_downFrom_420 = ((Integer -> AgdaAny) -> Integer -> [AgdaAny])
-> AgdaAny -> Integer -> [Integer]
forall a b. a -> b
coe (Integer -> AgdaAny) -> Integer -> [AgdaAny]
du_applyDownFrom_384 ((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe (\ AgdaAny
v0 -> AgdaAny
v0))
d_allFin_424 :: Integer -> [MAlonzo.Code.Data.Fin.Base.T_Fin_10]
d_allFin_424 :: Integer -> [T_Fin_10]
d_allFin_424 Integer
v0 = (Integer -> (T_Fin_10 -> AgdaAny) -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [T_Fin_10]
forall a b. a -> b
coe Integer -> (T_Fin_10 -> AgdaAny) -> [AgdaAny]
du_tabulate_396 (Integer -> AgdaAny
forall a b. a -> b
coe Integer
v0) ((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe (\ AgdaAny
v1 -> AgdaAny
v1))
d_unfold_436 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(Integer -> ()) ->
(Integer ->
AgdaAny -> Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) ->
Integer -> AgdaAny -> [AgdaAny]
d_unfold_436 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (Integer -> T_Level_18)
-> (Integer -> AgdaAny -> Maybe T_Σ_14)
-> Integer
-> AgdaAny
-> [AgdaAny]
d_unfold_436 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~Integer -> T_Level_18
v3 Integer -> AgdaAny -> Maybe T_Σ_14
v4 Integer
v5 AgdaAny
v6 = (Integer -> AgdaAny -> Maybe T_Σ_14)
-> Integer -> AgdaAny -> [AgdaAny]
du_unfold_436 Integer -> AgdaAny -> Maybe T_Σ_14
v4 Integer
v5 AgdaAny
v6
du_unfold_436 ::
(Integer ->
AgdaAny -> Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) ->
Integer -> AgdaAny -> [AgdaAny]
du_unfold_436 :: (Integer -> AgdaAny -> Maybe T_Σ_14)
-> Integer -> AgdaAny -> [AgdaAny]
du_unfold_436 Integer -> AgdaAny -> Maybe T_Σ_14
v0 Integer
v1 AgdaAny
v2
= case Integer -> Integer
forall a b. a -> b
coe Integer
v1 of
Integer
0 -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16
Integer
_ -> let v3 :: Integer
v3 = Integer -> Integer -> Integer
subInt (Integer -> Integer
forall a b. a -> b
coe Integer
v1) (Integer -> Integer
forall a b. a -> b
coe (Integer
1 :: Integer)) in
AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
(((AgdaAny -> AgdaAny) -> AgdaAny -> Maybe AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> AgdaAny) -> AgdaAny -> Maybe AgdaAny -> AgdaAny
MAlonzo.Code.Data.Maybe.Base.du_maybe'8242'_44
(\ AgdaAny
v4 ->
(AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22
((T_Σ_14 -> AgdaAny) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe T_Σ_14 -> AgdaAny
MAlonzo.Code.Agda.Builtin.Sigma.d_fst_28 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v4))
(((Integer -> AgdaAny -> Maybe T_Σ_14)
-> Integer -> AgdaAny -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(Integer -> AgdaAny -> Maybe T_Σ_14)
-> Integer -> AgdaAny -> [AgdaAny]
du_unfold_436 ((Integer -> AgdaAny -> Maybe T_Σ_14) -> AgdaAny
forall a b. a -> b
coe Integer -> AgdaAny -> Maybe T_Σ_14
v0) (Integer -> AgdaAny
forall a b. a -> b
coe Integer
v3)
((T_Σ_14 -> AgdaAny) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe T_Σ_14 -> AgdaAny
MAlonzo.Code.Agda.Builtin.Sigma.d_snd_30 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v4))))
([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16) ((Integer -> AgdaAny -> Maybe T_Σ_14)
-> Integer -> AgdaAny -> AgdaAny
forall a b. a -> b
coe Integer -> AgdaAny -> Maybe T_Σ_14
v0 Integer
v3 AgdaAny
v2))
d_reverseAcc_458 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
d_reverseAcc_458 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
d_reverseAcc_458 ~T_Level_18
v0 ~T_Level_18
v1 = [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_reverseAcc_458
du_reverseAcc_458 :: [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_reverseAcc_458 :: [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_reverseAcc_458
= ((AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe
(AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> [AgdaAny] -> AgdaAny
du_foldl_230
((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe
(\ AgdaAny
v0 AgdaAny
v1 ->
(AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1) (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v0)))
d_reverse_460 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> [AgdaAny]
d_reverse_460 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> [AgdaAny]
d_reverse_460 ~T_Level_18
v0 ~T_Level_18
v1 = [AgdaAny] -> [AgdaAny]
du_reverse_460
du_reverse_460 :: [AgdaAny] -> [AgdaAny]
du_reverse_460 :: [AgdaAny] -> [AgdaAny]
du_reverse_460
= ([AgdaAny] -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe
[AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_reverseAcc_458
([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)
d__'691''43''43'__462 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
d__'691''43''43'__462 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
d__'691''43''43'__462 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 [AgdaAny]
v3 = [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du__'691''43''43'__462 [AgdaAny]
v2 [AgdaAny]
v3
du__'691''43''43'__462 :: [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du__'691''43''43'__462 :: [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du__'691''43''43'__462 [AgdaAny]
v0 [AgdaAny]
v1 = ([AgdaAny] -> [AgdaAny] -> [AgdaAny])
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_reverseAcc_458 [AgdaAny]
v1 [AgdaAny]
v0
d__'8759''691'__464 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> AgdaAny -> [AgdaAny]
d__'8759''691'__464 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> AgdaAny -> [AgdaAny]
d__'8759''691'__464 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 AgdaAny
v3 = [AgdaAny] -> AgdaAny -> [AgdaAny]
du__'8759''691'__464 [AgdaAny]
v2 AgdaAny
v3
du__'8759''691'__464 :: [AgdaAny] -> AgdaAny -> [AgdaAny]
du__'8759''691'__464 :: [AgdaAny] -> AgdaAny -> [AgdaAny]
du__'8759''691'__464 [AgdaAny]
v0 AgdaAny
v1
= ([AgdaAny] -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du__'43''43'__32 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v0) ((AgdaAny -> [AgdaAny]) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> [AgdaAny]
du_'91'_'93'_286 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1))
d_InitLast_474 :: p -> p -> p -> T_Level_18
d_InitLast_474 p
a0 p
a1 p
a2 = ()
data T_InitLast_474
= C_'91''93'_478 | C__'8759''691''8242'__484 [AgdaAny] AgdaAny
d_initLast_488 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> T_InitLast_474
d_initLast_488 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> T_InitLast_474
d_initLast_488 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> T_InitLast_474
du_initLast_488 [AgdaAny]
v2
du_initLast_488 :: [AgdaAny] -> T_InitLast_474
du_initLast_488 :: [AgdaAny] -> T_InitLast_474
du_initLast_488 [AgdaAny]
v0
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v0 of
[] -> T_InitLast_474 -> T_InitLast_474
forall a b. a -> b
coe T_InitLast_474
C_'91''93'_478
(:) AgdaAny
v1 [AgdaAny]
v2
-> let v3 :: t
v3 = ([AgdaAny] -> T_InitLast_474) -> AgdaAny -> t
forall a b. a -> b
coe [AgdaAny] -> T_InitLast_474
du_initLast_488 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v2) in
AgdaAny -> T_InitLast_474
forall a b. a -> b
coe
(case AgdaAny -> T_InitLast_474
forall a b. a -> b
coe AgdaAny
forall a. a
v3 of
T_InitLast_474
C_'91''93'_478
-> ([AgdaAny] -> AgdaAny -> T_InitLast_474)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
[AgdaAny] -> AgdaAny -> T_InitLast_474
C__'8759''691''8242'__484
([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16) (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1)
C__'8759''691''8242'__484 [AgdaAny]
v4 AgdaAny
v5
-> ([AgdaAny] -> AgdaAny -> T_InitLast_474)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
[AgdaAny] -> AgdaAny -> T_InitLast_474
C__'8759''691''8242'__484
((AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v4))
(AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v5)
T_InitLast_474
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError)
[AgdaAny]
_ -> T_InitLast_474
forall a. a
MAlonzo.RTE.mazUnreachableError
d_unsnoc_510 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_unsnoc_510 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> Maybe T_Σ_14
d_unsnoc_510 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> Maybe T_Σ_14
du_unsnoc_510 [AgdaAny]
v2
du_unsnoc_510 ::
[AgdaAny] -> Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_unsnoc_510 :: [AgdaAny] -> Maybe T_Σ_14
du_unsnoc_510 [AgdaAny]
v0
= let v1 :: t
v1 = ([AgdaAny] -> T_InitLast_474) -> AgdaAny -> t
forall a b. a -> b
coe [AgdaAny] -> T_InitLast_474
du_initLast_488 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v0) in
AgdaAny -> Maybe T_Σ_14
forall a b. a -> b
coe
(case AgdaAny -> T_InitLast_474
forall a b. a -> b
coe AgdaAny
forall a. a
v1 of
T_InitLast_474
C_'91''93'_478 -> Maybe AgdaAny -> AgdaAny
forall a b. a -> b
coe Maybe AgdaAny
forall {a}. Maybe a
MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18
C__'8759''691''8242'__484 [AgdaAny]
v2 AgdaAny
v3
-> (AgdaAny -> Maybe AgdaAny) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> Maybe AgdaAny
forall {a}. a -> Maybe a
MAlonzo.Code.Agda.Builtin.Maybe.C_just_16
((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]
v2) (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v3))
T_InitLast_474
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError)
d_uncons_526 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_uncons_526 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> Maybe T_Σ_14
d_uncons_526 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> Maybe T_Σ_14
du_uncons_526 [AgdaAny]
v2
du_uncons_526 ::
[AgdaAny] -> Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_uncons_526 :: [AgdaAny] -> Maybe T_Σ_14
du_uncons_526 [AgdaAny]
v0
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v0 of
[] -> Maybe AgdaAny -> Maybe T_Σ_14
forall a b. a -> b
coe Maybe AgdaAny
forall {a}. Maybe a
MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18
(:) AgdaAny
v1 [AgdaAny]
v2
-> (AgdaAny -> Maybe AgdaAny) -> AgdaAny -> Maybe T_Σ_14
forall a b. a -> b
coe
AgdaAny -> Maybe AgdaAny
forall {a}. a -> Maybe a
MAlonzo.Code.Agda.Builtin.Maybe.C_just_16
((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
v1) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v2))
[AgdaAny]
_ -> Maybe T_Σ_14
forall a. a
MAlonzo.RTE.mazUnreachableError
d_head_532 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> Maybe AgdaAny
d_head_532 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> Maybe AgdaAny
d_head_532 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> Maybe AgdaAny
du_head_532 [AgdaAny]
v2
du_head_532 :: [AgdaAny] -> Maybe AgdaAny
du_head_532 :: [AgdaAny] -> Maybe AgdaAny
du_head_532 [AgdaAny]
v0
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v0 of
[] -> Maybe AgdaAny -> Maybe AgdaAny
forall a b. a -> b
coe Maybe AgdaAny
forall {a}. Maybe a
MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18
(:) AgdaAny
v1 [AgdaAny]
v2 -> (AgdaAny -> Maybe AgdaAny) -> AgdaAny -> Maybe AgdaAny
forall a b. a -> b
coe AgdaAny -> Maybe AgdaAny
forall {a}. a -> Maybe a
MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1)
[AgdaAny]
_ -> Maybe AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
d_tail_536 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> Maybe [AgdaAny]
d_tail_536 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> Maybe [AgdaAny]
d_tail_536 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> Maybe [AgdaAny]
du_tail_536 [AgdaAny]
v2
du_tail_536 :: [AgdaAny] -> Maybe [AgdaAny]
du_tail_536 :: [AgdaAny] -> Maybe [AgdaAny]
du_tail_536 [AgdaAny]
v0
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v0 of
[] -> Maybe AgdaAny -> Maybe [AgdaAny]
forall a b. a -> b
coe Maybe AgdaAny
forall {a}. Maybe a
MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18
(:) AgdaAny
v1 [AgdaAny]
v2 -> (AgdaAny -> Maybe AgdaAny) -> AgdaAny -> Maybe [AgdaAny]
forall a b. a -> b
coe AgdaAny -> Maybe AgdaAny
forall {a}. a -> Maybe a
MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v2)
[AgdaAny]
_ -> Maybe [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_last_540 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> Maybe AgdaAny
d_last_540 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> Maybe AgdaAny
d_last_540 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> Maybe AgdaAny
du_last_540 [AgdaAny]
v2
du_last_540 :: [AgdaAny] -> Maybe AgdaAny
du_last_540 :: [AgdaAny] -> Maybe AgdaAny
du_last_540 [AgdaAny]
v0
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v0 of
[] -> Maybe AgdaAny -> Maybe AgdaAny
forall a b. a -> b
coe Maybe AgdaAny
forall {a}. Maybe a
MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18
(:) AgdaAny
v1 [AgdaAny]
v2
-> let v3 :: t
v3 = ([AgdaAny] -> Maybe AgdaAny) -> AgdaAny -> t
forall a b. a -> b
coe [AgdaAny] -> Maybe AgdaAny
du_last_540 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v2) in
AgdaAny -> Maybe AgdaAny
forall a b. a -> b
coe
(case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v2 of
[] -> (AgdaAny -> Maybe AgdaAny) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> Maybe AgdaAny
forall {a}. a -> Maybe a
MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1)
[AgdaAny]
_ -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
forall a. a
v3)
[AgdaAny]
_ -> Maybe AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
d_take_546 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> Integer -> [AgdaAny] -> [AgdaAny]
d_take_546 :: T_Level_18 -> T_Level_18 -> Integer -> [AgdaAny] -> [AgdaAny]
d_take_546 ~T_Level_18
v0 ~T_Level_18
v1 Integer
v2 [AgdaAny]
v3 = Integer -> [AgdaAny] -> [AgdaAny]
du_take_546 Integer
v2 [AgdaAny]
v3
du_take_546 :: Integer -> [AgdaAny] -> [AgdaAny]
du_take_546 :: Integer -> [AgdaAny] -> [AgdaAny]
du_take_546 Integer
v0 [AgdaAny]
v1
= case Integer -> Integer
forall a b. a -> b
coe Integer
v0 of
Integer
0 -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16
Integer
_ -> let v2 :: Integer
v2 = Integer -> Integer -> Integer
subInt (Integer -> Integer
forall a b. a -> b
coe Integer
v0) (Integer -> Integer
forall a b. a -> b
coe (Integer
1 :: Integer)) in
AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
(case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
[] -> [AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1
(:) AgdaAny
v3 [AgdaAny]
v4
-> (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v3)
((Integer -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe Integer -> [AgdaAny] -> [AgdaAny]
du_take_546 (Integer -> AgdaAny
forall a b. a -> b
coe Integer
v2) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v4))
[AgdaAny]
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError)
d_drop_558 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> Integer -> [AgdaAny] -> [AgdaAny]
d_drop_558 :: T_Level_18 -> T_Level_18 -> Integer -> [AgdaAny] -> [AgdaAny]
d_drop_558 ~T_Level_18
v0 ~T_Level_18
v1 Integer
v2 [AgdaAny]
v3 = Integer -> [AgdaAny] -> [AgdaAny]
du_drop_558 Integer
v2 [AgdaAny]
v3
du_drop_558 :: Integer -> [AgdaAny] -> [AgdaAny]
du_drop_558 :: Integer -> [AgdaAny] -> [AgdaAny]
du_drop_558 Integer
v0 [AgdaAny]
v1
= case Integer -> Integer
forall a b. a -> b
coe Integer
v0 of
Integer
0 -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1
Integer
_ -> let v2 :: Integer
v2 = Integer -> Integer -> Integer
subInt (Integer -> Integer
forall a b. a -> b
coe Integer
v0) (Integer -> Integer
forall a b. a -> b
coe (Integer
1 :: Integer)) in
AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
(case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
[] -> [AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1
(:) AgdaAny
v3 [AgdaAny]
v4 -> (Integer -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe Integer -> [AgdaAny] -> [AgdaAny]
du_drop_558 (Integer -> AgdaAny
forall a b. a -> b
coe Integer
v2) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v4)
[AgdaAny]
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError)
d_splitAt_570 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
Integer -> [AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_splitAt_570 :: T_Level_18 -> T_Level_18 -> Integer -> [AgdaAny] -> T_Σ_14
d_splitAt_570 ~T_Level_18
v0 ~T_Level_18
v1 Integer
v2 [AgdaAny]
v3 = Integer -> [AgdaAny] -> T_Σ_14
du_splitAt_570 Integer
v2 [AgdaAny]
v3
du_splitAt_570 ::
Integer -> [AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_splitAt_570 :: Integer -> [AgdaAny] -> T_Σ_14
du_splitAt_570 Integer
v0 [AgdaAny]
v1
= case Integer -> Integer
forall a b. a -> b
coe Integer
v0 of
Integer
0 -> (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
([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1)
Integer
_ -> let v2 :: Integer
v2 = Integer -> Integer -> Integer
subInt (Integer -> Integer
forall a b. a -> b
coe Integer
v0) (Integer -> Integer
forall a b. a -> b
coe (Integer
1 :: Integer)) in
AgdaAny -> T_Σ_14
forall a b. a -> b
coe
(case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
[]
-> (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]
v1) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1)
(:) AgdaAny
v3 [AgdaAny]
v4
-> ((AgdaAny -> AgdaAny) -> T_Σ_14 -> T_Σ_14)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> AgdaAny) -> T_Σ_14 -> T_Σ_14
MAlonzo.Code.Data.Product.Base.du_map'8321'_138
((AgdaAny -> [AgdaAny] -> [AgdaAny]) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v3))
((Integer -> [AgdaAny] -> T_Σ_14) -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe Integer -> [AgdaAny] -> T_Σ_14
du_splitAt_570 (Integer -> AgdaAny
forall a b. a -> b
coe Integer
v2) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v4))
[AgdaAny]
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError)
d_removeAt_586 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> [AgdaAny]
d_removeAt_586 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> T_Fin_10 -> [AgdaAny]
d_removeAt_586 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 T_Fin_10
v3 = [AgdaAny] -> T_Fin_10 -> [AgdaAny]
du_removeAt_586 [AgdaAny]
v2 T_Fin_10
v3
du_removeAt_586 ::
[AgdaAny] -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> [AgdaAny]
du_removeAt_586 :: [AgdaAny] -> T_Fin_10 -> [AgdaAny]
du_removeAt_586 [AgdaAny]
v0 T_Fin_10
v1
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v0 of
(:) AgdaAny
v2 [AgdaAny]
v3
-> case T_Fin_10 -> T_Fin_10
forall a b. a -> b
coe T_Fin_10
v1 of
T_Fin_10
MAlonzo.Code.Data.Fin.Base.C_zero_12 -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v3
MAlonzo.Code.Data.Fin.Base.C_suc_16 T_Fin_10
v5
-> (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2)
(([AgdaAny] -> T_Fin_10 -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> T_Fin_10 -> [AgdaAny]
du_removeAt_586 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3) (T_Fin_10 -> AgdaAny
forall a b. a -> b
coe T_Fin_10
v5))
T_Fin_10
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_takeWhile_600 ::
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) ->
[AgdaAny] -> [AgdaAny]
d_takeWhile_600 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [AgdaAny]
d_takeWhile_600 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~AgdaAny -> T_Level_18
v3 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5 = (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_takeWhile_600 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_takeWhile_600 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [AgdaAny]
du_takeWhile_600 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_takeWhile_600 AgdaAny -> T_Dec_20
v0 [AgdaAny]
v1
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
[] -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1
(:) AgdaAny
v2 [AgdaAny]
v3
-> let v4 :: Bool
v4
= T_Dec_20 -> Bool
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_does_28
((AgdaAny -> T_Dec_20) -> AgdaAny -> T_Dec_20
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0 AgdaAny
v2) in
AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
(if Bool -> Bool
forall a b. a -> b
coe Bool
v4
then (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2)
(((AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_takeWhile_600 ((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3))
else [AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_takeWhile'7495'_626 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
d_takeWhile'7495'_626 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
d_takeWhile'7495'_626 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_takeWhile'7495'_626 AgdaAny -> Bool
v2
du_takeWhile'7495'_626 ::
(AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_takeWhile'7495'_626 :: (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_takeWhile'7495'_626 AgdaAny -> Bool
v0
= ((AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe
(AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_takeWhile_600
((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe
(\ AgdaAny
v1 ->
Bool -> T_Dec_20
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_T'63'_66
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_dropWhile_632 ::
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) ->
[AgdaAny] -> [AgdaAny]
d_dropWhile_632 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [AgdaAny]
d_dropWhile_632 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~AgdaAny -> T_Level_18
v3 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5 = (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_dropWhile_632 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_dropWhile_632 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [AgdaAny]
du_dropWhile_632 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_dropWhile_632 AgdaAny -> T_Dec_20
v0 [AgdaAny]
v1
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
[] -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1
(:) AgdaAny
v2 [AgdaAny]
v3
-> let v4 :: Bool
v4
= T_Dec_20 -> Bool
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_does_28
((AgdaAny -> T_Dec_20) -> AgdaAny -> T_Dec_20
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0 AgdaAny
v2) in
AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
(if Bool -> Bool
forall a b. a -> b
coe Bool
v4 then ((AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_dropWhile_632 ((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3) else [AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1)
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_dropWhile'7495'_658 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
d_dropWhile'7495'_658 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
d_dropWhile'7495'_658 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_dropWhile'7495'_658 AgdaAny -> Bool
v2
du_dropWhile'7495'_658 ::
(AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_dropWhile'7495'_658 :: (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_dropWhile'7495'_658 AgdaAny -> Bool
v0
= ((AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe
(AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_dropWhile_632
((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe
(\ AgdaAny
v1 ->
Bool -> T_Dec_20
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_T'63'_66
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_filter_664 ::
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) ->
[AgdaAny] -> [AgdaAny]
d_filter_664 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [AgdaAny]
d_filter_664 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~AgdaAny -> T_Level_18
v3 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5 = (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_filter_664 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_filter_664 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [AgdaAny]
du_filter_664 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_filter_664 AgdaAny -> T_Dec_20
v0 [AgdaAny]
v1
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
[] -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1
(:) AgdaAny
v2 [AgdaAny]
v3
-> let v4 :: Bool
v4
= T_Dec_20 -> Bool
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_does_28
((AgdaAny -> T_Dec_20) -> AgdaAny -> T_Dec_20
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0 AgdaAny
v2) in
AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
(if Bool -> Bool
forall a b. a -> b
coe Bool
v4
then (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2)
(((AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_filter_664 ((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3))
else ((AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_filter_664 ((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3))
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_filter'7495'_690 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
d_filter'7495'_690 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
d_filter'7495'_690 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_filter'7495'_690 AgdaAny -> Bool
v2
du_filter'7495'_690 :: (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_filter'7495'_690 :: (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_filter'7495'_690 AgdaAny -> Bool
v0
= ((AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe
(AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_filter_664
((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe
(\ AgdaAny
v1 ->
Bool -> T_Dec_20
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_T'63'_66
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_partition_696 ::
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) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_partition_696 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> T_Σ_14
d_partition_696 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~AgdaAny -> T_Level_18
v3 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5 = (AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14
du_partition_696 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_partition_696 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_partition_696 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14
du_partition_696 AgdaAny -> T_Dec_20
v0 [AgdaAny]
v1
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
[]
-> (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 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1)
(:) AgdaAny
v2 [AgdaAny]
v3
-> let v4 :: Bool
v4
= T_Dec_20 -> Bool
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_does_28
((AgdaAny -> T_Dec_20) -> AgdaAny -> T_Dec_20
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0 AgdaAny
v2) in
AgdaAny -> T_Σ_14
forall a b. a -> b
coe
(let v5 :: t
v5 = ((AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14)
-> AgdaAny -> AgdaAny -> t
forall a b. a -> b
coe (AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14
du_partition_696 ((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3) in
AgdaAny -> AgdaAny
forall a b. a -> b
coe
(if Bool -> Bool
forall a b. a -> b
coe Bool
v4
then case AgdaAny -> T_Σ_14
forall a b. a -> b
coe AgdaAny
forall a. a
v5 of
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 AgdaAny
v6 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] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2) (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v6))
(AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v7)
T_Σ_14
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
else (case AgdaAny -> T_Σ_14
forall a b. a -> b
coe AgdaAny
forall a. a
v5 of
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 AgdaAny
v6 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] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2) (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v7))
T_Σ_14
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError)))
[AgdaAny]
_ -> T_Σ_14
forall a. a
MAlonzo.RTE.mazUnreachableError
d_partition'7495'_730 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> Bool) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_partition'7495'_730 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> T_Σ_14
d_partition'7495'_730 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> T_Σ_14
du_partition'7495'_730 AgdaAny -> Bool
v2
du_partition'7495'_730 ::
(AgdaAny -> Bool) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_partition'7495'_730 :: (AgdaAny -> Bool) -> [AgdaAny] -> T_Σ_14
du_partition'7495'_730 AgdaAny -> Bool
v0
= ((AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14)
-> AgdaAny -> [AgdaAny] -> T_Σ_14
forall a b. a -> b
coe
(AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14
du_partition_696
((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe
(\ AgdaAny
v1 ->
Bool -> T_Dec_20
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_T'63'_66
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_span_736 ::
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) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_span_736 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> T_Σ_14
d_span_736 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~AgdaAny -> T_Level_18
v3 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5 = (AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14
du_span_736 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_span_736 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_span_736 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14
du_span_736 AgdaAny -> T_Dec_20
v0 [AgdaAny]
v1
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
[]
-> (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 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1)
(:) AgdaAny
v2 [AgdaAny]
v3
-> let v4 :: Bool
v4
= T_Dec_20 -> Bool
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_does_28
((AgdaAny -> T_Dec_20) -> AgdaAny -> T_Dec_20
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0 AgdaAny
v2) in
AgdaAny -> T_Σ_14
forall a b. a -> b
coe
(if Bool -> Bool
forall a b. a -> b
coe Bool
v4
then ((AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny -> AgdaAny) -> T_Σ_14 -> T_Σ_14)
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny -> AgdaAny) -> T_Σ_14 -> T_Σ_14
MAlonzo.Code.Data.Product.Base.du_map_128
((AgdaAny -> [AgdaAny] -> [AgdaAny]) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2))
((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe (\ AgdaAny
v5 AgdaAny
v6 -> AgdaAny
v6)) (((AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14
du_span_736 ((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3))
else (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]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1))
[AgdaAny]
_ -> T_Σ_14
forall a. a
MAlonzo.RTE.mazUnreachableError
d_span'7495'_770 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> Bool) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_span'7495'_770 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> T_Σ_14
d_span'7495'_770 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> T_Σ_14
du_span'7495'_770 AgdaAny -> Bool
v2
du_span'7495'_770 ::
(AgdaAny -> Bool) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_span'7495'_770 :: (AgdaAny -> Bool) -> [AgdaAny] -> T_Σ_14
du_span'7495'_770 AgdaAny -> Bool
v0
= ((AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14)
-> AgdaAny -> [AgdaAny] -> T_Σ_14
forall a b. a -> b
coe
(AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14
du_span_736
((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe
(\ AgdaAny
v1 ->
Bool -> T_Dec_20
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_T'63'_66
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_break_776 ::
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) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_break_776 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> T_Σ_14
d_break_776 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~AgdaAny -> T_Level_18
v3 AgdaAny -> T_Dec_20
v4 = (AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14
du_break_776 AgdaAny -> T_Dec_20
v4
du_break_776 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_break_776 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14
du_break_776 AgdaAny -> T_Dec_20
v0
= ((AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14)
-> AgdaAny -> [AgdaAny] -> T_Σ_14
forall a b. a -> b
coe
(AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14
du_span_736
((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe
(\ AgdaAny
v1 ->
(T_Dec_20 -> T_Dec_20) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
T_Dec_20 -> T_Dec_20
MAlonzo.Code.Relation.Nullary.Decidable.Core.du_'172''63'_70
((AgdaAny -> T_Dec_20) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0 AgdaAny
v1)))
d_break'7495'_780 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> Bool) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_break'7495'_780 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> T_Σ_14
d_break'7495'_780 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> T_Σ_14
du_break'7495'_780 AgdaAny -> Bool
v2
du_break'7495'_780 ::
(AgdaAny -> Bool) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_break'7495'_780 :: (AgdaAny -> Bool) -> [AgdaAny] -> T_Σ_14
du_break'7495'_780 AgdaAny -> Bool
v0
= ((AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14)
-> AgdaAny -> [AgdaAny] -> T_Σ_14
forall a b. a -> b
coe
(AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14
du_break_776
((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe
(\ AgdaAny
v1 ->
Bool -> T_Dec_20
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_T'63'_66
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_linesBy_786 ::
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) ->
[AgdaAny] -> [[AgdaAny]]
d_linesBy_786 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [[AgdaAny]]
d_linesBy_786 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~AgdaAny -> T_Level_18
v3 AgdaAny -> T_Dec_20
v4 = (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [[AgdaAny]]
du_linesBy_786 AgdaAny -> T_Dec_20
v4
du_linesBy_786 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [[AgdaAny]]
du_linesBy_786 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [[AgdaAny]]
du_linesBy_786 AgdaAny -> T_Dec_20
v0
= ((AgdaAny -> T_Dec_20)
-> Maybe [AgdaAny] -> [AgdaAny] -> [[AgdaAny]])
-> AgdaAny -> AgdaAny -> [AgdaAny] -> [[AgdaAny]]
forall a b. a -> b
coe
(AgdaAny -> T_Dec_20)
-> Maybe [AgdaAny] -> [AgdaAny] -> [[AgdaAny]]
du_go_796 ((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0)
(Maybe AgdaAny -> AgdaAny
forall a b. a -> b
coe Maybe AgdaAny
forall {a}. Maybe a
MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18)
d_go_796 ::
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] -> [AgdaAny] -> [[AgdaAny]]
d_go_796 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> Maybe [AgdaAny]
-> [AgdaAny]
-> [[AgdaAny]]
d_go_796 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~AgdaAny -> T_Level_18
v3 AgdaAny -> T_Dec_20
v4 Maybe [AgdaAny]
v5 [AgdaAny]
v6 = (AgdaAny -> T_Dec_20)
-> Maybe [AgdaAny] -> [AgdaAny] -> [[AgdaAny]]
du_go_796 AgdaAny -> T_Dec_20
v4 Maybe [AgdaAny]
v5 [AgdaAny]
v6
du_go_796 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
Maybe [AgdaAny] -> [AgdaAny] -> [[AgdaAny]]
du_go_796 :: (AgdaAny -> T_Dec_20)
-> Maybe [AgdaAny] -> [AgdaAny] -> [[AgdaAny]]
du_go_796 AgdaAny -> T_Dec_20
v0 Maybe [AgdaAny]
v1 [AgdaAny]
v2
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v2 of
[]
-> ((AgdaAny -> AgdaAny) -> AgdaAny -> Maybe AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> Maybe [AgdaAny] -> [[AgdaAny]]
forall a b. a -> b
coe
(AgdaAny -> AgdaAny) -> AgdaAny -> Maybe AgdaAny -> AgdaAny
MAlonzo.Code.Data.Maybe.Base.du_maybe'8242'_44
(((AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny
MAlonzo.Code.Function.Base.du__'8728''8242'__216
((AgdaAny -> [AgdaAny]) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> [AgdaAny]
du_'91'_'93'_286) (([AgdaAny] -> [AgdaAny]) -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> [AgdaAny]
du_reverse_460))
[AgdaAny]
v2 Maybe [AgdaAny]
v1
(:) AgdaAny
v3 [AgdaAny]
v4
-> (Bool -> AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> AgdaAny -> AgdaAny -> [[AgdaAny]]
forall a b. a -> b
coe
Bool -> AgdaAny -> AgdaAny -> AgdaAny
MAlonzo.Code.Data.Bool.Base.du_if_then_else__44
((T_Dec_20 -> Bool) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
T_Dec_20 -> Bool
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_does_28 ((AgdaAny -> T_Dec_20) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0 AgdaAny
v3))
((AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22
(([AgdaAny] -> [AgdaAny]) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> [AgdaAny]
du_reverse_460 ((Maybe [AgdaAny] -> [AgdaAny]) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe Maybe [AgdaAny] -> [AgdaAny]
du_acc'8242'_810 (Maybe [AgdaAny] -> AgdaAny
forall a b. a -> b
coe Maybe [AgdaAny]
v1)))
(((AgdaAny -> T_Dec_20)
-> Maybe [AgdaAny] -> [AgdaAny] -> [[AgdaAny]])
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> T_Dec_20)
-> Maybe [AgdaAny] -> [AgdaAny] -> [[AgdaAny]]
du_go_796 ((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0)
(Maybe AgdaAny -> AgdaAny
forall a b. a -> b
coe Maybe AgdaAny
forall {a}. Maybe a
MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v4)))
(((AgdaAny -> T_Dec_20)
-> Maybe [AgdaAny] -> [AgdaAny] -> [[AgdaAny]])
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> T_Dec_20)
-> Maybe [AgdaAny] -> [AgdaAny] -> [[AgdaAny]]
du_go_796 ((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0)
((AgdaAny -> Maybe AgdaAny) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> Maybe AgdaAny
forall {a}. a -> Maybe a
MAlonzo.Code.Agda.Builtin.Maybe.C_just_16
((AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v3)
((Maybe [AgdaAny] -> [AgdaAny]) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe Maybe [AgdaAny] -> [AgdaAny]
du_acc'8242'_810 (Maybe [AgdaAny] -> AgdaAny
forall a b. a -> b
coe Maybe [AgdaAny]
v1))))
([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v4))
[AgdaAny]
_ -> [[AgdaAny]]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_acc'8242'_810 ::
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] -> AgdaAny -> [AgdaAny] -> [AgdaAny]
d_acc'8242'_810 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> Maybe [AgdaAny]
-> AgdaAny
-> [AgdaAny]
-> [AgdaAny]
d_acc'8242'_810 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~AgdaAny -> T_Level_18
v3 ~AgdaAny -> T_Dec_20
v4 Maybe [AgdaAny]
v5 ~AgdaAny
v6 ~[AgdaAny]
v7
= Maybe [AgdaAny] -> [AgdaAny]
du_acc'8242'_810 Maybe [AgdaAny]
v5
du_acc'8242'_810 :: Maybe [AgdaAny] -> [AgdaAny]
du_acc'8242'_810 :: Maybe [AgdaAny] -> [AgdaAny]
du_acc'8242'_810 Maybe [AgdaAny]
v0
= (AgdaAny -> Maybe AgdaAny -> AgdaAny)
-> AgdaAny -> Maybe [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe
AgdaAny -> Maybe AgdaAny -> AgdaAny
MAlonzo.Code.Data.Maybe.Base.du_fromMaybe_46
([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16) Maybe [AgdaAny]
v0
d_linesBy'7495'_812 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
d_linesBy'7495'_812 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
d_linesBy'7495'_812 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
du_linesBy'7495'_812 AgdaAny -> Bool
v2
du_linesBy'7495'_812 ::
(AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
du_linesBy'7495'_812 :: (AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
du_linesBy'7495'_812 AgdaAny -> Bool
v0
= ((AgdaAny -> T_Dec_20) -> [AgdaAny] -> [[AgdaAny]])
-> AgdaAny -> [AgdaAny] -> [[AgdaAny]]
forall a b. a -> b
coe
(AgdaAny -> T_Dec_20) -> [AgdaAny] -> [[AgdaAny]]
du_linesBy_786
((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe
(\ AgdaAny
v1 ->
Bool -> T_Dec_20
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_T'63'_66
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_wordsBy_818 ::
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) ->
[AgdaAny] -> [[AgdaAny]]
d_wordsBy_818 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [[AgdaAny]]
d_wordsBy_818 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~AgdaAny -> T_Level_18
v3 AgdaAny -> T_Dec_20
v4 = (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [[AgdaAny]]
du_wordsBy_818 AgdaAny -> T_Dec_20
v4
du_wordsBy_818 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [[AgdaAny]]
du_wordsBy_818 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [[AgdaAny]]
du_wordsBy_818 AgdaAny -> T_Dec_20
v0
= ((AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny] -> [[AgdaAny]])
-> AgdaAny -> AgdaAny -> [AgdaAny] -> [[AgdaAny]]
forall a b. a -> b
coe
(AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny] -> [[AgdaAny]]
du_go_836 ((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0)
([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)
d_cons_828 ::
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) ->
[AgdaAny] -> [[AgdaAny]] -> [[AgdaAny]]
d_cons_828 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [[AgdaAny]]
-> [[AgdaAny]]
d_cons_828 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~AgdaAny -> T_Level_18
v3 ~AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5 [[AgdaAny]]
v6 = [AgdaAny] -> [[AgdaAny]] -> [[AgdaAny]]
du_cons_828 [AgdaAny]
v5 [[AgdaAny]]
v6
du_cons_828 :: [AgdaAny] -> [[AgdaAny]] -> [[AgdaAny]]
du_cons_828 :: [AgdaAny] -> [[AgdaAny]] -> [[AgdaAny]]
du_cons_828 [AgdaAny]
v0 [[AgdaAny]]
v1
= let v2 :: t
v2
= (AgdaAny -> [AgdaAny] -> [AgdaAny]) -> AgdaAny -> AgdaAny -> t
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22
(([AgdaAny] -> [AgdaAny]) -> [AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> [AgdaAny]
du_reverse_460 [AgdaAny]
v0) ([[AgdaAny]] -> AgdaAny
forall a b. a -> b
coe [[AgdaAny]]
v1) in
AgdaAny -> [[AgdaAny]]
forall a b. a -> b
coe
(case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v0 of
[] -> [[AgdaAny]] -> AgdaAny
forall a b. a -> b
coe [[AgdaAny]]
v1
[AgdaAny]
_ -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
forall a. a
v2)
d_go_836 ::
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) ->
[AgdaAny] -> [AgdaAny] -> [[AgdaAny]]
d_go_836 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [AgdaAny]
-> [[AgdaAny]]
d_go_836 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~AgdaAny -> T_Level_18
v3 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5 [AgdaAny]
v6 = (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny] -> [[AgdaAny]]
du_go_836 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5 [AgdaAny]
v6
du_go_836 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [AgdaAny] -> [[AgdaAny]]
du_go_836 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny] -> [[AgdaAny]]
du_go_836 AgdaAny -> T_Dec_20
v0 [AgdaAny]
v1 [AgdaAny]
v2
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v2 of
[] -> ([AgdaAny] -> [[AgdaAny]] -> [[AgdaAny]])
-> AgdaAny -> AgdaAny -> [[AgdaAny]]
forall a b. a -> b
coe [AgdaAny] -> [[AgdaAny]] -> [[AgdaAny]]
du_cons_828 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v2)
(:) AgdaAny
v3 [AgdaAny]
v4
-> (Bool -> AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> AgdaAny -> AgdaAny -> [[AgdaAny]]
forall a b. a -> b
coe
Bool -> AgdaAny -> AgdaAny -> AgdaAny
MAlonzo.Code.Data.Bool.Base.du_if_then_else__44
((T_Dec_20 -> Bool) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
T_Dec_20 -> Bool
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_does_28 ((AgdaAny -> T_Dec_20) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0 AgdaAny
v3))
(([AgdaAny] -> [[AgdaAny]] -> [[AgdaAny]])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
[AgdaAny] -> [[AgdaAny]] -> [[AgdaAny]]
du_cons_828 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1)
(((AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny] -> [[AgdaAny]])
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny] -> [[AgdaAny]]
du_go_836 ((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0)
([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v4)))
(((AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny] -> [[AgdaAny]])
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny] -> [[AgdaAny]]
du_go_836 ((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0)
((AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v3) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v1))
([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v4))
[AgdaAny]
_ -> [[AgdaAny]]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_wordsBy'7495'_846 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
d_wordsBy'7495'_846 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
d_wordsBy'7495'_846 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
du_wordsBy'7495'_846 AgdaAny -> Bool
v2
du_wordsBy'7495'_846 ::
(AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
du_wordsBy'7495'_846 :: (AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
du_wordsBy'7495'_846 AgdaAny -> Bool
v0
= ((AgdaAny -> T_Dec_20) -> [AgdaAny] -> [[AgdaAny]])
-> AgdaAny -> [AgdaAny] -> [[AgdaAny]]
forall a b. a -> b
coe
(AgdaAny -> T_Dec_20) -> [AgdaAny] -> [[AgdaAny]]
du_wordsBy_818
((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe
(\ AgdaAny
v1 ->
Bool -> T_Dec_20
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_T'63'_66
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_derun_852 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(AgdaAny -> AgdaAny -> ()) ->
(AgdaAny ->
AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [AgdaAny]
d_derun_852 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny -> T_Level_18)
-> (AgdaAny -> AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [AgdaAny]
d_derun_852 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~AgdaAny -> AgdaAny -> T_Level_18
v3 AgdaAny -> AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5 = (AgdaAny -> AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_derun_852 AgdaAny -> AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_derun_852 ::
(AgdaAny ->
AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [AgdaAny]
du_derun_852 :: (AgdaAny -> AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_derun_852 AgdaAny -> AgdaAny -> T_Dec_20
v0 [AgdaAny]
v1
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
[] -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1
(:) AgdaAny
v2 [AgdaAny]
v3
-> case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v3 of
[] -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1
(:) AgdaAny
v4 [AgdaAny]
v5
-> let v6 :: Bool
v6
= T_Dec_20 -> Bool
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_does_28
((AgdaAny -> AgdaAny -> T_Dec_20) -> AgdaAny -> AgdaAny -> T_Dec_20
forall a b. a -> b
coe AgdaAny -> AgdaAny -> T_Dec_20
v0 AgdaAny
v2 AgdaAny
v4) in
AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
(let v7 :: t
v7 = ((AgdaAny -> AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> t
forall a b. a -> b
coe (AgdaAny -> AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_derun_852 ((AgdaAny -> AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> T_Dec_20
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3) in
AgdaAny -> AgdaAny
forall a b. a -> b
coe
(if Bool -> Bool
forall a b. a -> b
coe Bool
v6
then AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
forall a. a
v7
else (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2) (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
forall a. a
v7)))
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_derun'7495'_892 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
d_derun'7495'_892 :: T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny -> Bool)
-> [AgdaAny]
-> [AgdaAny]
d_derun'7495'_892 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> AgdaAny -> Bool
v2 = (AgdaAny -> AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_derun'7495'_892 AgdaAny -> AgdaAny -> Bool
v2
du_derun'7495'_892 ::
(AgdaAny -> AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_derun'7495'_892 :: (AgdaAny -> AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_derun'7495'_892 AgdaAny -> AgdaAny -> Bool
v0
= ((AgdaAny -> AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe
(AgdaAny -> AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_derun_852
(((AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny
-> AgdaAny
-> AgdaAny)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -> AgdaAny
MAlonzo.Code.Function.Base.du__'8728''8322'__92
((AgdaAny -> AgdaAny -> Bool -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe
(\ AgdaAny
v1 AgdaAny
v2 ->
Bool -> T_Dec_20
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_T'63'_66))
((AgdaAny -> AgdaAny -> Bool) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> Bool
v0))
d_deduplicate_898 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(AgdaAny -> AgdaAny -> ()) ->
(AgdaAny ->
AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [AgdaAny]
d_deduplicate_898 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny -> T_Level_18)
-> (AgdaAny -> AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [AgdaAny]
d_deduplicate_898 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~AgdaAny -> AgdaAny -> T_Level_18
v3 AgdaAny -> AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5 = (AgdaAny -> AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_deduplicate_898 AgdaAny -> AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_deduplicate_898 ::
(AgdaAny ->
AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [AgdaAny]
du_deduplicate_898 :: (AgdaAny -> AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_deduplicate_898 AgdaAny -> AgdaAny -> T_Dec_20
v0 [AgdaAny]
v1
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
[] -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1
(:) AgdaAny
v2 [AgdaAny]
v3
-> (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2)
(((AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_filter_664
((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe
(\ AgdaAny
v4 ->
(T_Dec_20 -> T_Dec_20) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
T_Dec_20 -> T_Dec_20
MAlonzo.Code.Relation.Nullary.Decidable.Core.du_'172''63'_70
((AgdaAny -> AgdaAny -> T_Dec_20) -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> T_Dec_20
v0 AgdaAny
v2 AgdaAny
v4)))
(((AgdaAny -> AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_deduplicate_898 ((AgdaAny -> AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> T_Dec_20
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3)))
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_deduplicate'7495'_908 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
d_deduplicate'7495'_908 :: T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny -> Bool)
-> [AgdaAny]
-> [AgdaAny]
d_deduplicate'7495'_908 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> AgdaAny -> Bool
v2 = (AgdaAny -> AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_deduplicate'7495'_908 AgdaAny -> AgdaAny -> Bool
v2
du_deduplicate'7495'_908 ::
(AgdaAny -> AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_deduplicate'7495'_908 :: (AgdaAny -> AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_deduplicate'7495'_908 AgdaAny -> AgdaAny -> Bool
v0
= ((AgdaAny -> AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe
(AgdaAny -> AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_deduplicate_898
(((AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny
-> AgdaAny
-> AgdaAny)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -> AgdaAny
MAlonzo.Code.Function.Base.du__'8728''8322'__92
((AgdaAny -> AgdaAny -> Bool -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe
(\ AgdaAny
v1 AgdaAny
v2 ->
Bool -> T_Dec_20
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_T'63'_66))
((AgdaAny -> AgdaAny -> Bool) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> Bool
v0))
d_find_914 ::
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) ->
[AgdaAny] -> Maybe AgdaAny
d_find_914 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> Maybe AgdaAny
d_find_914 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~AgdaAny -> T_Level_18
v3 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5 = (AgdaAny -> T_Dec_20) -> [AgdaAny] -> Maybe AgdaAny
du_find_914 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_find_914 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> Maybe AgdaAny
du_find_914 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> Maybe AgdaAny
du_find_914 AgdaAny -> T_Dec_20
v0 [AgdaAny]
v1
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
[] -> Maybe AgdaAny -> Maybe AgdaAny
forall a b. a -> b
coe Maybe AgdaAny
forall {a}. Maybe a
MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18
(:) AgdaAny
v2 [AgdaAny]
v3
-> (Bool -> AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> AgdaAny -> AgdaAny -> Maybe AgdaAny
forall a b. a -> b
coe
Bool -> AgdaAny -> AgdaAny -> AgdaAny
MAlonzo.Code.Data.Bool.Base.du_if_then_else__44
((T_Dec_20 -> Bool) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
T_Dec_20 -> Bool
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_does_28 ((AgdaAny -> T_Dec_20) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0 AgdaAny
v2))
((AgdaAny -> Maybe AgdaAny) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> Maybe AgdaAny
forall {a}. a -> Maybe a
MAlonzo.Code.Agda.Builtin.Maybe.C_just_16 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2))
(((AgdaAny -> T_Dec_20) -> [AgdaAny] -> Maybe AgdaAny)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> T_Dec_20) -> [AgdaAny] -> Maybe AgdaAny
du_find_914 ((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3))
[AgdaAny]
_ -> Maybe AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
d_find'7495'_924 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> Bool) -> [AgdaAny] -> Maybe AgdaAny
d_find'7495'_924 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> Maybe AgdaAny
d_find'7495'_924 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> Maybe AgdaAny
du_find'7495'_924 AgdaAny -> Bool
v2
du_find'7495'_924 ::
(AgdaAny -> Bool) -> [AgdaAny] -> Maybe AgdaAny
du_find'7495'_924 :: (AgdaAny -> Bool) -> [AgdaAny] -> Maybe AgdaAny
du_find'7495'_924 AgdaAny -> Bool
v0
= ((AgdaAny -> T_Dec_20) -> [AgdaAny] -> Maybe AgdaAny)
-> AgdaAny -> [AgdaAny] -> Maybe AgdaAny
forall a b. a -> b
coe
(AgdaAny -> T_Dec_20) -> [AgdaAny] -> Maybe AgdaAny
du_find_914
((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe
(\ AgdaAny
v1 ->
Bool -> T_Dec_20
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_T'63'_66
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_findIndex_932 ::
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) ->
[AgdaAny] -> Maybe MAlonzo.Code.Data.Fin.Base.T_Fin_10
d_findIndex_932 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> Maybe T_Fin_10
d_findIndex_932 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~AgdaAny -> T_Level_18
v3 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5 = (AgdaAny -> T_Dec_20) -> [AgdaAny] -> Maybe T_Fin_10
du_findIndex_932 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_findIndex_932 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> Maybe MAlonzo.Code.Data.Fin.Base.T_Fin_10
du_findIndex_932 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> Maybe T_Fin_10
du_findIndex_932 AgdaAny -> T_Dec_20
v0 [AgdaAny]
v1
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
[] -> Maybe AgdaAny -> Maybe T_Fin_10
forall a b. a -> b
coe Maybe AgdaAny
forall {a}. Maybe a
MAlonzo.Code.Agda.Builtin.Maybe.C_nothing_18
(:) AgdaAny
v2 [AgdaAny]
v3
-> (Bool -> AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> AgdaAny -> AgdaAny -> Maybe T_Fin_10
forall a b. a -> b
coe
Bool -> AgdaAny -> AgdaAny -> AgdaAny
MAlonzo.Code.Data.Bool.Base.du_if_then_else__44
((T_Dec_20 -> Bool) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
T_Dec_20 -> Bool
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_does_28 ((AgdaAny -> T_Dec_20) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0 AgdaAny
v2))
((AgdaAny -> Maybe AgdaAny) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> Maybe AgdaAny
forall {a}. a -> Maybe a
MAlonzo.Code.Agda.Builtin.Maybe.C_just_16
(T_Fin_10 -> AgdaAny
forall a b. a -> b
coe T_Fin_10
MAlonzo.Code.Data.Fin.Base.C_zero_12))
(((AgdaAny -> AgdaAny) -> Maybe AgdaAny -> Maybe AgdaAny)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
(AgdaAny -> AgdaAny) -> Maybe AgdaAny -> Maybe AgdaAny
MAlonzo.Code.Data.Maybe.Base.du_map_64
((T_Fin_10 -> T_Fin_10) -> AgdaAny
forall a b. a -> b
coe T_Fin_10 -> T_Fin_10
MAlonzo.Code.Data.Fin.Base.C_suc_16)
(((AgdaAny -> T_Dec_20) -> [AgdaAny] -> Maybe T_Fin_10)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> T_Dec_20) -> [AgdaAny] -> Maybe T_Fin_10
du_findIndex_932 ((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3)))
[AgdaAny]
_ -> Maybe T_Fin_10
forall a. a
MAlonzo.RTE.mazUnreachableError
d_findIndex'7495'_944 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> Bool) ->
[AgdaAny] -> Maybe MAlonzo.Code.Data.Fin.Base.T_Fin_10
d_findIndex'7495'_944 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> Maybe T_Fin_10
d_findIndex'7495'_944 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> Maybe T_Fin_10
du_findIndex'7495'_944 AgdaAny -> Bool
v2
du_findIndex'7495'_944 ::
(AgdaAny -> Bool) ->
[AgdaAny] -> Maybe MAlonzo.Code.Data.Fin.Base.T_Fin_10
du_findIndex'7495'_944 :: (AgdaAny -> Bool) -> [AgdaAny] -> Maybe T_Fin_10
du_findIndex'7495'_944 AgdaAny -> Bool
v0
= ((AgdaAny -> T_Dec_20) -> [AgdaAny] -> Maybe T_Fin_10)
-> AgdaAny -> [AgdaAny] -> Maybe T_Fin_10
forall a b. a -> b
coe
(AgdaAny -> T_Dec_20) -> [AgdaAny] -> Maybe T_Fin_10
du_findIndex_932
((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe
(\ AgdaAny
v1 ->
Bool -> T_Dec_20
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_T'63'_66
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_findIndices_952 ::
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) ->
[AgdaAny] -> [MAlonzo.Code.Data.Fin.Base.T_Fin_10]
d_findIndices_952 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [T_Fin_10]
d_findIndices_952 T_Level_18
v0 ~T_Level_18
v1 T_Level_18
v2 ~AgdaAny -> T_Level_18
v3 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
= T_Level_18
-> T_Level_18 -> (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [T_Fin_10]
du_findIndices_952 T_Level_18
v0 T_Level_18
v2 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_findIndices_952 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [MAlonzo.Code.Data.Fin.Base.T_Fin_10]
du_findIndices_952 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [T_Fin_10]
du_findIndices_952 T_Level_18
v0 T_Level_18
v1 AgdaAny -> T_Dec_20
v2 [AgdaAny]
v3
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v3 of
[] -> [AgdaAny] -> [T_Fin_10]
forall a b. a -> b
coe [AgdaAny]
v3
(:) AgdaAny
v4 [AgdaAny]
v5
-> (Bool -> AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> AgdaAny -> AgdaAny -> [T_Fin_10]
forall a b. a -> b
coe
Bool -> AgdaAny -> AgdaAny -> AgdaAny
MAlonzo.Code.Data.Bool.Base.du_if_then_else__44
((T_Dec_20 -> Bool) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
T_Dec_20 -> Bool
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_does_28 ((AgdaAny -> T_Dec_20) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v2 AgdaAny
v4))
((AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22
(T_Fin_10 -> AgdaAny
forall a b. a -> b
coe T_Fin_10
MAlonzo.Code.Data.Fin.Base.C_zero_12)
((T_Level_18
-> T_Level_18 -> (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [T_Fin_10])
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe T_Level_18
-> T_Level_18 -> (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [T_Fin_10]
du_indices_966 (T_Level_18 -> AgdaAny
forall a b. a -> b
coe T_Level_18
v0) (T_Level_18 -> AgdaAny
forall a b. a -> b
coe T_Level_18
v1) ((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v2) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v5)))
((T_Level_18
-> T_Level_18 -> (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [T_Fin_10])
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe T_Level_18
-> T_Level_18 -> (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [T_Fin_10]
du_indices_966 (T_Level_18 -> AgdaAny
forall a b. a -> b
coe T_Level_18
v0) (T_Level_18 -> AgdaAny
forall a b. a -> b
coe T_Level_18
v1) ((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v2) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v5))
[AgdaAny]
_ -> [T_Fin_10]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_indices_966 ::
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) ->
AgdaAny -> [AgdaAny] -> [MAlonzo.Code.Data.Fin.Base.T_Fin_10]
d_indices_966 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> AgdaAny
-> [AgdaAny]
-> [T_Fin_10]
d_indices_966 T_Level_18
v0 ~T_Level_18
v1 T_Level_18
v2 ~AgdaAny -> T_Level_18
v3 AgdaAny -> T_Dec_20
v4 ~AgdaAny
v5 [AgdaAny]
v6 = T_Level_18
-> T_Level_18 -> (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [T_Fin_10]
du_indices_966 T_Level_18
v0 T_Level_18
v2 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v6
du_indices_966 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [MAlonzo.Code.Data.Fin.Base.T_Fin_10]
du_indices_966 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [T_Fin_10]
du_indices_966 T_Level_18
v0 T_Level_18
v1 AgdaAny -> T_Dec_20
v2 [AgdaAny]
v3
= ((AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [T_Fin_10]
forall a b. a -> b
coe
(AgdaAny -> AgdaAny) -> [AgdaAny] -> [AgdaAny]
du_map_22 ((T_Fin_10 -> T_Fin_10) -> AgdaAny
forall a b. a -> b
coe T_Fin_10 -> T_Fin_10
MAlonzo.Code.Data.Fin.Base.C_suc_16)
((T_Level_18
-> T_Level_18 -> (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [T_Fin_10])
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe T_Level_18
-> T_Level_18 -> (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [T_Fin_10]
du_findIndices_952 (T_Level_18 -> AgdaAny
forall a b. a -> b
coe T_Level_18
v0) (T_Level_18 -> AgdaAny
forall a b. a -> b
coe T_Level_18
v1) ((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v2) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v3))
d_findIndices'7495'_970 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> Bool) ->
[AgdaAny] -> [MAlonzo.Code.Data.Fin.Base.T_Fin_10]
d_findIndices'7495'_970 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> [T_Fin_10]
d_findIndices'7495'_970 T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> [T_Fin_10]
du_findIndices'7495'_970 T_Level_18
v0 AgdaAny -> Bool
v2
du_findIndices'7495'_970 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(AgdaAny -> Bool) ->
[AgdaAny] -> [MAlonzo.Code.Data.Fin.Base.T_Fin_10]
du_findIndices'7495'_970 :: T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> [T_Fin_10]
du_findIndices'7495'_970 T_Level_18
v0 AgdaAny -> Bool
v1
= (T_Level_18
-> T_Level_18 -> (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [T_Fin_10])
-> AgdaAny -> AgdaAny -> AgdaAny -> [AgdaAny] -> [T_Fin_10]
forall a b. a -> b
coe
T_Level_18
-> T_Level_18 -> (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [T_Fin_10]
du_findIndices_952 (T_Level_18 -> AgdaAny
forall a b. a -> b
coe T_Level_18
v0) (T_Level_18 -> AgdaAny
forall a b. a -> b
coe ())
((AgdaAny -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe
(\ AgdaAny
v2 ->
Bool -> T_Dec_20
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_T'63'_66
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v1 AgdaAny
v2)))
d__'91'_'93''37''61'__976 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
[AgdaAny] ->
MAlonzo.Code.Data.Fin.Base.T_Fin_10 ->
(AgdaAny -> AgdaAny) -> [AgdaAny]
d__'91'_'93''37''61'__976 :: T_Level_18
-> T_Level_18
-> [AgdaAny]
-> T_Fin_10
-> (AgdaAny -> AgdaAny)
-> [AgdaAny]
d__'91'_'93''37''61'__976 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 T_Fin_10
v3 AgdaAny -> AgdaAny
v4
= [AgdaAny] -> T_Fin_10 -> (AgdaAny -> AgdaAny) -> [AgdaAny]
du__'91'_'93''37''61'__976 [AgdaAny]
v2 T_Fin_10
v3 AgdaAny -> AgdaAny
v4
du__'91'_'93''37''61'__976 ::
[AgdaAny] ->
MAlonzo.Code.Data.Fin.Base.T_Fin_10 ->
(AgdaAny -> AgdaAny) -> [AgdaAny]
du__'91'_'93''37''61'__976 :: [AgdaAny] -> T_Fin_10 -> (AgdaAny -> AgdaAny) -> [AgdaAny]
du__'91'_'93''37''61'__976 [AgdaAny]
v0 T_Fin_10
v1 AgdaAny -> AgdaAny
v2
= ([AgdaAny] -> T_Fin_10 -> (AgdaAny -> AgdaAny) -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny] -> T_Fin_10 -> (AgdaAny -> AgdaAny) -> [AgdaAny]
du_updateAt_360 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v0) (T_Fin_10 -> AgdaAny
forall a b. a -> b
coe T_Fin_10
v1) ((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny
v2)
d__'91'_'93''8759''61'__986 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
[AgdaAny] ->
MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny -> [AgdaAny]
d__'91'_'93''8759''61'__986 :: T_Level_18
-> T_Level_18 -> [AgdaAny] -> T_Fin_10 -> AgdaAny -> [AgdaAny]
d__'91'_'93''8759''61'__986 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 T_Fin_10
v3 AgdaAny
v4
= [AgdaAny] -> T_Fin_10 -> AgdaAny -> [AgdaAny]
du__'91'_'93''8759''61'__986 [AgdaAny]
v2 T_Fin_10
v3 AgdaAny
v4
du__'91'_'93''8759''61'__986 ::
[AgdaAny] ->
MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny -> [AgdaAny]
du__'91'_'93''8759''61'__986 :: [AgdaAny] -> T_Fin_10 -> AgdaAny -> [AgdaAny]
du__'91'_'93''8759''61'__986 [AgdaAny]
v0 T_Fin_10
v1 AgdaAny
v2
= ([AgdaAny] -> T_Fin_10 -> (AgdaAny -> AgdaAny) -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
[AgdaAny] -> T_Fin_10 -> (AgdaAny -> AgdaAny) -> [AgdaAny]
du__'91'_'93''37''61'__976 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v0) (T_Fin_10 -> AgdaAny
forall a b. a -> b
coe T_Fin_10
v1) ((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe (\ AgdaAny
v3 -> AgdaAny
v2))
d__'63''8759'__994 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> Maybe AgdaAny -> [AgdaAny] -> [AgdaAny]
d__'63''8759'__994 :: T_Level_18 -> T_Level_18 -> Maybe AgdaAny -> [AgdaAny] -> [AgdaAny]
d__'63''8759'__994 ~T_Level_18
v0 ~T_Level_18
v1 = Maybe AgdaAny -> [AgdaAny] -> [AgdaAny]
du__'63''8759'__994
du__'63''8759'__994 :: Maybe AgdaAny -> [AgdaAny] -> [AgdaAny]
du__'63''8759'__994 :: Maybe AgdaAny -> [AgdaAny] -> [AgdaAny]
du__'63''8759'__994
= ((AgdaAny -> AgdaAny) -> AgdaAny -> Maybe AgdaAny -> AgdaAny)
-> AgdaAny
-> (AgdaAny -> AgdaAny)
-> Maybe AgdaAny
-> [AgdaAny]
-> [AgdaAny]
forall a b. a -> b
coe
(AgdaAny -> AgdaAny) -> AgdaAny -> Maybe AgdaAny -> AgdaAny
MAlonzo.Code.Data.Maybe.Base.du_maybe'8242'_44
((AgdaAny -> [AgdaAny] -> [AgdaAny]) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22) (\ AgdaAny
v0 -> AgdaAny
v0)
d__'8759''691''63'__996 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> Maybe AgdaAny -> [AgdaAny]
d__'8759''691''63'__996 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> Maybe AgdaAny -> [AgdaAny]
d__'8759''691''63'__996 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 Maybe AgdaAny
v3
= [AgdaAny] -> Maybe AgdaAny -> [AgdaAny]
du__'8759''691''63'__996 [AgdaAny]
v2 Maybe AgdaAny
v3
du__'8759''691''63'__996 :: [AgdaAny] -> Maybe AgdaAny -> [AgdaAny]
du__'8759''691''63'__996 :: [AgdaAny] -> Maybe AgdaAny -> [AgdaAny]
du__'8759''691''63'__996 [AgdaAny]
v0 Maybe AgdaAny
v1
= ((AgdaAny -> AgdaAny) -> AgdaAny -> Maybe AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> Maybe AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
(AgdaAny -> AgdaAny) -> AgdaAny -> Maybe AgdaAny -> AgdaAny
MAlonzo.Code.Data.Maybe.Base.du_maybe'8242'_44
(([AgdaAny] -> AgdaAny -> [AgdaAny]) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> AgdaAny -> [AgdaAny]
du__'8759''691'__464 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v0)) [AgdaAny]
v0 Maybe AgdaAny
v1
d_'43''43''45'rawMagma_1012 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> MAlonzo.Code.Algebra.Bundles.Raw.T_RawMagma_36
d_'43''43''45'rawMagma_1012 :: T_Level_18 -> T_Level_18 -> T_RawMagma_36
d_'43''43''45'rawMagma_1012 ~T_Level_18
v0 ~T_Level_18
v1 = T_RawMagma_36
du_'43''43''45'rawMagma_1012
du_'43''43''45'rawMagma_1012 ::
MAlonzo.Code.Algebra.Bundles.Raw.T_RawMagma_36
du_'43''43''45'rawMagma_1012 :: T_RawMagma_36
du_'43''43''45'rawMagma_1012
= ((AgdaAny -> AgdaAny -> AgdaAny) -> T_RawMagma_36)
-> AgdaAny -> T_RawMagma_36
forall a b. a -> b
coe
(AgdaAny -> AgdaAny -> AgdaAny) -> T_RawMagma_36
MAlonzo.Code.Algebra.Bundles.Raw.C_RawMagma'46'constructor_341
(([AgdaAny] -> [AgdaAny] -> [AgdaAny]) -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du__'43''43'__32)
d_'43''43''45''91''93''45'rawMonoid_1014 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> MAlonzo.Code.Algebra.Bundles.Raw.T_RawMonoid_64
d_'43''43''45''91''93''45'rawMonoid_1014 :: T_Level_18 -> T_Level_18 -> T_RawMonoid_64
d_'43''43''45''91''93''45'rawMonoid_1014 ~T_Level_18
v0 ~T_Level_18
v1
= T_RawMonoid_64
du_'43''43''45''91''93''45'rawMonoid_1014
du_'43''43''45''91''93''45'rawMonoid_1014 ::
MAlonzo.Code.Algebra.Bundles.Raw.T_RawMonoid_64
du_'43''43''45''91''93''45'rawMonoid_1014 :: T_RawMonoid_64
du_'43''43''45''91''93''45'rawMonoid_1014
= ((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> T_RawMonoid_64)
-> AgdaAny -> AgdaAny -> T_RawMonoid_64
forall a b. a -> b
coe
(AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> T_RawMonoid_64
MAlonzo.Code.Algebra.Bundles.Raw.C_RawMonoid'46'constructor_745
(([AgdaAny] -> [AgdaAny] -> [AgdaAny]) -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du__'43''43'__32)
([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
forall {a}. [a]
MAlonzo.Code.Agda.Builtin.List.C_'91''93'_16)
d__'8759''691'''__1020 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> AgdaAny -> T_InitLast_474
d__'8759''691'''__1020 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> AgdaAny -> T_InitLast_474
d__'8759''691'''__1020 ~T_Level_18
v0 ~T_Level_18
v1 = [AgdaAny] -> AgdaAny -> T_InitLast_474
du__'8759''691'''__1020
du__'8759''691'''__1020 :: [AgdaAny] -> AgdaAny -> T_InitLast_474
du__'8759''691'''__1020 :: [AgdaAny] -> AgdaAny -> T_InitLast_474
du__'8759''691'''__1020 = ([AgdaAny] -> AgdaAny -> T_InitLast_474)
-> [AgdaAny] -> AgdaAny -> T_InitLast_474
forall a b. a -> b
coe [AgdaAny] -> AgdaAny -> T_InitLast_474
C__'8759''691''8242'__484
d__'9472'__1022 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> [AgdaAny]
d__'9472'__1022 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> T_Fin_10 -> [AgdaAny]
d__'9472'__1022 T_Level_18
v0 T_Level_18
v1 [AgdaAny]
v2 T_Fin_10
v3 = ([AgdaAny] -> T_Fin_10 -> [AgdaAny])
-> [AgdaAny] -> T_Fin_10 -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny] -> T_Fin_10 -> [AgdaAny]
du_removeAt_586 [AgdaAny]
v2 T_Fin_10
v3
d_scanr_1024 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny -> [AgdaAny] -> [AgdaAny]
d_scanr_1024 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny
-> [AgdaAny]
-> [AgdaAny]
d_scanr_1024 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 AgdaAny -> AgdaAny -> AgdaAny
v4 AgdaAny
v5 [AgdaAny]
v6 = (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> [AgdaAny]
du_scanr_1024 AgdaAny -> AgdaAny -> AgdaAny
v4 AgdaAny
v5 [AgdaAny]
v6
du_scanr_1024 ::
(AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny -> [AgdaAny] -> [AgdaAny]
du_scanr_1024 :: (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> [AgdaAny]
du_scanr_1024 AgdaAny -> AgdaAny -> AgdaAny
v0 AgdaAny
v1 [AgdaAny]
v2
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v2 of
[]
-> (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v2)
(:) AgdaAny
v3 [AgdaAny]
v4
-> let v5 :: t
v5 = ((AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny -> t
forall a b. a -> b
coe (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> [AgdaAny]
du_scanr_1024 ((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> AgdaAny
v0) (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v4) in
AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
(case AgdaAny -> [AgdaAny]
forall a b. a -> b
coe AgdaAny
forall a. a
v5 of
[] -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
forall a. a
v5
(:) AgdaAny
v6 [AgdaAny]
v7
-> (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 ((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> AgdaAny
v0 AgdaAny
v3 AgdaAny
v6)
(AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
forall a. a
v5)
[AgdaAny]
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError)
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_scanl_1062 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny -> [AgdaAny] -> [AgdaAny]
d_scanl_1062 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny
-> [AgdaAny]
-> [AgdaAny]
d_scanl_1062 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~T_Level_18
v3 AgdaAny -> AgdaAny -> AgdaAny
v4 AgdaAny
v5 [AgdaAny]
v6 = (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> [AgdaAny]
du_scanl_1062 AgdaAny -> AgdaAny -> AgdaAny
v4 AgdaAny
v5 [AgdaAny]
v6
du_scanl_1062 ::
(AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny -> [AgdaAny] -> [AgdaAny]
du_scanl_1062 :: (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> [AgdaAny]
du_scanl_1062 AgdaAny -> AgdaAny -> AgdaAny
v0 AgdaAny
v1 [AgdaAny]
v2
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v2 of
[]
-> (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v2)
(:) AgdaAny
v3 [AgdaAny]
v4
-> (AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> [AgdaAny]
forall a b. a -> b
coe
AgdaAny -> [AgdaAny] -> [AgdaAny]
forall {a}. a -> [a] -> [a]
MAlonzo.Code.Agda.Builtin.List.C__'8759'__22 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1)
(((AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> [AgdaAny]
du_scanl_1062 ((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> AgdaAny
v0) ((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> AgdaAny
v0 AgdaAny
v1 AgdaAny
v3) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v4))
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError