reflexivity.
simple destruct n.
simpl in |- *; rewrite pred_succZ; trivial with arith.
intros; rewrite addZ_eq3; rewrite pred_succZ; trivial with arith.
trivial with arith.
Qed.

Lemma tech_add_pos_succZ :
forall (x : nat) (y : Z), addZ (pos (S x)) y = succZ (addZ (pos x) y).