Skip to content
Snippets Groups Projects
Commit e96d5cf8 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Flipped Proper for uPred_valid.

parent dba0b479
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 3 additions and 0 deletions
base_logic/primitive.v
+ 3
− 0
View file @ e96d5cf8
......@@ -322,6 +322,9 @@ Global Instance uPred_valid_proper : Proper ((⊣⊢) ==> iff) (@uPred_valid M).
Proof. solve_proper. Qed.
Global Instance uPred_valid_mono : Proper ((⊢) ==> impl) (@uPred_valid M).
Proof. solve_proper. Qed.
Global Instance uPred_valid_flip_mono :
Proper (flip (⊢) ==> flip impl) (@uPred_valid M).
Proof. solve_proper. Qed.
(** Introduction and elimination rules *)
Lemma pure_intro φ P : φ → P ⊢ ⌜φ⌝.
......
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