{-# 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.Vec.Bounded.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.Equality
import qualified MAlonzo.Code.Agda.Builtin.Nat
import qualified MAlonzo.Code.Agda.Builtin.Sigma
import qualified MAlonzo.Code.Agda.Primitive
import qualified MAlonzo.Code.Data.List.Base
import qualified MAlonzo.Code.Data.List.Extrema
import qualified MAlonzo.Code.Data.List.Membership.Setoid
import qualified MAlonzo.Code.Data.List.Relation.Unary.All
import qualified MAlonzo.Code.Data.List.Relation.Unary.All.Properties
import qualified MAlonzo.Code.Data.Nat.Base
import qualified MAlonzo.Code.Data.Nat.Properties
import qualified MAlonzo.Code.Data.These.Base
import qualified MAlonzo.Code.Data.Vec.Base
import qualified MAlonzo.Code.Relation.Binary.PropositionalEquality.Properties
import qualified MAlonzo.Code.Relation.Nullary.Decidable.Core
d_Vec'8804'_126 :: p -> p -> p -> ()
d_Vec'8804'_126 p
a0 p
a1 p
a2 = ()
data T_Vec'8804'_126
= C__'44'__144 Integer MAlonzo.Code.Data.Vec.Base.T_Vec_28
d_length_138 :: T_Vec'8804'_126 -> Integer
d_length_138 :: T_Vec'8804'_126 -> Integer
d_length_138 T_Vec'8804'_126
v0
= case T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
v0 of
C__'44'__144 Integer
v1 T_Vec_28
v2 -> Integer -> Integer
forall a b. a -> b
coe Integer
v1
T_Vec'8804'_126
_ -> Integer
forall a. a
MAlonzo.RTE.mazUnreachableError
d_vec_140 :: T_Vec'8804'_126 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28
d_vec_140 :: T_Vec'8804'_126 -> T_Vec_28
d_vec_140 T_Vec'8804'_126
v0
= case T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
v0 of
C__'44'__144 Integer
v1 T_Vec_28
v2 -> T_Vec_28 -> T_Vec_28
forall a b. a -> b
coe T_Vec_28
v2
T_Vec'8804'_126
_ -> T_Vec_28
forall a. a
MAlonzo.RTE.mazUnreachableError
d_isBounded_148 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
Integer ->
T_Vec'8804'_126 -> MAlonzo.Code.Data.Nat.Base.T__'8804'__22
d_isBounded_148 :: () -> () -> Integer -> T_Vec'8804'_126 -> T__'8804'__22
d_isBounded_148 ~()
v0 ~()
v1 Integer
v2 T_Vec'8804'_126
v3 = Integer -> T_Vec'8804'_126 -> T__'8804'__22
du_isBounded_148 Integer
v2 T_Vec'8804'_126
v3
du_isBounded_148 ::
Integer ->
T_Vec'8804'_126 -> MAlonzo.Code.Data.Nat.Base.T__'8804'__22
du_isBounded_148 :: Integer -> T_Vec'8804'_126 -> T__'8804'__22
du_isBounded_148 Integer
v0 T_Vec'8804'_126
v1
= case T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
v1 of
C__'44'__144 Integer
v2 T_Vec_28
v3
-> (T_Dec_20 -> Any -> Any) -> T_Dec_20 -> Any -> T__'8804'__22
forall a b. a -> b
coe
T_Dec_20 -> Any -> Any
MAlonzo.Code.Relation.Nullary.Decidable.Core.du_recompute_54
(Integer -> Integer -> T_Dec_20
MAlonzo.Code.Data.Nat.Properties.d__'8804''63'__2802
(Integer -> Integer
forall a b. a -> b
coe Integer
v2) (Integer -> Integer
forall a b. a -> b
coe Integer
v0))
Any
forall a. a
erased
T_Vec'8804'_126
_ -> T__'8804'__22
forall a. a
MAlonzo.RTE.mazUnreachableError
d_toVec_156 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
Integer -> T_Vec'8804'_126 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28
d_toVec_156 :: () -> () -> Integer -> T_Vec'8804'_126 -> T_Vec_28
d_toVec_156 ~()
v0 ~()
v1 ~Integer
v2 T_Vec'8804'_126
v3 = T_Vec'8804'_126 -> T_Vec_28
du_toVec_156 T_Vec'8804'_126
v3
du_toVec_156 ::
T_Vec'8804'_126 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28
du_toVec_156 :: T_Vec'8804'_126 -> T_Vec_28
du_toVec_156 T_Vec'8804'_126
v0
= case T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
v0 of
C__'44'__144 Integer
v1 T_Vec_28
v2 -> T_Vec_28 -> T_Vec_28
forall a b. a -> b
coe T_Vec_28
v2
T_Vec'8804'_126
_ -> T_Vec_28
forall a. a
MAlonzo.RTE.mazUnreachableError
d_fromVec_162 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
Integer -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> T_Vec'8804'_126
d_fromVec_162 :: () -> () -> Integer -> T_Vec_28 -> T_Vec'8804'_126
d_fromVec_162 ~()
v0 ~()
v1 Integer
v2 T_Vec_28
v3 = Integer -> T_Vec_28 -> T_Vec'8804'_126
du_fromVec_162 Integer
v2 T_Vec_28
v3
du_fromVec_162 ::
Integer -> MAlonzo.Code.Data.Vec.Base.T_Vec_28 -> T_Vec'8804'_126
du_fromVec_162 :: Integer -> T_Vec_28 -> T_Vec'8804'_126
du_fromVec_162 Integer
v0 T_Vec_28
v1 = (Integer -> T_Vec_28 -> T_Vec'8804'_126)
-> Integer -> T_Vec_28 -> T_Vec'8804'_126
forall a b. a -> b
coe Integer -> T_Vec_28 -> T_Vec'8804'_126
C__'44'__144 Integer
v0 T_Vec_28
v1
d_padRight_166 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
Integer ->
AgdaAny -> T_Vec'8804'_126 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28
d_padRight_166 :: () -> () -> Integer -> Any -> T_Vec'8804'_126 -> T_Vec_28
d_padRight_166 ~()
v0 ~()
v1 Integer
v2 Any
v3 T_Vec'8804'_126
v4 = Integer -> Any -> T_Vec'8804'_126 -> T_Vec_28
du_padRight_166 Integer
v2 Any
v3 T_Vec'8804'_126
v4
du_padRight_166 ::
Integer ->
AgdaAny -> T_Vec'8804'_126 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28
du_padRight_166 :: Integer -> Any -> T_Vec'8804'_126 -> T_Vec_28
du_padRight_166 Integer
v0 Any
v1 T_Vec'8804'_126
v2
= case T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
v2 of
C__'44'__144 Integer
v3 T_Vec_28
v4
-> let v6 :: t
v6 = (Integer -> Integer -> Integer) -> Integer -> Integer -> t
forall a b. a -> b
coe Integer -> Integer -> Integer
MAlonzo.Code.Agda.Builtin.Nat.d__'45'__22 Integer
v0 Integer
v3 in
Any -> T_Vec_28
forall a b. a -> b
coe
((T_Vec_28 -> T_Vec_28 -> T_Vec_28) -> Any -> Any -> Any
forall a b. a -> b
coe
T_Vec_28 -> T_Vec_28 -> T_Vec_28
MAlonzo.Code.Data.Vec.Base.du__'43''43'__188 (T_Vec_28 -> Any
forall a b. a -> b
coe T_Vec_28
v4)
((Integer -> Any -> T_Vec_28) -> Any -> Any -> Any
forall a b. a -> b
coe
Integer -> Any -> T_Vec_28
MAlonzo.Code.Data.Vec.Base.du_replicate_444 (Any -> Any
forall a b. a -> b
coe Any
forall a. a
v6) (Any -> Any
forall a b. a -> b
coe Any
v1)))
T_Vec'8804'_126
_ -> T_Vec_28
forall a. a
MAlonzo.RTE.mazUnreachableError
d_padLeft_182 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
Integer ->
AgdaAny -> T_Vec'8804'_126 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28
d_padLeft_182 :: () -> () -> Integer -> Any -> T_Vec'8804'_126 -> T_Vec_28
d_padLeft_182 ~()
v0 ~()
v1 Integer
v2 Any
v3 T_Vec'8804'_126
v4 = Integer -> Any -> T_Vec'8804'_126 -> T_Vec_28
du_padLeft_182 Integer
v2 Any
v3 T_Vec'8804'_126
v4
du_padLeft_182 ::
Integer ->
AgdaAny -> T_Vec'8804'_126 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28
du_padLeft_182 :: Integer -> Any -> T_Vec'8804'_126 -> T_Vec_28
du_padLeft_182 Integer
v0 Any
v1 T_Vec'8804'_126
v2
= case T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
v2 of
C__'44'__144 Integer
v3 T_Vec_28
v4
-> let v6 :: t
v6 = (Integer -> Integer -> Integer) -> Integer -> Integer -> t
forall a b. a -> b
coe Integer -> Integer -> Integer
MAlonzo.Code.Agda.Builtin.Nat.d__'45'__22 Integer
v0 Integer
v3 in
Any -> T_Vec_28
forall a b. a -> b
coe
((T_Vec_28 -> T_Vec_28 -> T_Vec_28) -> Any -> Any -> Any
forall a b. a -> b
coe
T_Vec_28 -> T_Vec_28 -> T_Vec_28
MAlonzo.Code.Data.Vec.Base.du__'43''43'__188
((Integer -> Any -> T_Vec_28) -> Any -> Any -> Any
forall a b. a -> b
coe Integer -> Any -> T_Vec_28
MAlonzo.Code.Data.Vec.Base.du_replicate_444 (Any -> Any
forall a b. a -> b
coe Any
forall a. a
v6) (Any -> Any
forall a b. a -> b
coe Any
v1))
(T_Vec_28 -> Any
forall a b. a -> b
coe T_Vec_28
v4))
T_Vec'8804'_126
_ -> T_Vec_28
forall a. a
MAlonzo.RTE.mazUnreachableError
d_split_206 ::
Integer ->
Integer -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12
d_split_206 :: Integer -> Integer -> T__'8801'__12
d_split_206 = Integer -> Integer -> T__'8801'__12
forall a. a
erased
d_padBoth_220 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
Integer ->
AgdaAny ->
AgdaAny -> T_Vec'8804'_126 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28
d_padBoth_220 :: () -> () -> Integer -> Any -> Any -> T_Vec'8804'_126 -> T_Vec_28
d_padBoth_220 ~()
v0 ~()
v1 Integer
v2 Any
v3 Any
v4 T_Vec'8804'_126
v5 = Integer -> Any -> Any -> T_Vec'8804'_126 -> T_Vec_28
du_padBoth_220 Integer
v2 Any
v3 Any
v4 T_Vec'8804'_126
v5
du_padBoth_220 ::
Integer ->
AgdaAny ->
AgdaAny -> T_Vec'8804'_126 -> MAlonzo.Code.Data.Vec.Base.T_Vec_28
du_padBoth_220 :: Integer -> Any -> Any -> T_Vec'8804'_126 -> T_Vec_28
du_padBoth_220 Integer
v0 Any
v1 Any
v2 T_Vec'8804'_126
v3
= case T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
v3 of
C__'44'__144 Integer
v4 T_Vec_28
v5
-> let v7 :: t
v7 = (Integer -> Integer -> Integer) -> Integer -> Integer -> t
forall a b. a -> b
coe Integer -> Integer -> Integer
MAlonzo.Code.Agda.Builtin.Nat.d__'45'__22 Integer
v0 Integer
v4 in
Any -> T_Vec_28
forall a b. a -> b
coe
((T_Vec_28 -> T_Vec_28 -> T_Vec_28) -> Any -> Any -> Any
forall a b. a -> b
coe
T_Vec_28 -> T_Vec_28 -> T_Vec_28
MAlonzo.Code.Data.Vec.Base.du__'43''43'__188
((Integer -> Any -> T_Vec_28) -> Any -> Any -> Any
forall a b. a -> b
coe
Integer -> Any -> T_Vec_28
MAlonzo.Code.Data.Vec.Base.du_replicate_444
((Integer -> Integer) -> Any -> Any
forall a b. a -> b
coe Integer -> Integer
MAlonzo.Code.Data.Nat.Base.d_'8970'_'47'2'8971'_264 (Any -> Any
forall a b. a -> b
coe Any
forall a. a
v7))
(Any -> Any
forall a b. a -> b
coe Any
v1))
((T_Vec_28 -> T_Vec_28 -> T_Vec_28) -> Any -> Any -> Any
forall a b. a -> b
coe
T_Vec_28 -> T_Vec_28 -> T_Vec_28
MAlonzo.Code.Data.Vec.Base.du__'43''43'__188 (T_Vec_28 -> Any
forall a b. a -> b
coe T_Vec_28
v5)
((Integer -> Any -> T_Vec_28) -> Any -> Any -> Any
forall a b. a -> b
coe
Integer -> Any -> T_Vec_28
MAlonzo.Code.Data.Vec.Base.du_replicate_444
((Integer -> Integer) -> Any -> Any
forall a b. a -> b
coe Integer -> Integer
MAlonzo.Code.Data.Nat.Base.d_'8968'_'47'2'8969'_268 (Any -> Any
forall a b. a -> b
coe Any
forall a. a
v7))
(Any -> Any
forall a b. a -> b
coe Any
v2))))
T_Vec'8804'_126
_ -> T_Vec_28
forall a. a
MAlonzo.RTE.mazUnreachableError
d_fromList_244 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [AgdaAny] -> T_Vec'8804'_126
d_fromList_244 :: () -> () -> [Any] -> T_Vec'8804'_126
d_fromList_244 ~()
v0 ~()
v1 [Any]
v2 = [Any] -> T_Vec'8804'_126
du_fromList_244 [Any]
v2
du_fromList_244 :: [AgdaAny] -> T_Vec'8804'_126
du_fromList_244 :: [Any] -> T_Vec'8804'_126
du_fromList_244 [Any]
v0
= (Integer -> T_Vec_28 -> T_Vec'8804'_126)
-> Any -> Any -> T_Vec'8804'_126
forall a b. a -> b
coe
Integer -> T_Vec_28 -> T_Vec'8804'_126
du_fromVec_162 (([Any] -> Integer) -> [Any] -> Any
forall a b. a -> b
coe [Any] -> Integer
MAlonzo.Code.Data.List.Base.du_length_284 [Any]
v0)
(([Any] -> T_Vec_28) -> Any -> Any
forall a b. a -> b
coe [Any] -> T_Vec_28
MAlonzo.Code.Data.Vec.Base.du_fromList_600 ([Any] -> Any
forall a b. a -> b
coe [Any]
v0))
d_toList_246 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> Integer -> T_Vec'8804'_126 -> [AgdaAny]
d_toList_246 :: () -> () -> Integer -> T_Vec'8804'_126 -> [Any]
d_toList_246 ~()
v0 ~()
v1 ~Integer
v2 T_Vec'8804'_126
v3 = T_Vec'8804'_126 -> [Any]
du_toList_246 T_Vec'8804'_126
v3
du_toList_246 :: T_Vec'8804'_126 -> [AgdaAny]
du_toList_246 :: T_Vec'8804'_126 -> [Any]
du_toList_246 T_Vec'8804'_126
v0
= (T_Vec_28 -> [Any]) -> Any -> [Any]
forall a b. a -> b
coe
T_Vec_28 -> [Any]
MAlonzo.Code.Data.Vec.Base.du_toList_592
((T_Vec'8804'_126 -> T_Vec_28) -> Any -> Any
forall a b. a -> b
coe T_Vec'8804'_126 -> T_Vec_28
du_toVec_156 (T_Vec'8804'_126 -> Any
forall a b. a -> b
coe T_Vec'8804'_126
v0))
d_replicate_250 ::
Integer ->
Integer ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Data.Nat.Base.T__'8804'__22 ->
AgdaAny -> T_Vec'8804'_126
d_replicate_250 :: Integer
-> Integer -> () -> () -> T__'8804'__22 -> Any -> T_Vec'8804'_126
d_replicate_250 Integer
v0 ~Integer
v1 ~()
v2 ~()
v3 ~T__'8804'__22
v4 Any
v5 = Integer -> Any -> T_Vec'8804'_126
du_replicate_250 Integer
v0 Any
v5
du_replicate_250 :: Integer -> AgdaAny -> T_Vec'8804'_126
du_replicate_250 :: Integer -> Any -> T_Vec'8804'_126
du_replicate_250 Integer
v0 Any
v1
= (Integer -> T_Vec_28 -> T_Vec'8804'_126)
-> Integer -> Any -> T_Vec'8804'_126
forall a b. a -> b
coe
Integer -> T_Vec_28 -> T_Vec'8804'_126
C__'44'__144 Integer
v0
((Integer -> Any -> T_Vec_28) -> Any -> Any -> Any
forall a b. a -> b
coe Integer -> Any -> T_Vec_28
MAlonzo.Code.Data.Vec.Base.du_replicate_444 (Integer -> Any
forall a b. a -> b
coe Integer
v0) (Any -> Any
forall a b. a -> b
coe Any
v1))
d_'91''93'_256 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> Integer -> T_Vec'8804'_126
d_'91''93'_256 :: () -> () -> Integer -> T_Vec'8804'_126
d_'91''93'_256 ~()
v0 ~()
v1 ~Integer
v2 = T_Vec'8804'_126
du_'91''93'_256
du_'91''93'_256 :: T_Vec'8804'_126
du_'91''93'_256 :: T_Vec'8804'_126
du_'91''93'_256
= (Integer -> T_Vec_28 -> T_Vec'8804'_126)
-> Integer -> Any -> T_Vec'8804'_126
forall a b. a -> b
coe
Integer -> T_Vec_28 -> T_Vec'8804'_126
C__'44'__144 (Integer
0 :: Integer)
(T_Vec_28 -> Any
forall a b. a -> b
coe T_Vec_28
MAlonzo.Code.Data.Vec.Base.C_'91''93'_32)
d__'8759'__258 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> Integer -> AgdaAny -> T_Vec'8804'_126 -> T_Vec'8804'_126
d__'8759'__258 :: () -> () -> Integer -> Any -> T_Vec'8804'_126 -> T_Vec'8804'_126
d__'8759'__258 ~()
v0 ~()
v1 ~Integer
v2 Any
v3 T_Vec'8804'_126
v4 = Any -> T_Vec'8804'_126 -> T_Vec'8804'_126
du__'8759'__258 Any
v3 T_Vec'8804'_126
v4
du__'8759'__258 :: AgdaAny -> T_Vec'8804'_126 -> T_Vec'8804'_126
du__'8759'__258 :: Any -> T_Vec'8804'_126 -> T_Vec'8804'_126
du__'8759'__258 Any
v0 T_Vec'8804'_126
v1
= case T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
v1 of
C__'44'__144 Integer
v2 T_Vec_28
v3
-> (Integer -> T_Vec_28 -> T_Vec'8804'_126)
-> Integer -> Any -> T_Vec'8804'_126
forall a b. a -> b
coe
Integer -> T_Vec_28 -> T_Vec'8804'_126
C__'44'__144 (Integer -> Integer -> Integer
addInt (Integer -> Integer
forall a b. a -> b
coe (Integer
1 :: Integer)) (Integer -> Integer
forall a b. a -> b
coe Integer
v2))
((Any -> T_Vec_28 -> T_Vec_28) -> Any -> T_Vec_28 -> Any
forall a b. a -> b
coe Any -> T_Vec_28 -> T_Vec_28
MAlonzo.Code.Data.Vec.Base.C__'8759'__38 Any
v0 T_Vec_28
v3)
T_Vec'8804'_126
_ -> T_Vec'8804'_126
forall a. a
MAlonzo.RTE.mazUnreachableError
d_'8804''45'cast_268 ::
Integer ->
Integer ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Data.Nat.Base.T__'8804'__22 ->
T_Vec'8804'_126 -> T_Vec'8804'_126
d_'8804''45'cast_268 :: Integer
-> Integer
-> ()
-> ()
-> T__'8804'__22
-> T_Vec'8804'_126
-> T_Vec'8804'_126
d_'8804''45'cast_268 ~Integer
v0 ~Integer
v1 ~()
v2 ~()
v3 ~T__'8804'__22
v4 T_Vec'8804'_126
v5
= T_Vec'8804'_126 -> T_Vec'8804'_126
du_'8804''45'cast_268 T_Vec'8804'_126
v5
du_'8804''45'cast_268 :: T_Vec'8804'_126 -> T_Vec'8804'_126
du_'8804''45'cast_268 :: T_Vec'8804'_126 -> T_Vec'8804'_126
du_'8804''45'cast_268 T_Vec'8804'_126
v0 = T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
v0
d_'8801''45'cast_278 ::
Integer ->
Integer ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 ->
T_Vec'8804'_126 -> T_Vec'8804'_126
d_'8801''45'cast_278 :: Integer
-> Integer
-> ()
-> ()
-> T__'8801'__12
-> T_Vec'8804'_126
-> T_Vec'8804'_126
d_'8801''45'cast_278 ~Integer
v0 ~Integer
v1 ~()
v2 ~()
v3 ~T__'8801'__12
v4 T_Vec'8804'_126
v5
= T_Vec'8804'_126 -> T_Vec'8804'_126
du_'8801''45'cast_278 T_Vec'8804'_126
v5
du_'8801''45'cast_278 :: T_Vec'8804'_126 -> T_Vec'8804'_126
du_'8801''45'cast_278 :: T_Vec'8804'_126 -> T_Vec'8804'_126
du_'8801''45'cast_278 T_Vec'8804'_126
v0 = T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
v0
d_map_282 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
Integer ->
(AgdaAny -> AgdaAny) -> T_Vec'8804'_126 -> T_Vec'8804'_126
d_map_282 :: ()
-> ()
-> ()
-> ()
-> Integer
-> (Any -> Any)
-> T_Vec'8804'_126
-> T_Vec'8804'_126
d_map_282 ~()
v0 ~()
v1 ~()
v2 ~()
v3 ~Integer
v4 Any -> Any
v5 T_Vec'8804'_126
v6 = (Any -> Any) -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_map_282 Any -> Any
v5 T_Vec'8804'_126
v6
du_map_282 ::
(AgdaAny -> AgdaAny) -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_map_282 :: (Any -> Any) -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_map_282 Any -> Any
v0 T_Vec'8804'_126
v1
= case T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
v1 of
C__'44'__144 Integer
v2 T_Vec_28
v3
-> (Integer -> T_Vec_28 -> T_Vec'8804'_126)
-> Integer -> Any -> T_Vec'8804'_126
forall a b. a -> b
coe
Integer -> T_Vec_28 -> T_Vec'8804'_126
C__'44'__144 Integer
v2
(((Any -> Any) -> T_Vec_28 -> T_Vec_28) -> Any -> Any -> Any
forall a b. a -> b
coe (Any -> Any) -> T_Vec_28 -> T_Vec_28
MAlonzo.Code.Data.Vec.Base.du_map_178 ((Any -> Any) -> Any
forall a b. a -> b
coe Any -> Any
v0) (T_Vec_28 -> Any
forall a b. a -> b
coe T_Vec_28
v3))
T_Vec'8804'_126
_ -> T_Vec'8804'_126
forall a. a
MAlonzo.RTE.mazUnreachableError
d_reverse_290 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> Integer -> T_Vec'8804'_126 -> T_Vec'8804'_126
d_reverse_290 :: () -> () -> Integer -> T_Vec'8804'_126 -> T_Vec'8804'_126
d_reverse_290 ~()
v0 ~()
v1 ~Integer
v2 T_Vec'8804'_126
v3 = T_Vec'8804'_126 -> T_Vec'8804'_126
du_reverse_290 T_Vec'8804'_126
v3
du_reverse_290 :: T_Vec'8804'_126 -> T_Vec'8804'_126
du_reverse_290 :: T_Vec'8804'_126 -> T_Vec'8804'_126
du_reverse_290 T_Vec'8804'_126
v0
= case T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
v0 of
C__'44'__144 Integer
v1 T_Vec_28
v2
-> (Integer -> T_Vec_28 -> T_Vec'8804'_126)
-> Integer -> Any -> T_Vec'8804'_126
forall a b. a -> b
coe
Integer -> T_Vec_28 -> T_Vec'8804'_126
C__'44'__144 Integer
v1 ((T_Vec_28 -> T_Vec_28) -> T_Vec_28 -> Any
forall a b. a -> b
coe T_Vec_28 -> T_Vec_28
MAlonzo.Code.Data.Vec.Base.du_reverse_616 T_Vec_28
v2)
T_Vec'8804'_126
_ -> T_Vec'8804'_126
forall a. a
MAlonzo.RTE.mazUnreachableError
d_alignWith_296 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
Integer ->
(MAlonzo.Code.Data.These.Base.T_These_38 -> AgdaAny) ->
T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
d_alignWith_296 :: ()
-> ()
-> ()
-> ()
-> ()
-> ()
-> Integer
-> (T_These_38 -> Any)
-> T_Vec'8804'_126
-> T_Vec'8804'_126
-> T_Vec'8804'_126
d_alignWith_296 ~()
v0 ~()
v1 ~()
v2 ~()
v3 ~()
v4 ~()
v5 ~Integer
v6 T_These_38 -> Any
v7 T_Vec'8804'_126
v8 T_Vec'8804'_126
v9
= (T_These_38 -> Any)
-> T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_alignWith_296 T_These_38 -> Any
v7 T_Vec'8804'_126
v8 T_Vec'8804'_126
v9
du_alignWith_296 ::
(MAlonzo.Code.Data.These.Base.T_These_38 -> AgdaAny) ->
T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_alignWith_296 :: (T_These_38 -> Any)
-> T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_alignWith_296 T_These_38 -> Any
v0 T_Vec'8804'_126
v1 T_Vec'8804'_126
v2
= case T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
v1 of
C__'44'__144 Integer
v3 T_Vec_28
v4
-> case T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
v2 of
C__'44'__144 Integer
v6 T_Vec_28
v7
-> (Integer -> T_Vec_28 -> T_Vec'8804'_126)
-> Integer -> Any -> T_Vec'8804'_126
forall a b. a -> b
coe
Integer -> T_Vec_28 -> T_Vec'8804'_126
C__'44'__144
(Integer -> Integer -> Integer
MAlonzo.Code.Data.Nat.Base.d__'8852'__204 (Integer -> Integer
forall a b. a -> b
coe Integer
v3) (Integer -> Integer
forall a b. a -> b
coe Integer
v6))
(((T_These_38 -> Any) -> T_Vec_28 -> T_Vec_28 -> T_Vec_28)
-> Any -> Any -> Any -> Any
forall a b. a -> b
coe
(T_These_38 -> Any) -> T_Vec_28 -> T_Vec_28 -> T_Vec_28
MAlonzo.Code.Data.Vec.Base.du_alignWith_204 ((T_These_38 -> Any) -> Any
forall a b. a -> b
coe T_These_38 -> Any
v0) (T_Vec_28 -> Any
forall a b. a -> b
coe T_Vec_28
v4)
(T_Vec_28 -> Any
forall a b. a -> b
coe T_Vec_28
v7))
T_Vec'8804'_126
_ -> T_Vec'8804'_126
forall a. a
MAlonzo.RTE.mazUnreachableError
T_Vec'8804'_126
_ -> T_Vec'8804'_126
forall a. a
MAlonzo.RTE.mazUnreachableError
d_zipWith_308 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
Integer ->
(AgdaAny -> AgdaAny -> AgdaAny) ->
T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
d_zipWith_308 :: ()
-> ()
-> ()
-> ()
-> ()
-> ()
-> Integer
-> (Any -> Any -> Any)
-> T_Vec'8804'_126
-> T_Vec'8804'_126
-> T_Vec'8804'_126
d_zipWith_308 ~()
v0 ~()
v1 ~()
v2 ~()
v3 ~()
v4 ~()
v5 ~Integer
v6 Any -> Any -> Any
v7 T_Vec'8804'_126
v8 T_Vec'8804'_126
v9
= (Any -> Any -> Any)
-> T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_zipWith_308 Any -> Any -> Any
v7 T_Vec'8804'_126
v8 T_Vec'8804'_126
v9
du_zipWith_308 ::
(AgdaAny -> AgdaAny -> AgdaAny) ->
T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_zipWith_308 :: (Any -> Any -> Any)
-> T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_zipWith_308 Any -> Any -> Any
v0 T_Vec'8804'_126
v1 T_Vec'8804'_126
v2
= case T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
v1 of
C__'44'__144 Integer
v3 T_Vec_28
v4
-> case T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
v2 of
C__'44'__144 Integer
v6 T_Vec_28
v7
-> (Integer -> T_Vec_28 -> T_Vec'8804'_126)
-> Integer -> Any -> T_Vec'8804'_126
forall a b. a -> b
coe
Integer -> T_Vec_28 -> T_Vec'8804'_126
C__'44'__144
(Integer -> Integer -> Integer
MAlonzo.Code.Data.Nat.Base.d__'8851'__232 (Integer -> Integer
forall a b. a -> b
coe Integer
v3) (Integer -> Integer
forall a b. a -> b
coe Integer
v6))
(((Any -> Any -> Any) -> T_Vec_28 -> T_Vec_28 -> T_Vec_28)
-> Any -> Any -> Any -> Any
forall a b. a -> b
coe
(Any -> Any -> Any) -> T_Vec_28 -> T_Vec_28 -> T_Vec_28
MAlonzo.Code.Data.Vec.Base.du_restrictWith_224 ((Any -> Any -> Any) -> Any
forall a b. a -> b
coe Any -> Any -> Any
v0) (T_Vec_28 -> Any
forall a b. a -> b
coe T_Vec_28
v4)
(T_Vec_28 -> Any
forall a b. a -> b
coe T_Vec_28
v7))
T_Vec'8804'_126
_ -> T_Vec'8804'_126
forall a. a
MAlonzo.RTE.mazUnreachableError
T_Vec'8804'_126
_ -> T_Vec'8804'_126
forall a. a
MAlonzo.RTE.mazUnreachableError
d_zip_320 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
Integer ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
d_zip_320 :: ()
-> ()
-> Integer
-> ()
-> ()
-> T_Vec'8804'_126
-> T_Vec'8804'_126
-> T_Vec'8804'_126
d_zip_320 ~()
v0 ~()
v1 ~Integer
v2 ~()
v3 ~()
v4 = T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_zip_320
du_zip_320 :: T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_zip_320 :: T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_zip_320
= ((Any -> Any -> Any)
-> T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126)
-> Any -> T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe
(Any -> Any -> Any)
-> T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_zipWith_308 ((Any -> Any -> T_Σ_14) -> Any
forall a b. a -> b
coe Any -> Any -> T_Σ_14
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32)
d_align_322 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
Integer ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
d_align_322 :: ()
-> ()
-> Integer
-> ()
-> ()
-> T_Vec'8804'_126
-> T_Vec'8804'_126
-> T_Vec'8804'_126
d_align_322 ~()
v0 ~()
v1 ~Integer
v2 ~()
v3 ~()
v4 = T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_align_322
du_align_322 ::
T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_align_322 :: T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_align_322 = ((T_These_38 -> Any)
-> T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126)
-> Any -> T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe (T_These_38 -> Any)
-> T_Vec'8804'_126 -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_alignWith_296 ((Any -> Any) -> Any
forall a b. a -> b
coe (\ Any
v0 -> Any
v0))
d_take_326 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> Integer -> Integer -> T_Vec'8804'_126 -> T_Vec'8804'_126
d_take_326 :: ()
-> () -> Integer -> Integer -> T_Vec'8804'_126 -> T_Vec'8804'_126
d_take_326 ~()
v0 ~()
v1 ~Integer
v2 Integer
v3 T_Vec'8804'_126
v4 = Integer -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_take_326 Integer
v3 T_Vec'8804'_126
v4
du_take_326 :: Integer -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_take_326 :: Integer -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_take_326 Integer
v0 T_Vec'8804'_126
v1
= case Integer -> Integer
forall a b. a -> b
coe Integer
v0 of
Integer
0 -> T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
du_'91''93'_256
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
Any -> T_Vec'8804'_126
forall a b. a -> b
coe
(case T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
v1 of
C__'44'__144 Integer
v3 T_Vec_28
v4
-> case T_Vec_28 -> T_Vec_28
forall a b. a -> b
coe T_Vec_28
v4 of
T_Vec_28
MAlonzo.Code.Data.Vec.Base.C_'91''93'_32 -> T_Vec'8804'_126 -> Any
forall a b. a -> b
coe T_Vec'8804'_126
du_'91''93'_256
MAlonzo.Code.Data.Vec.Base.C__'8759'__38 Any
v7 T_Vec_28
v8
-> let v9 :: Integer
v9 = Integer -> Integer -> Integer
subInt (Integer -> Integer
forall a b. a -> b
coe Integer
v3) (Integer -> Integer
forall a b. a -> b
coe (Integer
1 :: Integer)) in
Any -> Any
forall a b. a -> b
coe
((Any -> T_Vec'8804'_126 -> T_Vec'8804'_126) -> Any -> Any -> Any
forall a b. a -> b
coe
Any -> T_Vec'8804'_126 -> T_Vec'8804'_126
du__'8759'__258 (Any -> Any
forall a b. a -> b
coe Any
v7)
((Integer -> T_Vec'8804'_126 -> T_Vec'8804'_126)
-> Any -> Any -> Any
forall a b. a -> b
coe Integer -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_take_326 (Integer -> Any
forall a b. a -> b
coe Integer
v2) ((Integer -> T_Vec_28 -> T_Vec'8804'_126)
-> Integer -> T_Vec_28 -> Any
forall a b. a -> b
coe Integer -> T_Vec_28 -> T_Vec'8804'_126
C__'44'__144 Integer
v9 T_Vec_28
v8)))
T_Vec_28
_ -> Any
forall a. a
MAlonzo.RTE.mazUnreachableError
T_Vec'8804'_126
_ -> Any
forall a. a
MAlonzo.RTE.mazUnreachableError)
d_drop_344 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> Integer -> Integer -> T_Vec'8804'_126 -> T_Vec'8804'_126
d_drop_344 :: ()
-> () -> Integer -> Integer -> T_Vec'8804'_126 -> T_Vec'8804'_126
d_drop_344 ~()
v0 ~()
v1 ~Integer
v2 Integer
v3 T_Vec'8804'_126
v4 = Integer -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_drop_344 Integer
v3 T_Vec'8804'_126
v4
du_drop_344 :: Integer -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_drop_344 :: Integer -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_drop_344 Integer
v0 T_Vec'8804'_126
v1
= case Integer -> Integer
forall a b. a -> b
coe Integer
v0 of
Integer
0 -> T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
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
Any -> T_Vec'8804'_126
forall a b. a -> b
coe
(case T_Vec'8804'_126 -> T_Vec'8804'_126
forall a b. a -> b
coe T_Vec'8804'_126
v1 of
C__'44'__144 Integer
v3 T_Vec_28
v4
-> case T_Vec_28 -> T_Vec_28
forall a b. a -> b
coe T_Vec_28
v4 of
T_Vec_28
MAlonzo.Code.Data.Vec.Base.C_'91''93'_32 -> T_Vec'8804'_126 -> Any
forall a b. a -> b
coe T_Vec'8804'_126
du_'91''93'_256
MAlonzo.Code.Data.Vec.Base.C__'8759'__38 Any
v7 T_Vec_28
v8
-> let v9 :: Integer
v9 = Integer -> Integer -> Integer
subInt (Integer -> Integer
forall a b. a -> b
coe Integer
v3) (Integer -> Integer
forall a b. a -> b
coe (Integer
1 :: Integer)) in
Any -> Any
forall a b. a -> b
coe ((Integer -> T_Vec'8804'_126 -> T_Vec'8804'_126)
-> Any -> Any -> Any
forall a b. a -> b
coe Integer -> T_Vec'8804'_126 -> T_Vec'8804'_126
du_drop_344 (Integer -> Any
forall a b. a -> b
coe Integer
v2) ((Integer -> T_Vec_28 -> T_Vec'8804'_126)
-> Integer -> T_Vec_28 -> Any
forall a b. a -> b
coe Integer -> T_Vec_28 -> T_Vec'8804'_126
C__'44'__144 Integer
v9 T_Vec_28
v8))
T_Vec_28
_ -> Any
forall a. a
MAlonzo.RTE.mazUnreachableError
T_Vec'8804'_126
_ -> Any
forall a. a
MAlonzo.RTE.mazUnreachableError)
d_rectangle_362 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
[MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14] ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_rectangle_362 :: () -> () -> [T_Σ_14] -> T_Σ_14
d_rectangle_362 ~()
v0 ~()
v1 [T_Σ_14]
v2 = [T_Σ_14] -> T_Σ_14
du_rectangle_362 [T_Σ_14]
v2
du_rectangle_362 ::
[MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14] ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_rectangle_362 :: [T_Σ_14] -> T_Σ_14
du_rectangle_362 [T_Σ_14]
v0
= (Any -> Any -> T_Σ_14) -> Any -> Any -> T_Σ_14
forall a b. a -> b
coe
Any -> Any -> T_Σ_14
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32
(([T_Σ_14] -> Integer) -> Any -> Any
forall a b. a -> b
coe [T_Σ_14] -> Integer
du_width_374 ([T_Σ_14] -> Any
forall a b. a -> b
coe [T_Σ_14]
v0)) (([T_Σ_14] -> [T_Vec'8804'_126]) -> Any -> Any
forall a b. a -> b
coe [T_Σ_14] -> [T_Vec'8804'_126]
du_padded_380 ([T_Σ_14] -> Any
forall a b. a -> b
coe [T_Σ_14]
v0))
d_sizes_372 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14] -> [Integer]
d_sizes_372 :: () -> () -> [T_Σ_14] -> [Integer]
d_sizes_372 ~()
v0 ~()
v1 [T_Σ_14]
v2 = [T_Σ_14] -> [Integer]
du_sizes_372 [T_Σ_14]
v2
du_sizes_372 ::
[MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14] -> [Integer]
du_sizes_372 :: [T_Σ_14] -> [Integer]
du_sizes_372 [T_Σ_14]
v0
= ((Any -> Any) -> [Any] -> [Any]) -> Any -> Any -> [Integer]
forall a b. a -> b
coe
(Any -> Any) -> [Any] -> [Any]
MAlonzo.Code.Data.List.Base.du_map_22
((Any -> Any) -> Any
forall a b. a -> b
coe (\ Any
v1 -> T_Σ_14 -> Any
MAlonzo.Code.Agda.Builtin.Sigma.d_fst_28 (Any -> T_Σ_14
forall a b. a -> b
coe Any
v1)))
([T_Σ_14] -> Any
forall a b. a -> b
coe [T_Σ_14]
v0)
d_width_374 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14] -> Integer
d_width_374 :: () -> () -> [T_Σ_14] -> Integer
d_width_374 ~()
v0 ~()
v1 [T_Σ_14]
v2 = [T_Σ_14] -> Integer
du_width_374 [T_Σ_14]
v2
du_width_374 :: [MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14] -> Integer
du_width_374 :: [T_Σ_14] -> Integer
du_width_374 [T_Σ_14]
v0
= (T_TotalOrder_764 -> Any -> [Any] -> Any)
-> T_TotalOrder_764 -> Integer -> Any -> Integer
forall a b. a -> b
coe
T_TotalOrder_764 -> Any -> [Any] -> Any
MAlonzo.Code.Data.List.Extrema.du_max_142
T_TotalOrder_764
MAlonzo.Code.Data.Nat.Properties.d_'8804''45'totalOrder_2826
(Integer
0 :: Integer) (([T_Σ_14] -> [Integer]) -> Any -> Any
forall a b. a -> b
coe [T_Σ_14] -> [Integer]
du_sizes_372 ([T_Σ_14] -> Any
forall a b. a -> b
coe [T_Σ_14]
v0))
d_all'8804'_378 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
[MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14] ->
MAlonzo.Code.Data.List.Relation.Unary.All.T_All_44
d_all'8804'_378 :: () -> () -> [T_Σ_14] -> T_All_44
d_all'8804'_378 ~()
v0 ~()
v1 [T_Σ_14]
v2 = [T_Σ_14] -> T_All_44
du_all'8804'_378 [T_Σ_14]
v2
du_all'8804'_378 ::
[MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14] ->
MAlonzo.Code.Data.List.Relation.Unary.All.T_All_44
du_all'8804'_378 :: [T_Σ_14] -> T_All_44
du_all'8804'_378 [T_Σ_14]
v0
= ([Any] -> T_All_44 -> T_All_44) -> Any -> Any -> T_All_44
forall a b. a -> b
coe
[Any] -> T_All_44 -> T_All_44
MAlonzo.Code.Data.List.Relation.Unary.All.Properties.du_map'8315'_684
([T_Σ_14] -> Any
forall a b. a -> b
coe [T_Σ_14]
v0)
((T_TotalOrder_764 -> Any -> [Any] -> T_All_44)
-> T_TotalOrder_764 -> Integer -> Any -> Any
forall a b. a -> b
coe
T_TotalOrder_764 -> Any -> [Any] -> T_All_44
MAlonzo.Code.Data.List.Extrema.du_xs'8804'max_720
T_TotalOrder_764
MAlonzo.Code.Data.Nat.Properties.d_'8804''45'totalOrder_2826
(Integer
0 :: Integer) (([T_Σ_14] -> [Integer]) -> Any -> Any
forall a b. a -> b
coe [T_Σ_14] -> [Integer]
du_sizes_372 ([T_Σ_14] -> Any
forall a b. a -> b
coe [T_Σ_14]
v0)))
d_padded_380 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() -> [MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14] -> [T_Vec'8804'_126]
d_padded_380 :: () -> () -> [T_Σ_14] -> [T_Vec'8804'_126]
d_padded_380 ~()
v0 ~()
v1 [T_Σ_14]
v2 = [T_Σ_14] -> [T_Vec'8804'_126]
du_padded_380 [T_Σ_14]
v2
du_padded_380 ::
[MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14] -> [T_Vec'8804'_126]
du_padded_380 :: [T_Σ_14] -> [T_Vec'8804'_126]
du_padded_380 [T_Σ_14]
v0
= (T_Setoid_44 -> [Any] -> (Any -> T_Any_34 -> Any) -> [Any])
-> Any -> Any -> Any -> [T_Vec'8804'_126]
forall a b. a -> b
coe
T_Setoid_44 -> [Any] -> (Any -> T_Any_34 -> Any) -> [Any]
MAlonzo.Code.Data.List.Membership.Setoid.du_mapWith'8712'_62
(T_Setoid_44 -> Any
forall a b. a -> b
coe
T_Setoid_44
MAlonzo.Code.Relation.Binary.PropositionalEquality.Properties.du_setoid_402)
([T_Σ_14] -> Any
forall a b. a -> b
coe [T_Σ_14]
v0)
((Any -> Any -> Any) -> Any
forall a b. a -> b
coe
(\ Any
v1 Any
v2 -> T_Σ_14 -> Any
MAlonzo.Code.Agda.Builtin.Sigma.d_snd_30 (Any -> T_Σ_14
forall a b. a -> b
coe Any
v1)))