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

experiment

parent ed024822
No related tags found
No related merge requests found
......@@ -7,7 +7,6 @@ Set Default Proof Using "Type".
(** We want to keep these instances local, which means we have to repeat them in
every model file that needs it. *)
Local Existing Instance lftPreG_box.
Local Hint Extern 10 (inG _ _) => solve_inG_with id lftΣ : typeclass_instances.
Section accessors.
Context `{!invG Σ, !lftG Σ}.
......
......@@ -54,7 +54,16 @@ Notation lftPreG Σ := (subG lftΣ Σ).
Local Instance lftPreG_box Σ : lftPreG Σ boxG Σ.
Proof. solve_inG. Qed.
(** Instance for [own] *)
Local Hint Extern 10 (inG _ _) => solve_inG_with id lftΣ : typeclass_instances.
Instance lftPreG_1 Σ : lftPreG Σ inG Σ (authR alftUR).
Proof. solve_inG. Qed.
Instance lftPreG_2 Σ : lftPreG Σ inG Σ (authR ilftUR).
Proof. solve_inG. Qed.
Instance lftPreG_3 Σ : lftPreG Σ inG Σ (authR borUR).
Proof. solve_inG. Qed.
Instance lftPreG_4 Σ : lftPreG Σ inG Σ (authR natUR).
Proof. solve_inG. Qed.
Instance lftPreG_5 Σ : lftPreG Σ inG Σ (authR inhUR).
Proof. solve_inG. Qed.
(** Library assumptions + instance names *)
Class lftG Σ := LftG {
......
......@@ -7,7 +7,6 @@ Set Default Proof Using "Type".
(** We want to keep these instances local, which means we have to repeat them in
every model file that needs it. *)
Local Existing Instance lftPreG_box.
Local Hint Extern 10 (inG _ _) => solve_inG_with id lftΣ : typeclass_instances.
Section faking.
Context `{!invG Σ, !lftG Σ}.
......
......@@ -9,7 +9,6 @@ Import uPred.
(** We want to keep these instances local, which means we have to repeat them in
every model file that needs it. *)
Local Existing Instance lftPreG_box.
Local Hint Extern 10 (inG _ _) => solve_inG_with id lftΣ : typeclass_instances.
Section primitive.
Context `{!invG Σ, !lftG Σ}.
......
......@@ -7,7 +7,6 @@ Set Default Proof Using "Type".
(** We want to keep these instances local, which means we have to repeat them in
every model file that needs it. *)
Local Existing Instance lftPreG_box.
Local Hint Extern 10 (inG _ _) => solve_inG_with id lftΣ : typeclass_instances.
Section reborrow.
Context `{!invG Σ, !lftG Σ}.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment