(** Particular cases of the previous result *)

(* Specifications: *)
Lemma pos_sub_diag p : pos_sub p p = 0.
Lemma pos_sub_lt p q : (p < q)%positive -> pos_sub p q = neg (q - p).
Lemma pos_sub_gt p q : (q < p)%positive -> pos_sub p q = pos (p - q).
(** The opposite of [pos_sub] is [pos_sub] with reversed arguments *)
Lemma pos_sub_opp p q : - pos_sub p q = pos_sub q p.
Module Import Private_BootStrap.