{-# 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.Word64.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.Primitive
import qualified MAlonzo.Code.Data.Nat.Properties
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.Decidable.Core
d_'8776''8658''8801'_6 ::
MAlonzo.RTE.Word64 ->
MAlonzo.RTE.Word64 ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12
d_'8776''8658''8801'_6 :: Word64 -> Word64 -> T__'8801'__12 -> T__'8801'__12
d_'8776''8658''8801'_6 = Word64 -> Word64 -> T__'8801'__12 -> T__'8801'__12
forall a. a
erased
d_'8776''45'reflexive_8 ::
MAlonzo.RTE.Word64 ->
MAlonzo.RTE.Word64 ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12
d_'8776''45'reflexive_8 :: Word64 -> Word64 -> T__'8801'__12 -> T__'8801'__12
d_'8776''45'reflexive_8 = Word64 -> Word64 -> T__'8801'__12 -> T__'8801'__12
forall a. a
erased
d_'8776''45'refl_10 ::
MAlonzo.RTE.Word64 ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12
d_'8776''45'refl_10 :: Word64 -> T__'8801'__12
d_'8776''45'refl_10 = Word64 -> T__'8801'__12
forall a. a
erased
d_'8776''45'sym_12 ::
MAlonzo.RTE.Word64 ->
MAlonzo.RTE.Word64 ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12
d_'8776''45'sym_12 :: Word64 -> Word64 -> T__'8801'__12 -> T__'8801'__12
d_'8776''45'sym_12 = Word64 -> Word64 -> T__'8801'__12 -> T__'8801'__12
forall a. a
erased
d_'8776''45'trans_14 ::
MAlonzo.RTE.Word64 ->
MAlonzo.RTE.Word64 ->
MAlonzo.RTE.Word64 ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12
d_'8776''45'trans_14 :: Word64
-> Word64
-> Word64
-> T__'8801'__12
-> T__'8801'__12
-> T__'8801'__12
d_'8776''45'trans_14 = Word64
-> Word64
-> Word64
-> T__'8801'__12
-> T__'8801'__12
-> T__'8801'__12
forall a. a
erased
d_'8776''45'subst_18 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(MAlonzo.RTE.Word64 -> ()) ->
MAlonzo.RTE.Word64 ->
MAlonzo.RTE.Word64 ->
MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 ->
AgdaAny -> AgdaAny
d_'8776''45'subst_18 :: T_Level_18
-> (Word64 -> T_Level_18)
-> Word64
-> Word64
-> T__'8801'__12
-> AgdaAny
-> AgdaAny
d_'8776''45'subst_18 ~T_Level_18
v0 ~Word64 -> T_Level_18
v1 ~Word64
v2 ~Word64
v3 ~T__'8801'__12
v4 AgdaAny
v5
= AgdaAny -> AgdaAny
du_'8776''45'subst_18 AgdaAny
v5
du_'8776''45'subst_18 :: AgdaAny -> AgdaAny
du_'8776''45'subst_18 :: AgdaAny -> AgdaAny
du_'8776''45'subst_18 AgdaAny
v0 = AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v0
d__'8776''63'__26 ::
MAlonzo.RTE.Word64 ->
MAlonzo.RTE.Word64 ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20
d__'8776''63'__26 :: Word64 -> Word64 -> T_Dec_20
d__'8776''63'__26 Word64
v0 Word64
v1
= (Integer -> Integer -> T_Dec_20) -> AgdaAny -> AgdaAny -> T_Dec_20
forall a b. a -> b
coe
Integer -> Integer -> T_Dec_20
MAlonzo.Code.Data.Nat.Properties.d__'8799'__2688
((Word64 -> Integer) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe Word64 -> Integer
word64ToNat (Word64 -> AgdaAny
forall a b. a -> b
coe Word64
v0)) ((Word64 -> Integer) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe Word64 -> Integer
word64ToNat (Word64 -> AgdaAny
forall a b. a -> b
coe Word64
v1))
d_'8776''45'isEquivalence_32 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsEquivalence_26
d_'8776''45'isEquivalence_32 :: T_IsEquivalence_26
d_'8776''45'isEquivalence_32
= ((AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny)
-> T_IsEquivalence_26)
-> AgdaAny -> AgdaAny -> AgdaAny -> T_IsEquivalence_26
forall a b. a -> b
coe
(AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny)
-> T_IsEquivalence_26
MAlonzo.Code.Relation.Binary.Structures.C_IsEquivalence'46'constructor_745
AgdaAny
forall a. a
erased AgdaAny
forall a. a
erased AgdaAny
forall a. a
erased
d_'8776''45'setoid_46 ::
MAlonzo.Code.Relation.Binary.Bundles.T_Setoid_44
d_'8776''45'setoid_46 :: T_Setoid_44
d_'8776''45'setoid_46
= (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_733
T_IsEquivalence_26
d_'8776''45'isEquivalence_32
d_'8776''45'isDecEquivalence_48 ::
MAlonzo.Code.Relation.Binary.Structures.T_IsDecEquivalence_44
d_'8776''45'isDecEquivalence_48 :: T_IsDecEquivalence_44
d_'8776''45'isDecEquivalence_48
= (T_IsEquivalence_26
-> (AgdaAny -> AgdaAny -> T_Dec_20) -> T_IsDecEquivalence_44)
-> AgdaAny -> AgdaAny -> T_IsDecEquivalence_44
forall a b. a -> b
coe
T_IsEquivalence_26
-> (AgdaAny -> AgdaAny -> T_Dec_20) -> T_IsDecEquivalence_44
MAlonzo.Code.Relation.Binary.Structures.C_IsDecEquivalence'46'constructor_3083
(T_IsEquivalence_26 -> AgdaAny
forall a b. a -> b
coe T_IsEquivalence_26
d_'8776''45'isEquivalence_32) ((Word64 -> Word64 -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe Word64 -> Word64 -> T_Dec_20
d__'8776''63'__26)
d_'8776''45'decSetoid_50 ::
MAlonzo.Code.Relation.Binary.Bundles.T_DecSetoid_84
d_'8776''45'decSetoid_50 :: T_DecSetoid_84
d_'8776''45'decSetoid_50
= (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_1389
T_IsDecEquivalence_44
d_'8776''45'isDecEquivalence_48
d__'8799'__52 ::
MAlonzo.RTE.Word64 ->
MAlonzo.RTE.Word64 ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20
d__'8799'__52 :: Word64 -> Word64 -> T_Dec_20
d__'8799'__52 Word64
v0 Word64
v1
= ((AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny) -> T_Dec_20 -> T_Dec_20)
-> AgdaAny -> AgdaAny -> AgdaAny -> T_Dec_20
forall a b. a -> b
coe
(AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny) -> T_Dec_20 -> T_Dec_20
MAlonzo.Code.Relation.Nullary.Decidable.Core.du_map'8242'_168
AgdaAny
forall a. a
erased AgdaAny
forall a. a
erased ((Word64 -> Word64 -> T_Dec_20) -> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe Word64 -> Word64 -> T_Dec_20
d__'8776''63'__26 (Word64 -> AgdaAny
forall a b. a -> b
coe Word64
v0) (Word64 -> AgdaAny
forall a b. a -> b
coe Word64
v1))
d_'8801''45'setoid_58 ::
MAlonzo.Code.Relation.Binary.Bundles.T_Setoid_44
d_'8801''45'setoid_58 :: T_Setoid_44
d_'8801''45'setoid_58
= T_Setoid_44 -> T_Setoid_44
forall a b. a -> b
coe
T_Setoid_44
MAlonzo.Code.Relation.Binary.PropositionalEquality.Properties.du_setoid_402
d_'8801''45'decSetoid_60 ::
MAlonzo.Code.Relation.Binary.Bundles.T_DecSetoid_84
d_'8801''45'decSetoid_60 :: T_DecSetoid_84
d_'8801''45'decSetoid_60
= ((AgdaAny -> AgdaAny -> T_Dec_20) -> T_DecSetoid_84)
-> AgdaAny -> T_DecSetoid_84
forall a b. a -> b
coe
(AgdaAny -> AgdaAny -> T_Dec_20) -> T_DecSetoid_84
MAlonzo.Code.Relation.Binary.PropositionalEquality.Properties.du_decSetoid_406
((Word64 -> Word64 -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe Word64 -> Word64 -> T_Dec_20
d__'8799'__52)
d__'61''61'__62 :: MAlonzo.RTE.Word64 -> MAlonzo.RTE.Word64 -> Bool
d__'61''61'__62 :: Word64 -> Word64 -> Bool
d__'61''61'__62 Word64
v0 Word64
v1
= (T_Level_18 -> T_Level_18 -> T_Dec_20 -> Bool)
-> T_Level_18 -> AgdaAny -> T_Dec_20 -> Bool
forall a b. a -> b
coe
T_Level_18 -> T_Level_18 -> T_Dec_20 -> Bool
MAlonzo.Code.Relation.Nullary.Decidable.Core.d_'8970'_'8971'_130 ()
AgdaAny
forall a. a
erased (Word64 -> Word64 -> T_Dec_20
d__'8799'__52 (Word64 -> Word64
forall a b. a -> b
coe Word64
v0) (Word64 -> Word64
forall a b. a -> b
coe Word64
v1))
d__'60''63'__68 ::
MAlonzo.RTE.Word64 ->
MAlonzo.RTE.Word64 ->
MAlonzo.Code.Relation.Nullary.Decidable.Core.T_Dec_20
d__'60''63'__68 :: Word64 -> Word64 -> T_Dec_20
d__'60''63'__68
= ((AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny -> T_Dec_20)
-> AgdaAny
-> AgdaAny
-> T_Dec_20)
-> AgdaAny -> AgdaAny -> Word64 -> Word64 -> T_Dec_20
forall a b. a -> b
coe
(AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny -> T_Dec_20)
-> AgdaAny
-> AgdaAny
-> T_Dec_20
MAlonzo.Code.Relation.Binary.Construct.On.du_decidable_102
((Word64 -> Integer) -> AgdaAny
forall a b. a -> b
coe Word64 -> Integer
word64ToNat)
((Integer -> Integer -> T_Dec_20) -> AgdaAny
forall a b. a -> b
coe Integer -> Integer -> T_Dec_20
MAlonzo.Code.Data.Nat.Properties.d__'60''63'__3030)
d_'60''45'strictTotalOrder'45''8776'_70 ::
MAlonzo.Code.Relation.Binary.Bundles.T_StrictTotalOrder_1036
d_'60''45'strictTotalOrder'45''8776'_70 :: T_StrictTotalOrder_1036
d_'60''45'strictTotalOrder'45''8776'_70
= (T_StrictTotalOrder_1036
-> (AgdaAny -> AgdaAny) -> T_StrictTotalOrder_1036)
-> AgdaAny -> AgdaAny -> T_StrictTotalOrder_1036
forall a b. a -> b
coe
T_StrictTotalOrder_1036
-> (AgdaAny -> AgdaAny) -> T_StrictTotalOrder_1036
MAlonzo.Code.Relation.Binary.Construct.On.du_strictTotalOrder_646
(T_StrictTotalOrder_1036 -> AgdaAny
forall a b. a -> b
coe
T_StrictTotalOrder_1036
MAlonzo.Code.Data.Nat.Properties.d_'60''45'strictTotalOrder_3052)
((Word64 -> Integer) -> AgdaAny
forall a b. a -> b
coe Word64 -> Integer
word64ToNat)