{-# 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.Properties.TotalOrder 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.Empty
import qualified MAlonzo.Code.Data.Sum.Base
import qualified MAlonzo.Code.Relation.Binary.Bundles
import qualified MAlonzo.Code.Relation.Binary.Consequences
import qualified MAlonzo.Code.Relation.Binary.Construct.Converse
import qualified MAlonzo.Code.Relation.Binary.Construct.NonStrictToStrict
import qualified MAlonzo.Code.Relation.Binary.Properties.Poset
import qualified MAlonzo.Code.Relation.Binary.Properties.Preorder
import qualified MAlonzo.Code.Relation.Binary.Structures
import qualified MAlonzo.Code.Relation.Nullary
d__'60'__128 ::
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_TotalOrder_648 ->
AgdaAny -> AgdaAny -> ()
d__'60'__128 = erased
d__'8805'__130 ::
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_TotalOrder_648 ->
AgdaAny -> AgdaAny -> ()
d__'8805'__130 = erased
d__'8816'__132 ::
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_TotalOrder_648 ->
AgdaAny -> AgdaAny -> ()
d__'8816'__132 = erased
d_asym_134 ::
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_TotalOrder_648 ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Data.Empty.T_'8869'_4
d_asym_134 = erased
d_irrefl_136 ::
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_TotalOrder_648 ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Data.Empty.T_'8869'_4
d_irrefl_136 = erased
d_'60''45'isStrictPartialOrder_138 ::
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_TotalOrder_648 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsStrictPartialOrder_266
d_'60''45'isStrictPartialOrder_138 ~v0 ~v1 ~v2 v3
= du_'60''45'isStrictPartialOrder_138 v3
du_'60''45'isStrictPartialOrder_138 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsStrictPartialOrder_266
du_'60''45'isStrictPartialOrder_138 v0
= coe
MAlonzo.Code.Relation.Binary.Properties.Poset.du_'60''45'isStrictPartialOrder_164
(coe MAlonzo.Code.Relation.Binary.Bundles.du_poset_698 (coe v0))
d_'60''45'resp'45''8776'_140 ::
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_TotalOrder_648 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_'60''45'resp'45''8776'_140 ~v0 ~v1 ~v2 v3
= du_'60''45'resp'45''8776'_140 v3
du_'60''45'resp'45''8776'_140 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_'60''45'resp'45''8776'_140 v0
= let v1
= coe MAlonzo.Code.Relation.Binary.Bundles.du_poset_698 (coe v0) in
coe
MAlonzo.Code.Relation.Binary.Structures.d_'60''45'resp'45''8776'_284
(coe
MAlonzo.Code.Relation.Binary.Properties.Poset.du_'60''45'isStrictPartialOrder_164
(coe v1))
d_'60''45'resp'691''45''8776'_142 ::
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_TotalOrder_648 ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_'60''45'resp'691''45''8776'_142 ~v0 ~v1 ~v2 v3
= du_'60''45'resp'691''45''8776'_142 v3
du_'60''45'resp'691''45''8776'_142 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_'60''45'resp'691''45''8776'_142 v0
= let v1
= coe MAlonzo.Code.Relation.Binary.Bundles.du_poset_698 (coe v0) in
let v2
= coe
MAlonzo.Code.Relation.Binary.Properties.Poset.du_'60''45'strictPartialOrder_166
(coe v1) in
coe
MAlonzo.Code.Relation.Binary.Structures.du_'60''45'resp'691''45''8776'_304
(coe
MAlonzo.Code.Relation.Binary.Bundles.d_isStrictPartialOrder_494
(coe v2))
d_'60''45'resp'737''45''8776'_144 ::
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_TotalOrder_648 ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_'60''45'resp'737''45''8776'_144 ~v0 ~v1 ~v2 v3
= du_'60''45'resp'737''45''8776'_144 v3
du_'60''45'resp'737''45''8776'_144 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_'60''45'resp'737''45''8776'_144 v0
= let v1
= coe MAlonzo.Code.Relation.Binary.Bundles.du_poset_698 (coe v0) in
let v2
= coe
MAlonzo.Code.Relation.Binary.Properties.Poset.du_'60''45'strictPartialOrder_166
(coe v1) in
coe
MAlonzo.Code.Relation.Binary.Structures.du_'60''45'resp'737''45''8776'_306
(coe
MAlonzo.Code.Relation.Binary.Bundles.d_isStrictPartialOrder_494
(coe v2))
d_'60''45'strictPartialOrder_146 ::
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_TotalOrder_648 ->
MAlonzo.Code.Relation.Binary.Bundles.T_StrictPartialOrder_472
d_'60''45'strictPartialOrder_146 ~v0 ~v1 ~v2 v3
= du_'60''45'strictPartialOrder_146 v3
du_'60''45'strictPartialOrder_146 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
MAlonzo.Code.Relation.Binary.Bundles.T_StrictPartialOrder_472
du_'60''45'strictPartialOrder_146 v0
= coe
MAlonzo.Code.Relation.Binary.Properties.Poset.du_'60''45'strictPartialOrder_166
(coe MAlonzo.Code.Relation.Binary.Bundles.du_poset_698 (coe v0))
d_trans_148 ::
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_TotalOrder_648 ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_trans_148 ~v0 ~v1 ~v2 v3 = du_trans_148 v3
du_trans_148 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_trans_148 v0
= let v1
= coe MAlonzo.Code.Relation.Binary.Bundles.du_poset_698 (coe v0) in
coe
MAlonzo.Code.Relation.Binary.Structures.d_trans_282
(coe
MAlonzo.Code.Relation.Binary.Properties.Poset.du_'60''45'isStrictPartialOrder_164
(coe v1))
d_'60''8658''8777'_150 ::
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_TotalOrder_648 ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
AgdaAny -> MAlonzo.Code.Data.Empty.T_'8869'_4
d_'60''8658''8777'_150 = erased
d_'60''8658''8817'_152 ::
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_TotalOrder_648 ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
AgdaAny -> MAlonzo.Code.Data.Empty.T_'8869'_4
d_'60''8658''8817'_152 = erased
d_'8804''8658''8815'_164 ::
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_TotalOrder_648 ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Data.Empty.T_'8869'_4
d_'8804''8658''8815'_164 = erased
d_'8804''8743''8777''8658''60'_166 ::
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_TotalOrder_648 ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> MAlonzo.Code.Data.Empty.T_'8869'_4) ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_'8804''8743''8777''8658''60'_166 ~v0 ~v1 ~v2 ~v3
= du_'8804''8743''8777''8658''60'_166
du_'8804''8743''8777''8658''60'_166 ::
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> MAlonzo.Code.Data.Empty.T_'8869'_4) ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_'8804''8743''8777''8658''60'_166 v0 v1
= coe
MAlonzo.Code.Relation.Binary.Properties.Poset.du_'8804''8743''8777''8658''60'_192
d_antisym_168 ::
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_TotalOrder_648 ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d_antisym_168 ~v0 ~v1 ~v2 v3 = du_antisym_168 v3
du_antisym_168 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du_antisym_168 v0
= let v1
= coe MAlonzo.Code.Relation.Binary.Bundles.du_poset_698 (coe v0) in
coe
(\ v2 v3 v4 v5 ->
coe
MAlonzo.Code.Relation.Binary.Structures.d_antisym_172
(MAlonzo.Code.Relation.Binary.Bundles.d_isPartialOrder_304
(coe v1))
v2 v3 v5 v4)
d_'8805''45'isPartialOrder_170 ::
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_TotalOrder_648 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsPartialOrder_162
d_'8805''45'isPartialOrder_170 ~v0 ~v1 ~v2 v3
= du_'8805''45'isPartialOrder_170 v3
du_'8805''45'isPartialOrder_170 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsPartialOrder_162
du_'8805''45'isPartialOrder_170 v0
= coe
MAlonzo.Code.Relation.Binary.Properties.Poset.du_'8805''45'isPartialOrder_130
(coe MAlonzo.Code.Relation.Binary.Bundles.du_poset_698 (coe v0))
d_invIsPreorder_172 ::
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_TotalOrder_648 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsPreorder_70
d_invIsPreorder_172 ~v0 ~v1 ~v2 v3 = du_invIsPreorder_172 v3
du_invIsPreorder_172 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsPreorder_70
du_invIsPreorder_172 v0
= let v1
= coe MAlonzo.Code.Relation.Binary.Bundles.du_poset_698 (coe v0) in
coe
MAlonzo.Code.Relation.Binary.Properties.Preorder.du_invIsPreorder_64
(coe MAlonzo.Code.Relation.Binary.Bundles.du_preorder_326 (coe v1))
d_'8805''45'poset_174 ::
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_TotalOrder_648 ->
MAlonzo.Code.Relation.Binary.Bundles.T_Poset_282
d_'8805''45'poset_174 ~v0 ~v1 ~v2 v3 = du_'8805''45'poset_174 v3
du_'8805''45'poset_174 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
MAlonzo.Code.Relation.Binary.Bundles.T_Poset_282
du_'8805''45'poset_174 v0
= coe
MAlonzo.Code.Relation.Binary.Properties.Poset.du_'8805''45'poset_132
(coe MAlonzo.Code.Relation.Binary.Bundles.du_poset_698 (coe v0))
d_invPreorder_176 ::
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_TotalOrder_648 ->
MAlonzo.Code.Relation.Binary.Bundles.T_Preorder_132
d_invPreorder_176 ~v0 ~v1 ~v2 v3 = du_invPreorder_176 v3
du_invPreorder_176 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
MAlonzo.Code.Relation.Binary.Bundles.T_Preorder_132
du_invPreorder_176 v0
= let v1
= coe MAlonzo.Code.Relation.Binary.Bundles.du_poset_698 (coe v0) in
coe
MAlonzo.Code.Relation.Binary.Properties.Preorder.du_invPreorder_66
(coe MAlonzo.Code.Relation.Binary.Bundles.du_preorder_326 (coe v1))
d_refl_178 ::
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_TotalOrder_648 ->
AgdaAny -> AgdaAny
d_refl_178 ~v0 ~v1 ~v2 v3 = du_refl_178 v3
du_refl_178 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
AgdaAny -> AgdaAny
du_refl_178 v0
= let v1
= coe MAlonzo.Code.Relation.Binary.Bundles.du_poset_698 (coe v0) in
let v2
= coe
MAlonzo.Code.Relation.Binary.Properties.Poset.du_'8805''45'poset_132
(coe v1) in
let v3
= MAlonzo.Code.Relation.Binary.Bundles.d_isPartialOrder_304
(coe v2) in
coe
MAlonzo.Code.Relation.Binary.Structures.du_refl_98
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isPreorder_170 (coe v3))
d_reflexive_180 ::
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_TotalOrder_648 ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d_reflexive_180 ~v0 ~v1 ~v2 v3 = du_reflexive_180 v3
du_reflexive_180 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du_reflexive_180 v0
= let v1
= coe MAlonzo.Code.Relation.Binary.Bundles.du_poset_698 (coe v0) in
coe
(\ v2 v3 v4 ->
coe
MAlonzo.Code.Relation.Binary.Structures.d_reflexive_82
(MAlonzo.Code.Relation.Binary.Structures.d_isPreorder_170
(coe
MAlonzo.Code.Relation.Binary.Bundles.d_isPartialOrder_304
(coe v1)))
v3 v2
(coe
MAlonzo.Code.Relation.Binary.Structures.d_sym_36
(MAlonzo.Code.Relation.Binary.Structures.d_isEquivalence_80
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isPreorder_170
(coe
MAlonzo.Code.Relation.Binary.Bundles.d_isPartialOrder_304
(coe v1))))
v2 v3 v4))
d_trans_182 ::
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_TotalOrder_648 ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
d_trans_182 ~v0 ~v1 ~v2 v3 = du_trans_182 v3
du_trans_182 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny
du_trans_182 v0
= let v1
= coe MAlonzo.Code.Relation.Binary.Bundles.du_poset_698 (coe v0) in
coe
(\ v2 v3 v4 v5 v6 ->
coe
MAlonzo.Code.Relation.Binary.Structures.d_trans_84
(MAlonzo.Code.Relation.Binary.Structures.d_isPreorder_170
(coe
MAlonzo.Code.Relation.Binary.Bundles.d_isPartialOrder_304
(coe v1)))
v4 v3 v2 v6 v5)
d_'8816''45'resp'691''45''8776'_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_TotalOrder_648 ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> MAlonzo.Code.Data.Empty.T_'8869'_4) ->
AgdaAny -> MAlonzo.Code.Data.Empty.T_'8869'_4
d_'8816''45'resp'691''45''8776'_184 = erased
d_'8816''45'resp'737''45''8776'_186 ::
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_TotalOrder_648 ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> MAlonzo.Code.Data.Empty.T_'8869'_4) ->
AgdaAny -> MAlonzo.Code.Data.Empty.T_'8869'_4
d_'8816''45'resp'737''45''8776'_186 = erased
d_decTotalOrder_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_TotalOrder_648 ->
(AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32) ->
MAlonzo.Code.Relation.Binary.Bundles.T_DecTotalOrder_736
d_decTotalOrder_188 ~v0 ~v1 ~v2 v3 v4 = du_decTotalOrder_188 v3 v4
du_decTotalOrder_188 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
(AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32) ->
MAlonzo.Code.Relation.Binary.Bundles.T_DecTotalOrder_736
du_decTotalOrder_188 v0 v1
= coe
MAlonzo.Code.Relation.Binary.Bundles.C_DecTotalOrder'46'constructor_12347
(coe
MAlonzo.Code.Relation.Binary.Structures.C_IsDecTotalOrder'46'constructor_16917
(coe
MAlonzo.Code.Relation.Binary.Bundles.d_isTotalOrder_670 (coe v0))
(coe v1)
(coe
MAlonzo.Code.Relation.Binary.Consequences.du_total'8743'dec'8658'dec_154
(coe
MAlonzo.Code.Relation.Binary.Structures.d_reflexive_82
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isPreorder_170
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isPartialOrder_388
(coe
MAlonzo.Code.Relation.Binary.Bundles.d_isTotalOrder_670
(coe v0)))))
(coe
MAlonzo.Code.Relation.Binary.Structures.d_total_390
(coe
MAlonzo.Code.Relation.Binary.Bundles.d_isTotalOrder_670 (coe v0)))
(coe v1)))
d_'8805''45'isTotalOrder_192 ::
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_TotalOrder_648 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsTotalOrder_380
d_'8805''45'isTotalOrder_192 ~v0 ~v1 ~v2 v3
= du_'8805''45'isTotalOrder_192 v3
du_'8805''45'isTotalOrder_192 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsTotalOrder_380
du_'8805''45'isTotalOrder_192 v0
= coe
MAlonzo.Code.Relation.Binary.Construct.Converse.du_isTotalOrder_382
(coe
MAlonzo.Code.Relation.Binary.Bundles.d_isTotalOrder_670 (coe v0))
d_'8805''45'totalOrder_194 ::
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_TotalOrder_648 ->
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648
d_'8805''45'totalOrder_194 ~v0 ~v1 ~v2 v3
= du_'8805''45'totalOrder_194 v3
du_'8805''45'totalOrder_194 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648
du_'8805''45'totalOrder_194 v0
= coe
MAlonzo.Code.Relation.Binary.Bundles.C_TotalOrder'46'constructor_10731
(coe du_'8805''45'isTotalOrder_192 (coe v0))
d_total_198 ::
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_TotalOrder_648 ->
AgdaAny -> AgdaAny -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30
d_total_198 ~v0 ~v1 ~v2 v3 = du_total_198 v3
du_total_198 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
AgdaAny -> AgdaAny -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30
du_total_198 v0
= coe
MAlonzo.Code.Relation.Binary.Structures.d_total_390
(coe du_'8805''45'isTotalOrder_192 (coe v0))
d_'8816''8658''62'_204 ::
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_TotalOrder_648 ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> MAlonzo.Code.Data.Empty.T_'8869'_4) ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_'8816''8658''62'_204 ~v0 ~v1 ~v2 v3 v4 v5
= du_'8816''8658''62'_204 v3 v4 v5
du_'8816''8658''62'_204 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> MAlonzo.Code.Data.Empty.T_'8869'_4) ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_'8816''8658''62'_204 v0 v1 v2
= coe
MAlonzo.Code.Relation.Binary.Construct.NonStrictToStrict.du_'8816''8658''62'_76
(let v3
= coe MAlonzo.Code.Relation.Binary.Bundles.du_poset_698 (coe v0) in
let v4
= coe
MAlonzo.Code.Relation.Binary.Bundles.du_preorder_326 (coe v3) in
coe
MAlonzo.Code.Relation.Binary.Structures.d_sym_36
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isEquivalence_80
(coe
MAlonzo.Code.Relation.Binary.Bundles.d_isPreorder_154 (coe v4))))
(coe
MAlonzo.Code.Relation.Binary.Structures.d_reflexive_82
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isPreorder_170
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isPartialOrder_388
(coe
MAlonzo.Code.Relation.Binary.Bundles.d_isTotalOrder_670
(coe v0)))))
(coe
MAlonzo.Code.Relation.Binary.Structures.d_total_390
(coe
MAlonzo.Code.Relation.Binary.Bundles.d_isTotalOrder_670 (coe v0)))
(coe v1) (coe v2)
d_'8816''8658''8805'_210 ::
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_TotalOrder_648 ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> MAlonzo.Code.Data.Empty.T_'8869'_4) -> AgdaAny
d_'8816''8658''8805'_210 ~v0 ~v1 ~v2 v3 v4 v5 ~v6
= du_'8816''8658''8805'_210 v3 v4 v5
du_'8816''8658''8805'_210 ::
MAlonzo.Code.Relation.Binary.Bundles.T_TotalOrder_648 ->
AgdaAny -> AgdaAny -> AgdaAny
du_'8816''8658''8805'_210 v0 v1 v2
= coe
MAlonzo.Code.Agda.Builtin.Sigma.d_fst_28
(coe du_'8816''8658''62'_204 v0 v1 v2 erased)