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

Added proof that Z' is HSet.

This commit is contained in:
Niels 2017-08-04 20:54:53 +02:00
parent efec2e88f8
commit 86b4f80aa5
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
int/Integers.v
View File

@ -650,17 +650,16 @@ Section Isomorphic.
apply concat_1p.
Defined.
Definition biinv_Z'_to_Int : BiInv Z'_to_Int :=
((Int_to_Z' ; Z'_to_Int_to_Z'), (Int_to_Z' ; Int_to_Z'_to_Int)).
Definition biinv_Int_to_Z' : BiInv Int_to_Z' :=
((Z'_to_Int ; Int_to_Z'_to_Int), (Z'_to_Int ; Z'_to_Int_to_Z')).
Definition equiv_Z'_to_Int : IsEquiv Z'_to_Int :=
isequiv_biinv _ biinv_Z'_to_Int.
Instance equiv_Int_to_Z' : IsEquiv Int_to_Z' :=
isequiv_biinv _ biinv_Int_to_Z'.
Instance Z'_set : IsHSet Z'.
Proof.
intros x y p q.
Admitted.
apply (trunc_equiv Int Int_to_Z').
Defined
Definition Z_to_Z' : Z -> Z'.
Proof.