proposition: Lemma Zlt_uniq (a b: Z) (p q: (a < b)%Z): p = q.
proof: Proof. unfold Z.lt in *. destruct p. intros. apply (Eqdep_dec.K_dec_set comparison_eq_dec). reflexivity. Qed.
imports: Coq.QArith.QArith Coq.QArith.Qpower CoRN.model.ordfields.Qordfield CoRN.algebra.COrdFields2 Coq.Logic.Eqdep_dec CoRN.tactics.CornTac Coq.QArith.Qround Coq.QArith.Qabs CoRN.stdlib_omissions.Q