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

Correct some `Params` instances.

parent 7a04946d
...@@ -1061,6 +1061,7 @@ Inductive later (A : Type) : Type := Next { later_car : A }. ...@@ -1061,6 +1061,7 @@ 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 {_} _.
Instance: Params (@Next) 1.
Section later. Section later.
Context {A : ofeT}. Context {A : ofeT}.
......
...@@ -21,7 +21,7 @@ Definition saved_anything_own `{savedAnythingG Σ F} ...@@ -21,7 +21,7 @@ Definition saved_anything_own `{savedAnythingG Σ F}
(γ : gname) (x : F (iProp Σ)) : iProp Σ := (γ : gname) (x : F (iProp Σ)) : iProp Σ :=
own γ (to_agree $ (cFunctor_map F (iProp_fold, iProp_unfold) x)). own γ (to_agree $ (cFunctor_map F (iProp_fold, iProp_unfold) x)).
Typeclasses Opaque saved_anything_own. Typeclasses Opaque saved_anything_own.
Instance: Params (@saved_anything_own) 3. Instance: Params (@saved_anything_own) 4.
Section saved_anything. Section saved_anything.
Context `{savedAnythingG Σ F}. Context `{savedAnythingG Σ F}.
......
...@@ -23,6 +23,7 @@ Definition ownI `{invG Σ} (i : positive) (P : iProp Σ) : iProp Σ := ...@@ -23,6 +23,7 @@ Definition ownI `{invG Σ} (i : positive) (P : iProp Σ) : iProp Σ :=
own invariant_name ( {[ i := invariant_unfold P ]}). own invariant_name ( {[ i := invariant_unfold P ]}).
Arguments ownI {_ _} _ _%I. Arguments ownI {_ _} _ _%I.
Typeclasses Opaque ownI. Typeclasses Opaque ownI.
Instance: Params (@invariant_unfold) 1.
Instance: Params (@ownI) 3. Instance: Params (@ownI) 3.
Definition ownE `{invG Σ} (E : coPset) : iProp Σ := Definition ownE `{invG Σ} (E : coPset) : iProp Σ :=
......
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