{-# 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.NonStrictToStrict 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.Definitions
import qualified MAlonzo.Code.Relation.Binary.Structures
import qualified MAlonzo.Code.Relation.Nullary
import qualified MAlonzo.Code.Relation.Nullary.Negation.Core
import qualified MAlonzo.Code.Relation.Nullary.Product
d__'8777'__20 ::
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 -> ()
d__'8777'__20 = erased
d__'60'__26 ::
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 -> ()
d__'60'__26 = erased
d_'60''8658''8804'_32 ::
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.Agda.Builtin.Sigma.T_Σ_14 -> AgdaAny
d_'60''8658''8804'_32 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7
= du_'60''8658''8804'_32
du_'60''8658''8804'_32 ::
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 -> AgdaAny
du_'60''8658''8804'_32
= coe MAlonzo.Code.Agda.Builtin.Sigma.d_fst_28
d_'60''8658''8777'_38 ::
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.Agda.Builtin.Sigma.T_Σ_14 ->
AgdaAny -> MAlonzo.Code.Data.Empty.T_'8869'_4
d_'60''8658''8777'_38 = erased
d_'8804''8743''8777''8658''60'_44 ::
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.Empty.T_'8869'_4) ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_'8804''8743''8777''8658''60'_44 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 ~v7
= du_'8804''8743''8777''8658''60'_44
du_'8804''8743''8777''8658''60'_44 ::
AgdaAny ->
(AgdaAny -> MAlonzo.Code.Data.Empty.T_'8869'_4) ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_'8804''8743''8777''8658''60'_44
= coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32
d_'60''8658''8817'_50 ::
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 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
AgdaAny -> MAlonzo.Code.Data.Empty.T_'8869'_4
d_'60''8658''8817'_50 = erased
d_'8804''8658''8815'_64 ::
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.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Data.Empty.T_'8869'_4
d_'8804''8658''8815'_64 = erased
d_'8816''8658''62'_76 ::
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 -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30) ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> MAlonzo.Code.Data.Empty.T_'8869'_4) ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_'8816''8658''62'_76 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 v8 v9 v10 v11
= du_'8816''8658''62'_76 v6 v7 v8 v9 v10 v11
du_'8816''8658''62'_76 ::
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30) ->
AgdaAny ->
AgdaAny ->
(AgdaAny -> MAlonzo.Code.Data.Empty.T_'8869'_4) ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_'8816''8658''62'_76 v0 v1 v2 v3 v4 v5
= let v6 = coe v2 v3 v4 in
case coe v6 of
MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 v7
-> coe
MAlonzo.Code.Relation.Nullary.Negation.Core.du_contradiction_24
MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42 v7
-> coe
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v7)
(coe (\ v8 -> coe v5 (coe v1 v3 v4 (coe v0 v4 v3 v8))))
_ -> MAlonzo.RTE.mazUnreachableError
d_'8814''8658''8805'_126 ::
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.Nullary.T_Dec_32) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30) ->
AgdaAny ->
AgdaAny ->
(MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Data.Empty.T_'8869'_4) ->
AgdaAny
d_'8814''8658''8805'_126 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 v8 v9 v10
v11 ~v12
= du_'8814''8658''8805'_126 v6 v7 v8 v9 v10 v11
du_'8814''8658''8805'_126 ::
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30) ->
AgdaAny -> AgdaAny -> AgdaAny
du_'8814''8658''8805'_126 v0 v1 v2 v3 v4 v5
= let v6 = coe v1 v4 v5 in
let v7 = coe v3 v5 v4 in
case coe v6 of
MAlonzo.Code.Relation.Nullary.C__because__46 v8 v9
-> let v10
= case coe v7 of
MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 v10 -> coe v10
_ -> MAlonzo.RTE.mazUnreachableError in
if coe v8
then case coe v9 of
MAlonzo.Code.Relation.Nullary.C_of'696'_22 v11
-> coe v2 v5 v4 (coe v0 v4 v5 v11)
_ -> coe v10
else (case coe v7 of
MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 v11 -> coe v11
MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42 v11
-> case coe v9 of
MAlonzo.Code.Relation.Nullary.C_of'8319'_26
-> coe
MAlonzo.Code.Relation.Nullary.Negation.Core.du_contradiction_24
_ -> coe v10
_ -> MAlonzo.RTE.mazUnreachableError)
_ -> MAlonzo.RTE.mazUnreachableError
d_'60''45'irrefl_196 ::
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 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Data.Empty.T_'8869'_4
d_'60''45'irrefl_196 = erased
d_'60''45'trans_202 ::
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.Relation.Binary.Structures.T_IsPartialOrder_162 ->
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_'60''45'trans_202 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 v8 v9 v10 v11
= du_'60''45'trans_202 v6 v7 v8 v9 v10 v11
du_'60''45'trans_202 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsPartialOrder_162 ->
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_'60''45'trans_202 v0 v1 v2 v3 v4 v5
= case coe v4 of
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v6 v7
-> case coe v5 of
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v8 v9
-> coe
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32
(coe
MAlonzo.Code.Relation.Binary.Structures.d_trans_84
(MAlonzo.Code.Relation.Binary.Structures.d_isPreorder_170 (coe v0))
v1 v2 v3 v6 v8)
(coe
(\ v10 ->
coe
v7
(coe
MAlonzo.Code.Relation.Binary.Structures.d_antisym_172 v0 v1 v2 v6
(coe
MAlonzo.Code.Relation.Binary.Structures.d_trans_84
(MAlonzo.Code.Relation.Binary.Structures.d_isPreorder_170
(coe v0))
v2 v3 v1 v8
(coe
MAlonzo.Code.Relation.Binary.Structures.d_reflexive_82
(MAlonzo.Code.Relation.Binary.Structures.d_isPreorder_170
(coe v0))
v3 v1
(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 v0)))
v1 v3 v10))))))
_ -> MAlonzo.RTE.mazUnreachableError
_ -> MAlonzo.RTE.mazUnreachableError
d_'60''45''8804''45'trans_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 -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
AgdaAny -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_'60''45''8804''45'trans_250 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 v8 v9
v10 v11 v12 v13 v14
= du_'60''45''8804''45'trans_250 v6 v7 v8 v9 v10 v11 v12 v13 v14
du_'60''45''8804''45'trans_250 ::
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
AgdaAny -> MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_'60''45''8804''45'trans_250 v0 v1 v2 v3 v4 v5 v6 v7 v8
= case coe v7 of
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v9 v10
-> coe
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v1 v4 v5 v6 v9 v8)
(coe
(\ v11 ->
coe v10 (coe v2 v4 v5 v9 (coe v3 v5 v6 v4 (coe v0 v4 v6 v11) v8))))
_ -> MAlonzo.RTE.mazUnreachableError
d_'8804''45''60''45'trans_268 ::
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 -> AgdaAny) ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_'8804''45''60''45'trans_268 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 v8 v9
v10 v11 v12 v13
= du_'8804''45''60''45'trans_268 v6 v7 v8 v9 v10 v11 v12 v13
du_'8804''45''60''45'trans_268 ::
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
AgdaAny ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_'8804''45''60''45'trans_268 v0 v1 v2 v3 v4 v5 v6 v7
= case coe v7 of
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v8 v9
-> coe
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v0 v3 v4 v5 v6 v8)
(coe (\ v10 -> coe v9 (coe v1 v4 v5 v8 (coe v2 v4 v3 v5 v10 v6))))
_ -> MAlonzo.RTE.mazUnreachableError
d_'60''45'asym_284 ::
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 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Data.Empty.T_'8869'_4
d_'60''45'asym_284 = erased
d_'60''45'resp'737''45''8776'_294 ::
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.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_'60''45'resp'737''45''8776'_294 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 v8
v9 v10 v11 v12
= du_'60''45'resp'737''45''8776'_294 v6 v7 v8 v9 v10 v11 v12
du_'60''45'resp'737''45''8776'_294 ::
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
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'_294 v0 v1 v2 v3 v4 v5 v6
= case coe v6 of
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v7 v8
-> coe
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v1 v2 v3 v4 v5 v7)
(coe (\ v9 -> coe v8 (coe v0 v3 v4 v2 v5 v9)))
_ -> MAlonzo.RTE.mazUnreachableError
d_'60''45'resp'691''45''8776'_306 ::
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) ->
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'_306 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 v8
v9 v10 v11 v12 v13
= du_'60''45'resp'691''45''8776'_306 v6 v7 v8 v9 v10 v11 v12 v13
du_'60''45'resp'691''45''8776'_306 ::
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
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'_306 v0 v1 v2 v3 v4 v5 v6 v7
= case coe v7 of
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v8 v9
-> coe
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v2 v3 v4 v5 v6 v8)
(coe (\ v10 -> coe v9 (coe v1 v3 v5 v4 v10 (coe v0 v4 v5 v6))))
_ -> MAlonzo.RTE.mazUnreachableError
d_'60''45'resp'45''8776'_322 ::
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.Relation.Binary.Structures.T_IsEquivalence_26 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
d_'60''45'resp'45''8776'_322 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7
= du_'60''45'resp'45''8776'_322 v6 v7
du_'60''45'resp'45''8776'_322 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsEquivalence_26 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14
du_'60''45'resp'45''8776'_322 v0 v1
= case coe v1 of
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 v2 v3
-> coe
MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32
(coe
du_'60''45'resp'691''45''8776'_306
(coe MAlonzo.Code.Relation.Binary.Structures.d_sym_36 (coe v0))
(coe MAlonzo.Code.Relation.Binary.Structures.d_trans_38 (coe v0))
(coe v2))
(coe
du_'60''45'resp'737''45''8776'_294
(coe MAlonzo.Code.Relation.Binary.Structures.d_trans_38 (coe v0))
(coe v3))
_ -> MAlonzo.RTE.mazUnreachableError
d_'60''45'trichotomous_346 ::
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.Nullary.T_Dec_32) ->
(AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny) ->
(AgdaAny -> AgdaAny -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30) ->
AgdaAny ->
AgdaAny -> MAlonzo.Code.Relation.Binary.Definitions.T_Tri_136
d_'60''45'trichotomous_346 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 ~v6 v7 ~v8 v9
v10 v11
= du_'60''45'trichotomous_346 v7 v9 v10 v11
du_'60''45'trichotomous_346 ::
(AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32) ->
(AgdaAny -> AgdaAny -> MAlonzo.Code.Data.Sum.Base.T__'8846'__30) ->
AgdaAny ->
AgdaAny -> MAlonzo.Code.Relation.Binary.Definitions.T_Tri_136
du_'60''45'trichotomous_346 v0 v1 v2 v3
= let v4 = coe v0 v2 v3 in
case coe v4 of
MAlonzo.Code.Relation.Nullary.C__because__46 v5 v6
-> if coe v5
then case coe v6 of
MAlonzo.Code.Relation.Nullary.C_of'696'_22 v7
-> coe MAlonzo.Code.Relation.Binary.Definitions.C_tri'8776'_158 v7
_ -> MAlonzo.RTE.mazUnreachableError
else coe
seq (coe v6)
(let v7 = coe v1 v2 v3 in
case coe v7 of
MAlonzo.Code.Data.Sum.Base.C_inj'8321'_38 v8
-> coe
MAlonzo.Code.Relation.Binary.Definitions.C_tri'60'_150
(coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v8) erased)
MAlonzo.Code.Data.Sum.Base.C_inj'8322'_42 v8
-> coe
MAlonzo.Code.Relation.Binary.Definitions.C_tri'62'_166
(coe MAlonzo.Code.Agda.Builtin.Sigma.C__'44'__32 (coe v8) erased)
_ -> MAlonzo.RTE.mazUnreachableError)
_ -> MAlonzo.RTE.mazUnreachableError
d_'60''45'decidable_428 ::
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.Relation.Nullary.T_Dec_32) ->
(AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32) ->
AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32
d_'60''45'decidable_428 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6 v7 v8 v9
= du_'60''45'decidable_428 v6 v7 v8 v9
du_'60''45'decidable_428 ::
(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_'60''45'decidable_428 v0 v1 v2 v3
= coe
MAlonzo.Code.Relation.Nullary.Product.du__'215''45'dec__30
(coe v1 v2 v3)
(coe
MAlonzo.Code.Relation.Nullary.Negation.Core.du_'172''63'_64
(coe v0 v2 v3))
d_'60''45'isStrictPartialOrder_438 ::
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.Relation.Binary.Structures.T_IsPartialOrder_162 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsStrictPartialOrder_266
d_'60''45'isStrictPartialOrder_438 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6
= du_'60''45'isStrictPartialOrder_438 v6
du_'60''45'isStrictPartialOrder_438 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsPartialOrder_162 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsStrictPartialOrder_266
du_'60''45'isStrictPartialOrder_438 v0
= coe
MAlonzo.Code.Relation.Binary.Structures.C_IsStrictPartialOrder'46'constructor_9921
(MAlonzo.Code.Relation.Binary.Structures.d_isEquivalence_80
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isPreorder_170 (coe v0)))
(coe du_'60''45'trans_202 (coe v0))
(coe
du_'60''45'resp'45''8776'_322
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isEquivalence_80
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isPreorder_170 (coe v0)))
(coe
MAlonzo.Code.Relation.Binary.Structures.du_'8764''45'resp'45''8776'_112
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isPreorder_170
(coe v0))))
d_'60''45'isDecStrictPartialOrder_478 ::
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.Relation.Binary.Structures.T_IsDecPartialOrder_206 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsDecStrictPartialOrder_312
d_'60''45'isDecStrictPartialOrder_478 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6
= du_'60''45'isDecStrictPartialOrder_478 v6
du_'60''45'isDecStrictPartialOrder_478 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsDecPartialOrder_206 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsDecStrictPartialOrder_312
du_'60''45'isDecStrictPartialOrder_478 v0
= coe
MAlonzo.Code.Relation.Binary.Structures.C_IsDecStrictPartialOrder'46'constructor_13497
(coe
du_'60''45'isStrictPartialOrder_438
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isPartialOrder_216
(coe v0)))
(coe
MAlonzo.Code.Relation.Binary.Structures.d__'8799'__218 (coe v0))
(coe
du_'60''45'decidable_428
(coe
MAlonzo.Code.Relation.Binary.Structures.d__'8799'__218 (coe v0))
(coe
MAlonzo.Code.Relation.Binary.Structures.d__'8804''63'__220
(coe v0)))
d_'60''45'isStrictTotalOrder'8321'_530 ::
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.Relation.Nullary.T_Dec_32) ->
MAlonzo.Code.Relation.Binary.Structures.T_IsTotalOrder_380 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsStrictTotalOrder_498
d_'60''45'isStrictTotalOrder'8321'_530 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6
v7
= du_'60''45'isStrictTotalOrder'8321'_530 v6 v7
du_'60''45'isStrictTotalOrder'8321'_530 ::
(AgdaAny -> AgdaAny -> MAlonzo.Code.Relation.Nullary.T_Dec_32) ->
MAlonzo.Code.Relation.Binary.Structures.T_IsTotalOrder_380 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsStrictTotalOrder_498
du_'60''45'isStrictTotalOrder'8321'_530 v0 v1
= coe
MAlonzo.Code.Relation.Binary.Structures.C_IsStrictTotalOrder'46'constructor_18889
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isEquivalence_80
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isPreorder_170
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isPartialOrder_388
(coe v1))))
(coe
du_'60''45'trans_202
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isPartialOrder_388
(coe v1)))
(coe
du_'60''45'trichotomous_346 (coe v0)
(coe MAlonzo.Code.Relation.Binary.Structures.d_total_390 (coe v1)))
d_'60''45'isStrictTotalOrder'8322'_578 ::
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.Relation.Binary.Structures.T_IsDecTotalOrder_430 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsStrictTotalOrder_498
d_'60''45'isStrictTotalOrder'8322'_578 ~v0 ~v1 ~v2 ~v3 ~v4 ~v5 v6
= du_'60''45'isStrictTotalOrder'8322'_578 v6
du_'60''45'isStrictTotalOrder'8322'_578 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsDecTotalOrder_430 ->
MAlonzo.Code.Relation.Binary.Structures.T_IsStrictTotalOrder_498
du_'60''45'isStrictTotalOrder'8322'_578 v0
= coe
du_'60''45'isStrictTotalOrder'8321'_530
(coe
MAlonzo.Code.Relation.Binary.Structures.d__'8799'__442 (coe v0))
(coe
MAlonzo.Code.Relation.Binary.Structures.d_isTotalOrder_440
(coe v0))