{-# 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

-- Effect.Empty.RawEmpty
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)
-- Effect.Empty.RawEmpty.empty
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
-- Effect.Empty.RawEmpty.∅
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