Skip to content
Snippets Groups Projects
Commit 5fc07ae0 authored by Jacques-Henri Jourdan's avatar Jacques-Henri Jourdan
Browse files

Broken exist_mono'

parent 2dc55133
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
theories/base_logic/derived.v
+ 1
− 1
View file @ 5fc07ae0
...@@ -138,7 +138,7 @@ Global Instance forall_flip_mono' A : ...@@ -138,7 +138,7 @@ Global Instance forall_flip_mono' A :
Proper (pointwise_relation _ (flip (⊢)) ==> flip (⊢)) (@uPred_forall M A). Proper (pointwise_relation _ (flip (⊢)) ==> flip (⊢)) (@uPred_forall M A).
Proof. intros P1 P2; apply forall_mono. Qed. Proof. intros P1 P2; apply forall_mono. Qed.
Global Instance exist_mono' A : Global Instance exist_mono' A :
Proper (pointwise_relation _ (flip (⊢)) ==> flip (⊢)) (@uPred_exist M A). Proper (pointwise_relation _ (⊢) ==> (⊢)) (@uPred_exist M A).
Proof. intros P1 P2; apply exist_mono. Qed. Proof. intros P1 P2; apply exist_mono. Qed.
Global Instance exist_flip_mono' A : Global Instance exist_flip_mono' A :
Proper (pointwise_relation _ (flip (⊢)) ==> flip (⊢)) (@uPred_exist M A). Proper (pointwise_relation _ (flip (⊢)) ==> flip (⊢)) (@uPred_exist M A).
......
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