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

No longer use later_car in the logic.

It is not non-expansive, so not a function we should use.
parent 936db861
...@@ -675,8 +675,6 @@ Inductive later (A : Type) : Type := Next { later_car : A }. ...@@ -675,8 +675,6 @@ Inductive later (A : Type) : Type := Next { later_car : A }.
Add Printing Constructor later. Add Printing Constructor later.
Arguments Next {_} _. Arguments Next {_} _.
Arguments later_car {_} _. Arguments later_car {_} _.
Lemma later_eta {A} (x : later A) : Next (later_car x) = x.
Proof. by destruct x. Qed.
Section later. Section later.
Context {A : cofeT}. Context {A : cofeT}.
......
...@@ -1213,8 +1213,7 @@ Lemma prod_validI {A B : cmraT} (x : A * B) : ✓ x ⊣⊢ ✓ x.1 ∧ ✓ x.2. ...@@ -1213,8 +1213,7 @@ Lemma prod_validI {A B : cmraT} (x : A * B) : ✓ x ⊣⊢ ✓ x.1 ∧ ✓ x.2.
Proof. by unseal. Qed. Proof. by unseal. Qed.
(* Later *) (* Later *)
Lemma later_equivI {A : cofeT} (x y : later A) : Lemma later_equivI {A : cofeT} (x y : A) : Next x Next y (x y).
x y (later_car x later_car y).
Proof. by unseal. Qed. Proof. by unseal. Qed.
(* Discrete *) (* Discrete *)
......
...@@ -126,7 +126,7 @@ Proof. ...@@ -126,7 +126,7 @@ Proof.
iRewrite "HI" in "HvI". rewrite uPred.option_validI agree_validI. iRewrite "HI" in "HvI". rewrite uPred.option_validI agree_validI.
iRewrite -"HvI" in "HI". by rewrite agree_idemp. } iRewrite -"HvI" in "HI". by rewrite agree_idemp. }
rewrite /invariant_unfold. rewrite /invariant_unfold.
by rewrite agree_equivI uPred.later_equivI /= iProp_unfold_equivI. by rewrite agree_equivI uPred.later_equivI iProp_unfold_equivI.
Qed. Qed.
Lemma ownI_open i P : wsat ownI i P ownE {[i]} wsat P ownD {[i]}. Lemma ownI_open i P : wsat ownI i P ownE {[i]} wsat P ownD {[i]}.
......
...@@ -35,7 +35,7 @@ Section saved_prop. ...@@ -35,7 +35,7 @@ Section saved_prop.
Lemma saved_prop_agree γ x y : Lemma saved_prop_agree γ x y :
saved_prop_own γ x saved_prop_own γ y (x y). saved_prop_own γ x saved_prop_own γ y (x y).
Proof. Proof.
rewrite -own_op own_valid agree_validI agree_equivI later_equivI /=. rewrite -own_op own_valid agree_validI agree_equivI later_equivI.
set (G1 := cFunctor_map F (iProp_fold, iProp_unfold)). set (G1 := cFunctor_map F (iProp_fold, iProp_unfold)).
set (G2 := cFunctor_map F (@iProp_unfold Σ, @iProp_fold Σ)). set (G2 := cFunctor_map F (@iProp_unfold Σ, @iProp_fold Σ)).
assert ( z, G2 (G1 z) z) as help. assert ( z, G2 (G1 z) z) as help.
......
Supports Markdown
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