{-# 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.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.Sigma
import qualified MAlonzo.Code.Agda.Primitive
import qualified MAlonzo.Code.Data.Product
d_Pointwise_48 :: p -> p -> p -> p -> p -> p -> p -> p -> ()
d_Pointwise_48 p
a0 p
a1 p
a2 p
a3 p
a4 p
a5 p
a6 p
a7 = ()
data T_Pointwise_48
= C_'91''93'_56 | C__'8759'__62 AgdaAny T_Pointwise_48
d_head_64 ::
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] -> T_Pointwise_48 -> AgdaAny
d_head_64 :: ()
-> ()
-> ()
-> ()
-> ()
-> (AgdaAny -> AgdaAny -> ())
-> AgdaAny
-> [AgdaAny]
-> AgdaAny
-> [AgdaAny]
-> T_Pointwise_48
-> AgdaAny
d_head_64 ~()
v0 ~()
v1 ~()
v2 ~()
v3 ~()
v4 ~AgdaAny -> AgdaAny -> ()
v5 ~AgdaAny
v6 ~[AgdaAny]
v7 ~AgdaAny
v8 ~[AgdaAny]
v9 T_Pointwise_48
v10
= T_Pointwise_48 -> AgdaAny
du_head_64 T_Pointwise_48
v10
du_head_64 :: T_Pointwise_48 -> AgdaAny
du_head_64 :: T_Pointwise_48 -> AgdaAny
du_head_64 T_Pointwise_48
v0
= case T_Pointwise_48 -> T_Pointwise_48
forall a b. a -> b
coe T_Pointwise_48
v0 of
C__'8759'__62 AgdaAny
v5 T_Pointwise_48
v6 -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v5
T_Pointwise_48
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
d_tail_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] -> T_Pointwise_48 -> T_Pointwise_48
d_tail_70 :: ()
-> ()
-> ()
-> ()
-> ()
-> (AgdaAny -> AgdaAny -> ())
-> AgdaAny
-> [AgdaAny]
-> AgdaAny
-> [AgdaAny]
-> T_Pointwise_48
-> T_Pointwise_48
d_tail_70 ~()
v0 ~()
v1 ~()
v2 ~()
v3 ~()
v4 ~AgdaAny -> AgdaAny -> ()
v5 ~AgdaAny
v6 ~[AgdaAny]
v7 ~AgdaAny
v8 ~[AgdaAny]
v9 T_Pointwise_48
v10
= T_Pointwise_48 -> T_Pointwise_48
du_tail_70 T_Pointwise_48
v10
du_tail_70 :: T_Pointwise_48 -> T_Pointwise_48
du_tail_70 :: T_Pointwise_48 -> T_Pointwise_48
du_tail_70 T_Pointwise_48
v0
= case T_Pointwise_48 -> T_Pointwise_48
forall a b. a -> b
coe T_Pointwise_48
v0 of
C__'8759'__62 AgdaAny
v5 T_Pointwise_48
v6 -> T_Pointwise_48 -> T_Pointwise_48
forall a b. a -> b
coe T_Pointwise_48
v6
T_Pointwise_48
_ -> T_Pointwise_48
forall a. a
MAlonzo.RTE.mazUnreachableError
d_uncons_76 ::
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] ->
T_Pointwise_48 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_uncons_76 :: ()
-> ()
-> ()
-> ()
-> ()
-> (AgdaAny -> AgdaAny -> ())
-> AgdaAny
-> [AgdaAny]
-> AgdaAny
-> [AgdaAny]
-> T_Pointwise_48
-> T_Σ_14
d_uncons_76 ~()
v0 ~()
v1 ~()
v2 ~()
v3 ~()
v4 ~AgdaAny -> AgdaAny -> ()
v5 ~AgdaAny
v6 ~[AgdaAny]
v7 ~AgdaAny
v8 ~[AgdaAny]
v9 = T_Pointwise_48 -> T_Σ_14
du_uncons_76
du_uncons_76 ::
T_Pointwise_48 -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_uncons_76 :: T_Pointwise_48 -> T_Σ_14
du_uncons_76
= ((AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> AgdaAny -> T_Σ_14)
-> AgdaAny -> AgdaAny -> T_Pointwise_48 -> T_Σ_14
forall a b. a -> b
coe
(AgdaAny -> AgdaAny) -> (AgdaAny -> AgdaAny) -> AgdaAny -> T_Σ_14
MAlonzo.Code.Data.Product.du_'60'_'44'_'62'_132 ((T_Pointwise_48 -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe T_Pointwise_48 -> AgdaAny
du_head_64)
((T_Pointwise_48 -> T_Pointwise_48) -> AgdaAny
forall a b. a -> b
coe T_Pointwise_48 -> T_Pointwise_48
du_tail_70)
d_rec_102 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(AgdaAny -> AgdaAny -> ()) ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
([AgdaAny] -> [AgdaAny] -> T_Pointwise_48 -> ()) ->
(AgdaAny ->
AgdaAny ->
[AgdaAny] ->
[AgdaAny] -> T_Pointwise_48 -> AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny -> [AgdaAny] -> [AgdaAny] -> T_Pointwise_48 -> AgdaAny
d_rec_102 :: ()
-> ()
-> ()
-> ()
-> ()
-> (AgdaAny -> AgdaAny -> ())
-> ()
-> ([AgdaAny] -> [AgdaAny] -> T_Pointwise_48 -> ())
-> (AgdaAny
-> AgdaAny
-> [AgdaAny]
-> [AgdaAny]
-> T_Pointwise_48
-> AgdaAny
-> AgdaAny
-> AgdaAny)
-> AgdaAny
-> [AgdaAny]
-> [AgdaAny]
-> T_Pointwise_48
-> AgdaAny
d_rec_102 ~()
v0 ~()
v1 ~()
v2 ~()
v3 ~()
v4 ~AgdaAny -> AgdaAny -> ()
v5 ~()
v6 ~[AgdaAny] -> [AgdaAny] -> T_Pointwise_48 -> ()
v7 AgdaAny
-> AgdaAny
-> [AgdaAny]
-> [AgdaAny]
-> T_Pointwise_48
-> AgdaAny
-> AgdaAny
-> AgdaAny
v8 AgdaAny
v9 [AgdaAny]
v10 [AgdaAny]
v11 T_Pointwise_48
v12
= (AgdaAny
-> AgdaAny
-> [AgdaAny]
-> [AgdaAny]
-> T_Pointwise_48
-> AgdaAny
-> AgdaAny
-> AgdaAny)
-> AgdaAny -> [AgdaAny] -> [AgdaAny] -> T_Pointwise_48 -> AgdaAny
du_rec_102 AgdaAny
-> AgdaAny
-> [AgdaAny]
-> [AgdaAny]
-> T_Pointwise_48
-> AgdaAny
-> AgdaAny
-> AgdaAny
v8 AgdaAny
v9 [AgdaAny]
v10 [AgdaAny]
v11 T_Pointwise_48
v12
du_rec_102 ::
(AgdaAny ->
AgdaAny ->
[AgdaAny] ->
[AgdaAny] -> T_Pointwise_48 -> AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny -> [AgdaAny] -> [AgdaAny] -> T_Pointwise_48 -> AgdaAny
du_rec_102 :: (AgdaAny
-> AgdaAny
-> [AgdaAny]
-> [AgdaAny]
-> T_Pointwise_48
-> AgdaAny
-> AgdaAny
-> AgdaAny)
-> AgdaAny -> [AgdaAny] -> [AgdaAny] -> T_Pointwise_48 -> AgdaAny
du_rec_102 AgdaAny
-> AgdaAny
-> [AgdaAny]
-> [AgdaAny]
-> T_Pointwise_48
-> AgdaAny
-> AgdaAny
-> AgdaAny
v0 AgdaAny
v1 [AgdaAny]
v2 [AgdaAny]
v3 T_Pointwise_48
v4
= case T_Pointwise_48 -> T_Pointwise_48
forall a b. a -> b
coe T_Pointwise_48
v4 of
T_Pointwise_48
C_'91''93'_56 -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1
C__'8759'__62 AgdaAny
v9 T_Pointwise_48
v10
-> case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v2 of
(:) AgdaAny
v11 [AgdaAny]
v12
-> case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v3 of
(:) AgdaAny
v13 [AgdaAny]
v14
-> (AgdaAny
-> AgdaAny
-> [AgdaAny]
-> [AgdaAny]
-> T_Pointwise_48
-> AgdaAny
-> AgdaAny
-> AgdaAny)
-> AgdaAny
-> AgdaAny
-> [AgdaAny]
-> [AgdaAny]
-> T_Pointwise_48
-> AgdaAny
-> AgdaAny
-> AgdaAny
forall a b. a -> b
coe
AgdaAny
-> AgdaAny
-> [AgdaAny]
-> [AgdaAny]
-> T_Pointwise_48
-> AgdaAny
-> AgdaAny
-> AgdaAny
v0 AgdaAny
v11 AgdaAny
v13 [AgdaAny]
v12 [AgdaAny]
v14 T_Pointwise_48
v10 AgdaAny
v9
(((AgdaAny
-> AgdaAny
-> [AgdaAny]
-> [AgdaAny]
-> T_Pointwise_48
-> AgdaAny
-> AgdaAny
-> AgdaAny)
-> AgdaAny -> [AgdaAny] -> [AgdaAny] -> T_Pointwise_48 -> AgdaAny)
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny
-> AgdaAny
-> [AgdaAny]
-> [AgdaAny]
-> T_Pointwise_48
-> AgdaAny
-> AgdaAny
-> AgdaAny)
-> AgdaAny -> [AgdaAny] -> [AgdaAny] -> T_Pointwise_48 -> AgdaAny
du_rec_102 ((AgdaAny
-> AgdaAny
-> [AgdaAny]
-> [AgdaAny]
-> T_Pointwise_48
-> AgdaAny
-> AgdaAny
-> AgdaAny)
-> AgdaAny
forall a b. a -> b
coe AgdaAny
-> AgdaAny
-> [AgdaAny]
-> [AgdaAny]
-> T_Pointwise_48
-> AgdaAny
-> AgdaAny
-> AgdaAny
v0) (AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v12) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v14) (T_Pointwise_48 -> AgdaAny
forall a b. a -> b
coe T_Pointwise_48
v10))
[AgdaAny]
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
[AgdaAny]
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
T_Pointwise_48
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
d_map_120 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(AgdaAny -> AgdaAny -> ()) ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(AgdaAny -> AgdaAny -> ()) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
[AgdaAny] -> [AgdaAny] -> T_Pointwise_48 -> T_Pointwise_48
d_map_120 :: ()
-> ()
-> ()
-> ()
-> ()
-> (AgdaAny -> AgdaAny -> ())
-> ()
-> (AgdaAny -> AgdaAny -> ())
-> (AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny)
-> [AgdaAny]
-> [AgdaAny]
-> T_Pointwise_48
-> T_Pointwise_48
d_map_120 ~()
v0 ~()
v1 ~()
v2 ~()
v3 ~()
v4 ~AgdaAny -> AgdaAny -> ()
v5 ~()
v6 ~AgdaAny -> AgdaAny -> ()
v7 AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
v8 [AgdaAny]
v9 [AgdaAny]
v10 T_Pointwise_48
v11
= (AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny)
-> [AgdaAny] -> [AgdaAny] -> T_Pointwise_48 -> T_Pointwise_48
du_map_120 AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
v8 [AgdaAny]
v9 [AgdaAny]
v10 T_Pointwise_48
v11
du_map_120 ::
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
[AgdaAny] -> [AgdaAny] -> T_Pointwise_48 -> T_Pointwise_48
du_map_120 :: (AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny)
-> [AgdaAny] -> [AgdaAny] -> T_Pointwise_48 -> T_Pointwise_48
du_map_120 AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
v0 [AgdaAny]
v1 [AgdaAny]
v2 T_Pointwise_48
v3
= case T_Pointwise_48 -> T_Pointwise_48
forall a b. a -> b
coe T_Pointwise_48
v3 of
T_Pointwise_48
C_'91''93'_56 -> T_Pointwise_48 -> T_Pointwise_48
forall a b. a -> b
coe T_Pointwise_48
v3
C__'8759'__62 AgdaAny
v8 T_Pointwise_48
v9
-> case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v1 of
(:) AgdaAny
v10 [AgdaAny]
v11
-> case [AgdaAny] -> [AgdaAny]
forall a b. a -> b
coe [AgdaAny]
v2 of
(:) AgdaAny
v12 [AgdaAny]
v13
-> (AgdaAny -> T_Pointwise_48 -> T_Pointwise_48)
-> AgdaAny -> AgdaAny -> T_Pointwise_48
forall a b. a -> b
coe
AgdaAny -> T_Pointwise_48 -> T_Pointwise_48
C__'8759'__62 ((AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny)
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
v0 AgdaAny
v10 AgdaAny
v12 AgdaAny
v8)
(((AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny)
-> [AgdaAny] -> [AgdaAny] -> T_Pointwise_48 -> T_Pointwise_48)
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe (AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny)
-> [AgdaAny] -> [AgdaAny] -> T_Pointwise_48 -> T_Pointwise_48
du_map_120 ((AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) -> AgdaAny
forall a b. a -> b
coe AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
v0) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v11) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v13) (T_Pointwise_48 -> AgdaAny
forall a b. a -> b
coe T_Pointwise_48
v9))
[AgdaAny]
_ -> T_Pointwise_48
forall a. a
MAlonzo.RTE.mazUnreachableError
[AgdaAny]
_ -> T_Pointwise_48
forall a. a
MAlonzo.RTE.mazUnreachableError
T_Pointwise_48
_ -> T_Pointwise_48
forall a. a
MAlonzo.RTE.mazUnreachableError