Commit d7bf36da authored by Robbert Krebbers's avatar Robbert Krebbers

FromOp and IntoOp instances for frac.

parent 3875c726
From Coq.QArith Require Import Qcanon.
From iris.algebra Require Export cmra.
From iris.proofmode Require Import classes.
Set Default Proof Using "Type".
Notation frac := Qp (only parsing).
......@@ -48,3 +49,8 @@ Proof. done. Qed.
Lemma frac_valid' (p : Qp) : p (p 1%Qp)%Qc.
Proof. done. Qed.
Global Instance frac_into_op q : IntoOp q (q/2)%Qp (q/2)%Qp.
Proof. by rewrite /IntoOp frac_op' Qp_div_2. Qed.
Global Instance frac_from_op q : FromOp q (q/2)%Qp (q/2)%Qp.
Proof. by rewrite /FromOp frac_op' Qp_div_2. Qed.
\ No newline at end of file
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