Commit 76a28786 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Remove internalized properties of frac.

They are redundant because frac is discrete.
parent 2769834f
From Coq.QArith Require Import Qcanon. From Coq.QArith Require Import Qcanon.
From iris.algebra Require Export cmra. From iris.algebra Require Export cmra.
From iris.algebra Require Import upred.
Notation frac := Qp (only parsing). Notation frac := Qp (only parsing).
...@@ -20,12 +19,6 @@ Qed. ...@@ -20,12 +19,6 @@ Qed.
Canonical Structure fracR := discreteR frac frac_ra_mixin. Canonical Structure fracR := discreteR frac frac_ra_mixin.
End frac. End frac.
(** Internalized properties *)
Lemma frac_equivI {M} (x y : frac) : x y (x = y : uPred M).
Proof. by uPred.unseal. Qed.
Lemma frac_validI {M} (x : frac) : x ( (x 1)%Qc : uPred M).
Proof. by uPred.unseal. Qed.
(** Exclusive *) (** Exclusive *)
Global Instance frac_full_exclusive : Exclusive 1%Qp. Global Instance frac_full_exclusive : Exclusive 1%Qp.
Proof. Proof.
......
...@@ -118,7 +118,7 @@ Section heap. ...@@ -118,7 +118,7 @@ Section heap.
rewrite heap_mapsto_eq -auth_own_op op_singleton pair_op dec_agree_ne //. rewrite heap_mapsto_eq -auth_own_op op_singleton pair_op dec_agree_ne //.
apply (anti_symm ()); last by apply pure_elim_l. apply (anti_symm ()); last by apply pure_elim_l.
rewrite auth_own_valid gmap_validI (forall_elim l) lookup_singleton. rewrite auth_own_valid gmap_validI (forall_elim l) lookup_singleton.
rewrite option_validI prod_validI frac_validI discrete_valid. rewrite option_validI prod_validI !discrete_valid /=.
by apply pure_elim_r. by apply pure_elim_r.
Qed. 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