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
Pipeline #15150 passed
...@@ -7,7 +7,6 @@ Set Default Proof Using "Type". ...@@ -7,7 +7,6 @@ Set Default Proof Using "Type".
(** We want to keep these instances local, which means we have to repeat them in (** We want to keep these instances local, which means we have to repeat them in
every model file that needs it. *) every model file that needs it. *)
Local Existing Instance lftPreG_box. Local Existing Instance lftPreG_box.
Local Hint Extern 10 (inG _ _) => solve_inG_with id lftΣ : typeclass_instances.
Section accessors. Section accessors.
Context `{!invG Σ, !lftG Σ}. Context `{!invG Σ, !lftG Σ}.
......
...@@ -54,7 +54,16 @@ Notation lftPreG Σ := (subG lftΣ Σ). ...@@ -54,7 +54,16 @@ Notation lftPreG Σ := (subG lftΣ Σ).
Local Instance lftPreG_box Σ : lftPreG Σ boxG Σ. Local Instance lftPreG_box Σ : lftPreG Σ boxG Σ.
Proof. solve_inG. Qed. Proof. solve_inG. Qed.
(** Instance for [own] *) (** 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 *) (** Library assumptions + instance names *)
Class lftG Σ := LftG { Class lftG Σ := LftG {
......
...@@ -7,7 +7,6 @@ Set Default Proof Using "Type". ...@@ -7,7 +7,6 @@ Set Default Proof Using "Type".
(** We want to keep these instances local, which means we have to repeat them in (** We want to keep these instances local, which means we have to repeat them in
every model file that needs it. *) every model file that needs it. *)
Local Existing Instance lftPreG_box. Local Existing Instance lftPreG_box.
Local Hint Extern 10 (inG _ _) => solve_inG_with id lftΣ : typeclass_instances.
Section faking. Section faking.
Context `{!invG Σ, !lftG Σ}. Context `{!invG Σ, !lftG Σ}.
......
...@@ -9,7 +9,6 @@ Import uPred. ...@@ -9,7 +9,6 @@ Import uPred.
(** We want to keep these instances local, which means we have to repeat them in (** We want to keep these instances local, which means we have to repeat them in
every model file that needs it. *) every model file that needs it. *)
Local Existing Instance lftPreG_box. Local Existing Instance lftPreG_box.
Local Hint Extern 10 (inG _ _) => solve_inG_with id lftΣ : typeclass_instances.
Section primitive. Section primitive.
Context `{!invG Σ, !lftG Σ}. Context `{!invG Σ, !lftG Σ}.
......
...@@ -7,7 +7,6 @@ Set Default Proof Using "Type". ...@@ -7,7 +7,6 @@ Set Default Proof Using "Type".
(** We want to keep these instances local, which means we have to repeat them in (** We want to keep these instances local, which means we have to repeat them in
every model file that needs it. *) every model file that needs it. *)
Local Existing Instance lftPreG_box. Local Existing Instance lftPreG_box.
Local Hint Extern 10 (inG _ _) => solve_inG_with id lftΣ : typeclass_instances.
Section reborrow. Section reborrow.
Context `{!invG Σ, !lftG Σ}. Context `{!invG Σ, !lftG Σ}.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment