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:17:03 +01:00
parent e946fefe47
commit e845183004
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/thue_morse.v
View File

@ -1324,11 +1324,9 @@ Lemma tm_step_cube7 : forall (n : nat),
/\ 0 < length b.
Proof.
intros n. intro H.
induction n.
- destruct H. destruct H. destruct H. destruct H.
exists x. exists x0. exists x1. split; assumption.
- destruct H. destruct H. destruct H. destruct H.
assert (J: exists (hd2 b2 tl2 : list bool),
induction n; destruct H; destruct H; destruct H; destruct H.
- exists x. exists x0. exists x1. split; assumption.
- assert (J: exists (hd2 b2 tl2 : list bool),
tm_step (Nat.pred (S n)) = hd2 ++ b2 ++ b2 ++ b2 ++ tl2
/\ 0 < length b2).
generalize H0. generalize H. apply tm_step_cube6.