proposition: Lemma positive_in_Q (p: positive): 0 < inject_Z (Zpos p).
proof: Proof. change (inject_Z 0 < inject_Z (Zpos p)). rewrite <- Zlt_Qlt. reflexivity. Qed.
imports: Coq.QArith.QArith Coq.ZArith.ZArith Coq.NArith.NArith Coq.QArith.Qpower Coq.QArith.Qround Coq.QArith.Qround Coq.QArith.Qabs CoRN.stdlib_omissions.List