diff options
Diffstat (limited to 'Nominal/Instances.lean')
| -rw-r--r-- | Nominal/Instances.lean | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Nominal/Instances.lean b/Nominal/Instances.lean index 057a0de..dcf079f 100644 --- a/Nominal/Instances.lean +++ b/Nominal/Instances.lean @@ -8,7 +8,7 @@ import Nominal.Support This file contains common instances of (FPerm ๐ธ)-sets and nominal sets. -/ -variable (๐ธ : Type) +variable (๐ธ : Type) [Infinite ๐ธ] [Countable ๐ธ] [DecidableEq ๐ธ] /-! ## Atoms @@ -25,7 +25,7 @@ instance : NominalSet ๐ธ ๐ธ where intro a; use {a} exact โจNominalSet.supp_atom' ๐ธ, Set.finite_singleton aโฉ -lemma NominalSet.supp_atom [Infinite ๐ธ] [DecidableEq ๐ธ] {a : ๐ธ} : supp ๐ธ a = {a} := by +lemma NominalSet.supp_atom {a : ๐ธ} : supp ๐ธ a = {a} := by ext b; constructor ยท apply support_subset_supp ๐ธ ยท exact NominalSet.supp_atom' ๐ธ @@ -90,7 +90,7 @@ section Products instance {X Y : Type} [PermSet ๐ธ X] [PermSet ๐ธ Y] : PermSet ๐ธ (X ร Y) where -variable {X Y : Type} [NominalSet ๐ธ X] [NominalSet ๐ธ Y] [Infinite ๐ธ] +variable {X Y : Type} [NominalSet ๐ธ X] [NominalSet ๐ธ Y] private lemma NominalSet.supp_product' {x : X} {y : Y} : PermSet.HasSupport ๐ธ (x, y) (supp ๐ธ x โช supp ๐ธ y) := by intro ฯ hฯ @@ -135,7 +135,7 @@ section Coproducts instance {X Y : Type} [PermSet ๐ธ X] [PermSet ๐ธ Y] : PermSet ๐ธ (X โ Y) where -variable {X Y : Type} [NominalSet ๐ธ X] [NominalSet ๐ธ Y] [Infinite ๐ธ] +variable {X Y : Type} [NominalSet ๐ธ X] [NominalSet ๐ธ Y] private lemma NominalSet.supp_coproductโ' {x : X} : PermSet.HasSupport ๐ธ (.inl x : X โ Y) (supp ๐ธ x) := by intro ฯ hฯ |