Commit 8a0c449e authored by Ralf Jung's avatar Ralf Jung

update Iris

parent a25a1ec3
......@@ -9,5 +9,5 @@ build: [make "-j%{jobs}%"]
install: [make "install"]
remove: ["rm" "-rf" "%{lib}%/coq/user-contrib/iris_atomic"]
depends: [
"coq-iris" { (= "dev.2017-10-18.1") | (= "dev") }
"coq-iris" { (= "dev.2017-10-28.12") | (= "dev") }
]
......@@ -60,7 +60,7 @@ Section big_op_later.
End big_op_later.
Section pair.
Context {A : ofeT} `{EqDecision A, !Discrete A, !LeibnizEquiv A, !inG Σ (prodR fracR (agreeR A))}.
Context {A : ofeT} `{EqDecision A, !OfeDiscrete A, !LeibnizEquiv A, !inG Σ (prodR fracR (agreeR A))}.
Lemma m_frag_agree γm (q1 q2: Qp) (a1 a2: A):
own γm (q1, to_agree a1) own γm (q2, to_agree a2) a1 = a2.
......
......@@ -81,10 +81,10 @@ Section proof.
Definition is_stack (s: loc) xs: iProp Σ := ( hd: loc, s #hd is_list hd xs)%I.
Global Instance is_list_timeless xs hd: TimelessP (is_list hd xs).
Global Instance is_list_timeless xs hd: Timeless (is_list hd xs).
Proof. generalize hd. induction xs; apply _. Qed.
Global Instance is_stack_timeless xs hd: TimelessP (is_stack hd xs).
Global Instance is_stack_timeless xs hd: Timeless (is_stack hd xs).
Proof. generalize hd. induction xs; apply _. Qed.
Lemma new_stack_spec:
......
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