Commit ef8fbfa1 authored by Robbert Krebbers's avatar Robbert Krebbers

`set_seq` is finite.

parent 46e116b9
...@@ -1090,6 +1090,11 @@ Section set_seq. ...@@ -1090,6 +1090,11 @@ Section set_seq.
Lemma list_to_set_seq start len : Lemma list_to_set_seq start len :
list_to_set (seq start len) =@{C} 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. 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. End set_seq.
(** Mimimal elements *) (** Mimimal elements *)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment