Local Hint Resolve le_0_wm1 lt_0_w : a.

(* Specifications: *)
Lemma lt_p_w : p < w.
rewrite p_M. apply Zle_lt_trans with (w - 1). rewrite <- Zlog_sup_pow. apply Zlog_sup_seq.
Lemma lt_p_w : p < w.
clear x_i_in_Z_ x_i s_i s'_i s''_i h'_i q_i q'_i y_i h'_i h'_i' x'.
Lemma lt_p_w : p < w.
rewrite p_M. apply Zle_lt_trans with (w - 1). rewrite <- Zlog_sup_pow. apply Zlog_sup_seq.