Update
This commit is contained in:
parent
d27fdab010
commit
de7cc14376
@ -1265,10 +1265,10 @@ Proof.
|
|||||||
assumption. apply Nat.pow_lt_mono_r. apply Nat.lt_1_2. assumption. assumption.
|
assumption. apply Nat.pow_lt_mono_r. apply Nat.lt_1_2. assumption. assumption.
|
||||||
|
|
||||||
apply tm_step_stable. apply lt_split_bits.
|
apply tm_step_stable. apply lt_split_bits.
|
||||||
assumption. apply Nat.pow_lt_mono_r. apply Nat.lt_1_2. assumption. assumption.
|
assumption. assumption. assumption.
|
||||||
assert (k*2^m + 2^j < 2^n).
|
assert (k*2^m + 2^j < 2^n).
|
||||||
apply lt_split_bits.
|
apply lt_split_bits.
|
||||||
assumption. apply Nat.pow_lt_mono_r. apply Nat.lt_1_2. assumption. assumption.
|
assumption. assumption. assumption.
|
||||||
assert (2^n <= 2^(m+n)). apply Nat.pow_le_mono_r. easy. apply Nat.le_add_l.
|
assert (2^n <= 2^(m+n)). apply Nat.pow_le_mono_r. easy. apply Nat.le_add_l.
|
||||||
generalize H2. generalize H1. apply Nat.lt_le_trans.
|
generalize H2. generalize H1. apply Nat.lt_le_trans.
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user