(* KEEP TOGETHER> *)

(* Specifications: *)
Lemma lt_0_2ppw : 0 < 2 ^ (p + w).
apply lt_0_Zpow. fold (0 + 0). apply Zplus_le_compat; auto with a. Qed.
Lemma lt_0_2pp : 0 < 2 ^ p.
apply lt_0_Zpow. auto with a. Qed.