Skip to content
Snippets Groups Projects
Commit 770bb016 authored by Ralf Jung's avatar Ralf Jung
Browse files

get rid of unnecessary OfeMor

parent c9c13da1
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
iris/base_logic/lib/saved_prop.v
+ 1
− 1
View file @ 770bb016
...@@ -98,7 +98,7 @@ Notation savedPredG Σ A := (savedAnythingG Σ (A -d> ▶ ∙)). ...@@ -98,7 +98,7 @@ Notation savedPredG Σ A := (savedAnythingG Σ (A -d> ▶ ∙)).
Notation savedPredΣ A := (savedAnythingΣ (A -d> ▶ ∙)). Notation savedPredΣ A := (savedAnythingΣ (A -d> ▶ ∙)).
Definition saved_pred_own `{!savedPredG Σ A} (γ : gname) (Φ : A → iProp Σ) := Definition saved_pred_own `{!savedPredG Σ A} (γ : gname) (Φ : A → iProp Σ) :=
saved_anything_own (F := A -d> ▶ ∙) γ (OfeMor Next ∘ Φ). saved_anything_own (F := A -d> ▶ ∙) γ (Next ∘ Φ).
Global Instance saved_pred_own_contractive `{!savedPredG Σ A} γ : Global Instance saved_pred_own_contractive `{!savedPredG Σ A} γ :
Contractive (saved_pred_own γ : (A -d> iPropO Σ) → iProp Σ). Contractive (saved_pred_own γ : (A -d> iPropO Σ) → iProp Σ).
......
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