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

Rename `option_mbind_proper` → `option_bind_proper` and `option_mjoin_proper`...

Rename `option_mbind_proper` → `option_bind_proper` and `option_mjoin_proper` → `option_join_proper`.
parent 04a67732
No related branches found
No related tags found
No related merge requests found
...@@ -243,10 +243,10 @@ Proof. by destruct mx. Qed. ...@@ -243,10 +243,10 @@ Proof. by destruct mx. Qed.
Global Instance option_fmap_proper `{Equiv A, Equiv B} : Global Instance option_fmap_proper `{Equiv A, Equiv B} :
Proper ((() ==> ()) ==> (≡@{option A}) ==> (≡@{option B})) fmap. Proper ((() ==> ()) ==> (≡@{option A}) ==> (≡@{option B})) fmap.
Proof. destruct 2; constructor; auto. Qed. Proof. destruct 2; constructor; auto. Qed.
Global Instance option_mbind_proper `{Equiv A, Equiv B} : Global Instance option_bind_proper `{Equiv A, Equiv B} :
Proper ((() ==> ()) ==> (≡@{option A}) ==> (≡@{option B})) mbind. Proper ((() ==> ()) ==> (≡@{option A}) ==> (≡@{option B})) mbind.
Proof. destruct 2; simpl; try constructor; auto. Qed. Proof. destruct 2; simpl; try constructor; auto. Qed.
Global Instance option_mjoin_proper `{Equiv A} : Global Instance option_join_proper `{Equiv A} :
Proper (() ==> (≡@{option (option A)})) mjoin. Proper (() ==> (≡@{option (option A)})) mjoin.
Proof. destruct 1 as [?? []|]; simpl; by constructor. Qed. Proof. destruct 1 as [?? []|]; simpl; by constructor. 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