dan/HITs-Examples
1
0
Fork 0
mirror of https://github.com/nmvdw/HITs-Examples synced 2025-11-03 15:13:51 +01:00
Code Issues Releases Wiki Activity

Add the difference operation

Browse Source
This commit is contained in:
Dan Frumin
2017-06-14 18:06:16 +02:00
parent 036d1599b2
commit 6971697c09
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
FiniteSets/operations.v
View File

@@ -16,7 +16,11 @@ hrecursion.
- intros x y. compute. destruct x, y; reflexivity. - intros x y. compute. destruct x, y; reflexivity.
- intros x. compute. reflexivity. - intros x. compute. reflexivity.
- intros x. compute. destruct x; reflexivity. - intros x. compute. destruct x; reflexivity.
- intros a'. compute. destruct (A_deceq a a'); reflexivity. - intros a'. simpl.
destruct (match dec (a = a') with
| inl _ => true
| inr _ => false
end); compute; reflexivity.
Defined. Defined.
@@ -46,6 +50,9 @@ intros X Y.
apply (comprehension (fun (a : A) => isIn a X) Y). apply (comprehension (fun (a : A) => isIn a X) Y).
Defined. Defined.
Definition difference :
FSet A -> FSet A -> FSet A := fun X Y =>
comprehension (fun a => negb (isIn a X)) Y.
Definition subset : Definition subset :
FSet A -> FSet A -> Bool. FSet A -> FSet A -> Bool.