{-# 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.List.Membership.Propositional.Properties.Core 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.Builtin.Sigma
import qualified MAlonzo.Code.Agda.Primitive
import qualified MAlonzo.Code.Data.List.Membership.Propositional
import qualified MAlonzo.Code.Data.List.Membership.Setoid
import qualified MAlonzo.Code.Data.List.Relation.Unary.Any
import qualified MAlonzo.Code.Data.Product
import qualified MAlonzo.Code.Function.Inverse
import qualified MAlonzo.Code.Relation.Binary.PropositionalEquality.Properties

-- Data.List.Membership.Propositional.Properties.Core.map∘find
d_map'8728'find_30 ::
  MAlonzo.Code.Agda.Primitive.T_Level_18 ->
  () ->
  MAlonzo.Code.Agda.Primitive.T_Level_18 ->
  (AgdaAny -> ()) ->
  [AgdaAny] ->
  MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 ->
  (AgdaAny ->
   MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 -> AgdaAny) ->
  MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12 ->
  MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12
d_map'8728'find_30 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> [AgdaAny]
-> T_Any_34
-> (AgdaAny -> T__'8801'__12 -> AgdaAny)
-> T__'8801'__12
-> T__'8801'__12
d_map'8728'find_30 = T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> [AgdaAny]
-> T_Any_34
-> (AgdaAny -> T__'8801'__12 -> AgdaAny)
-> T__'8801'__12
-> T__'8801'__12
forall a. a
erased
-- Data.List.Membership.Propositional.Properties.Core.find∘map
d_find'8728'map_50 ::
  MAlonzo.Code.Agda.Primitive.T_Level_18 ->
  () ->
  MAlonzo.Code.Agda.Primitive.T_Level_18 ->
  MAlonzo.Code.Agda.Primitive.T_Level_18 ->
  (AgdaAny -> ()) ->
  (AgdaAny -> ()) ->
  [AgdaAny] ->
  MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 ->
  (AgdaAny -> AgdaAny -> AgdaAny) ->
  MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12
d_find'8728'map_50 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Level_18)
-> [AgdaAny]
-> T_Any_34
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> T__'8801'__12
d_find'8728'map_50 = T_Level_18
-> T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> (AgdaAny -> T_Level_18)
-> [AgdaAny]
-> T_Any_34
-> (AgdaAny -> AgdaAny -> AgdaAny)
-> T__'8801'__12
forall a. a
erased
-- Data.List.Membership.Propositional.Properties.Core.find-∈
d_find'45''8712'_70 ::
  MAlonzo.Code.Agda.Primitive.T_Level_18 ->
  () ->
  AgdaAny ->
  [AgdaAny] ->
  MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 ->
  MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12
d_find'45''8712'_70 :: T_Level_18
-> T_Level_18 -> AgdaAny -> [AgdaAny] -> T_Any_34 -> T__'8801'__12
d_find'45''8712'_70 = T_Level_18
-> T_Level_18 -> AgdaAny -> [AgdaAny] -> T_Any_34 -> T__'8801'__12
forall a. a
erased
-- Data.List.Membership.Propositional.Properties.Core.lose∘find
d_lose'8728'find_84 ::
  MAlonzo.Code.Agda.Primitive.T_Level_18 ->
  () ->
  MAlonzo.Code.Agda.Primitive.T_Level_18 ->
  (AgdaAny -> ()) ->
  [AgdaAny] ->
  MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 ->
  MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12
d_lose'8728'find_84 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> [AgdaAny]
-> T_Any_34
-> T__'8801'__12
d_lose'8728'find_84 = T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> [AgdaAny]
-> T_Any_34
-> T__'8801'__12
forall a. a
erased
-- Data.List.Membership.Propositional.Properties.Core.find∘lose
d_find'8728'lose_98 ::
  MAlonzo.Code.Agda.Primitive.T_Level_18 ->
  () ->
  MAlonzo.Code.Agda.Primitive.T_Level_18 ->
  (AgdaAny -> ()) ->
  AgdaAny ->
  [AgdaAny] ->
  MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34 ->
  AgdaAny -> MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12
d_find'8728'lose_98 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> AgdaAny
-> [AgdaAny]
-> T_Any_34
-> AgdaAny
-> T__'8801'__12
d_find'8728'lose_98 = T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> AgdaAny
-> [AgdaAny]
-> T_Any_34
-> AgdaAny
-> T__'8801'__12
forall a. a
erased
-- Data.List.Membership.Propositional.Properties.Core._.∃∈-Any
d_'8707''8712''45'Any_128 ::
  MAlonzo.Code.Agda.Primitive.T_Level_18 ->
  () ->
  MAlonzo.Code.Agda.Primitive.T_Level_18 ->
  (AgdaAny -> ()) ->
  [AgdaAny] ->
  MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
  MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34
d_'8707''8712''45'Any_128 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> [AgdaAny]
-> T_Σ_14
-> T_Any_34
d_'8707''8712''45'Any_128 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~AgdaAny -> T_Level_18
v3 [AgdaAny]
v4 T_Σ_14
v5
  = [AgdaAny] -> T_Σ_14 -> T_Any_34
du_'8707''8712''45'Any_128 [AgdaAny]
v4 T_Σ_14
v5
du_'8707''8712''45'Any_128 ::
  [AgdaAny] ->
  MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
  MAlonzo.Code.Data.List.Relation.Unary.Any.T_Any_34
du_'8707''8712''45'Any_128 :: [AgdaAny] -> T_Σ_14 -> T_Any_34
du_'8707''8712''45'Any_128 [AgdaAny]
v0 T_Σ_14
v1
  = ((AgdaAny -> AgdaAny -> AgdaAny) -> T_Σ_14 -> AgdaAny)
-> AgdaAny -> AgdaAny -> T_Any_34
forall a b. a -> b
coe
      (AgdaAny -> AgdaAny -> AgdaAny) -> T_Σ_14 -> AgdaAny
MAlonzo.Code.Data.Product.du_uncurry'8242'_340
      ((AgdaAny -> [AgdaAny] -> T_Any_34 -> AgdaAny -> T_Any_34)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
         AgdaAny -> [AgdaAny] -> T_Any_34 -> AgdaAny -> T_Any_34
MAlonzo.Code.Data.List.Membership.Propositional.du_lose_54
         ((T_Σ_14 -> AgdaAny) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe T_Σ_14 -> AgdaAny
MAlonzo.Code.Agda.Builtin.Sigma.d_fst_28 (T_Σ_14 -> AgdaAny
forall a b. a -> b
coe T_Σ_14
v1)) ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v0))
      (T_Σ_14 -> AgdaAny
MAlonzo.Code.Agda.Builtin.Sigma.d_snd_30 (T_Σ_14 -> T_Σ_14
forall a b. a -> b
coe T_Σ_14
v1))
-- Data.List.Membership.Propositional.Properties.Core._.Any↔
d_Any'8596'_134 ::
  MAlonzo.Code.Agda.Primitive.T_Level_18 ->
  () ->
  MAlonzo.Code.Agda.Primitive.T_Level_18 ->
  (AgdaAny -> ()) ->
  [AgdaAny] -> MAlonzo.Code.Function.Inverse.T_Inverse_58
d_Any'8596'_134 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> [AgdaAny]
-> T_Inverse_58
d_Any'8596'_134 ~T_Level_18
v0 ~T_Level_18
v1 ~T_Level_18
v2 ~AgdaAny -> T_Level_18
v3 [AgdaAny]
v4 = [AgdaAny] -> T_Inverse_58
du_Any'8596'_134 [AgdaAny]
v4
du_Any'8596'_134 ::
  [AgdaAny] -> MAlonzo.Code.Function.Inverse.T_Inverse_58
du_Any'8596'_134 :: [AgdaAny] -> T_Inverse_58
du_Any'8596'_134 [AgdaAny]
v0
  = ((AgdaAny -> AgdaAny)
 -> (AgdaAny -> AgdaAny)
 -> (AgdaAny -> T__'8801'__12)
 -> (AgdaAny -> T__'8801'__12)
 -> T_Inverse_58)
-> AgdaAny -> AgdaAny -> AgdaAny -> AgdaAny -> T_Inverse_58
forall a b. a -> b
coe
      (AgdaAny -> AgdaAny)
-> (AgdaAny -> AgdaAny)
-> (AgdaAny -> T__'8801'__12)
-> (AgdaAny -> T__'8801'__12)
-> T_Inverse_58
MAlonzo.Code.Function.Inverse.du_inverse_156
      (([AgdaAny] -> T_Σ_14 -> T_Any_34) -> AgdaAny -> AgdaAny
forall a b. a -> b
coe [AgdaAny] -> T_Σ_14 -> T_Any_34
du_'8707''8712''45'Any_128 ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v0))
      ((T_Setoid_44 -> [AgdaAny] -> T_Any_34 -> T_Σ_14)
-> AgdaAny -> AgdaAny -> AgdaAny
forall a b. a -> b
coe
         T_Setoid_44 -> [AgdaAny] -> T_Any_34 -> T_Σ_14
MAlonzo.Code.Data.List.Membership.Setoid.du_find_80
         (T_Setoid_44 -> AgdaAny
forall a b. a -> b
coe
            T_Setoid_44
MAlonzo.Code.Relation.Binary.PropositionalEquality.Properties.du_setoid_250)
         ([AgdaAny] -> AgdaAny
forall a b. a -> b
coe [AgdaAny]
v0))
      AgdaAny
forall a. a
erased AgdaAny
forall a. a
erased
-- Data.List.Membership.Propositional.Properties.Core._._.from∘to
d_from'8728'to_142 ::
  MAlonzo.Code.Agda.Primitive.T_Level_18 ->
  () ->
  MAlonzo.Code.Agda.Primitive.T_Level_18 ->
  (AgdaAny -> ()) ->
  [AgdaAny] ->
  MAlonzo.Code.Agda.Builtin.Sigma.T_Σ_14 ->
  MAlonzo.Code.Agda.Builtin.Equality.T__'8801'__12
d_from'8728'to_142 :: T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> [AgdaAny]
-> T_Σ_14
-> T__'8801'__12
d_from'8728'to_142 = T_Level_18
-> T_Level_18
-> T_Level_18
-> (AgdaAny -> T_Level_18)
-> [AgdaAny]
-> T_Σ_14
-> T__'8801'__12
forall a. a
erased