{-# 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 :: 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
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
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 :: AgdaAny
v4
= ([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
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
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 :: AgdaAny
v4 = (AgdaAny -> T_These_38) -> AgdaAny -> AgdaAny
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
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_length_268 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> Integer
d_length_268 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> Integer
d_length_268 ~T_Level_18
v0 ~T_Level_18
v1 = [AgdaAny] -> Integer
du_length_268
du_length_268 :: [AgdaAny] -> Integer
du_length_268 :: [AgdaAny] -> Integer
du_length_268
= ((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'_270 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> AgdaAny -> [AgdaAny]
d_'91'_'93'_270 :: T_Level_18 -> T_Level_18 -> AgdaAny -> [AgdaAny]
d_'91'_'93'_270 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny
v2 = AgdaAny -> [AgdaAny]
du_'91'_'93'_270 AgdaAny
v2
du_'91'_'93'_270 :: AgdaAny -> [AgdaAny]
du_'91'_'93'_270 :: AgdaAny -> [AgdaAny]
du_'91'_'93'_270 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_274 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> Maybe AgdaAny -> [AgdaAny]
d_fromMaybe_274 :: T_Level_18 -> T_Level_18 -> Maybe AgdaAny -> [AgdaAny]
d_fromMaybe_274 ~T_Level_18
v0 ~T_Level_18
v1 Maybe AgdaAny
v2 = Maybe AgdaAny -> [AgdaAny]
du_fromMaybe_274 Maybe AgdaAny
v2
du_fromMaybe_274 :: Maybe AgdaAny -> [AgdaAny]
du_fromMaybe_274 :: Maybe AgdaAny -> [AgdaAny]
du_fromMaybe_274 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'_270 (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_278 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> Integer -> AgdaAny -> [AgdaAny]
d_replicate_278 :: T_Level_18 -> T_Level_18 -> Integer -> AgdaAny -> [AgdaAny]
d_replicate_278 ~T_Level_18
v0 ~T_Level_18
v1 Integer
v2 AgdaAny
v3 = Integer -> AgdaAny -> [AgdaAny]
du_replicate_278 Integer
v2 AgdaAny
v3
du_replicate_278 :: Integer -> AgdaAny -> [AgdaAny]
du_replicate_278 :: Integer -> AgdaAny -> [AgdaAny]
du_replicate_278 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_278 (Integer -> AgdaAny
forall a b. a -> b
coe Integer
v2) (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1)))
d_iterate_286 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> AgdaAny) -> AgdaAny -> Integer -> [AgdaAny]
d_iterate_286 :: T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny)
-> AgdaAny
-> Integer
-> [AgdaAny]
d_iterate_286 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> AgdaAny
v2 AgdaAny
v3 Integer
v4 = (AgdaAny -> AgdaAny) -> AgdaAny -> Integer -> [AgdaAny]
du_iterate_286 AgdaAny -> AgdaAny
v2 AgdaAny
v3 Integer
v4
du_iterate_286 ::
(AgdaAny -> AgdaAny) -> AgdaAny -> Integer -> [AgdaAny]
du_iterate_286 :: (AgdaAny -> AgdaAny) -> AgdaAny -> Integer -> [AgdaAny]
du_iterate_286 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_286 ((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_298 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> [[AgdaAny]]
d_inits_298 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> [[AgdaAny]]
d_inits_298 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> [[AgdaAny]]
du_inits_298 [AgdaAny]
v2
du_inits_298 :: [AgdaAny] -> [[AgdaAny]]
du_inits_298 :: [AgdaAny] -> [[AgdaAny]]
du_inits_298 [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_304 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v0))
d_tail_304 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> [[AgdaAny]]
d_tail_304 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> [[AgdaAny]]
d_tail_304 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> [[AgdaAny]]
du_tail_304 [AgdaAny]
v2
du_tail_304 :: [AgdaAny] -> [[AgdaAny]]
du_tail_304 :: [AgdaAny] -> [[AgdaAny]]
du_tail_304 [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'_270 (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_304 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v2)))
[AgdaAny]
_ -> [[AgdaAny]]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_tails_314 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> [[AgdaAny]]
d_tails_314 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> [[AgdaAny]]
d_tails_314 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> [[AgdaAny]]
du_tails_314 [AgdaAny]
v2
du_tails_314 :: [AgdaAny] -> [[AgdaAny]]
du_tails_314 :: [AgdaAny] -> [[AgdaAny]]
du_tails_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]
v0)
(([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
forall a b. a -> b
coe [AgdaAny]
v2)
(([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_insertAt_328 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
[AgdaAny] ->
MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny -> [AgdaAny]
d_insertAt_328 :: T_Level_18
-> T_Level_18 -> [AgdaAny] -> T_Fin_10 -> AgdaAny -> [AgdaAny]
d_insertAt_328 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 T_Fin_10
v3 AgdaAny
v4 = [AgdaAny] -> T_Fin_10 -> AgdaAny -> [AgdaAny]
du_insertAt_328 [AgdaAny]
v2 T_Fin_10
v3 AgdaAny
v4
du_insertAt_328 ::
[AgdaAny] ->
MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny -> [AgdaAny]
du_insertAt_328 :: [AgdaAny] -> T_Fin_10 -> AgdaAny -> [AgdaAny]
du_insertAt_328 [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_328 ([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_344 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
[AgdaAny] ->
MAlonzo.Code.Data.Fin.Base.T_Fin_10 ->
(AgdaAny -> AgdaAny) -> [AgdaAny]
d_updateAt_344 :: T_Level_18
-> T_Level_18
-> [AgdaAny]
-> T_Fin_10
-> (AgdaAny -> AgdaAny)
-> [AgdaAny]
d_updateAt_344 ~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_344 [AgdaAny]
v2 T_Fin_10
v3 AgdaAny -> AgdaAny
v4
du_updateAt_344 ::
[AgdaAny] ->
MAlonzo.Code.Data.Fin.Base.T_Fin_10 ->
(AgdaAny -> AgdaAny) -> [AgdaAny]
du_updateAt_344 :: [AgdaAny] -> T_Fin_10 -> (AgdaAny -> AgdaAny) -> [AgdaAny]
du_updateAt_344 [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_344 ([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_360 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (Integer -> AgdaAny) -> Integer -> [AgdaAny]
d_applyUpTo_360 :: T_Level_18
-> T_Level_18 -> (Integer -> AgdaAny) -> Integer -> [AgdaAny]
d_applyUpTo_360 ~T_Level_18
v0 ~T_Level_18
v1 Integer -> AgdaAny
v2 Integer
v3 = (Integer -> AgdaAny) -> Integer -> [AgdaAny]
du_applyUpTo_360 Integer -> AgdaAny
v2 Integer
v3
du_applyUpTo_360 :: (Integer -> AgdaAny) -> Integer -> [AgdaAny]
du_applyUpTo_360 :: (Integer -> AgdaAny) -> Integer -> [AgdaAny]
du_applyUpTo_360 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_360
((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_368 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (Integer -> AgdaAny) -> Integer -> [AgdaAny]
d_applyDownFrom_368 :: T_Level_18
-> T_Level_18 -> (Integer -> AgdaAny) -> Integer -> [AgdaAny]
d_applyDownFrom_368 ~T_Level_18
v0 ~T_Level_18
v1 Integer -> AgdaAny
v2 Integer
v3 = (Integer -> AgdaAny) -> Integer -> [AgdaAny]
du_applyDownFrom_368 Integer -> AgdaAny
v2 Integer
v3
du_applyDownFrom_368 ::
(Integer -> AgdaAny) -> Integer -> [AgdaAny]
du_applyDownFrom_368 :: (Integer -> AgdaAny) -> Integer -> [AgdaAny]
du_applyDownFrom_368 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_368 ((Integer -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe Integer -> AgdaAny
v0) (Integer -> AgdaAny
forall a b. a -> b
coe Integer
v2)))
d_tabulate_380 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
Integer ->
(MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny) -> [AgdaAny]
d_tabulate_380 :: T_Level_18
-> T_Level_18 -> Integer -> (T_Fin_10 -> AgdaAny) -> [AgdaAny]
d_tabulate_380 ~T_Level_18
v0 ~T_Level_18
v1 Integer
v2 T_Fin_10 -> AgdaAny
v3 = Integer -> (T_Fin_10 -> AgdaAny) -> [AgdaAny]
du_tabulate_380 Integer
v2 T_Fin_10 -> AgdaAny
v3
du_tabulate_380 ::
Integer ->
(MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny) -> [AgdaAny]
du_tabulate_380 :: Integer -> (T_Fin_10 -> AgdaAny) -> [AgdaAny]
du_tabulate_380 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_380 (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_390 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny
d_lookup_390 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> T_Fin_10 -> AgdaAny
d_lookup_390 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 T_Fin_10
v3 = [AgdaAny] -> T_Fin_10 -> AgdaAny
du_lookup_390 [AgdaAny]
v2 T_Fin_10
v3
du_lookup_390 ::
[AgdaAny] -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny
du_lookup_390 :: [AgdaAny] -> T_Fin_10 -> AgdaAny
du_lookup_390 [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_390 ([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_402 :: Integer -> [Integer]
d_upTo_402 :: Integer -> [Integer]
d_upTo_402 = ((Integer -> AgdaAny) -> Integer -> [AgdaAny])
-> AgdaAny -> Integer -> [Integer]
forall a b. a -> b
coe (Integer -> AgdaAny) -> Integer -> [AgdaAny]
du_applyUpTo_360 ((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe (\ AgdaAny
v0 -> AgdaAny
v0))
d_downFrom_404 :: Integer -> [Integer]
d_downFrom_404 :: Integer -> [Integer]
d_downFrom_404 = ((Integer -> AgdaAny) -> Integer -> [AgdaAny])
-> AgdaAny -> Integer -> [Integer]
forall a b. a -> b
coe (Integer -> AgdaAny) -> Integer -> [AgdaAny]
du_applyDownFrom_368 ((AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe (\ AgdaAny
v0 -> AgdaAny
v0))
d_allFin_408 :: Integer -> [MAlonzo.Code.Data.Fin.Base.T_Fin_10]
d_allFin_408 :: Integer -> [T_Fin_10]
d_allFin_408 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_380 (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_420 ::
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_420 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (Integer -> T_Level_18)
-> (Integer -> AgdaAny -> Maybe T_Σ_14)
-> Integer
-> AgdaAny
-> [AgdaAny]
d_unfold_420 ~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_420 Integer -> AgdaAny -> Maybe T_Σ_14
v4 Integer
v5 AgdaAny
v6
du_unfold_420 ::
(Integer ->
AgdaAny -> Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14) ->
Integer -> AgdaAny -> [AgdaAny]
du_unfold_420 :: (Integer -> AgdaAny -> Maybe T_Σ_14)
-> Integer -> AgdaAny -> [AgdaAny]
du_unfold_420 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_420 ((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_442 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
d_reverseAcc_442 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
d_reverseAcc_442 ~T_Level_18
v0 ~T_Level_18
v1 = [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_reverseAcc_442
du_reverseAcc_442 :: [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_reverseAcc_442 :: [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_reverseAcc_442
= ((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_444 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> [AgdaAny]
d_reverse_444 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> [AgdaAny]
d_reverse_444 ~T_Level_18
v0 ~T_Level_18
v1 = [AgdaAny] -> [AgdaAny]
du_reverse_444
du_reverse_444 :: [AgdaAny] -> [AgdaAny]
du_reverse_444 :: [AgdaAny] -> [AgdaAny]
du_reverse_444
= ([AgdaAny] -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe
[AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_reverseAcc_442
([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'__446 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
d__'691''43''43'__446 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
d__'691''43''43'__446 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 [AgdaAny]
v3 = [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du__'691''43''43'__446 [AgdaAny]
v2 [AgdaAny]
v3
du__'691''43''43'__446 :: [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du__'691''43''43'__446 :: [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du__'691''43''43'__446 [AgdaAny]
v0 [AgdaAny]
v1 = ([AgdaAny] -> [AgdaAny] -> [AgdaAny])
-> [AgdaAny] -> [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny] -> [AgdaAny] -> [AgdaAny]
du_reverseAcc_442 [AgdaAny]
v1 [AgdaAny]
v0
d__'8759''691'__448 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> AgdaAny -> [AgdaAny]
d__'8759''691'__448 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> AgdaAny -> [AgdaAny]
d__'8759''691'__448 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 AgdaAny
v3 = [AgdaAny] -> AgdaAny -> [AgdaAny]
du__'8759''691'__448 [AgdaAny]
v2 AgdaAny
v3
du__'8759''691'__448 :: [AgdaAny] -> AgdaAny -> [AgdaAny]
du__'8759''691'__448 :: [AgdaAny] -> AgdaAny -> [AgdaAny]
du__'8759''691'__448 [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'_270 (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1))
d_InitLast_458 :: p -> p -> p -> T_Level_18
d_InitLast_458 p
a0 p
a1 p
a2 = ()
data T_InitLast_458
= C_'91''93'_462 | C__'8759''691''8242'__468 [AgdaAny] AgdaAny
d_initLast_472 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> T_InitLast_458
d_initLast_472 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> T_InitLast_458
d_initLast_472 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> T_InitLast_458
du_initLast_472 [AgdaAny]
v2
du_initLast_472 :: [AgdaAny] -> T_InitLast_458
du_initLast_472 :: [AgdaAny] -> T_InitLast_458
du_initLast_472 [AgdaAny]
v0
= case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v0 of
[] -> T_InitLast_458 -> T_InitLast_458
forall a b. a -> b
coe T_InitLast_458
C_'91''93'_462
(:) AgdaAny
v1 [AgdaAny]
v2
-> let v3 :: AgdaAny
v3 = ([AgdaAny] -> T_InitLast_458) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> T_InitLast_458
du_initLast_472 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v2) in
AgdaAny -> T_InitLast_458
forall a b. a -> b
coe
(case AgdaAny -> T_InitLast_458
forall a b. a -> b
coe AgdaAny
v3 of
T_InitLast_458
C_'91''93'_462
-> ([AgdaAny] -> AgdaAny -> T_InitLast_458)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
[AgdaAny] -> AgdaAny -> T_InitLast_458
C__'8759''691''8242'__468
([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'__468 [AgdaAny]
v4 AgdaAny
v5
-> ([AgdaAny] -> AgdaAny -> T_InitLast_458)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
[AgdaAny] -> AgdaAny -> T_InitLast_458
C__'8759''691''8242'__468
((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_458
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError)
[AgdaAny]
_ -> T_InitLast_458
forall a. a
MAlonzo.RTE.mazUnreachableError
d_unsnoc_494 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_unsnoc_494 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> Maybe T_Σ_14
d_unsnoc_494 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> Maybe T_Σ_14
du_unsnoc_494 [AgdaAny]
v2
du_unsnoc_494 ::
[AgdaAny] -> Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_unsnoc_494 :: [AgdaAny] -> Maybe T_Σ_14
du_unsnoc_494 [AgdaAny]
v0
= let v1 :: AgdaAny
v1 = ([AgdaAny] -> T_InitLast_458) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> T_InitLast_458
du_initLast_472 ([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_458
forall a b. a -> b
coe AgdaAny
v1 of
T_InitLast_458
C_'91''93'_462 -> 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'__468 [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_458
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError)
d_uncons_510 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_uncons_510 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> Maybe T_Σ_14
d_uncons_510 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> Maybe T_Σ_14
du_uncons_510 [AgdaAny]
v2
du_uncons_510 ::
[AgdaAny] -> Maybe MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_uncons_510 :: [AgdaAny] -> Maybe T_Σ_14
du_uncons_510 [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_516 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> Maybe AgdaAny
d_head_516 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> Maybe AgdaAny
d_head_516 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> Maybe AgdaAny
du_head_516 [AgdaAny]
v2
du_head_516 :: [AgdaAny] -> Maybe AgdaAny
du_head_516 :: [AgdaAny] -> Maybe AgdaAny
du_head_516 [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_520 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> Maybe [AgdaAny]
d_tail_520 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> Maybe [AgdaAny]
d_tail_520 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> Maybe [AgdaAny]
du_tail_520 [AgdaAny]
v2
du_tail_520 :: [AgdaAny] -> Maybe [AgdaAny]
du_tail_520 :: [AgdaAny] -> Maybe [AgdaAny]
du_tail_520 [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_524 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> Maybe AgdaAny
d_last_524 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> Maybe AgdaAny
d_last_524 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 = [AgdaAny] -> Maybe AgdaAny
du_last_524 [AgdaAny]
v2
du_last_524 :: [AgdaAny] -> Maybe AgdaAny
du_last_524 :: [AgdaAny] -> Maybe AgdaAny
du_last_524 [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 :: AgdaAny
v3 = ([AgdaAny] -> Maybe AgdaAny) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> Maybe AgdaAny
du_last_524 ([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
v3)
[AgdaAny]
_ -> Maybe AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
d_take_530 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> Integer -> [AgdaAny] -> [AgdaAny]
d_take_530 :: T_Level_18 -> T_Level_18 -> Integer -> [AgdaAny] -> [AgdaAny]
d_take_530 ~T_Level_18
v0 ~T_Level_18
v1 Integer
v2 [AgdaAny]
v3 = Integer -> [AgdaAny] -> [AgdaAny]
du_take_530 Integer
v2 [AgdaAny]
v3
du_take_530 :: Integer -> [AgdaAny] -> [AgdaAny]
du_take_530 :: Integer -> [AgdaAny] -> [AgdaAny]
du_take_530 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_530 (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_542 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> Integer -> [AgdaAny] -> [AgdaAny]
d_drop_542 :: T_Level_18 -> T_Level_18 -> Integer -> [AgdaAny] -> [AgdaAny]
d_drop_542 ~T_Level_18
v0 ~T_Level_18
v1 Integer
v2 [AgdaAny]
v3 = Integer -> [AgdaAny] -> [AgdaAny]
du_drop_542 Integer
v2 [AgdaAny]
v3
du_drop_542 :: Integer -> [AgdaAny] -> [AgdaAny]
du_drop_542 :: Integer -> [AgdaAny] -> [AgdaAny]
du_drop_542 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_542 (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_554 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
Integer -> [AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_splitAt_554 :: T_Level_18 -> T_Level_18 -> Integer -> [AgdaAny] -> T_Σ_14
d_splitAt_554 ~T_Level_18
v0 ~T_Level_18
v1 Integer
v2 [AgdaAny]
v3 = Integer -> [AgdaAny] -> T_Σ_14
du_splitAt_554 Integer
v2 [AgdaAny]
v3
du_splitAt_554 ::
Integer -> [AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_splitAt_554 :: Integer -> [AgdaAny] -> T_Σ_14
du_splitAt_554 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_554 (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_570 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> [AgdaAny]
d_removeAt_570 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> T_Fin_10 -> [AgdaAny]
d_removeAt_570 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 T_Fin_10
v3 = [AgdaAny] -> T_Fin_10 -> [AgdaAny]
du_removeAt_570 [AgdaAny]
v2 T_Fin_10
v3
du_removeAt_570 ::
[AgdaAny] -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> [AgdaAny]
du_removeAt_570 :: [AgdaAny] -> T_Fin_10 -> [AgdaAny]
du_removeAt_570 [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_570 ([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_584 ::
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_584 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [AgdaAny]
d_takeWhile_584 ~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_584 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_takeWhile_584 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [AgdaAny]
du_takeWhile_584 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_takeWhile_584 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_584 ((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'_610 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
d_takeWhile'7495'_610 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
d_takeWhile'7495'_610 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_takeWhile'7495'_610 AgdaAny -> Bool
v2
du_takeWhile'7495'_610 ::
(AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_takeWhile'7495'_610 :: (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_takeWhile'7495'_610 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_584
((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'_72
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_dropWhile_616 ::
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_616 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [AgdaAny]
d_dropWhile_616 ~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_616 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_dropWhile_616 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [AgdaAny]
du_dropWhile_616 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_dropWhile_616 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_616 ((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'_642 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
d_dropWhile'7495'_642 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
d_dropWhile'7495'_642 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_dropWhile'7495'_642 AgdaAny -> Bool
v2
du_dropWhile'7495'_642 ::
(AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_dropWhile'7495'_642 :: (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_dropWhile'7495'_642 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_616
((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'_72
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_filter_648 ::
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_648 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [AgdaAny]
d_filter_648 ~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_648 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_filter_648 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [AgdaAny]
du_filter_648 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_filter_648 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_648 ((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_648 ((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'_674 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
d_filter'7495'_674 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
d_filter'7495'_674 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_filter'7495'_674 AgdaAny -> Bool
v2
du_filter'7495'_674 :: (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_filter'7495'_674 :: (AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_filter'7495'_674 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_648
((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'_72
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_partition_680 ::
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_680 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> T_Σ_14
d_partition_680 ~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_680 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_partition_680 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_partition_680 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14
du_partition_680 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 :: AgdaAny
v5 = ((AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14
du_partition_680 ((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
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
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'_714 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> Bool) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_partition'7495'_714 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> T_Σ_14
d_partition'7495'_714 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> T_Σ_14
du_partition'7495'_714 AgdaAny -> Bool
v2
du_partition'7495'_714 ::
(AgdaAny -> Bool) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_partition'7495'_714 :: (AgdaAny -> Bool) -> [AgdaAny] -> T_Σ_14
du_partition'7495'_714 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_680
((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'_72
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_span_720 ::
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_720 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> T_Σ_14
d_span_720 ~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_720 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_span_720 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_span_720 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14
du_span_720 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_720 ((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'_754 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> Bool) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_span'7495'_754 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> T_Σ_14
d_span'7495'_754 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> T_Σ_14
du_span'7495'_754 AgdaAny -> Bool
v2
du_span'7495'_754 ::
(AgdaAny -> Bool) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_span'7495'_754 :: (AgdaAny -> Bool) -> [AgdaAny] -> T_Σ_14
du_span'7495'_754 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_720
((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'_72
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_break_760 ::
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_760 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> T_Σ_14
d_break_760 ~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_760 AgdaAny -> T_Dec_20
v4
du_break_760 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_break_760 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> T_Σ_14
du_break_760 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_720
((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'_76
((AgdaAny -> T_Dec_20) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> T_Dec_20
v0 AgdaAny
v1)))
d_break'7495'_764 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> Bool) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_break'7495'_764 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> T_Σ_14
d_break'7495'_764 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> T_Σ_14
du_break'7495'_764 AgdaAny -> Bool
v2
du_break'7495'_764 ::
(AgdaAny -> Bool) ->
[AgdaAny] -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_break'7495'_764 :: (AgdaAny -> Bool) -> [AgdaAny] -> T_Σ_14
du_break'7495'_764 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_760
((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'_72
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_linesBy_770 ::
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_770 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [[AgdaAny]]
d_linesBy_770 ~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_770 AgdaAny -> T_Dec_20
v4
du_linesBy_770 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [[AgdaAny]]
du_linesBy_770 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [[AgdaAny]]
du_linesBy_770 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_780 ((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_780 ::
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_780 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> Maybe [AgdaAny]
-> [AgdaAny]
-> [[AgdaAny]]
d_go_780 ~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_780 AgdaAny -> T_Dec_20
v4 Maybe [AgdaAny]
v5 [AgdaAny]
v6
du_go_780 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
Maybe [AgdaAny] -> [AgdaAny] -> [[AgdaAny]]
du_go_780 :: (AgdaAny -> T_Dec_20)
-> Maybe [AgdaAny] -> [AgdaAny] -> [[AgdaAny]]
du_go_780 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'_270) (([AgdaAny] -> [AgdaAny]) -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> [AgdaAny]
du_reverse_444))
[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_444 ((Maybe [AgdaAny] -> [AgdaAny]) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe Maybe [AgdaAny] -> [AgdaAny]
du_acc'8242'_794 (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_780 ((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_780 ((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'_794 (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'_794 ::
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'_794 :: 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'_794 ~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'_794 Maybe [AgdaAny]
v5
du_acc'8242'_794 :: Maybe [AgdaAny] -> [AgdaAny]
du_acc'8242'_794 :: Maybe [AgdaAny] -> [AgdaAny]
du_acc'8242'_794 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'_796 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
d_linesBy'7495'_796 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
d_linesBy'7495'_796 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
du_linesBy'7495'_796 AgdaAny -> Bool
v2
du_linesBy'7495'_796 ::
(AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
du_linesBy'7495'_796 :: (AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
du_linesBy'7495'_796 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_770
((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'_72
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_wordsBy_802 ::
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_802 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [[AgdaAny]]
d_wordsBy_802 ~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_802 AgdaAny -> T_Dec_20
v4
du_wordsBy_802 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [[AgdaAny]]
du_wordsBy_802 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [[AgdaAny]]
du_wordsBy_802 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_820 ((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_812 ::
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_812 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [[AgdaAny]]
-> [[AgdaAny]]
d_cons_812 ~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_812 [AgdaAny]
v5 [[AgdaAny]]
v6
du_cons_812 :: [AgdaAny] -> [[AgdaAny]] -> [[AgdaAny]]
du_cons_812 :: [AgdaAny] -> [[AgdaAny]] -> [[AgdaAny]]
du_cons_812 [AgdaAny]
v0 [[AgdaAny]]
v1
= let v2 :: 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_reverse_444 [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
v2)
d_go_820 ::
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_820 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [AgdaAny]
-> [[AgdaAny]]
d_go_820 ~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_820 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5 [AgdaAny]
v6
du_go_820 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [AgdaAny] -> [[AgdaAny]]
du_go_820 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny] -> [[AgdaAny]]
du_go_820 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_812 ([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_812 ([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_820 ((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_820 ((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'_830 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
d_wordsBy'7495'_830 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
d_wordsBy'7495'_830 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
du_wordsBy'7495'_830 AgdaAny -> Bool
v2
du_wordsBy'7495'_830 ::
(AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
du_wordsBy'7495'_830 :: (AgdaAny -> Bool) -> [AgdaAny] -> [[AgdaAny]]
du_wordsBy'7495'_830 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_802
((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'_72
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_derun_836 ::
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_836 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny -> T_Level_18)
-> (AgdaAny -> AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [AgdaAny]
d_derun_836 ~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_836 AgdaAny -> AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_derun_836 ::
(AgdaAny ->
AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [AgdaAny]
du_derun_836 :: (AgdaAny -> AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_derun_836 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 :: AgdaAny
v7 = ((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_836 ((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
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
v7)))
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_derun'7495'_876 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
d_derun'7495'_876 :: T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny -> Bool)
-> [AgdaAny]
-> [AgdaAny]
d_derun'7495'_876 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> AgdaAny -> Bool
v2 = (AgdaAny -> AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_derun'7495'_876 AgdaAny -> AgdaAny -> Bool
v2
du_derun'7495'_876 ::
(AgdaAny -> AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_derun'7495'_876 :: (AgdaAny -> AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_derun'7495'_876 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_836
(((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'_72))
((AgdaAny -> AgdaAny -> Bool) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> Bool
v0))
d_deduplicate_882 ::
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_882 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny -> T_Level_18)
-> (AgdaAny -> AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [AgdaAny]
d_deduplicate_882 ~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_882 AgdaAny -> AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_deduplicate_882 ::
(AgdaAny ->
AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> [AgdaAny]
du_deduplicate_882 :: (AgdaAny -> AgdaAny -> T_Dec_20) -> [AgdaAny] -> [AgdaAny]
du_deduplicate_882 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_648
((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'_76
((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_882 ((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'_892 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
d_deduplicate'7495'_892 :: T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny -> Bool)
-> [AgdaAny]
-> [AgdaAny]
d_deduplicate'7495'_892 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> AgdaAny -> Bool
v2 = (AgdaAny -> AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_deduplicate'7495'_892 AgdaAny -> AgdaAny -> Bool
v2
du_deduplicate'7495'_892 ::
(AgdaAny -> AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_deduplicate'7495'_892 :: (AgdaAny -> AgdaAny -> Bool) -> [AgdaAny] -> [AgdaAny]
du_deduplicate'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_deduplicate_882
(((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'_72))
((AgdaAny -> AgdaAny -> Bool) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> Bool
v0))
d_find_898 ::
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_898 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> Maybe AgdaAny
d_find_898 ~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_898 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_find_898 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> Maybe AgdaAny
du_find_898 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> Maybe AgdaAny
du_find_898 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_898 ((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'_908 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> Bool) -> [AgdaAny] -> Maybe AgdaAny
d_find'7495'_908 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> Maybe AgdaAny
d_find'7495'_908 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> Maybe AgdaAny
du_find'7495'_908 AgdaAny -> Bool
v2
du_find'7495'_908 ::
(AgdaAny -> Bool) -> [AgdaAny] -> Maybe AgdaAny
du_find'7495'_908 :: (AgdaAny -> Bool) -> [AgdaAny] -> Maybe AgdaAny
du_find'7495'_908 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_898
((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'_72
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_findIndex_916 ::
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_916 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> Maybe T_Fin_10
d_findIndex_916 ~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_916 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_findIndex_916 ::
(AgdaAny ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20) ->
[AgdaAny] -> Maybe MAlonzo.Code.Data.Fin.Base.T_Fin_10
du_findIndex_916 :: (AgdaAny -> T_Dec_20) -> [AgdaAny] -> Maybe T_Fin_10
du_findIndex_916 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_916 ((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'_928 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> Bool) ->
[AgdaAny] -> Maybe MAlonzo.Code.Data.Fin.Base.T_Fin_10
d_findIndex'7495'_928 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> Maybe T_Fin_10
d_findIndex'7495'_928 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = (AgdaAny -> Bool) -> [AgdaAny] -> Maybe T_Fin_10
du_findIndex'7495'_928 AgdaAny -> Bool
v2
du_findIndex'7495'_928 ::
(AgdaAny -> Bool) ->
[AgdaAny] -> Maybe MAlonzo.Code.Data.Fin.Base.T_Fin_10
du_findIndex'7495'_928 :: (AgdaAny -> Bool) -> [AgdaAny] -> Maybe T_Fin_10
du_findIndex'7495'_928 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_916
((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'_72
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v0 AgdaAny
v1)))
d_findIndices_936 ::
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_936 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> [AgdaAny]
-> [T_Fin_10]
d_findIndices_936 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_936 T_Level_18
v0 T_Level_18
v2 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v5
du_findIndices_936 ::
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_936 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [T_Fin_10]
du_findIndices_936 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_950 (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_950 (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_950 ::
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_950 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Dec_20)
-> AgdaAny
-> [AgdaAny]
-> [T_Fin_10]
d_indices_950 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_950 T_Level_18
v0 T_Level_18
v2 AgdaAny -> T_Dec_20
v4 [AgdaAny]
v6
du_indices_950 ::
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_950 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> T_Dec_20) -> [AgdaAny] -> [T_Fin_10]
du_indices_950 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_936 (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'_954 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> Bool) ->
[AgdaAny] -> [MAlonzo.Code.Data.Fin.Base.T_Fin_10]
d_findIndices'7495'_954 :: T_Level_18
-> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> [T_Fin_10]
d_findIndices'7495'_954 T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 = T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> [T_Fin_10]
du_findIndices'7495'_954 T_Level_18
v0 AgdaAny -> Bool
v2
du_findIndices'7495'_954 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(AgdaAny -> Bool) ->
[AgdaAny] -> [MAlonzo.Code.Data.Fin.Base.T_Fin_10]
du_findIndices'7495'_954 :: T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> [T_Fin_10]
du_findIndices'7495'_954 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_936 (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'_72
((AgdaAny -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe AgdaAny -> Bool
v1 AgdaAny
v2)))
d__'91'_'93''37''61'__960 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
[AgdaAny] ->
MAlonzo.Code.Data.Fin.Base.T_Fin_10 ->
(AgdaAny -> AgdaAny) -> [AgdaAny]
d__'91'_'93''37''61'__960 :: T_Level_18
-> T_Level_18
-> [AgdaAny]
-> T_Fin_10
-> (AgdaAny -> AgdaAny)
-> [AgdaAny]
d__'91'_'93''37''61'__960 ~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'__960 [AgdaAny]
v2 T_Fin_10
v3 AgdaAny -> AgdaAny
v4
du__'91'_'93''37''61'__960 ::
[AgdaAny] ->
MAlonzo.Code.Data.Fin.Base.T_Fin_10 ->
(AgdaAny -> AgdaAny) -> [AgdaAny]
du__'91'_'93''37''61'__960 :: [AgdaAny] -> T_Fin_10 -> (AgdaAny -> AgdaAny) -> [AgdaAny]
du__'91'_'93''37''61'__960 [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_344 ([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'__970 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
[AgdaAny] ->
MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny -> [AgdaAny]
d__'91'_'93''8759''61'__970 :: T_Level_18
-> T_Level_18 -> [AgdaAny] -> T_Fin_10 -> AgdaAny -> [AgdaAny]
d__'91'_'93''8759''61'__970 ~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'__970 [AgdaAny]
v2 T_Fin_10
v3 AgdaAny
v4
du__'91'_'93''8759''61'__970 ::
[AgdaAny] ->
MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> AgdaAny -> [AgdaAny]
du__'91'_'93''8759''61'__970 :: [AgdaAny] -> T_Fin_10 -> AgdaAny -> [AgdaAny]
du__'91'_'93''8759''61'__970 [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'__960 ([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'__978 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> Maybe AgdaAny -> [AgdaAny] -> [AgdaAny]
d__'63''8759'__978 :: T_Level_18 -> T_Level_18 -> Maybe AgdaAny -> [AgdaAny] -> [AgdaAny]
d__'63''8759'__978 ~T_Level_18
v0 ~T_Level_18
v1 = Maybe AgdaAny -> [AgdaAny] -> [AgdaAny]
du__'63''8759'__978
du__'63''8759'__978 :: Maybe AgdaAny -> [AgdaAny] -> [AgdaAny]
du__'63''8759'__978 :: Maybe AgdaAny -> [AgdaAny] -> [AgdaAny]
du__'63''8759'__978
= ((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'__980 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> Maybe AgdaAny -> [AgdaAny]
d__'8759''691''63'__980 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> Maybe AgdaAny -> [AgdaAny]
d__'8759''691''63'__980 ~T_Level_18
v0 ~T_Level_18
v1 [AgdaAny]
v2 Maybe AgdaAny
v3
= [AgdaAny] -> Maybe AgdaAny -> [AgdaAny]
du__'8759''691''63'__980 [AgdaAny]
v2 Maybe AgdaAny
v3
du__'8759''691''63'__980 :: [AgdaAny] -> Maybe AgdaAny -> [AgdaAny]
du__'8759''691''63'__980 :: [AgdaAny] -> Maybe AgdaAny -> [AgdaAny]
du__'8759''691''63'__980 [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'__448 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v0)) [AgdaAny]
v0 Maybe AgdaAny
v1
d_'43''43''45'rawMagma_996 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> MAlonzo.Code.Algebra.Bundles.Raw.T_RawMagma_44
d_'43''43''45'rawMagma_996 :: T_Level_18 -> T_Level_18 -> T_RawMagma_44
d_'43''43''45'rawMagma_996 ~T_Level_18
v0 ~T_Level_18
v1 = T_RawMagma_44
du_'43''43''45'rawMagma_996
du_'43''43''45'rawMagma_996 ::
MAlonzo.Code.Algebra.Bundles.Raw.T_RawMagma_44
du_'43''43''45'rawMagma_996 :: T_RawMagma_44
du_'43''43''45'rawMagma_996
= ((AgdaAny -> AgdaAny -> AgdaAny) -> T_RawMagma_44)
-> AgdaAny -> T_RawMagma_44
forall a b. a -> b
coe
(AgdaAny -> AgdaAny -> AgdaAny) -> T_RawMagma_44
MAlonzo.Code.Algebra.Bundles.Raw.C_constructor_68
(([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_998 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> MAlonzo.Code.Algebra.Bundles.Raw.T_RawMonoid_74
d_'43''43''45''91''93''45'rawMonoid_998 :: T_Level_18 -> T_Level_18 -> T_RawMonoid_74
d_'43''43''45''91''93''45'rawMonoid_998 ~T_Level_18
v0 ~T_Level_18
v1
= T_RawMonoid_74
du_'43''43''45''91''93''45'rawMonoid_998
du_'43''43''45''91''93''45'rawMonoid_998 ::
MAlonzo.Code.Algebra.Bundles.Raw.T_RawMonoid_74
du_'43''43''45''91''93''45'rawMonoid_998 :: T_RawMonoid_74
du_'43''43''45''91''93''45'rawMonoid_998
= ((AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> T_RawMonoid_74)
-> AgdaAny -> AgdaAny -> T_RawMonoid_74
forall a b. a -> b
coe
(AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny -> T_RawMonoid_74
MAlonzo.Code.Algebra.Bundles.Raw.C_constructor_102
(([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'''__1004 :: [AgdaAny] -> AgdaAny -> T_InitLast_458
d__'8759''691'''__1004 :: [AgdaAny] -> AgdaAny -> T_InitLast_458
d__'8759''691'''__1004 = ([AgdaAny] -> AgdaAny -> T_InitLast_458)
-> [AgdaAny] -> AgdaAny -> T_InitLast_458
forall a b. a -> b
coe [AgdaAny] -> AgdaAny -> T_InitLast_458
C__'8759''691''8242'__468
d__'9472'__1006 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> MAlonzo.Code.Data.Fin.Base.T_Fin_10 -> [AgdaAny]
d__'9472'__1006 :: T_Level_18 -> T_Level_18 -> [AgdaAny] -> T_Fin_10 -> [AgdaAny]
d__'9472'__1006 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_570 [AgdaAny]
v2 T_Fin_10
v3
d_scanr_1008 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny -> [AgdaAny] -> [AgdaAny]
d_scanr_1008 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny
-> [AgdaAny]
-> [AgdaAny]
d_scanr_1008 ~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_1008 AgdaAny -> AgdaAny -> AgdaAny
v4 AgdaAny
v5 [AgdaAny]
v6
du_scanr_1008 ::
(AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny -> [AgdaAny] -> [AgdaAny]
du_scanr_1008 :: (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> [AgdaAny]
du_scanr_1008 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 :: AgdaAny
v5 = ((AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> [AgdaAny])
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> [AgdaAny]
du_scanr_1008 ((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
v5 of
[] -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
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
v5)
[AgdaAny]
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError)
[AgdaAny]
_ -> [AgdaAny]
forall a. a
MAlonzo.RTE.mazUnreachableError
d_scanl_1046 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
(AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny -> [AgdaAny] -> [AgdaAny]
d_scanl_1046 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny
-> [AgdaAny]
-> [AgdaAny]
d_scanl_1046 ~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_1046 AgdaAny -> AgdaAny -> AgdaAny
v4 AgdaAny
v5 [AgdaAny]
v6
du_scanl_1046 ::
(AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny -> [AgdaAny] -> [AgdaAny]
du_scanl_1046 :: (AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> [AgdaAny] -> [AgdaAny]
du_scanl_1046 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_1046 ((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_and_1060 :: [Bool] -> Bool
d_and_1060 :: [Bool] -> Bool
d_and_1060
= ((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_all_1062 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> Bool) -> [AgdaAny] -> Bool
d_all_1062 :: T_Level_18 -> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> Bool
d_all_1062 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 [AgdaAny]
v3 = (AgdaAny -> Bool) -> [AgdaAny] -> Bool
du_all_1062 AgdaAny -> Bool
v2 [AgdaAny]
v3
du_all_1062 :: (AgdaAny -> Bool) -> [AgdaAny] -> Bool
du_all_1062 :: (AgdaAny -> Bool) -> [AgdaAny] -> Bool
du_all_1062 AgdaAny -> Bool
v0 [AgdaAny]
v1
= ([Bool] -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe [Bool] -> Bool
d_and_1060 (((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_or_1066 :: [Bool] -> Bool
d_or_1066 :: [Bool] -> Bool
d_or_1066
= ((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_1068 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> (AgdaAny -> Bool) -> [AgdaAny] -> Bool
d_any_1068 :: T_Level_18 -> T_Level_18 -> (AgdaAny -> Bool) -> [AgdaAny] -> Bool
d_any_1068 ~T_Level_18
v0 ~T_Level_18
v1 AgdaAny -> Bool
v2 [AgdaAny]
v3 = (AgdaAny -> Bool) -> [AgdaAny] -> Bool
du_any_1068 AgdaAny -> Bool
v2 [AgdaAny]
v3
du_any_1068 :: (AgdaAny -> Bool) -> [AgdaAny] -> Bool
du_any_1068 :: (AgdaAny -> Bool) -> [AgdaAny] -> Bool
du_any_1068 AgdaAny -> Bool
v0 [AgdaAny]
v1 = ([Bool] -> Bool) -> AgdaAny -> Bool
forall a b. a -> b
coe [Bool] -> Bool
d_or_1066 (((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_1072 :: [Integer] -> Integer
d_sum_1072 :: [Integer] -> Integer
d_sum_1072 = ((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_1074 :: [Integer] -> Integer
d_product_1074 :: [Integer] -> Integer
d_product_1074 = ((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))