{-# 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.Reflection.Argument.Visibility 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.Bool
import qualified MAlonzo.Code.Agda.Builtin.Reflection
import qualified MAlonzo.Code.Relation.Nullary
d__'8799'__6 ::
MAlonzo.Code.Agda.Builtin.Reflection.T_Visibility_48 ->
MAlonzo.Code.Agda.Builtin.Reflection.T_Visibility_48 ->
MAlonzo.Code.Relation.Nullary.T_Dec_32
d__'8799'__6 :: T_Visibility_48 -> T_Visibility_48 -> T_Dec_32
d__'8799'__6 T_Visibility_48
v0 T_Visibility_48
v1
= case T_Visibility_48 -> T_Visibility_48
forall a b. a -> b
coe T_Visibility_48
v0 of
T_Visibility_48
MAlonzo.Code.Agda.Builtin.Reflection.C_visible_50
-> case T_Visibility_48 -> T_Visibility_48
forall a b. a -> b
coe T_Visibility_48
v1 of
T_Visibility_48
MAlonzo.Code.Agda.Builtin.Reflection.C_visible_50
-> (Bool -> T_Reflects_14 -> T_Dec_32) -> Any -> Any -> T_Dec_32
forall a b. a -> b
coe
Bool -> T_Reflects_14 -> T_Dec_32
MAlonzo.Code.Relation.Nullary.C__because__46
(Bool -> Any
forall a b. a -> b
coe Bool
MAlonzo.Code.Agda.Builtin.Bool.C_true_10)
((Any -> T_Reflects_14) -> Any -> Any
forall a b. a -> b
coe Any -> T_Reflects_14
MAlonzo.Code.Relation.Nullary.C_of'696'_22 Any
forall a. a
erased)
T_Visibility_48
MAlonzo.Code.Agda.Builtin.Reflection.C_hidden_52
-> (Bool -> T_Reflects_14 -> T_Dec_32) -> Any -> Any -> T_Dec_32
forall a b. a -> b
coe
Bool -> T_Reflects_14 -> T_Dec_32
MAlonzo.Code.Relation.Nullary.C__because__46
(Bool -> Any
forall a b. a -> b
coe Bool
MAlonzo.Code.Agda.Builtin.Bool.C_false_8)
(T_Reflects_14 -> Any
forall a b. a -> b
coe T_Reflects_14
MAlonzo.Code.Relation.Nullary.C_of'8319'_26)
T_Visibility_48
MAlonzo.Code.Agda.Builtin.Reflection.C_instance'8242'_54
-> (Bool -> T_Reflects_14 -> T_Dec_32) -> Any -> Any -> T_Dec_32
forall a b. a -> b
coe
Bool -> T_Reflects_14 -> T_Dec_32
MAlonzo.Code.Relation.Nullary.C__because__46
(Bool -> Any
forall a b. a -> b
coe Bool
MAlonzo.Code.Agda.Builtin.Bool.C_false_8)
(T_Reflects_14 -> Any
forall a b. a -> b
coe T_Reflects_14
MAlonzo.Code.Relation.Nullary.C_of'8319'_26)
T_Visibility_48
_ -> T_Dec_32
forall a. a
MAlonzo.RTE.mazUnreachableError
T_Visibility_48
MAlonzo.Code.Agda.Builtin.Reflection.C_hidden_52
-> case T_Visibility_48 -> T_Visibility_48
forall a b. a -> b
coe T_Visibility_48
v1 of
T_Visibility_48
MAlonzo.Code.Agda.Builtin.Reflection.C_visible_50
-> (Bool -> T_Reflects_14 -> T_Dec_32) -> Any -> Any -> T_Dec_32
forall a b. a -> b
coe
Bool -> T_Reflects_14 -> T_Dec_32
MAlonzo.Code.Relation.Nullary.C__because__46
(Bool -> Any
forall a b. a -> b
coe Bool
MAlonzo.Code.Agda.Builtin.Bool.C_false_8)
(T_Reflects_14 -> Any
forall a b. a -> b
coe T_Reflects_14
MAlonzo.Code.Relation.Nullary.C_of'8319'_26)
T_Visibility_48
MAlonzo.Code.Agda.Builtin.Reflection.C_hidden_52
-> (Bool -> T_Reflects_14 -> T_Dec_32) -> Any -> Any -> T_Dec_32
forall a b. a -> b
coe
Bool -> T_Reflects_14 -> T_Dec_32
MAlonzo.Code.Relation.Nullary.C__because__46
(Bool -> Any
forall a b. a -> b
coe Bool
MAlonzo.Code.Agda.Builtin.Bool.C_true_10)
((Any -> T_Reflects_14) -> Any -> Any
forall a b. a -> b
coe Any -> T_Reflects_14
MAlonzo.Code.Relation.Nullary.C_of'696'_22 Any
forall a. a
erased)
T_Visibility_48
MAlonzo.Code.Agda.Builtin.Reflection.C_instance'8242'_54
-> (Bool -> T_Reflects_14 -> T_Dec_32) -> Any -> Any -> T_Dec_32
forall a b. a -> b
coe
Bool -> T_Reflects_14 -> T_Dec_32
MAlonzo.Code.Relation.Nullary.C__because__46
(Bool -> Any
forall a b. a -> b
coe Bool
MAlonzo.Code.Agda.Builtin.Bool.C_false_8)
(T_Reflects_14 -> Any
forall a b. a -> b
coe T_Reflects_14
MAlonzo.Code.Relation.Nullary.C_of'8319'_26)
T_Visibility_48
_ -> T_Dec_32
forall a. a
MAlonzo.RTE.mazUnreachableError
T_Visibility_48
MAlonzo.Code.Agda.Builtin.Reflection.C_instance'8242'_54
-> case T_Visibility_48 -> T_Visibility_48
forall a b. a -> b
coe T_Visibility_48
v1 of
T_Visibility_48
MAlonzo.Code.Agda.Builtin.Reflection.C_visible_50
-> (Bool -> T_Reflects_14 -> T_Dec_32) -> Any -> Any -> T_Dec_32
forall a b. a -> b
coe
Bool -> T_Reflects_14 -> T_Dec_32
MAlonzo.Code.Relation.Nullary.C__because__46
(Bool -> Any
forall a b. a -> b
coe Bool
MAlonzo.Code.Agda.Builtin.Bool.C_false_8)
(T_Reflects_14 -> Any
forall a b. a -> b
coe T_Reflects_14
MAlonzo.Code.Relation.Nullary.C_of'8319'_26)
T_Visibility_48
MAlonzo.Code.Agda.Builtin.Reflection.C_hidden_52
-> (Bool -> T_Reflects_14 -> T_Dec_32) -> Any -> Any -> T_Dec_32
forall a b. a -> b
coe
Bool -> T_Reflects_14 -> T_Dec_32
MAlonzo.Code.Relation.Nullary.C__because__46
(Bool -> Any
forall a b. a -> b
coe Bool
MAlonzo.Code.Agda.Builtin.Bool.C_false_8)
(T_Reflects_14 -> Any
forall a b. a -> b
coe T_Reflects_14
MAlonzo.Code.Relation.Nullary.C_of'8319'_26)
T_Visibility_48
MAlonzo.Code.Agda.Builtin.Reflection.C_instance'8242'_54
-> (Bool -> T_Reflects_14 -> T_Dec_32) -> Any -> Any -> T_Dec_32
forall a b. a -> b
coe
Bool -> T_Reflects_14 -> T_Dec_32
MAlonzo.Code.Relation.Nullary.C__because__46
(Bool -> Any
forall a b. a -> b
coe Bool
MAlonzo.Code.Agda.Builtin.Bool.C_true_10)
((Any -> T_Reflects_14) -> Any -> Any
forall a b. a -> b
coe Any -> T_Reflects_14
MAlonzo.Code.Relation.Nullary.C_of'696'_22 Any
forall a. a
erased)
T_Visibility_48
_ -> T_Dec_32
forall a. a
MAlonzo.RTE.mazUnreachableError
T_Visibility_48
_ -> T_Dec_32
forall a. a
MAlonzo.RTE.mazUnreachableError