{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE EmptyCase #-}
{-# LANGUAGE EmptyDataDecls #-}
{-# LANGUAGE ExistentialQuantification #-}
{-# LANGUAGE NoMonomorphismRestriction #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# OPTIONS_GHC -Wno-overlapping-patterns #-}
module MAlonzo.Code.Data.List.Relation.Binary.Pointwise 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.Sigma
import qualified MAlonzo.Code.Agda.Primitive
import qualified MAlonzo.Code.Data.Fin.Base
import qualified MAlonzo.Code.Data.List.Base
import qualified MAlonzo.Code.Data.List.Properties
import qualified MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base
import qualified MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Properties
import qualified MAlonzo.Code.Data.List.Relation.Unary.All
import qualified MAlonzo.Code.Data.List.Relation.Unary.AllPairs.Core
import qualified MAlonzo.Code.Data.List.Relation.Unary.Any
import qualified MAlonzo.Code.Function.Equality
import qualified MAlonzo.Code.Function.Inverse
import qualified MAlonzo.Code.Relation.Binary.Bundles
import qualified MAlonzo.Code.Relation.Binary.Structures
import qualified MAlonzo.Code.Relation.Nullary
import qualified MAlonzo.Code.Relation.Nullary.Negation.Core
d_isEquivalence_56 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
MAlonzo.Code.Relation.Binary.Structures.T_IsEquivalence_26 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsEquivalence_26
d_isEquivalence_56 ~v0 ~v1 ~v2 ~v3 v4 = du_isEquivalence_56 v4
du_isEquivalence_56 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsEquivalence_26 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsEquivalence_26
du_isEquivalence_56 v0
= coe
MAlonzo.Code.Relation.Binary.Structures.C_IsEquivalence'46'constructor_519
(coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Properties.du_refl_30
(coe MAlonzo.Code.Relation.Binary.Structures.d_refl_34 (coe v0)))
(coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Properties.du_symmetric_40
(coe MAlonzo.Code.Relation.Binary.Structures.d_sym_36 (coe v0)))
(coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Properties.du_transitive_50
(coe MAlonzo.Code.Relation.Binary.Structures.d_trans_38 (coe v0)))
d_isDecEquivalence_76 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
MAlonzo.Code.Relation.Binary.Structures.T_IsDecEquivalence_44 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsDecEquivalence_44
d_isDecEquivalence_76 ~v0 ~v1 ~v2 ~v3 v4
= du_isDecEquivalence_76 v4
du_isDecEquivalence_76 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsDecEquivalence_44 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsDecEquivalence_44
du_isDecEquivalence_76 v0
= coe
MAlonzo.Code.Relation.Binary.Structures.C_IsDecEquivalence'46'constructor_1689
(coe
du_isEquivalence_56
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isEquivalence_50
(coe v0)))
(coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Properties.du_decidable_112
(coe
MAlonzo.Code.Relation.Binary.Structures.d__'8799'__52 (coe v0)))
d_isPreorder_100 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
MAlonzo.Code.Relation.Binary.Structures.T_IsPreorder_70 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsPreorder_70
d_isPreorder_100 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 = du_isPreorder_100 v6
du_isPreorder_100 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsPreorder_70 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsPreorder_70
du_isPreorder_100 v0
= coe
MAlonzo.Code.Relation.Binary.Structures.C_IsPreorder'46'constructor_2409
(coe
du_isEquivalence_56
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isEquivalence_80
(coe v0)))
(coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Properties.du_reflexive_28
(MAlonzo.Code.Relation.Binary.Structures.d_reflexive_82 (coe v0)))
(coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Properties.du_transitive_50
(coe MAlonzo.Code.Relation.Binary.Structures.d_trans_84 (coe v0)))
d_isPartialOrder_136 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
MAlonzo.Code.Relation.Binary.Structures.T_IsPartialOrder_162 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsPartialOrder_162
d_isPartialOrder_136 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6
= du_isPartialOrder_136 v6
du_isPartialOrder_136 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsPartialOrder_162 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsPartialOrder_162
du_isPartialOrder_136 v0
= coe
MAlonzo.Code.Relation.Binary.Structures.C_IsPartialOrder'46'constructor_6659
(coe
du_isPreorder_100
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isPreorder_170 (coe v0)))
(coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Properties.du_antisymmetric_64
(coe
MAlonzo.Code.Relation.Binary.Structures.d_antisym_172 (coe v0)))
d_setoid_176 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Relation.Binary.Bundles.T_Setoid_44 ->
MAlonzo.Code.Relation.Binary.Bundles.T_Setoid_44
d_setoid_176 ~v0 ~v1 v2 = du_setoid_176 v2
du_setoid_176 ::
MAlonzo.Code.Relation.Binary.Bundles.T_Setoid_44 ->
MAlonzo.Code.Relation.Binary.Bundles.T_Setoid_44
du_setoid_176 v0
= coe
MAlonzo.Code.Relation.Binary.Bundles.C_Setoid'46'constructor_575
(coe
du_isEquivalence_56
(coe
MAlonzo.Code.Relation.Binary.Bundles.d_isEquivalence_60 (coe v0)))
d_decSetoid_180 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Relation.Binary.Bundles.T_DecSetoid_84 ->
MAlonzo.Code.Relation.Binary.Bundles.T_DecSetoid_84
d_decSetoid_180 ~v0 ~v1 v2 = du_decSetoid_180 v2
du_decSetoid_180 ::
MAlonzo.Code.Relation.Binary.Bundles.T_DecSetoid_84 ->
MAlonzo.Code.Relation.Binary.Bundles.T_DecSetoid_84
du_decSetoid_180 v0
= coe
MAlonzo.Code.Relation.Binary.Bundles.C_DecSetoid'46'constructor_1131
(coe
du_isDecEquivalence_76
(coe
MAlonzo.Code.Relation.Binary.Bundles.d_isDecEquivalence_100
(coe v0)))
d_preorder_184 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Relation.Binary.Bundles.T_Preorder_132 ->
MAlonzo.Code.Relation.Binary.Bundles.T_Preorder_132
d_preorder_184 ~v0 ~v1 ~v2 v3 = du_preorder_184 v3
du_preorder_184 ::
MAlonzo.Code.Relation.Binary.Bundles.T_Preorder_132 ->
MAlonzo.Code.Relation.Binary.Bundles.T_Preorder_132
du_preorder_184 v0
= coe
MAlonzo.Code.Relation.Binary.Bundles.C_Preorder'46'constructor_1855
(coe
du_isPreorder_100
(coe
MAlonzo.Code.Relation.Binary.Bundles.d_isPreorder_154 (coe v0)))
d_poset_188 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Relation.Binary.Bundles.T_Poset_282 ->
MAlonzo.Code.Relation.Binary.Bundles.T_Poset_282
d_poset_188 ~v0 ~v1 ~v2 v3 = du_poset_188 v3
du_poset_188 ::
MAlonzo.Code.Relation.Binary.Bundles.T_Poset_282 ->
MAlonzo.Code.Relation.Binary.Bundles.T_Poset_282
du_poset_188 v0
= coe
MAlonzo.Code.Relation.Binary.Bundles.C_Poset'46'constructor_4405
(coe
du_isPartialOrder_136
(coe
MAlonzo.Code.Relation.Binary.Bundles.d_isPartialOrder_304
(coe v0)))
d_All'45'resp'45'Pointwise_194 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
(AgdaAny -> ()) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Unary.All.T_All_44 ->
MAlonzo.Code.Data.List.Relation.Unary.All.T_All_44
d_All'45'resp'45'Pointwise_194 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 v8 v9
v10
= du_All'45'resp'45'Pointwise_194 v6 v7 v8 v9 v10
du_All'45'resp'45'Pointwise_194 ::
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Unary.All.T_All_44 ->
MAlonzo.Code.Data.List.Relation.Unary.All.T_All_44
du_All'45'resp'45'Pointwise_194 v0 v1 v2 v3 v4
= case coe v3 of
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C_'91''93'_56
-> coe
seq (coe v4)
(coe MAlonzo.Code.Data.List.Relation.Unary.All.C_'91''93'_50)
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 v9 v10
-> case coe v1 of
(:) v11 v12
-> case coe v2 of
(:) v13 v14
-> case coe v4 of
MAlonzo.Code.Data.List.Relation.Unary.All.C__'8759'__60 v17 v18
-> coe
MAlonzo.Code.Data.List.Relation.Unary.All.C__'8759'__60
(coe v0 v11 v13 v9 v17)
(coe
du_All'45'resp'45'Pointwise_194 (coe v0) (coe v12) (coe v14)
(coe v10) (coe v18))
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_Any'45'resp'45'Pointwise_210 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
(AgdaAny -> ()) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34
d_Any'45'resp'45'Pointwise_210 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 v8 v9
v10
= du_Any'45'resp'45'Pointwise_210 v6 v7 v8 v9 v10
du_Any'45'resp'45'Pointwise_210 ::
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 ->
MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34
du_Any'45'resp'45'Pointwise_210 v0 v1 v2 v3 v4
= case coe v3 of
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 v9 v10
-> case coe v1 of
(:) v11 v12
-> case coe v2 of
(:) v13 v14
-> case coe v4 of
MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46 v17
-> coe
MAlonzo.Code.Data.List.Relation.Unary.Any.C_here_46
(coe v0 v11 v13 v9 v17)
MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54 v17
-> coe
MAlonzo.Code.Data.List.Relation.Unary.Any.C_there_54
(coe
du_Any'45'resp'45'Pointwise_210 (coe v0) (coe v12) (coe v14)
(coe v10) (coe v17))
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_AllPairs'45'resp'45'Pointwise_228 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Unary.AllPairs.Core.T_AllPairs_20 ->
MAlonzo.Code.Data.List.Relation.Unary.AllPairs.Core.T_AllPairs_20
d_AllPairs'45'resp'45'Pointwise_228 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7
v8 v9 v10
= du_AllPairs'45'resp'45'Pointwise_228 v6 v7 v8 v9 v10
du_AllPairs'45'resp'45'Pointwise_228 ::
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Unary.AllPairs.Core.T_AllPairs_20 ->
MAlonzo.Code.Data.List.Relation.Unary.AllPairs.Core.T_AllPairs_20
du_AllPairs'45'resp'45'Pointwise_228 v0 v1 v2 v3 v4
= case coe v3 of
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C_'91''93'_56
-> coe
seq (coe v4)
(coe
MAlonzo.Code.Data.List.Relation.Unary.AllPairs.Core.C_'91''93'_22)
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 v9 v10
-> case coe v1 of
(:) v11 v12
-> case coe v2 of
(:) v13 v14
-> case coe v0 of
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v15 v16
-> case coe v4 of
MAlonzo.Code.Data.List.Relation.Unary.AllPairs.Core.C__'8759'__28 v19 v20
-> coe
MAlonzo.Code.Data.List.Relation.Unary.AllPairs.Core.C__'8759'__28
(coe
du_All'45'resp'45'Pointwise_194 (coe v15 v13) (coe v12)
(coe v14) (coe v10)
(coe
MAlonzo.Code.Data.List.Relation.Unary.All.du_map_166
(coe (\ v21 -> coe v16 v21 v11 v13 v9)) (coe v12)
(coe v19)))
(coe
du_AllPairs'45'resp'45'Pointwise_228 (coe v0) (coe v12)
(coe v14) (coe v10) (coe v20))
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_Pointwise'45'length_244 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12
d_Pointwise'45'length_244 = erased
d_tabulate'8314'_258 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
Integer ->
(MAlonzo.Code.Data.Fin.Base.T_Fin_6 -> AgdaAny) ->
(MAlonzo.Code.Data.Fin.Base.T_Fin_6 -> AgdaAny) ->
(MAlonzo.Code.Data.Fin.Base.T_Fin_6 -> AgdaAny) ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
d_tabulate'8314'_258 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 ~v7 ~v8 v9
= du_tabulate'8314'_258 v6 v9
du_tabulate'8314'_258 ::
Integer ->
(MAlonzo.Code.Data.Fin.Base.T_Fin_6 -> AgdaAny) ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
du_tabulate'8314'_258 v0 v1
= case coe v0 of
0 -> coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C_'91''93'_56
_ -> let v2 = subInt (coe v0) (coe (1 :: Integer)) in
coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62
(coe v1 (coe MAlonzo.Code.Data.Fin.Base.C_zero_10))
(coe
du_tabulate'8314'_258 (coe v2)
(coe
(\ v3 -> coe v1 (coe MAlonzo.Code.Data.Fin.Base.C_suc_16 v3))))
d_tabulate'8315'_274 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
Integer ->
(MAlonzo.Code.Data.Fin.Base.T_Fin_6 -> AgdaAny) ->
(MAlonzo.Code.Data.Fin.Base.T_Fin_6 -> AgdaAny) ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.Fin.Base.T_Fin_6 -> AgdaAny
d_tabulate'8315'_274 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 ~v8 v9 v10
= du_tabulate'8315'_274 v9 v10
du_tabulate'8315'_274 ::
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.Fin.Base.T_Fin_6 -> AgdaAny
du_tabulate'8315'_274 v0 v1
= case coe v0 of
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 v6 v7
-> case coe v1 of
MAlonzo.Code.Data.Fin.Base.C_zero_10 -> coe v6
MAlonzo.Code.Data.Fin.Base.C_suc_16 v9
-> coe du_tabulate'8315'_274 (coe v7) (coe v9)
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_'43''43''8314'_290 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
[AgdaAny] ->
[AgdaAny] ->
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
d_'43''43''8314'_290 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 ~v8 ~v9 v10 v11
= du_'43''43''8314'_290 v6 v7 v10 v11
du_'43''43''8314'_290 ::
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
du_'43''43''8314'_290 v0 v1 v2 v3
= case coe v2 of
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C_'91''93'_56
-> coe v3
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 v8 v9
-> case coe v0 of
(:) v10 v11
-> case coe v1 of
(:) v12 v13
-> coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62
v8
(coe du_'43''43''8314'_290 (coe v11) (coe v13) (coe v9) (coe v3))
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_'43''43''45'cancel'737'_302 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
[AgdaAny] ->
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
d_'43''43''45'cancel'737'_302 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7
= du_'43''43''45'cancel'737'_302 v6 v7
du_'43''43''45'cancel'737'_302 ::
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
du_'43''43''45'cancel'737'_302 v0 v1
= case coe v0 of
[] -> coe v1
(:) v2 v3
-> case coe v1 of
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 v8 v9
-> coe du_'43''43''45'cancel'737'_302 (coe v3) (coe v9)
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_'43''43''45'cancel'691'_316 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
[AgdaAny] ->
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
d_'43''43''45'cancel'691'_316 ~v0 ~v1 ~v2 ~v3 ~v4 v5 v6 v7
= du_'43''43''45'cancel'691'_316 v5 v6 v7
du_'43''43''45'cancel'691'_316 ::
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
du_'43''43''45'cancel'691'_316 v0 v1 v2
= case coe v0 of
[]
-> case coe v1 of
[]
-> coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C_'91''93'_56
(:) v3 v4
-> coe
MAlonzo.Code.Relation.Nullary.Negation.Core.du_contradiction_24
_ -> MAlonzo.RTE.mazUnreachableError
(:) v3 v4
-> case coe v1 of
[]
-> coe
MAlonzo.Code.Relation.Nullary.Negation.Core.du_contradiction_24
(:) v5 v6
-> case coe v2 of
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 v11 v12
-> coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62
v11
(coe du_'43''43''45'cancel'691'_316 (coe v4) (coe v6) (coe v12))
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_concat'8314'_350 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
[[AgdaAny]] ->
[[AgdaAny]] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
d_concat'8314'_350 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 v8
= du_concat'8314'_350 v6 v7 v8
du_concat'8314'_350 ::
[[AgdaAny]] ->
[[AgdaAny]] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
du_concat'8314'_350 v0 v1 v2
= case coe v2 of
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C_'91''93'_56
-> coe v2
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 v7 v8
-> case coe v0 of
(:) v9 v10
-> case coe v1 of
(:) v11 v12
-> coe
du_'43''43''8314'_290 (coe v9) (coe v11) (coe v7)
(coe du_concat'8314'_350 (coe v10) (coe v12) (coe v8))
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_reverseAcc'8314'_356 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
[AgdaAny] ->
[AgdaAny] ->
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
d_reverseAcc'8314'_356 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 v8 v9 v10
v11
= du_reverseAcc'8314'_356 v8 v9 v10 v11
du_reverseAcc'8314'_356 ::
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
du_reverseAcc'8314'_356 v0 v1 v2 v3
= case coe v3 of
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C_'91''93'_56
-> coe v2
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 v8 v9
-> case coe v0 of
(:) v10 v11
-> case coe v1 of
(:) v12 v13
-> coe
du_reverseAcc'8314'_356 (coe v11) (coe v13)
(coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62
v8 v2)
(coe v9)
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_'691''43''43''8314'_366 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
[AgdaAny] ->
[AgdaAny] ->
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
d_'691''43''43''8314'_366 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 ~v8 ~v9 v10
v11
= du_'691''43''43''8314'_366 v6 v7 v10 v11
du_'691''43''43''8314'_366 ::
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
du_'691''43''43''8314'_366 v0 v1 v2 v3
= coe du_reverseAcc'8314'_356 (coe v0) (coe v1) (coe v3) (coe v2)
d_reverse'8314'_372 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
d_reverse'8314'_372 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7
= du_reverse'8314'_372 v6 v7
du_reverse'8314'_372 ::
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
du_reverse'8314'_372 v0 v1
= coe
du_reverseAcc'8314'_356 (coe v0) (coe v1)
(coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C_'91''93'_56)
d_map'8314'_382 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
[AgdaAny] ->
[AgdaAny] ->
(AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny) ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
d_map'8314'_382 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 ~v8 ~v9 v10 v11
~v12 ~v13 v14
= du_map'8314'_382 v10 v11 v14
du_map'8314'_382 ::
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
du_map'8314'_382 v0 v1 v2
= case coe v2 of
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C_'91''93'_56
-> coe v2
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 v7 v8
-> case coe v0 of
(:) v9 v10
-> case coe v1 of
(:) v11 v12
-> coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62
v7 (coe du_map'8314'_382 (coe v10) (coe v12) (coe v8))
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_map'8315'_404 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
[AgdaAny] ->
[AgdaAny] ->
(AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny) ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
d_map'8315'_404 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 ~v8 ~v9 v10 v11
~v12 ~v13 v14
= du_map'8315'_404 v10 v11 v14
du_map'8315'_404 ::
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
du_map'8315'_404 v0 v1 v2
= case coe v0 of
[]
-> coe
seq (coe v1)
(coe
seq (coe v2)
(coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C_'91''93'_56))
(:) v3 v4
-> case coe v1 of
(:) v5 v6
-> case coe v2 of
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 v11 v12
-> coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62
v11 (coe du_map'8315'_404 (coe v4) (coe v6) (coe v12))
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_foldr'8314'_434 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
[AgdaAny] ->
[AgdaAny] ->
(AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
AgdaAny
d_foldr'8314'_434 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 v8 v9 v10 v11 v12
v13 v14
= du_foldr'8314'_434 v6 v7 v8 v9 v10 v11 v12 v13 v14
du_foldr'8314'_434 ::
[AgdaAny] ->
[AgdaAny] ->
(AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
AgdaAny
du_foldr'8314'_434 v0 v1 v2 v3 v4 v5 v6 v7 v8
= case coe v8 of
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C_'91''93'_56
-> coe v7
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 v13 v14
-> case coe v0 of
(:) v15 v16
-> case coe v1 of
(:) v17 v18
-> coe
v4 v15 v17
(coe
MAlonzo.Code.Data.List.Base.du_foldr_240 (coe v2) (coe v5)
(coe v16))
(coe
MAlonzo.Code.Data.List.Base.du_foldr_240 (coe v3) (coe v6)
(coe v18))
v13
(coe
du_foldr'8314'_434 (coe v16) (coe v18) (coe v2) (coe v3) (coe v4)
(coe v5) (coe v6) (coe v7) (coe v14))
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_filter'8314'_480 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
(AgdaAny -> ()) ->
(AgdaAny -> ()) ->
(AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32) ->
(AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
d_filter'8314'_480 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 ~v8 ~v9 v10 v11
~v12 ~v13 v14 v15 v16
= du_filter'8314'_480 v10 v11 v14 v15 v16
du_filter'8314'_480 ::
(AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32) ->
(AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32) ->
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
du_filter'8314'_480 v0 v1 v2 v3 v4
= case coe v4 of
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C_'91''93'_56
-> coe v4
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 v9 v10
-> case coe v2 of
(:) v11 v12
-> case coe v3 of
(:) v13 v14
-> let v15 = coe v0 v11 in
let v16 = coe v1 v13 in
case coe v15 of
MAlonzo.Code.Relation.Nullary.C__because__46 v17 v18
-> if coe v17
then case coe v16 of
MAlonzo.Code.Relation.Nullary.C__because__46 v19 v20
-> if coe v19
then coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62
v9
(coe
du_filter'8314'_480 (coe v0) (coe v1)
(coe v12) (coe v14) (coe v10))
else coe
seq (coe v18)
(coe
seq (coe v20)
(coe
MAlonzo.Code.Relation.Nullary.Negation.Core.du_contradiction_24))
_ -> MAlonzo.RTE.mazUnreachableError
else (case coe v16 of
MAlonzo.Code.Relation.Nullary.C__because__46 v19 v20
-> if coe v19
then coe
seq (coe v18)
(coe
seq (coe v20)
(coe
MAlonzo.Code.Relation.Nullary.Negation.Core.du_contradiction_24))
else coe
du_filter'8314'_480 (coe v0) (coe v1)
(coe v12) (coe v14) (coe v10)
_ -> MAlonzo.RTE.mazUnreachableError)
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_replicate'8314'_536 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
Integer ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
d_replicate'8314'_536 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 v8 v9
= du_replicate'8314'_536 v8 v9
du_replicate'8314'_536 ::
AgdaAny ->
Integer ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
du_replicate'8314'_536 v0 v1
= case coe v1 of
0 -> coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C_'91''93'_56
_ -> let v2 = subInt (coe v1) (coe (1 :: Integer)) in
coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62
v0 (coe du_replicate'8314'_536 (coe v0) (coe v2))
d_lookup'8315'_548 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
[AgdaAny] ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
[AgdaAny] ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 ->
(MAlonzo.Code.Data.Fin.Base.T_Fin_6 ->
MAlonzo.Code.Data.Fin.Base.T_Fin_6 ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny) ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
d_lookup'8315'_548 ~v0 ~v1 v2 ~v3 ~v4 v5 ~v6 ~v7 ~v8 v9
= du_lookup'8315'_548 v2 v5 v9
du_lookup'8315'_548 ::
[AgdaAny] ->
[AgdaAny] ->
(MAlonzo.Code.Data.Fin.Base.T_Fin_6 ->
MAlonzo.Code.Data.Fin.Base.T_Fin_6 ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny) ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
du_lookup'8315'_548 v0 v1 v2
= case coe v0 of
[]
-> coe
seq (coe v1)
(coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C_'91''93'_56)
(:) v3 v4
-> case coe v1 of
(:) v5 v6
-> coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62
(coe
v2 (coe MAlonzo.Code.Data.Fin.Base.C_zero_10)
(coe MAlonzo.Code.Data.Fin.Base.C_zero_10) erased)
(coe
du_lookup'8315'_548 (coe v4) (coe v6)
(coe
(\ v7 v8 v9 ->
coe
v2 (coe MAlonzo.Code.Data.Fin.Base.C_suc_16 v7)
(coe MAlonzo.Code.Data.Fin.Base.C_suc_16 v8) erased)))
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_lookup'8314'_560 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.Fin.Base.T_Fin_6 -> AgdaAny
d_lookup'8314'_560 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 v8 v9
= du_lookup'8314'_560 v6 v7 v8 v9
du_lookup'8314'_560 ::
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.Fin.Base.T_Fin_6 -> AgdaAny
du_lookup'8314'_560 v0 v1 v2 v3
= case coe v2 of
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.C__'8759'__62 v8 v9
-> case coe v0 of
(:) v10 v11
-> case coe v1 of
(:) v12 v13
-> case coe v3 of
MAlonzo.Code.Data.Fin.Base.C_zero_10 -> coe v8
MAlonzo.Code.Data.Fin.Base.C_suc_16 v15
-> coe du_lookup'8314'_560 (coe v11) (coe v13) (coe v9) (coe v15)
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_Pointwise'45''8801''8658''8801'_568 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12
d_Pointwise'45''8801''8658''8801'_568 = erased
d_'8801''8658'Pointwise'45''8801'_578 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
[AgdaAny] ->
[AgdaAny] ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
d_'8801''8658'Pointwise'45''8801'_578 ~v0 ~v1 v2 ~v3 ~v4
= du_'8801''8658'Pointwise'45''8801'_578 v2
du_'8801''8658'Pointwise'45''8801'_578 ::
[AgdaAny] ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
du_'8801''8658'Pointwise'45''8801'_578 v0
= coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Properties.du_refl_30
erased (coe v0)
d_Pointwise'45''8801''8596''8801'_580 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() -> MAlonzo.Code.Function.Inverse.T_Inverse_58
d_Pointwise'45''8801''8596''8801'_580 ~v0 ~v1
= du_Pointwise'45''8801''8596''8801'_580
du_Pointwise'45''8801''8596''8801'_580 ::
MAlonzo.Code.Function.Inverse.T_Inverse_58
du_Pointwise'45''8801''8596''8801'_580
= coe
MAlonzo.Code.Function.Inverse.C_Inverse'46'constructor_2615
(coe
MAlonzo.Code.Function.Equality.C_Π'46'constructor_769
(coe (\ v0 -> v0)) erased)
(coe
MAlonzo.Code.Function.Equality.C_Π'46'constructor_769
(coe (\ v0 -> v0))
(\ v0 v1 v2 -> coe du_'8801''8658'Pointwise'45''8801'_578 v0))
(coe
MAlonzo.Code.Function.Inverse.C__InverseOf_'46'constructor_1525
(coe
(\ v0 ->
coe
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Properties.du_refl_30
erased (coe v0)))
erased)
d_decidable'45''8801'_586 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
(AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32) ->
[AgdaAny] -> [AgdaAny] -> MAlonzo.Code.Relation.Nullary.T_Dec_32
d_decidable'45''8801'_586 v0 v1 v2 v3 v4
= coe
MAlonzo.Code.Data.List.Properties.du_'8801''45'dec_54 v2 v3 v4