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

Finished proof of extensionality

This commit is contained in:
Niels 2017-05-25 22:21:19 +02:00
parent 01e4cb982f
commit 2a561d4983
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
FiniteSets/properties.v
View File

@ -618,15 +618,23 @@ Proof.
exact _.
exact _.
split ; apply subset_isIn.
- eapply equiv_functor_prod'.
apply HPropEquiv.
- apply HPropEquiv.
exact _.
exact _.
split ; apply subset_isIn.
apply HPropEquiv.
exact _.
exact _.
split ; apply subset_isIn.'.
Admitted.
split.
* intros [H1 H2 a].
specialize (H1 a) ; specialize (H2 a).
destruct (isIn a X).
+ symmetry ; apply (H2 idpath).
+ destruct (isIn a Y).
{ apply (H1 idpath). }
{ reflexivity. }
* intros H1.
split ; intro a ; intro H2.
+ rewrite (H1 a).
apply H2.
+ rewrite <- (H1 a).
apply H2.
Defined.
End properties.