intros. omega.
Qed.

(* Specifications: *)
Lemma log2_monotonic_b : forall(a : positive),
(log2 a) <= (log2 (Pos.succ a)).
Lemma s_nat_nz : forall(a : nat)(pf : a <> 0),
((S a) <> 0).
Lemma factor_s_conv : forall(a : nat)(pf1 : (a <> 0))(pf2 : (S a) <> 0),
(nat_to_pos (pf2)) = (Pos.succ (nat_to_pos pf1)).
Lemma factor_double_s : forall a,
(2 * (S a)) = (S (S (2 * a))).
Lemma factor_double_conv : forall(a : nat)(pf1 : (a <> 0))(pf2 : (2 * a) <> 0),
(nat_to_pos pf2) = (Pmult 2 (nat_to_pos pf1)).
Theorem lognat_ge_monotonic_b : forall(a : nat)(pf1 : (a <> 0))(pf2: (S a) <> 0),
(lognat pf2) >= (lognat pf1).