Skip to content
Snippets Groups Projects
Commit d4b57ae8 authored by Dan Frumin's avatar Dan Frumin
Browse files

Add `seq_set_start_disjoint`

parent 208bf810
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 4 additions and 0 deletions
theories/collections.v
+ 4
− 0
View file @ d4b57ae8
...@@ -1053,6 +1053,10 @@ Section seq_set. ...@@ -1053,6 +1053,10 @@ Section seq_set.
- rewrite elem_of_union, elem_of_singleton, IH. omega. - rewrite elem_of_union, elem_of_singleton, IH. omega.
Qed. Qed.
Lemma seq_set_start_disjoint start len :
{[ start ]} ## seq_set (C:=C) (S start) len.
Proof. intros x. rewrite elem_of_singleton, elem_of_seq_set. omega. Qed.
Lemma seq_set_S_disjoint start len : Lemma seq_set_S_disjoint start len :
{[ start + len ]} ## seq_set (C:=C) start len. {[ start + len ]} ## seq_set (C:=C) start len.
Proof. intros x. rewrite elem_of_singleton, elem_of_seq_set. omega. Qed. Proof. intros x. rewrite elem_of_singleton, elem_of_seq_set. omega. Qed.
......
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