Skip to content
Snippets Groups Projects
Commit c5676b11 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Shorten proof.

parent b55715d3
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 5 deletions
theories/list_numbers.v
+ 1
− 5
View file @ c5676b11
...@@ -80,11 +80,7 @@ Section seq. ...@@ -80,11 +80,7 @@ Section seq.
Lemma Forall_seq (P : nat → Prop) i n : Lemma Forall_seq (P : nat → Prop) i n :
Forall P (seq i n) ↔ ∀ j, i ≤ j < i + n → P j. Forall P (seq i n) ↔ ∀ j, i ≤ j < i + n → P j.
Proof. Proof. rewrite Forall_forall. setoid_rewrite elem_of_seq. auto with lia. Qed.
rewrite Forall_lookup. split.
- intros H j [??]. apply (H (j - i)), lookup_seq. lia.
- intros H j x [-> ?]%lookup_seq. auto with lia.
Qed.
End seq. End seq.
(** ** Properties of the [seqZ] function *) (** ** Properties of the [seqZ] function *)
......
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