Update
This commit is contained in:
parent
ba491a33d3
commit
8604cc2d27
20
thue-morse.v
20
thue-morse.v
@ -628,10 +628,10 @@ Qed.
|
||||
|
||||
|
||||
Lemma tm_step_pred : forall (n k m : nat),
|
||||
S (2*k) * 2^m < 2^n -> (
|
||||
S (2*k) * 2^m < 2^n ->
|
||||
nth_error (tm_step n) (S (2*k) * 2^m)
|
||||
= nth_error (tm_step n) (S (2*k) * 2^m - 1)
|
||||
<-> odd m = true).
|
||||
<-> odd m = true.
|
||||
Proof.
|
||||
intros n k m.
|
||||
|
||||
@ -730,26 +730,20 @@ Proof.
|
||||
reflexivity.
|
||||
simpl; split; reflexivity.
|
||||
|
||||
assumption.
|
||||
rewrite tm_size_power2. assumption.
|
||||
assumption.
|
||||
rewrite tm_size_power2. generalize I. generalize L.
|
||||
apply Nat.lt_trans.
|
||||
rewrite tm_size_power2. generalize I. generalize L.
|
||||
apply Nat.lt_trans.
|
||||
assumption. rewrite tm_size_power2. assumption. assumption.
|
||||
rewrite tm_size_power2. generalize I. generalize L. apply Nat.lt_trans.
|
||||
rewrite tm_size_power2. generalize I. generalize L. apply Nat.lt_trans.
|
||||
rewrite tm_size_power2. assumption.
|
||||
|
||||
rewrite Nat.mul_sub_distr_l. rewrite Nat.mul_1_r.
|
||||
rewrite <- Nat.sub_succ_l.
|
||||
rewrite Nat.sub_succ. reflexivity.
|
||||
rewrite <- Nat.sub_succ_l. rewrite Nat.sub_succ. reflexivity.
|
||||
replace (2) with (2*1) at 1.
|
||||
apply Nat.mul_le_mono_pos_l. apply Nat.lt_0_2.
|
||||
apply Nat.le_succ_l. apply Nat.mul_pos_pos.
|
||||
apply Nat.lt_0_succ. assumption. apply Nat.mul_1_r.
|
||||
apply Nat.lt_0_2.
|
||||
|
||||
apply Nat.mul_comm.
|
||||
apply Nat.mul_comm.
|
||||
apply Nat.mul_comm. apply Nat.mul_comm.
|
||||
Qed.
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user