{-# 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.Effect.Empty 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.Primitive
d_RawEmpty_16 :: p -> p -> p -> ()
d_RawEmpty_16 p
a0 p
a1 p
a2 = ()
newtype T_RawEmpty_16
= C_RawEmpty'46'constructor_129 (() -> AgdaAny)
d_empty_22 :: T_RawEmpty_16 -> () -> AgdaAny
d_empty_22 :: T_RawEmpty_16 -> () -> AgdaAny
d_empty_22 T_RawEmpty_16
v0
= case T_RawEmpty_16 -> T_RawEmpty_16
forall a b. a -> b
coe T_RawEmpty_16
v0 of
C_RawEmpty'46'constructor_129 () -> AgdaAny
v1 -> (() -> AgdaAny) -> () -> AgdaAny
forall a b. a -> b
coe () -> AgdaAny
v1
T_RawEmpty_16
_ -> () -> AgdaAny
forall a. a
MAlonzo.RTE.mazUnreachableError
d_'8709'_24 ::
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
MAlonzo.Code.Agda.Primitive.T_Level_18 ->
(() -> ()) -> T_RawEmpty_16 -> () -> AgdaAny
d_'8709'_24 :: () -> () -> (() -> ()) -> T_RawEmpty_16 -> () -> AgdaAny
d_'8709'_24 ~()
v0 ~()
v1 ~() -> ()
v2 T_RawEmpty_16
v3 ~()
v4 = T_RawEmpty_16 -> AgdaAny
du_'8709'_24 T_RawEmpty_16
v3
du_'8709'_24 :: T_RawEmpty_16 -> AgdaAny
du_'8709'_24 :: T_RawEmpty_16 -> AgdaAny
du_'8709'_24 T_RawEmpty_16
v0 = (T_RawEmpty_16 -> () -> AgdaAny)
-> T_RawEmpty_16 -> AgdaAny -> AgdaAny
forall a b. a -> b
coe T_RawEmpty_16 -> () -> AgdaAny
d_empty_22 T_RawEmpty_16
v0 AgdaAny
forall a. a
erased