Commit e6d61427 authored by Robbert Krebbers's avatar Robbert Krebbers

A version of `to_agree_uninj` in the logic.

parent 7b0f3340
......@@ -241,6 +241,9 @@ Proof.
Qed.
Lemma agree_validI {M} x y : (x y) @{uPredI M} x y.
Proof. uPred.unseal; split=> r n _ ?; by apply: agree_op_invN. Qed.
Lemma to_agree_uninjI {M} x : x @{uPredI M} a, to_agree a x.
Proof. uPred.unseal. split=> n y _. exact: to_agree_uninjN. Qed.
End agree.
Instance: Params (@to_agree) 1.
......
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