Update
This commit is contained in:
parent
b51cd1781a
commit
ba491a33d3
@ -627,12 +627,6 @@ Proof.
|
||||
Qed.
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Lemma tm_step_pred : forall (n k m : nat),
|
||||
S (2*k) * 2^m < 2^n -> (
|
||||
nth_error (tm_step n) (S (2*k) * 2^m)
|
||||
@ -660,7 +654,6 @@ Proof.
|
||||
replace (S (2*k) * 2) with (2* (S (2*k))).
|
||||
rewrite <- Nat.mul_assoc. rewrite <- tm_step_double_index.
|
||||
|
||||
(* réécriture de I *)
|
||||
rewrite Nat.pow_succ_r' in I.
|
||||
rewrite Nat.pow_succ_r' in I.
|
||||
rewrite Nat.mul_assoc in I.
|
||||
|
Loading…
Reference in New Issue
Block a user