Skip to content
Snippets Groups Projects
Commit 62389c82 authored by Zhen Zhang's avatar Zhen Zhang
Browse files

tweak the Qp lemmas

parent f9c54965
Branches
Tags
No related merge requests found
......@@ -567,9 +567,12 @@ Proof.
apply Qp_eq; simpl. ring.
Qed.
Lemma Qp_ge_1 (q: Qp): ¬ ((1 + q)%Qp 1%Qp)%Qc.
Lemma Qp_not_plus_q_ge_1 (q: Qp): ¬ ((1 + q)%Qp 1%Qp)%Qc.
Proof.
intros Hle.
apply (Qcplus_le_mono_l q 0 1) in Hle.
apply Qcle_ngt in Hle. by destruct q.
apply Qcle_ngt in Hle. apply Hle, Qp_prf.
Qed.
Lemma Qp_ge_0 (q: Qp): (0 q)%Qc.
Proof. apply Qclt_le_weak, Qp_prf. Qed.
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment