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 2023-01-04 19:39:59 +01:00
parent 79f9525fbd
commit 30eef734bc
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/thue_morse.v
View File

@ -266,11 +266,11 @@ Proof.
intros l hd tl. intros H I. intros l hd tl. intros H I.
assert (J: hd = tm_morphism (firstn (Nat.div2 (length hd)) l)). assert (J: hd = tm_morphism (firstn (Nat.div2 (length hd)) l)).
generalize I. generalize H. apply tm_morphism_app2. generalize I. generalize H. apply tm_morphism_app2.
assert (K: l = (firstn (Nat.div2 (length hd)) l) ++ (skipn (Nat.div2 (length hd)) l)). assert (K: (firstn (Nat.div2 (length hd)) l) ++ (skipn (Nat.div2 (length hd)) l) = l).
symmetry. apply firstn_skipn. apply firstn_skipn.
assert (L: tm_morphism l = (tm_morphism (firstn (Nat.div2 (length hd)) l)) assert (L: tm_morphism l = (tm_morphism (firstn (Nat.div2 (length hd)) l))
++ (tm_morphism (skipn (Nat.div2 (length hd)) l))). ++ (tm_morphism (skipn (Nat.div2 (length hd)) l))).
rewrite K at 1. apply tm_morphism_app. rewrite <- K at 1. apply tm_morphism_app.
rewrite H in L. rewrite <- J in L. rewrite H in L. rewrite <- J in L.
rewrite app_inv_head_iff in L. assumption. rewrite app_inv_head_iff in L. assumption.
Qed. Qed.