dan/HITs-Examples
1
0
Fork 0
mirror of https://github.com/nmvdw/HITs-Examples synced 2025-10-29 12:53:50 +01:00
Code Issues Releases Wiki Activity

More cleaning

Browse Source
This commit is contained in:
Niels
2017-08-07 16:57:21 +02:00
parent 1e373364b2
commit 8c10ab1c0c
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
FiniteSets/fsets/operations_decidable.v
View File

@@ -7,7 +7,7 @@ Section decidable_A.
Context {A_deceq : DecidablePaths A}.
Context `{Univalence}.
Global Instance isIn_decidable : forall (a : A) (X : FSet A), Decidable (isIn a X).
Global Instance isIn_decidable : forall (a : A) (X : FSet A), Decidable (a ∈ X).
Proof.
intros a.
hinduction ; try (intros ; apply path_ishprop).
@@ -24,12 +24,12 @@ Section decidable_A.
Defined.
Definition isIn_b (a : A) (X : FSet A) :=
match dec (isIn a X) with
match dec (a ∈ X) with
| inl _ => true
| inr _ => false
end.
Global Instance subset_decidable : forall (X Y : FSet A), Decidable (subset X Y).
Global Instance subset_decidable : forall (X Y : FSet A), Decidable (X ⊆ Y).
Proof.
hinduction ; try (intros ; apply path_ishprop).
- intro ; apply _.
@@ -38,7 +38,7 @@ Section decidable_A.
Defined.
Definition subset_b (X Y : FSet A) :=
match dec (subset X Y) with
match dec (X ⊆ Y) with
| inl _ => true
| inr _ => false
end.