This commit is contained in:
Thomas Baruchel 2022-11-25 07:11:04 +01:00
parent 7c36b66a21
commit 1fb8dd5022

View File

@ -956,12 +956,6 @@ Proof.
rewrite tm_size_power2. apply Nat.le_add_l.
Qed.
Lemma tm_step_next_range2_neighbor : forall (n k : nat),
S k < 2^n ->
eqb (nth k (tm_step n) false) (nth (S k) (tm_step n) false)
@ -993,6 +987,23 @@ Proof.
rewrite L. rewrite M. reflexivity.
Qed.
Lemma tm_step_next_range2_neighbor' : forall (n k : nat),
S k < 2^n ->
nth_error (tm_step n) k = nth_error (tm_step n) (S k)
<->
nth_error (tm_step (S n)) (k + 2^n)
= nth_error (tm_step (S n)) (S k + 2^n).
Proof.
Lemma tm_step_add_range2_neighbor : forall (n m k : nat),
S k < 2^n ->
nth_error (tm_step n) k = nth_error (tm_step n) (S k)