Skip to content

GitLab

Commit d7bf36da authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

FromOp and IntoOp instances for frac.

parent 3875c726
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 0 deletions
theories/algebra/frac.v
View file @ d7bf36da
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