Commit 636f6fb3 authored by Amin Timany's avatar Amin Timany

Remove global from Typeclasses Opaque (not supported in Coq 8.7)

parent 21c3fd10
Pipeline #13333 failed with stage
in 5 minutes and 59 seconds
...@@ -49,7 +49,7 @@ Lemma fact_acc_body_unfold : ...@@ -49,7 +49,7 @@ Lemma fact_acc_body_unfold :
). ).
Proof. trivial. Qed. Proof. trivial. Qed.
Global Typeclasses Opaque fact_acc_body. Typeclasses Opaque fact_acc_body.
Global Opaque fact_acc_body. Global Opaque fact_acc_body.
Definition fact_acc : expr := Definition fact_acc : expr :=
......
...@@ -35,7 +35,7 @@ Proof. trivial. Qed. ...@@ -35,7 +35,7 @@ Proof. trivial. Qed.
Lemma with_lock_of_val e l : of_val (with_lockV e l) = with_lock e l. Lemma with_lock_of_val e l : of_val (with_lockV e l) = with_lock e l.
Proof. trivial. Qed. Proof. trivial. Qed.
Global Typeclasses Opaque with_lockV. Typeclasses Opaque with_lockV.
Global Opaque with_lockV. Global Opaque with_lockV.
Lemma newlock_closed f : newlock.[f] = newlock. Lemma newlock_closed f : newlock.[f] = newlock.
...@@ -93,7 +93,7 @@ Section proof. ...@@ -93,7 +93,7 @@ Section proof.
by iMod (step_alloc _ _ j K with "[Hj]") as "Hj"; eauto. by iMod (step_alloc _ _ j K with "[Hj]") as "Hj"; eauto.
Qed. Qed.
Global Typeclasses Opaque newlock. Typeclasses Opaque newlock.
Global Opaque newlock. Global Opaque newlock.
Lemma steps_acquire E ρ j K l : Lemma steps_acquire E ρ j K l :
...@@ -112,7 +112,7 @@ Section proof. ...@@ -112,7 +112,7 @@ Section proof.
Unshelve. all:trivial. Unshelve. all:trivial.
Qed. Qed.
Global Typeclasses Opaque acquire. Typeclasses Opaque acquire.
Global Opaque acquire. Global Opaque acquire.
Lemma steps_release E ρ j K l b: Lemma steps_release E ρ j K l b:
...@@ -126,7 +126,7 @@ Section proof. ...@@ -126,7 +126,7 @@ Section proof.
by iIntros "!> {$Hj $Hl}". by iIntros "!> {$Hj $Hl}".
Qed. Qed.
Global Typeclasses Opaque release. Typeclasses Opaque release.
Global Opaque release. Global Opaque release.
Lemma steps_with_lock E ρ j K e l P Q v w: Lemma steps_with_lock E ρ j K e l P Q v w:
...@@ -155,7 +155,7 @@ Section proof. ...@@ -155,7 +155,7 @@ Section proof.
iModIntro; by iFrame. iModIntro; by iFrame.
Qed. Qed.
Global Typeclasses Opaque with_lock. Typeclasses Opaque with_lock.
Global Opaque with_lock. Global Opaque with_lock.
End proof. End proof.
......
...@@ -97,7 +97,7 @@ Section CG_Stack. ...@@ -97,7 +97,7 @@ Section CG_Stack.
iModIntro. by iFrame. iModIntro. by iFrame.
Qed. Qed.
Global Typeclasses Opaque CG_push. Typeclasses Opaque CG_push.
Global Opaque CG_push. Global Opaque CG_push.
Lemma CG_locked_push_to_val st l : Lemma CG_locked_push_to_val st l :
...@@ -137,7 +137,7 @@ Section CG_Stack. ...@@ -137,7 +137,7 @@ Section CG_Stack.
iApply steps_CG_push; first done. by iFrame. iApply steps_CG_push; first done. by iFrame.
Qed. Qed.
Global Typeclasses Opaque CG_locked_push. Typeclasses Opaque CG_locked_push.
Global Opaque CG_locked_push. Global Opaque CG_locked_push.
(* Coarse-grained pop *) (* Coarse-grained pop *)
...@@ -209,7 +209,7 @@ Section CG_Stack. ...@@ -209,7 +209,7 @@ Section CG_Stack.
by iFrame "Hj Hx"; trivial. by iFrame "Hj Hx"; trivial.
Qed. Qed.
Global Typeclasses Opaque CG_pop. Typeclasses Opaque CG_pop.
Global Opaque CG_pop. Global Opaque CG_pop.
Lemma CG_locked_pop_to_val st l : Lemma CG_locked_pop_to_val st l :
...@@ -265,7 +265,7 @@ Section CG_Stack. ...@@ -265,7 +265,7 @@ Section CG_Stack.
iApply steps_CG_pop_fail; eauto. iApply steps_CG_pop_fail; eauto.
Qed. Qed.
Global Typeclasses Opaque CG_locked_pop. Typeclasses Opaque CG_locked_pop.
Global Opaque CG_locked_pop. Global Opaque CG_locked_pop.
Lemma CG_snap_to_val st l : to_val (CG_snap st l) = Some (CG_snapV st l). Lemma CG_snap_to_val st l : to_val (CG_snap st l) = Some (CG_snapV st l).
...@@ -274,7 +274,7 @@ Section CG_Stack. ...@@ -274,7 +274,7 @@ Section CG_Stack.
Lemma CG_snap_of_val st l : of_val (CG_snapV st l) = CG_snap st l. Lemma CG_snap_of_val st l : of_val (CG_snapV st l) = CG_snap st l.
Proof. trivial. Qed. Proof. trivial. Qed.
Global Typeclasses Opaque CG_snapV. Typeclasses Opaque CG_snapV.
Global Opaque CG_snapV. Global Opaque CG_snapV.
Lemma CG_snap_type st l Γ τ : Lemma CG_snap_type st l Γ τ :
...@@ -309,7 +309,7 @@ Section CG_Stack. ...@@ -309,7 +309,7 @@ Section CG_Stack.
by iFrame. by iFrame.
Qed. Qed.
Global Typeclasses Opaque CG_snap. Typeclasses Opaque CG_snap.
Global Opaque CG_snap. Global Opaque CG_snap.
(* Coarse-grained iter *) (* Coarse-grained iter *)
...@@ -345,7 +345,7 @@ Section CG_Stack. ...@@ -345,7 +345,7 @@ Section CG_Stack.
Lemma CG_iter_of_val f : of_val (CG_iterV f) = CG_iter f. Lemma CG_iter_of_val f : of_val (CG_iterV f) = CG_iter f.
Proof. trivial. Qed. Proof. trivial. Qed.
Global Typeclasses Opaque CG_iterV. Typeclasses Opaque CG_iterV.
Global Opaque CG_iterV. Global Opaque CG_iterV.
Lemma CG_iter_subst (f : expr) g : (CG_iter f).[g] = CG_iter f.[g]. Lemma CG_iter_subst (f : expr) g : (CG_iter f).[g] = CG_iter f.[g].
...@@ -386,7 +386,7 @@ Section CG_Stack. ...@@ -386,7 +386,7 @@ Section CG_Stack.
iMod (do_step_pure with "[$Hj]") as "Hj"; eauto. iMod (do_step_pure with "[$Hj]") as "Hj"; eauto.
Qed. Qed.
Global Typeclasses Opaque CG_iter. Typeclasses Opaque CG_iter.
Global Opaque CG_iter. Global Opaque CG_iter.
Lemma CG_snap_iter_type st l Γ τ : Lemma CG_snap_iter_type st l Γ τ :
...@@ -420,7 +420,7 @@ Section CG_Stack. ...@@ -420,7 +420,7 @@ Section CG_Stack.
Qed. Qed.
Global Typeclasses Opaque CG_snap_iter. Typeclasses Opaque CG_snap_iter.
Global Opaque CG_snap_iter. Global Opaque CG_snap_iter.
Lemma CG_stack_body_subst (st l : expr) f : Lemma CG_stack_body_subst (st l : expr) f :
......
...@@ -132,7 +132,7 @@ Section FG_stack. ...@@ -132,7 +132,7 @@ Section FG_stack.
Lemma FG_push_of_val st : of_val (FG_pushV st) = FG_push st. Lemma FG_push_of_val st : of_val (FG_pushV st) = FG_push st.
Proof. trivial. Qed. Proof. trivial. Qed.
Global Typeclasses Opaque FG_pushV. Typeclasses Opaque FG_pushV.
Global Opaque FG_pushV. Global Opaque FG_pushV.
Lemma FG_push_type st Γ τ : Lemma FG_push_type st Γ τ :
...@@ -154,7 +154,7 @@ Section FG_stack. ...@@ -154,7 +154,7 @@ Section FG_stack.
Hint Rewrite FG_push_subst : autosubst. Hint Rewrite FG_push_subst : autosubst.
Global Typeclasses Opaque FG_push. Typeclasses Opaque FG_push.
Global Opaque FG_push. Global Opaque FG_push.
(* Fine-grained push *) (* Fine-grained push *)
...@@ -188,7 +188,7 @@ Section FG_stack. ...@@ -188,7 +188,7 @@ Section FG_stack.
Lemma FG_pop_of_val st : of_val (FG_popV st) = FG_pop st. Lemma FG_pop_of_val st : of_val (FG_popV st) = FG_pop st.
Proof. trivial. Qed. Proof. trivial. Qed.
Global Typeclasses Opaque FG_popV. Typeclasses Opaque FG_popV.
Global Opaque FG_popV. Global Opaque FG_popV.
Lemma FG_pop_type st Γ τ : Lemma FG_pop_type st Γ τ :
...@@ -220,7 +220,7 @@ Section FG_stack. ...@@ -220,7 +220,7 @@ Section FG_stack.
Hint Rewrite FG_pop_subst : autosubst. Hint Rewrite FG_pop_subst : autosubst.
Global Typeclasses Opaque FG_pop. Typeclasses Opaque FG_pop.
Global Opaque FG_pop. Global Opaque FG_pop.
(* Fine-grained iter *) (* Fine-grained iter *)
...@@ -264,7 +264,7 @@ Section FG_stack. ...@@ -264,7 +264,7 @@ Section FG_stack.
Hint Rewrite FG_iter_subst : autosubst. Hint Rewrite FG_iter_subst : autosubst.
Global Typeclasses Opaque FG_iter. Typeclasses Opaque FG_iter.
Global Opaque FG_iter. Global Opaque FG_iter.
Lemma FG_read_iter_type st Γ τ : Lemma FG_read_iter_type st Γ τ :
...@@ -283,7 +283,7 @@ Section FG_stack. ...@@ -283,7 +283,7 @@ Section FG_stack.
Hint Rewrite FG_read_iter_subst : autosubst. Hint Rewrite FG_read_iter_subst : autosubst.
Global Typeclasses Opaque FG_read_iter. Typeclasses Opaque FG_read_iter.
Global Opaque FG_read_iter. Global Opaque FG_read_iter.
Lemma FG_stack_body_type st Γ τ : Lemma FG_stack_body_type st Γ τ :
......
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