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

Add some missing Proper instances on big ops.

parent 876da25e
No related branches found
No related tags found
No related merge requests found
......@@ -349,13 +349,13 @@ Section gset.
([ set] x X, f x) ([ set] x X, g x).
Proof. apply big_opS_forall; apply _. Qed.
Lemma big_opS_ne X n :
Global Instance big_opS_ne X n :
Proper (pointwise_relation _ (dist n) ==> dist n) (big_opS (M:=M) X).
Proof. intros f g Hf. apply big_opS_forall; apply _ || intros; apply Hf. Qed.
Lemma big_opS_proper' X :
Global Instance big_opS_proper' X :
Proper (pointwise_relation _ () ==> ()) (big_opS (M:=M) X).
Proof. intros f g Hf. apply big_opS_forall; apply _ || intros; apply Hf. Qed.
Lemma big_opS_mono' X :
Global Instance big_opS_mono' X :
Proper (pointwise_relation _ () ==> ()) (big_opS (M:=M) X).
Proof. intros f g Hf. apply big_opS_forall; apply _ || intros; apply Hf. Qed.
......@@ -433,13 +433,13 @@ Section gmultiset.
([ mset] x X, f x) ([ mset] x X, g x).
Proof. apply big_opMS_forall; apply _. Qed.
Lemma big_opMS_ne X n :
Global Instance big_opMS_ne X n :
Proper (pointwise_relation _ (dist n) ==> dist n) (big_opMS (M:=M) X).
Proof. intros f g Hf. apply big_opMS_forall; apply _ || intros; apply Hf. Qed.
Lemma big_opMS_proper' X :
Global Instance big_opMS_proper' X :
Proper (pointwise_relation _ () ==> ()) (big_opMS (M:=M) X).
Proof. intros f g Hf. apply big_opMS_forall; apply _ || intros; apply Hf. Qed.
Lemma big_opMS_mono' X :
Global Instance big_opMS_mono' X :
Proper (pointwise_relation _ () ==> ()) (big_opMS (M:=M) X).
Proof. intros f g Hf. apply big_opMS_forall; apply _ || intros; apply Hf. Qed.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment