intros n; elim n; clear n; simpl in |- *; auto.
intros p q H'; elim H'; auto with zarith.
intros n H' p q H'0; elim H'0; auto with zarith.
intros H'1; apply Zle_succ_le; auto with zarith.
Qed.

(* Specifications: *)
Theorem mZlist_aux_correct_rev2 :
forall (n : nat) (p q : Z),
In q (mZlist_aux p n) -> (q <= p + Z_of_nat n)%Z.