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

Circle is Kuratowski-finite

This commit is contained in:
Dan Frumin 2017-08-16 17:13:08 +02:00
parent 809382ba13
commit 56d6207d07
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
FiniteSets/variations/k_finite.v
View File

@ -133,4 +133,15 @@ Section k_properties.
apply fmap_isIn. apply fmap_isIn.
apply (HXf x). apply (HXf x).
Defined. Defined.
Lemma S1_Kfinite : Kf S1.
Proof.
apply Kf_unfold.
exists {|base|}.
intro a. simpl.
simple refine (S1_ind (fun z => Trunc (-1) (z = base)) _ _ a); simpl.
- apply (tr loop).
- apply path_ishprop.
Defined.
End k_properties. End k_properties.