{-# 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.Relation.Binary.Construct.Closure.Reflexive.Properties 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.Sigma
import qualified MAlonzo.Code.Agda.Primitive
import qualified MAlonzo.Code.Data.Empty
import qualified MAlonzo.Code.Data.Product
import qualified MAlonzo.Code.Data.Sum.Base
import qualified MAlonzo.Code.Function.Bundles
import qualified MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive
import qualified MAlonzo.Code.Relation.Binary.Definitions
import qualified MAlonzo.Code.Relation.Binary.PropositionalEquality.Properties
import qualified MAlonzo.Code.Relation.Binary.Structures
import qualified MAlonzo.Code.Relation.Nullary
import qualified MAlonzo.Code.Relation.Nullary.Decidable
import qualified MAlonzo.Code.Relation.Nullary.Negation.Core
import qualified MAlonzo.Code.Relation.Nullary.Sum
d_'61''91''93''8658'_44 ::
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 -> AgdaAny -> AgdaAny) ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30
d_'61''91''93''8658'_44 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 ~v8 v9 v10
v11 v12
= du_'61''91''93''8658'_44 v9 v10 v11 v12
du_'61''91''93''8658'_44 ::
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30
du_'61''91''93''8658'_44 v0 v1 v2 v3
= case coe v3 of
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_refl_36
-> coe
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_refl_36
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_'91'_'93'_44 v6
-> coe
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_'91'_'93'_44
(coe v0 v1 v2 v6)
_ -> MAlonzo.RTE.mazUnreachableError
d__'126''7506'__62 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) -> AgdaAny -> AgdaAny -> ()
d__'126''7506'__62 = erased
d_fromSum_68 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Data.Sum.Base.T__'8846'__30 ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30
d_fromSum_68 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 = du_fromSum_68 v6
du_fromSum_68 ::
MAlonzo.Code.Data.Sum.Base.T__'8846'__30 ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30
du_fromSum_68 v0
= case coe v0 of
MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 v1
-> coe
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_refl_36
MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42 v1
-> coe
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_'91'_'93'_44
v1
_ -> MAlonzo.RTE.mazUnreachableError
d_toSum_76 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
MAlonzo.Code.Data.Sum.Base.T__'8846'__30
d_toSum_76 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 = du_toSum_76 v6
du_toSum_76 ::
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
MAlonzo.Code.Data.Sum.Base.T__'8846'__30
du_toSum_76 v0
= case coe v0 of
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_refl_36
-> coe MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 erased
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_'91'_'93'_44 v3
-> coe MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42 (coe v3)
_ -> MAlonzo.RTE.mazUnreachableError
d_'8846''8660'Refl_84 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
AgdaAny ->
AgdaAny -> MAlonzo.Code.Function.Bundles.T_Equivalence_928
d_'8846''8660'Refl_84 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5
= du_'8846''8660'Refl_84
du_'8846''8660'Refl_84 ::
MAlonzo.Code.Function.Bundles.T_Equivalence_928
du_'8846''8660'Refl_84
= coe
MAlonzo.Code.Function.Bundles.du_mk'8660'_1322 (coe du_fromSum_68)
(coe du_toSum_76)
d_sym_86 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30
d_sym_86 ~v0 ~v1 ~v2 ~v3 v4 v5 v6 v7 = du_sym_86 v4 v5 v6 v7
du_sym_86 ::
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30
du_sym_86 v0 v1 v2 v3
= case coe v3 of
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_refl_36
-> coe
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_refl_36
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_'91'_'93'_44 v6
-> coe
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_'91'_'93'_44
(coe v0 v1 v2 v6)
_ -> MAlonzo.RTE.mazUnreachableError
d_trans_94 ::
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 ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30
d_trans_94 ~v0 ~v1 ~v2 ~v3 v4 v5 v6 v7 v8 v9
= du_trans_94 v4 v5 v6 v7 v8 v9
du_trans_94 ::
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30
du_trans_94 v0 v1 v2 v3 v4 v5
= case coe v4 of
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_refl_36
-> case coe v5 of
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_refl_36
-> coe
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_refl_36
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_'91'_'93'_44 v9
-> coe
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_'91'_'93'_44
v9
_ -> MAlonzo.RTE.mazUnreachableError
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_'91'_'93'_44 v8
-> case coe v5 of
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_refl_36
-> coe
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_'91'_'93'_44
v8
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_'91'_'93'_44 v11
-> coe
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_'91'_'93'_44
(coe v0 v1 v2 v3 v8 v11)
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_antisym_114 ::
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 -> ()) ->
(AgdaAny -> AgdaAny) ->
(AgdaAny ->
AgdaAny ->
AgdaAny -> AgdaAny -> MAlonzo.Code.Data.Empty.T_'8869'_4) ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
AgdaAny
d_antisym_114 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 ~v7 v8 ~v9 v10 v11
= du_antisym_114 v6 v8 v10 v11
du_antisym_114 ::
(AgdaAny -> AgdaAny) ->
AgdaAny ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
AgdaAny
du_antisym_114 v0 v1 v2 v3
= case coe v2 of
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_refl_36
-> coe v0 v1
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_'91'_'93'_44 v6
-> case coe v3 of
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_refl_36
-> coe v0 v1
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_'91'_'93'_44 v9
-> coe
MAlonzo.Code.Relation.Nullary.Negation.Core.du_contradiction_24
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_total_140 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
(AgdaAny ->
AgdaAny -> MAlonzo.Code.Relation.Binary.Definitions.T_Tri_136) ->
AgdaAny -> AgdaAny -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30
d_total_140 ~v0 ~v1 ~v2 ~v3 v4 v5 v6 = du_total_140 v4 v5 v6
du_total_140 ::
(AgdaAny ->
AgdaAny -> MAlonzo.Code.Relation.Binary.Definitions.T_Tri_136) ->
AgdaAny -> AgdaAny -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30
du_total_140 v0 v1 v2
= let v3 = coe v0 v1 v2 in
case coe v3 of
MAlonzo.Code.Relation.Binary.Definitions.C_tri'60'_150 v4
-> coe
MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38
(coe
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_'91'_'93'_44
v4)
MAlonzo.Code.Relation.Binary.Definitions.C_tri'8776'_158 v5
-> coe
MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38
(coe
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_refl_36)
MAlonzo.Code.Relation.Binary.Definitions.C_tri'62'_166 v6
-> coe
MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42
(coe
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_'91'_'93'_44
v6)
_ -> MAlonzo.RTE.mazUnreachableError
d_dec_174 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
(AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32) ->
(AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32) ->
AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32
d_dec_174 ~v0 ~v1 ~v2 ~v3 v4 v5 v6 v7 = du_dec_174 v4 v5 v6 v7
du_dec_174 ::
(AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32) ->
(AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32) ->
AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32
du_dec_174 v0 v1 v2 v3
= coe
MAlonzo.Code.Relation.Nullary.Decidable.du_map_14
(coe du_'8846''8660'Refl_84)
(coe
MAlonzo.Code.Relation.Nullary.Sum.du__'8846''45'dec__32
(coe v0 v2 v3) (coe v1 v2 v3))
d_decidable_184 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
(AgdaAny ->
AgdaAny -> MAlonzo.Code.Relation.Binary.Definitions.T_Tri_136) ->
AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32
d_decidable_184 ~v0 ~v1 ~v2 ~v3 v4 v5 v6
= du_decidable_184 v4 v5 v6
du_decidable_184 ::
(AgdaAny ->
AgdaAny -> MAlonzo.Code.Relation.Binary.Definitions.T_Tri_136) ->
AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32
du_decidable_184 v0 v1 v2
= let v3 = coe v0 v1 v2 in
case coe v3 of
MAlonzo.Code.Relation.Binary.Definitions.C_tri'60'_150 v4
-> coe
MAlonzo.Code.Relation.Nullary.C__because__46
(coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10)
(coe
MAlonzo.Code.Relation.Nullary.C_of'696'_22
(coe
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_'91'_'93'_44
v4))
MAlonzo.Code.Relation.Binary.Definitions.C_tri'8776'_158 v5
-> coe
MAlonzo.Code.Relation.Nullary.C__because__46
(coe MAlonzo.Code.Agda.Builtin.Bool.C_true_10)
(coe
MAlonzo.Code.Relation.Nullary.C_of'696'_22
(coe
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_refl_36))
MAlonzo.Code.Relation.Binary.Definitions.C_tri'62'_166 v6
-> coe
MAlonzo.Code.Relation.Nullary.C__because__46
(coe MAlonzo.Code.Agda.Builtin.Bool.C_false_8)
(coe MAlonzo.Code.Relation.Nullary.C_of'8319'_26)
_ -> MAlonzo.RTE.mazUnreachableError
d_resp'737'_226 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
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 ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
AgdaAny -> AgdaAny
d_resp'737'_226 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 v8 v9 v10 v11 v12
= du_resp'737'_226 v8 v9 v10 v11 v12
du_resp'737'_226 ::
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
AgdaAny -> AgdaAny
du_resp'737'_226 v0 v1 v2 v3 v4
= case coe v4 of
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_refl_36
-> coe (\ v6 -> v6)
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_'91'_'93'_44 v7
-> coe v0 v1 v2 v3 v7
_ -> MAlonzo.RTE.mazUnreachableError
d_resp'691'_234 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
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 ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
AgdaAny -> AgdaAny
d_resp'691'_234 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7 = du_resp'691'_234
du_resp'691'_234 ::
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
AgdaAny -> AgdaAny
du_resp'691'_234 = coe du_resp'737'_226
d_resp_250 ::
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.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
AgdaAny -> AgdaAny
d_resp_250 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 v8 v9
= du_resp_250 v6 v7 v8 v9
du_resp_250 ::
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.T_ReflClosure_30 ->
AgdaAny -> AgdaAny
du_resp_250 v0 v1 v2 v3
= case coe v3 of
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_refl_36
-> coe (\ v5 -> v5)
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_'91'_'93'_44 v6
-> coe v0 v1 v2 v6
_ -> MAlonzo.RTE.mazUnreachableError
d_resp'8322'_270 ::
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.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_resp'8322'_270 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 = du_resp'8322'_270
du_resp'8322'_270 ::
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_resp'8322'_270
= coe
MAlonzo.Code.Data.Product.du_map_148 (coe du_resp'737'_226)
(coe (\ v0 -> coe du_resp'691'_234))
d__'126''7506'__282 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) -> AgdaAny -> AgdaAny -> ()
d__'126''7506'__282 = erased
d_isPreorder_284 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
MAlonzo.Code.Relation.Binary.Structures.T_IsPreorder_70
d_isPreorder_284 ~v0 ~v1 ~v2 ~v3 v4 = du_isPreorder_284 v4
du_isPreorder_284 ::
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
MAlonzo.Code.Relation.Binary.Structures.T_IsPreorder_70
du_isPreorder_284 v0
= coe
MAlonzo.Code.Relation.Binary.Structures.C_IsPreorder'46'constructor_2409
(coe
MAlonzo.Code.Relation.Binary.PropositionalEquality.Properties.du_isEquivalence_396)
(coe
(\ v1 v2 v3 ->
coe
MAlonzo.Code.Relation.Binary.Construct.Closure.Reflexive.C_refl_36))
(coe du_trans_94 (coe v0))
d_isPartialOrder_290 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
MAlonzo.Code.Relation.Binary.Structures.T_IsStrictPartialOrder_266 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsPartialOrder_162
d_isPartialOrder_290 ~v0 ~v1 ~v2 ~v3 v4 = du_isPartialOrder_290 v4
du_isPartialOrder_290 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsStrictPartialOrder_266 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsPartialOrder_162
du_isPartialOrder_290 v0
= coe
MAlonzo.Code.Relation.Binary.Structures.C_IsPartialOrder'46'constructor_6659
(coe
du_isPreorder_284
(coe MAlonzo.Code.Relation.Binary.Structures.d_trans_282 (coe v0)))
(\ v1 v2 v3 v4 -> coe du_antisym_114 erased v1 v3 v4)
d_isDecPartialOrder_326 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
MAlonzo.Code.Relation.Binary.Structures.T_IsDecStrictPartialOrder_312 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsDecPartialOrder_206
d_isDecPartialOrder_326 ~v0 ~v1 ~v2 ~v3 v4
= du_isDecPartialOrder_326 v4
du_isDecPartialOrder_326 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsDecStrictPartialOrder_312 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsDecPartialOrder_206
du_isDecPartialOrder_326 v0
= coe
MAlonzo.Code.Relation.Binary.Structures.C_IsDecPartialOrder'46'constructor_8061
(coe
du_isPartialOrder_290
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isStrictPartialOrder_322
(coe v0)))
(coe
MAlonzo.Code.Relation.Binary.Structures.d__'8799'__324 (coe v0))
(coe
du_dec_174
(coe
MAlonzo.Code.Relation.Binary.Structures.d__'8799'__324 (coe v0))
(coe
MAlonzo.Code.Relation.Binary.Structures.d__'60''63'__326 (coe v0)))
d_isTotalOrder_374 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
MAlonzo.Code.Relation.Binary.Structures.T_IsStrictTotalOrder_498 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsTotalOrder_380
d_isTotalOrder_374 ~v0 ~v1 ~v2 ~v3 v4 = du_isTotalOrder_374 v4
du_isTotalOrder_374 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsStrictTotalOrder_498 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsTotalOrder_380
du_isTotalOrder_374 v0
= coe
MAlonzo.Code.Relation.Binary.Structures.C_IsTotalOrder'46'constructor_15233
(coe
du_isPartialOrder_290
(coe
MAlonzo.Code.Relation.Binary.Structures.du_isStrictPartialOrder_536
(coe v0)))
(coe
du_total_140
(coe
MAlonzo.Code.Relation.Binary.Structures.d_compare_512 (coe v0)))
d_isDecTotalOrder_426 ::
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
() ->
MAlonzo.Code.Agda.Primitive.T_Level_14 ->
(AgdaAny -> AgdaAny -> ()) ->
MAlonzo.Code.Relation.Binary.Structures.T_IsStrictTotalOrder_498 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsDecTotalOrder_430
d_isDecTotalOrder_426 ~v0 ~v1 ~v2 ~v3 v4
= du_isDecTotalOrder_426 v4
du_isDecTotalOrder_426 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsStrictTotalOrder_498 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsDecTotalOrder_430
du_isDecTotalOrder_426 v0
= coe
MAlonzo.Code.Relation.Binary.Structures.C_IsDecTotalOrder'46'constructor_16917
(coe du_isTotalOrder_374 (coe v0))
(coe
MAlonzo.Code.Relation.Binary.Structures.du__'8799'__514 (coe v0))
(coe
du_dec_174
(coe
MAlonzo.Code.Relation.Binary.Structures.du__'8799'__514 (coe v0))
(coe
MAlonzo.Code.Relation.Binary.Structures.du__'60''63'__516
(coe v0)))