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

Update

This commit is contained in:
Thomas Baruchel 2023-02-02 18:48:40 +01:00
parent 09b3f8f05c
commit a3e8c15627
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/thue_morse3.v
View File

@ -2209,6 +2209,20 @@ Proof.
reflexivity. contradiction H6. reflexivity. reflexivity.
rewrite H7 in H.
assert ({b=b6} + {~ b=b6}). apply bool_dec. destruct H8. rewrite e in H.
replace (hd ++ [b6; b6; b6; b5; b6; b5; b5; b6]
++ [b6; b5; b5; b6; b5; b6; b6; b6] ++ tl)
with (hd ++ [b6] ++ [b6] ++ [b6]
++ [b5; b6;b5;b5;b6;b6; b5; b5; b6; b5; b6; b6; b6] ++ tl) in H.
apply tm_step_cubefree in H. contradiction H. reflexivity.
apply Nat.lt_0_1. reflexivity.
assert (b = b5). destruct b; destruct b5; destruct b6.
reflexivity. reflexivity. contradiction n1. reflexivity.
contradiction H1. reflexivity. contradiction H1. reflexivity.
contradiction n1. reflexivity. reflexivity. reflexivity.
rewrite H8 in H.
(*
Lemma tm_step_proper_palindrome_center :
forall (m n k : nat) (hd a tl : list bool),