dan
/
HITs-Examples
mirror of https://github.com/nmvdw/HITs-Examples
1
0
Fork 0
Code Issues Releases Wiki Activity

trailing white spaces

This commit is contained in:
Leon Gondelman 2017-05-26 12:28:07 +02:00
parent 140b02e9f4
commit f8ed41e5fe
2 changed files with 41 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
FiniteSets/operations.v
View File

@ -19,7 +19,6 @@ hrecursion.
- intros a'. compute. destruct (A_deceq a a'); reflexivity.
Defined.
Infix "∈" := isIn (at level 9, right associativity).
Definition comprehension :
(A -> Bool) -> FSet A -> FSet A.
@ -54,15 +53,16 @@ Proof.
intros X Y.
hrecursion X.
- exact true.
- exact (fun a => (a ∈ Y)).
- exact (fun a => (isIn a Y)).
- exact andb.
- intros. compute. destruct x; reflexivity.
- intros x y; compute; destruct x, y; reflexivity.
- intros x; compute; destruct x; reflexivity.
- intros x; compute; destruct x; reflexivity.
- intros x; cbn; destruct (x ∈ Y); reflexivity.
- intros x; cbn; destruct (isIn x Y); reflexivity.
Defined.
Notation "⊆" := subset.
End operations.
Infix "∈" := isIn (at level 9, right associativity).
Infix "⊆" := subset (at level 10, right associativity).

4
FiniteSets/properties.v
View File

@ -439,7 +439,7 @@ Admitted.
(* Properties about subset relation. *)
Lemma subsect_intersection `{Funext} (X Y : FSet A) :
subset X Y = true -> U X Y = Y.
X ⊆ Y = true -> U X Y = Y.
Proof.
hinduction X; try (intros; apply path_forall; intro; apply set_path2).
- intros. apply nl.
@ -479,4 +479,6 @@ hinduction X; try (intros; apply path_forall; intro; apply set_path2).
rewrite <- assoc. rewrite IH2. rewrite IH1. reflexivity.
Defined.
Theorem
End properties.