{-# 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.String.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.Equality
import qualified MAlonzo.Code.Agda.Builtin.String
import qualified MAlonzo.Code.Agda.Primitive
import qualified MAlonzo.Code.Data.Char.Properties
import qualified MAlonzo.Code.Data.List.Relation.Binary.Lex.Strict
import qualified MAlonzo.Code.Data.List.Relation.Binary.Pointwise
import qualified MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base
import qualified MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Properties
import qualified MAlonzo.Code.Function.Base
import qualified MAlonzo.Code.Relation.Binary.Bundles
import qualified MAlonzo.Code.Relation.Binary.Construct.On
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.Core
d_'8776''8658''8801'_6 ::
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12
d_'8776''8658''8801'_6 :: T_String_6 -> T_String_6 -> T_Pointwise_48 -> T__'8801'__12
d_'8776''8658''8801'_6 = T_String_6 -> T_String_6 -> T_Pointwise_48 -> T__'8801'__12
forall a. a
erased
d_'8776''45'reflexive_8 ::
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
d_'8776''45'reflexive_8 :: T_String_6 -> T_String_6 -> T__'8801'__12 -> T_Pointwise_48
d_'8776''45'reflexive_8 T_String_6
v0 ~T_String_6
v1 ~T__'8801'__12
v2 = T_String_6 -> T_Pointwise_48
du_'8776''45'reflexive_8 T_String_6
v0
du_'8776''45'reflexive_8 ::
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
du_'8776''45'reflexive_8 :: T_String_6 -> T_Pointwise_48
du_'8776''45'reflexive_8 T_String_6
v0
= ([Any] -> T_Pointwise_48) -> Any -> T_Pointwise_48
forall a b. a -> b
coe
[Any] -> T_Pointwise_48
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.du_'8801''8658'Pointwise'45''8801'_578
((T_String_6 -> String) -> T_String_6 -> Any
forall a b. a -> b
coe T_String_6 -> String
MAlonzo.Code.Agda.Builtin.String.d_primStringToList_12 T_String_6
v0)
d_'8776''45'refl_10 ::
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
d_'8776''45'refl_10 :: T_String_6 -> T_Pointwise_48
d_'8776''45'refl_10 T_String_6
v0 = (T_String_6 -> T_Pointwise_48) -> Any -> T_Pointwise_48
forall a b. a -> b
coe T_String_6 -> T_Pointwise_48
du_'8776''45'reflexive_8 (T_String_6 -> Any
forall a b. a -> b
coe T_String_6
v0)
d_'8776''45'sym_14 ::
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48
d_'8776''45'sym_14 :: T_String_6 -> T_String_6 -> T_Pointwise_48 -> T_Pointwise_48
d_'8776''45'sym_14 T_String_6
v0 T_String_6
v1
= ((Any -> Any -> Any -> Any)
-> [Any] -> [Any] -> T_Pointwise_48 -> T_Pointwise_48)
-> Any -> Any -> Any -> T_Pointwise_48 -> T_Pointwise_48
forall a b. a -> b
coe
(Any -> Any -> Any -> Any)
-> [Any] -> [Any] -> T_Pointwise_48 -> T_Pointwise_48
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Properties.du_symmetric_40
Any
forall a. a
erased
(((Any -> Any) -> (Any -> Any -> Any) -> Any -> Any -> Any)
-> (T_String_6 -> String)
-> (Any -> Any -> Any)
-> T_String_6
-> T_String_6
-> Any
forall a b. a -> b
coe
(Any -> Any) -> (Any -> Any -> Any) -> Any -> Any -> Any
MAlonzo.Code.Function.Base.du__'45''10216'_'8739'_302
T_String_6 -> String
MAlonzo.Code.Agda.Builtin.String.d_primStringToList_12
(\ Any
v2 Any
v3 -> Any
v2) T_String_6
v0 T_String_6
v1)
(((Any -> Any -> Any) -> (Any -> Any) -> Any -> Any -> Any)
-> (Any -> Any -> Any)
-> (T_String_6 -> String)
-> T_String_6
-> T_String_6
-> Any
forall a b. a -> b
coe
(Any -> Any -> Any) -> (Any -> Any) -> Any -> Any -> Any
MAlonzo.Code.Function.Base.du_'8739'_'10217''45'__308
(\ Any
v2 Any
v3 -> Any
v3)
T_String_6 -> String
MAlonzo.Code.Agda.Builtin.String.d_primStringToList_12 T_String_6
v0 T_String_6
v1)
d_'8776''45'trans_16 ::
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
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_'8776''45'trans_16 :: T_String_6
-> T_String_6
-> T_String_6
-> T_Pointwise_48
-> T_Pointwise_48
-> T_Pointwise_48
d_'8776''45'trans_16 T_String_6
v0 T_String_6
v1 T_String_6
v2
= ((Any -> Any -> Any -> Any -> Any -> Any)
-> [Any]
-> [Any]
-> [Any]
-> T_Pointwise_48
-> T_Pointwise_48
-> T_Pointwise_48)
-> Any
-> Any
-> Any
-> Any
-> T_Pointwise_48
-> T_Pointwise_48
-> T_Pointwise_48
forall a b. a -> b
coe
(Any -> Any -> Any -> Any -> Any -> Any)
-> [Any]
-> [Any]
-> [Any]
-> T_Pointwise_48
-> T_Pointwise_48
-> T_Pointwise_48
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Properties.du_transitive_50
Any
forall a. a
erased
(((Any -> Any) -> (Any -> Any -> Any) -> Any -> Any -> Any)
-> (T_String_6 -> String)
-> (Any -> Any -> Any)
-> T_String_6
-> T_String_6
-> Any
forall a b. a -> b
coe
(Any -> Any) -> (Any -> Any -> Any) -> Any -> Any -> Any
MAlonzo.Code.Function.Base.du__'45''10216'_'8739'_302
T_String_6 -> String
MAlonzo.Code.Agda.Builtin.String.d_primStringToList_12
(\ Any
v3 Any
v4 -> Any
v3) T_String_6
v0 T_String_6
v1)
(((Any -> Any -> Any) -> (Any -> Any) -> Any -> Any -> Any)
-> (Any -> Any -> Any)
-> (T_String_6 -> String)
-> T_String_6
-> T_String_6
-> Any
forall a b. a -> b
coe
(Any -> Any -> Any) -> (Any -> Any) -> Any -> Any -> Any
MAlonzo.Code.Function.Base.du_'8739'_'10217''45'__308
(\ Any
v3 Any
v4 -> Any
v4)
T_String_6 -> String
MAlonzo.Code.Agda.Builtin.String.d_primStringToList_12 T_String_6
v0 T_String_6
v1)
(((Any -> Any -> Any) -> (Any -> Any) -> Any -> Any -> Any)
-> (Any -> Any -> Any)
-> (T_String_6 -> String)
-> T_String_6
-> T_String_6
-> Any
forall a b. a -> b
coe
(Any -> Any -> Any) -> (Any -> Any) -> Any -> Any -> Any
MAlonzo.Code.Function.Base.du_'8739'_'10217''45'__308
(\ Any
v3 Any
v4 -> Any
v4)
T_String_6 -> String
MAlonzo.Code.Agda.Builtin.String.d_primStringToList_12 T_String_6
v1 T_String_6
v2)
d_'8776''45'subst_20 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(MAlonzo.Code.Agda.Builtin.String.T_String_6 -> ()) ->
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Base.T_Pointwise_48 ->
AgdaAny -> AgdaAny
d_'8776''45'subst_20 :: T_Level_18
-> (T_String_6 -> T_Level_18)
-> T_String_6
-> T_String_6
-> T_Pointwise_48
-> Any
-> Any
d_'8776''45'subst_20 ~T_Level_18
v0 ~T_String_6 -> T_Level_18
v1 ~T_String_6
v2 ~T_String_6
v3 ~T_Pointwise_48
v4 Any
v5
= Any -> Any
du_'8776''45'subst_20 Any
v5
du_'8776''45'subst_20 :: AgdaAny -> AgdaAny
du_'8776''45'subst_20 :: Any -> Any
du_'8776''45'subst_20 Any
v0 = Any -> Any
forall a b. a -> b
coe Any
v0
d__'8776''63'__28 ::
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
MAlonzo.Code.Relation.Nullary.T_Dec_32
d__'8776''63'__28 :: T_String_6 -> T_String_6 -> T_Dec_32
d__'8776''63'__28 T_String_6
v0 T_String_6
v1
= ((Any -> Any -> T_Dec_32) -> [Any] -> [Any] -> T_Dec_32)
-> Any -> Any -> Any -> T_Dec_32
forall a b. a -> b
coe
(Any -> Any -> T_Dec_32) -> [Any] -> [Any] -> T_Dec_32
MAlonzo.Code.Data.List.Relation.Binary.Pointwise.Properties.du_decidable_112
((T_Char_6 -> T_Char_6 -> T_Dec_32) -> Any
forall a b. a -> b
coe T_Char_6 -> T_Char_6 -> T_Dec_32
MAlonzo.Code.Data.Char.Properties.d__'8799'__14)
((T_String_6 -> String) -> T_String_6 -> Any
forall a b. a -> b
coe T_String_6 -> String
MAlonzo.Code.Agda.Builtin.String.d_primStringToList_12 T_String_6
v0)
((T_String_6 -> String) -> T_String_6 -> Any
forall a b. a -> b
coe T_String_6 -> String
MAlonzo.Code.Agda.Builtin.String.d_primStringToList_12 T_String_6
v1)
d_'8776''45'isEquivalence_34 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsEquivalence_26
d_'8776''45'isEquivalence_34 :: T_IsEquivalence_26
d_'8776''45'isEquivalence_34
= ((Any -> Any)
-> (Any -> Any -> Any -> Any)
-> (Any -> Any -> Any -> Any -> Any -> Any)
-> T_IsEquivalence_26)
-> Any -> Any -> Any -> T_IsEquivalence_26
forall a b. a -> b
coe
(Any -> Any)
-> (Any -> Any -> Any -> Any)
-> (Any -> Any -> Any -> Any -> Any -> Any)
-> T_IsEquivalence_26
MAlonzo.Code.Relation.Binary.Structures.C_IsEquivalence'46'constructor_743
((T_String_6 -> T_Pointwise_48) -> Any
forall a b. a -> b
coe T_String_6 -> T_Pointwise_48
d_'8776''45'refl_10) ((T_String_6 -> T_String_6 -> T_Pointwise_48 -> T_Pointwise_48)
-> Any
forall a b. a -> b
coe T_String_6 -> T_String_6 -> T_Pointwise_48 -> T_Pointwise_48
d_'8776''45'sym_14)
((T_String_6
-> T_String_6
-> T_String_6
-> T_Pointwise_48
-> T_Pointwise_48
-> T_Pointwise_48)
-> Any
forall a b. a -> b
coe T_String_6
-> T_String_6
-> T_String_6
-> T_Pointwise_48
-> T_Pointwise_48
-> T_Pointwise_48
d_'8776''45'trans_16)
d_'8776''45'setoid_48 ::
MAlonzo.Code.Relation.Binary.Bundles.T_Setoid_44
d_'8776''45'setoid_48 :: T_Setoid_44
d_'8776''45'setoid_48
= (T_IsEquivalence_26 -> T_Setoid_44)
-> T_IsEquivalence_26 -> T_Setoid_44
forall a b. a -> b
coe
T_IsEquivalence_26 -> T_Setoid_44
MAlonzo.Code.Relation.Binary.Bundles.C_Setoid'46'constructor_727
T_IsEquivalence_26
d_'8776''45'isEquivalence_34
d_'8776''45'isDecEquivalence_50 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsDecEquivalence_44
d_'8776''45'isDecEquivalence_50 :: T_IsDecEquivalence_44
d_'8776''45'isDecEquivalence_50
= (T_IsEquivalence_26
-> (Any -> Any -> T_Dec_32) -> T_IsDecEquivalence_44)
-> Any -> Any -> T_IsDecEquivalence_44
forall a b. a -> b
coe
T_IsEquivalence_26
-> (Any -> Any -> T_Dec_32) -> T_IsDecEquivalence_44
MAlonzo.Code.Relation.Binary.Structures.C_IsDecEquivalence'46'constructor_3075
(T_IsEquivalence_26 -> Any
forall a b. a -> b
coe T_IsEquivalence_26
d_'8776''45'isEquivalence_34) ((T_String_6 -> T_String_6 -> T_Dec_32) -> Any
forall a b. a -> b
coe T_String_6 -> T_String_6 -> T_Dec_32
d__'8776''63'__28)
d_'8776''45'decSetoid_52 ::
MAlonzo.Code.Relation.Binary.Bundles.T_DecSetoid_84
d_'8776''45'decSetoid_52 :: T_DecSetoid_84
d_'8776''45'decSetoid_52
= (T_IsDecEquivalence_44 -> T_DecSetoid_84)
-> T_IsDecEquivalence_44 -> T_DecSetoid_84
forall a b. a -> b
coe
T_IsDecEquivalence_44 -> T_DecSetoid_84
MAlonzo.Code.Relation.Binary.Bundles.C_DecSetoid'46'constructor_1385
T_IsDecEquivalence_44
d_'8776''45'isDecEquivalence_50
d__'8799'__54 ::
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
MAlonzo.Code.Relation.Nullary.T_Dec_32
d__'8799'__54 :: T_String_6 -> T_String_6 -> T_Dec_32
d__'8799'__54 T_String_6
v0 T_String_6
v1
= ((Any -> Any) -> T_Dec_32 -> T_Dec_32) -> Any -> Any -> T_Dec_32
forall a b. a -> b
coe
(Any -> Any) -> T_Dec_32 -> T_Dec_32
MAlonzo.Code.Relation.Nullary.Decidable.Core.du_map'8242'_168
Any
forall a. a
erased ((T_String_6 -> T_String_6 -> T_Dec_32) -> Any -> Any -> Any
forall a b. a -> b
coe T_String_6 -> T_String_6 -> T_Dec_32
d__'8776''63'__28 (T_String_6 -> Any
forall a b. a -> b
coe T_String_6
v0) (T_String_6 -> Any
forall a b. a -> b
coe T_String_6
v1))
d_'8801''45'setoid_60 ::
MAlonzo.Code.Relation.Binary.Bundles.T_Setoid_44
d_'8801''45'setoid_60 :: T_Setoid_44
d_'8801''45'setoid_60
= T_Setoid_44 -> T_Setoid_44
forall a b. a -> b
coe
T_Setoid_44
MAlonzo.Code.Relation.Binary.PropositionalEquality.Properties.du_setoid_250
d_'8801''45'decSetoid_62 ::
MAlonzo.Code.Relation.Binary.Bundles.T_DecSetoid_84
d_'8801''45'decSetoid_62 :: T_DecSetoid_84
d_'8801''45'decSetoid_62
= ((Any -> Any -> T_Dec_32) -> T_DecSetoid_84)
-> Any -> T_DecSetoid_84
forall a b. a -> b
coe
(Any -> Any -> T_Dec_32) -> T_DecSetoid_84
MAlonzo.Code.Relation.Binary.PropositionalEquality.Properties.du_decSetoid_254
((T_String_6 -> T_String_6 -> T_Dec_32) -> Any
forall a b. a -> b
coe T_String_6 -> T_String_6 -> T_Dec_32
d__'8799'__54)
d__'60''63'__64 ::
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
MAlonzo.Code.Relation.Nullary.T_Dec_32
d__'60''63'__64 :: T_String_6 -> T_String_6 -> T_Dec_32
d__'60''63'__64 T_String_6
v0 T_String_6
v1
= ((Any -> Any -> T_Dec_32)
-> (Any -> Any -> T_Dec_32) -> [Any] -> [Any] -> T_Dec_32)
-> (T_Char_6 -> T_Char_6 -> T_Dec_32)
-> (T_Char_6 -> T_Char_6 -> T_Dec_32)
-> Any
-> Any
-> T_Dec_32
forall a b. a -> b
coe
(Any -> Any -> T_Dec_32)
-> (Any -> Any -> T_Dec_32) -> [Any] -> [Any] -> T_Dec_32
MAlonzo.Code.Data.List.Relation.Binary.Lex.Strict.du_'60''45'decidable_270
T_Char_6 -> T_Char_6 -> T_Dec_32
MAlonzo.Code.Data.Char.Properties.d__'8799'__14
T_Char_6 -> T_Char_6 -> T_Dec_32
MAlonzo.Code.Data.Char.Properties.d__'60''63'__44
((T_String_6 -> String) -> T_String_6 -> Any
forall a b. a -> b
coe T_String_6 -> String
MAlonzo.Code.Agda.Builtin.String.d_primStringToList_12 T_String_6
v0)
((T_String_6 -> String) -> T_String_6 -> Any
forall a b. a -> b
coe T_String_6 -> String
MAlonzo.Code.Agda.Builtin.String.d_primStringToList_12 T_String_6
v1)
d_'60''45'isStrictPartialOrder'45''8776'_70 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsStrictPartialOrder_266
d_'60''45'isStrictPartialOrder'45''8776'_70 :: T_IsStrictPartialOrder_266
d_'60''45'isStrictPartialOrder'45''8776'_70
= ((Any -> Any)
-> T_IsStrictPartialOrder_266 -> T_IsStrictPartialOrder_266)
-> Any -> Any -> T_IsStrictPartialOrder_266
forall a b. a -> b
coe
(Any -> Any)
-> T_IsStrictPartialOrder_266 -> T_IsStrictPartialOrder_266
MAlonzo.Code.Relation.Binary.Construct.On.du_isStrictPartialOrder_356
((T_String_6 -> String) -> Any
forall a b. a -> b
coe T_String_6 -> String
MAlonzo.Code.Agda.Builtin.String.d_primStringToList_12)
((T_IsStrictPartialOrder_266 -> T_IsStrictPartialOrder_266)
-> Any -> Any
forall a b. a -> b
coe
T_IsStrictPartialOrder_266 -> T_IsStrictPartialOrder_266
MAlonzo.Code.Data.List.Relation.Binary.Lex.Strict.du_'60''45'isStrictPartialOrder_274
(T_IsStrictPartialOrder_266 -> Any
forall a b. a -> b
coe
T_IsStrictPartialOrder_266
MAlonzo.Code.Data.Char.Properties.d_'60''45'isStrictPartialOrder_102))
d_'60''45'isStrictTotalOrder'45''8776'_72 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsStrictTotalOrder_502
d_'60''45'isStrictTotalOrder'45''8776'_72 :: T_IsStrictTotalOrder_502
d_'60''45'isStrictTotalOrder'45''8776'_72
= ((Any -> Any)
-> T_IsStrictTotalOrder_502 -> T_IsStrictTotalOrder_502)
-> Any -> Any -> T_IsStrictTotalOrder_502
forall a b. a -> b
coe
(Any -> Any)
-> T_IsStrictTotalOrder_502 -> T_IsStrictTotalOrder_502
MAlonzo.Code.Relation.Binary.Construct.On.du_isStrictTotalOrder_500
((T_String_6 -> String) -> Any
forall a b. a -> b
coe T_String_6 -> String
MAlonzo.Code.Agda.Builtin.String.d_primStringToList_12)
((T_IsStrictTotalOrder_502 -> T_IsStrictTotalOrder_502)
-> Any -> Any
forall a b. a -> b
coe
T_IsStrictTotalOrder_502 -> T_IsStrictTotalOrder_502
MAlonzo.Code.Data.List.Relation.Binary.Lex.Strict.du_'60''45'isStrictTotalOrder_312
(T_IsStrictTotalOrder_502 -> Any
forall a b. a -> b
coe
T_IsStrictTotalOrder_502
MAlonzo.Code.Data.Char.Properties.d_'60''45'isStrictTotalOrder_118))
d_'60''45'strictPartialOrder'45''8776'_74 ::
MAlonzo.Code.Relation.Binary.Bundles.T_StrictPartialOrder_472
d_'60''45'strictPartialOrder'45''8776'_74 :: T_StrictPartialOrder_472
d_'60''45'strictPartialOrder'45''8776'_74
= (T_StrictPartialOrder_472
-> (Any -> Any) -> T_StrictPartialOrder_472)
-> Any -> Any -> T_StrictPartialOrder_472
forall a b. a -> b
coe
T_StrictPartialOrder_472
-> (Any -> Any) -> T_StrictPartialOrder_472
MAlonzo.Code.Relation.Binary.Construct.On.du_strictPartialOrder_594
((T_StrictPartialOrder_472 -> T_StrictPartialOrder_472)
-> Any -> Any
forall a b. a -> b
coe
T_StrictPartialOrder_472 -> T_StrictPartialOrder_472
MAlonzo.Code.Data.List.Relation.Binary.Lex.Strict.du_'60''45'strictPartialOrder_370
(T_StrictPartialOrder_472 -> Any
forall a b. a -> b
coe
T_StrictPartialOrder_472
MAlonzo.Code.Data.Char.Properties.d_'60''45'strictPartialOrder_126))
((T_String_6 -> String) -> Any
forall a b. a -> b
coe T_String_6 -> String
MAlonzo.Code.Agda.Builtin.String.d_primStringToList_12)
d_'60''45'strictTotalOrder'45''8776'_76 ::
MAlonzo.Code.Relation.Binary.Bundles.T_StrictTotalOrder_864
d_'60''45'strictTotalOrder'45''8776'_76 :: T_StrictTotalOrder_864
d_'60''45'strictTotalOrder'45''8776'_76
= (T_StrictTotalOrder_864 -> (Any -> Any) -> T_StrictTotalOrder_864)
-> Any -> Any -> T_StrictTotalOrder_864
forall a b. a -> b
coe
T_StrictTotalOrder_864 -> (Any -> Any) -> T_StrictTotalOrder_864
MAlonzo.Code.Relation.Binary.Construct.On.du_strictTotalOrder_618
((T_StrictTotalOrder_864 -> T_StrictTotalOrder_864) -> Any -> Any
forall a b. a -> b
coe
T_StrictTotalOrder_864 -> T_StrictTotalOrder_864
MAlonzo.Code.Data.List.Relation.Binary.Lex.Strict.du_'60''45'strictTotalOrder_434
(T_StrictTotalOrder_864 -> Any
forall a b. a -> b
coe
T_StrictTotalOrder_864
MAlonzo.Code.Data.Char.Properties.d_'60''45'strictTotalOrder_128))
((T_String_6 -> String) -> Any
forall a b. a -> b
coe T_String_6 -> String
MAlonzo.Code.Agda.Builtin.String.d_primStringToList_12)
d_'8804''45'isDecPartialOrder'45''8776'_78 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsDecPartialOrder_206
d_'8804''45'isDecPartialOrder'45''8776'_78 :: T_IsDecPartialOrder_206
d_'8804''45'isDecPartialOrder'45''8776'_78
= ((Any -> Any)
-> T_IsDecPartialOrder_206 -> T_IsDecPartialOrder_206)
-> Any -> Any -> T_IsDecPartialOrder_206
forall a b. a -> b
coe
(Any -> Any) -> T_IsDecPartialOrder_206 -> T_IsDecPartialOrder_206
MAlonzo.Code.Relation.Binary.Construct.On.du_isDecPartialOrder_304
((T_String_6 -> String) -> Any
forall a b. a -> b
coe T_String_6 -> String
MAlonzo.Code.Agda.Builtin.String.d_primStringToList_12)
((T_IsStrictTotalOrder_502 -> T_IsDecPartialOrder_206) -> Any -> Any
forall a b. a -> b
coe
T_IsStrictTotalOrder_502 -> T_IsDecPartialOrder_206
MAlonzo.Code.Data.List.Relation.Binary.Lex.Strict.du_'8804''45'isDecPartialOrder_706
(T_IsStrictTotalOrder_502 -> Any
forall a b. a -> b
coe
T_IsStrictTotalOrder_502
MAlonzo.Code.Data.Char.Properties.d_'60''45'isStrictTotalOrder_118))
d_'8804''45'decPoset'45''8776'_80 ::
MAlonzo.Code.Relation.Binary.Bundles.T_DecPoset_360
d_'8804''45'decPoset'45''8776'_80 :: T_DecPoset_360
d_'8804''45'decPoset'45''8776'_80
= (T_DecPoset_360 -> (Any -> Any) -> T_DecPoset_360)
-> Any -> Any -> T_DecPoset_360
forall a b. a -> b
coe
T_DecPoset_360 -> (Any -> Any) -> T_DecPoset_360
MAlonzo.Code.Relation.Binary.Construct.On.du_decPoset_586
((T_StrictTotalOrder_864 -> T_DecPoset_360) -> Any -> Any
forall a b. a -> b
coe
T_StrictTotalOrder_864 -> T_DecPoset_360
MAlonzo.Code.Data.List.Relation.Binary.Lex.Strict.du_'8804''45'decPoset_994
(T_StrictTotalOrder_864 -> Any
forall a b. a -> b
coe
T_StrictTotalOrder_864
MAlonzo.Code.Data.Char.Properties.d_'60''45'strictTotalOrder_128))
((T_String_6 -> String) -> Any
forall a b. a -> b
coe T_String_6 -> String
MAlonzo.Code.Agda.Builtin.String.d_primStringToList_12)
d__'61''61'__82 ::
MAlonzo.Code.Agda.Builtin.String.T_String_6 ->
MAlonzo.Code.Agda.Builtin.String.T_String_6 -> Bool
d__'61''61'__82 :: T_String_6 -> T_String_6 -> Bool
d__'61''61'__82 T_String_6
v0 T_String_6
v1
= (T_Dec_32 -> Bool) -> Any -> Bool
forall a b. a -> b
coe
T_Dec_32 -> Bool
MAlonzo.Code.Relation.Nullary.Decidable.Core.du_isYes_16
((T_String_6 -> T_String_6 -> T_Dec_32) -> Any -> Any -> Any
forall a b. a -> b
coe T_String_6 -> T_String_6 -> T_Dec_32
d__'8799'__54 (T_String_6 -> Any
forall a b. a -> b
coe T_String_6
v0) (T_String_6 -> Any
forall a b. a -> b
coe T_String_6
v1))
d_setoid_96 :: MAlonzo.Code.Relation.Binary.Bundles.T_Setoid_44
d_setoid_96 :: T_Setoid_44
d_setoid_96 = T_Setoid_44 -> T_Setoid_44
forall a b. a -> b
coe T_Setoid_44
d_'8801''45'setoid_60
d_decSetoid_98 ::
MAlonzo.Code.Relation.Binary.Bundles.T_DecSetoid_84
d_decSetoid_98 :: T_DecSetoid_84
d_decSetoid_98 = T_DecSetoid_84 -> T_DecSetoid_84
forall a b. a -> b
coe T_DecSetoid_84
d_'8801''45'decSetoid_62
d_strictTotalOrder_100 ::
MAlonzo.Code.Relation.Binary.Bundles.T_StrictTotalOrder_864
d_strictTotalOrder_100 :: T_StrictTotalOrder_864
d_strictTotalOrder_100
= T_StrictTotalOrder_864 -> T_StrictTotalOrder_864
forall a b. a -> b
coe T_StrictTotalOrder_864
d_'60''45'strictTotalOrder'45''8776'_76