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. /\ 0 < length b.
Proof. Proof.
intros n. intro H. intros n. intro H.
induction n. induction n; destruct H; destruct H; destruct H; destruct H.
- destruct H. destruct H. destruct H. destruct H. - exists x. exists x0. exists x1. split; assumption.
exists x. exists x0. exists x1. split; assumption. - assert (J: exists (hd2 b2 tl2 : list bool),
- destruct H. destruct H. destruct H. destruct H.
assert (J: exists (hd2 b2 tl2 : list bool),
tm_step (Nat.pred (S n)) = hd2 ++ b2 ++ b2 ++ b2 ++ tl2 tm_step (Nat.pred (S n)) = hd2 ++ b2 ++ b2 ++ b2 ++ tl2
/\ 0 < length b2). /\ 0 < length b2).
generalize H0. generalize H. apply tm_step_cube6. generalize H0. generalize H. apply tm_step_cube6.