Commit d4b57ae8 authored by Dan Frumin's avatar Dan Frumin

Add `seq_set_start_disjoint`

parent 208bf810
......@@ -1053,6 +1053,10 @@ Section seq_set.
- rewrite elem_of_union, elem_of_singleton, IH. omega.
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 :
{[ start + len ]} ## seq_set (C:=C) start len.
Proof. intros x. rewrite elem_of_singleton, elem_of_seq_set. omega. Qed.
......
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