baruchel/coqbooks
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update

Browse Source
This commit is contained in:
Thomas Baruchel 2022-11-25 07:05:27 +01:00
parent 7fc74784db
commit 7c36b66a21
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
thue-morse.v
View File

@ -946,20 +946,15 @@ Proof.
intros n k. intros H. intros n k. intros H.
rewrite tm_build. rewrite tm_build.
rewrite nth_error_app2. rewrite tm_size_power2. rewrite Nat.add_sub. rewrite nth_error_app2. rewrite tm_size_power2. rewrite Nat.add_sub.
assert (nth_error (tm_step n) k = Some (nth k (tm_step n) false)). assert (nth_error (tm_step n) k = Some (nth k (tm_step n) false)).
generalize H. rewrite <- tm_size_power2. apply nth_error_nth'. generalize H. rewrite <- tm_size_power2. apply nth_error_nth'.
rewrite H0. rewrite H0.
assert (nth_error (map negb (tm_step n)) k
assert (nth_error (map negb (tm_step n)) k = = Some (negb (nth k (tm_step n) false))).
Some (negb (nth k (tm_step n) false))). generalize H0. apply map_nth_error. rewrite H1.
generalize H0. apply map_nth_error. destruct (nth k (tm_step n) false). easy. easy.
rewrite H1. rewrite tm_size_power2. apply Nat.le_add_l.
Qed.
destruct (nth_error (tm_step n) k). rewrite <- H0. rewrite <- H0.