(** Weakening order *)

Notation Zle_succ := Z.le_succ_diag_r (only parsing).Notation Zle_pred := Z.le_pred_l (only parsing).Notation Zlt_lt_succ := Z.lt_lt_succ_r (only parsing).Notation Zle_le_succ := Z.le_le_succ_r (only parsing).

Lemma Zgt_succ_gt_or_eq n m : Z.succ n > m -> n > m \/ m = n.