diff --git a/theories/option.v b/theories/option.v index 5f1508e36d8f597d6d8d6e9507498d81dbbbf609..004ef00296c9396d29dc82bc591ff3148353e17c 100644 --- a/theories/option.v +++ b/theories/option.v @@ -118,6 +118,8 @@ Section setoids. Proof. apply _. Qed. Global Instance Some_proper : Proper ((≡) ==> (≡)) (@Some A). Proof. by constructor. Qed. + Global Instance Some_equiv_inj : Inj (≡) (≡) (@Some A). + Proof. by inversion_clear 1. Qed. Global Instance option_leibniz `{!LeibnizEquiv A} : LeibnizEquiv (option A). Proof. intros x y; destruct 1; fold_leibniz; congruence. Qed.