proposition: Lemma hanson_5 (k n : nat) : a k.+2 <= n -> k <= trunc_log 2 (trunc_log 2 n).
proof: Proof. move=> leaSSn; do 2! (apply: trunc_log_max => //); apply: leq_trans leaSSn. exact: a_lower_boundW. Qed.
imports: mathcomp(all_ssreflect all_algebra) extra_mathcomp tactics floor arithmetics multinomial