Update
This commit is contained in:
parent
f922960785
commit
3195f3eb4e
@ -887,9 +887,7 @@ Proof.
|
||||
assert (I: length l1 < 2^n).
|
||||
rewrite <- tm_size_power2. generalize H. apply list_app_length_lt.
|
||||
rewrite nth_error_app2. rewrite tm_size_power2.
|
||||
replace (length l1 + 2^n - 2^n) with (length l1).
|
||||
apply map_nth_error. apply H0.
|
||||
rewrite Nat.add_sub. reflexivity.
|
||||
rewrite Nat.add_sub. apply map_nth_error. apply H0.
|
||||
rewrite tm_size_power2. apply Nat.le_add_l.
|
||||
Qed.
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user