Skip to content
Snippets Groups Projects
Verified Commit b48c3b16 authored by Paolo G. Giarrusso's avatar Paolo G. Giarrusso
Browse files

Disambiguate agree_op_proper (noticed when trying to give a mode to Equiv)

parent 4adb71a8
No related branches found
No related tags found
No related merge requests found
......@@ -121,7 +121,7 @@ Proof.
Qed.
Local Instance agree_op_ne : NonExpansive2 (@op (agree A) _).
Proof. by intros n x1 x2 Hx y1 y2 Hy; rewrite Hy !(comm _ _ y2) Hx. Qed.
Local Instance agree_op_proper : Proper (() ==> () ==> ()) op := ne_proper_2 _.
Local Instance agree_op_proper : Proper (() ==> () ==> ()) (op (A := agree A)) := ne_proper_2 _.
Lemma agree_included x y : x y y x y.
Proof.
......
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