{-# 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.Algebra.Definitions.RawMagma where
import Data.Text qualified
import MAlonzo.Code.Agda.Primitive qualified
import MAlonzo.Code.Algebra.Bundles.Raw qualified
import MAlonzo.RTE (AgdaAny, add64, addInt, coe, eq64, eqInt, erased, geqInt, lt64, ltInt, mul64,
mulInt, quot64, quotInt, rem64, remInt, sub64, subInt, word64FromNat,
word64ToNat)
import MAlonzo.RTE qualified
d__'8739''737'__26 :: p -> p -> p -> p -> p -> ()
d__'8739''737'__26 p
a0 p
a1 p
a2 p
a3 p
a4 = ()
data T__'8739''737'__26 = C__'44'__40 AgdaAny AgdaAny
d_quotient_36 :: T__'8739''737'__26 -> AgdaAny
d_quotient_36 :: T__'8739''737'__26 -> AgdaAny
d_quotient_36 T__'8739''737'__26
v0
= case T__'8739''737'__26 -> T__'8739''737'__26
forall a b. a -> b
coe T__'8739''737'__26
v0 of
C__'44'__40 AgdaAny
v1 AgdaAny
v2 -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1
T__'8739''737'__26
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
d_equality_38 :: T__'8739''737'__26 -> AgdaAny
d_equality_38 :: T__'8739''737'__26 -> AgdaAny
d_equality_38 T__'8739''737'__26
v0
= case T__'8739''737'__26 -> T__'8739''737'__26
forall a b. a -> b
coe T__'8739''737'__26
v0 of
C__'44'__40 AgdaAny
v1 AgdaAny
v2 -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2
T__'8739''737'__26
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
d__'8740''737'__42 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Algebra.Bundles.Raw.T_RawMagma_36 ->
AgdaAny -> AgdaAny -> ()
d__'8740''737'__42 :: () -> () -> T_RawMagma_36 -> AgdaAny -> AgdaAny -> ()
d__'8740''737'__42 = () -> () -> T_RawMagma_36 -> AgdaAny -> AgdaAny -> ()
forall a. a
erased
d__'8739''691'__52 :: p -> p -> p -> p -> p -> ()
d__'8739''691'__52 p
a0 p
a1 p
a2 p
a3 p
a4 = ()
data T__'8739''691'__52 = C__'44'__66 AgdaAny AgdaAny
d_quotient_62 :: T__'8739''691'__52 -> AgdaAny
d_quotient_62 :: T__'8739''691'__52 -> AgdaAny
d_quotient_62 T__'8739''691'__52
v0
= case T__'8739''691'__52 -> T__'8739''691'__52
forall a b. a -> b
coe T__'8739''691'__52
v0 of
C__'44'__66 AgdaAny
v1 AgdaAny
v2 -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v1
T__'8739''691'__52
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
d_equality_64 :: T__'8739''691'__52 -> AgdaAny
d_equality_64 :: T__'8739''691'__52 -> AgdaAny
d_equality_64 T__'8739''691'__52
v0
= case T__'8739''691'__52 -> T__'8739''691'__52
forall a b. a -> b
coe T__'8739''691'__52
v0 of
C__'44'__66 AgdaAny
v1 AgdaAny
v2 -> AgdaAny -> AgdaAny
forall a b. a -> b
coe AgdaAny
v2
T__'8739''691'__52
_ -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
d__'8740''691'__68 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Algebra.Bundles.Raw.T_RawMagma_36 ->
AgdaAny -> AgdaAny -> ()
d__'8740''691'__68 :: () -> () -> T_RawMagma_36 -> AgdaAny -> AgdaAny -> ()
d__'8740''691'__68 = () -> () -> T_RawMagma_36 -> AgdaAny -> AgdaAny -> ()
forall a. a
erased
d__'8739'__74 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Algebra.Bundles.Raw.T_RawMagma_36 ->
AgdaAny -> AgdaAny -> ()
d__'8739'__74 :: () -> () -> T_RawMagma_36 -> AgdaAny -> AgdaAny -> ()
d__'8739'__74 = () -> () -> T_RawMagma_36 -> AgdaAny -> AgdaAny -> ()
forall a. a
erased
d__'8740'__76 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Algebra.Bundles.Raw.T_RawMagma_36 ->
AgdaAny -> AgdaAny -> ()
d__'8740'__76 :: () -> () -> T_RawMagma_36 -> AgdaAny -> AgdaAny -> ()
d__'8740'__76 = () -> () -> T_RawMagma_36 -> AgdaAny -> AgdaAny -> ()
forall a. a
erased
d__'8739''8739'__82 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Algebra.Bundles.Raw.T_RawMagma_36 ->
AgdaAny -> AgdaAny -> ()
d__'8739''8739'__82 :: () -> () -> T_RawMagma_36 -> AgdaAny -> AgdaAny -> ()
d__'8739''8739'__82 = () -> () -> T_RawMagma_36 -> AgdaAny -> AgdaAny -> ()
forall a. a
erased
d__'8740''8740'__88 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Algebra.Bundles.Raw.T_RawMagma_36 ->
AgdaAny -> AgdaAny -> ()
d__'8740''8740'__88 :: () -> () -> T_RawMagma_36 -> AgdaAny -> AgdaAny -> ()
d__'8740''8740'__88 = () -> () -> T_RawMagma_36 -> AgdaAny -> AgdaAny -> ()
forall a. a
erased