Update
This commit is contained in:
parent
6d0ee965ba
commit
6aa1efe86c
@ -729,13 +729,6 @@ Proof.
|
|||||||
Qed.
|
Qed.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Theorem tm_step_square_pos_even : forall (n : nat) (hd a tl : list bool),
|
Theorem tm_step_square_pos_even : forall (n : nat) (hd a tl : list bool),
|
||||||
tm_step n = hd ++ a ++ a ++ tl
|
tm_step n = hd ++ a ++ a ++ tl
|
||||||
-> 0 < length a -> even (length (hd ++ a)) = true.
|
-> 0 < length a -> even (length (hd ++ a)) = true.
|
||||||
@ -749,3 +742,7 @@ Proof.
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
(* TODO: utiliser tm_step_odd_prefix_square pour le cas impair *)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user