Commit 5874f41e authored by Ralf Jung's avatar Ralf Jung
Browse files

show frac_valid'

parent 1c14ae6f
......@@ -48,5 +48,8 @@ Proof.
eapply Qclt_not_eq; first done. by apply (inj (Qcplus q)).
Qed.
Lemma frac_op': (p q: Qp), (p q) = (p + q)%Qp.
Lemma frac_op' (q p : Qp) : (p q) = (p + q)%Qp.
Proof. done. Qed.
Lemma frac_valid' (p : Qp) : p (p 1%Qp)%Qc.
Proof. done. Qed.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment