From da60017367a9c9efe993143a8e2ea62e4490964b Mon Sep 17 00:00:00 2001
From: Dan Frumin <dfrumin@cs.ru.nl>
Date: Thu, 17 Aug 2017 22:43:22 +0200
Subject: [PATCH] Interval is K-finite

---
 FiniteSets/variations/k_finite.v | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/FiniteSets/variations/k_finite.v b/FiniteSets/variations/k_finite.v
index 875dbcb..7d9eb62 100644
--- a/FiniteSets/variations/k_finite.v
+++ b/FiniteSets/variations/k_finite.v
@@ -143,5 +143,16 @@ Section k_properties.
     - apply (tr loop).
     - apply path_ishprop.
   Defined.
-
+  
+  Lemma I_Kfinite : Kf interval.
+  Proof.
+    apply Kf_unfold.
+    exists {|Interval.one|}.
+    intro a. simpl.
+    simple refine (interval_ind (fun z => Trunc (-1) (z = Interval.one)) _ _ _ a); simpl.
+    - apply (tr seg).
+    - apply (tr idpath).
+    - apply path_ishprop.
+  Defined.
+  
 End k_properties.