From ef8fbfa1f9d938e9e7d7d32f6a442c0aa4819fbd Mon Sep 17 00:00:00 2001
From: Robbert Krebbers <mail@robbertkrebbers.nl>
Date: Fri, 30 Nov 2018 11:48:41 +0100
Subject: [PATCH] `set_seq` is finite.
---
theories/sets.v | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/theories/sets.v b/theories/sets.v
index 23b28cf5..05e39f73 100644
--- a/theories/sets.v
+++ b/theories/sets.v
@@ -1090,6 +1090,11 @@ Section set_seq.
Lemma list_to_set_seq start len :
list_to_set (seq start len) =@{C} set_seq start len.
Proof. revert start; induction len; intros; f_equal/=; auto. Qed.
+
+ Lemma set_seq_finite start len : set_finite (set_seq (C:=C) start len).
+ Proof.
+ exists (seq start len); intros x. rewrite <-list_to_set_seq. set_solver.
+ Qed.
End set_seq.
(** Mimimal elements *)
--
GitLab