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

Make uPred_holds Opaque so we do not accidentally go into the model.

parent 7209226c
...@@ -11,6 +11,7 @@ Context {Σ : iParam}. ...@@ -11,6 +11,7 @@ Context {Σ : iParam}.
Implicit Types v : ival Σ. Implicit Types v : ival Σ.
Implicit Types e : iexpr Σ. Implicit Types e : iexpr Σ.
Implicit Types σ : istate Σ. Implicit Types σ : istate Σ.
Transparent uPred_holds.
Lemma wp_lift_step E1 E2 Lemma wp_lift_step E1 E2
(φ : iexpr Σ istate Σ option (iexpr Σ) Prop) Q e1 σ1 : (φ : iexpr Σ istate Σ option (iexpr Σ) Prop) Q e1 σ1 :
......
...@@ -30,6 +30,7 @@ Section pvs. ...@@ -30,6 +30,7 @@ Section pvs.
Context {Σ : iParam}. Context {Σ : iParam}.
Implicit Types P Q : iProp Σ. Implicit Types P Q : iProp Σ.
Implicit Types m : icmra' Σ. Implicit Types m : icmra' Σ.
Transparent uPred_holds.
Global Instance pvs_ne E1 E2 n : Proper (dist n ==> dist n) (@pvs Σ E1 E2). Global Instance pvs_ne E1 E2 n : Proper (dist n ==> dist n) (@pvs Σ E1 E2).
Proof. Proof.
......
...@@ -58,6 +58,7 @@ Implicit Types P : iProp Σ. ...@@ -58,6 +58,7 @@ Implicit Types P : iProp Σ.
Implicit Types Q : ival Σ iProp Σ. Implicit Types Q : ival Σ iProp Σ.
Implicit Types v : ival Σ. Implicit Types v : ival Σ.
Implicit Types e : iexpr Σ. Implicit Types e : iexpr Σ.
Transparent uPred_holds.
Lemma wp_weaken E1 E2 e Q1 Q2 r n n' : Lemma wp_weaken E1 E2 e Q1 Q2 r n n' :
E1 E2 ( v r n', n' n {n'} r Q1 v n' r Q2 v n' r) E1 E2 ( v r n', n' n {n'} r Q1 v n' r Q2 v n' r)
......
...@@ -11,6 +11,8 @@ Record uPred (M : cmraT) : Type := IProp { ...@@ -11,6 +11,8 @@ Record uPred (M : cmraT) : Type := IProp {
uPred_holds n1 x1 x1 x2 n2 n1 {n2} x2 uPred_holds n2 x2 uPred_holds n1 x1 x1 x2 n2 n1 {n2} x2 uPred_holds n2 x2
}. }.
Arguments uPred_holds {_} _ _ _ : simpl never. Arguments uPred_holds {_} _ _ _ : simpl never.
Global Opaque uPred_holds.
Local Transparent uPred_holds.
Hint Resolve uPred_0. Hint Resolve uPred_0.
Add Printing Constructor uPred. Add Printing Constructor uPred.
Instance: Params (@uPred_holds) 3. Instance: Params (@uPred_holds) 3.
......
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