diff --git a/algebra/dec_agree.v b/algebra/dec_agree.v
index 753bc807341c6f4add020bb99135b7e3923af353..901fe14391afe85c9e36f1c14d3e8469a8965eaa 100644
--- a/algebra/dec_agree.v
+++ b/algebra/dec_agree.v
@@ -10,6 +10,8 @@ Inductive dec_agree (A : Type) : Type :=
   | DecAgreeBot : dec_agree A.
 Arguments DecAgree {_} _.
 Arguments DecAgreeBot {_}.
+Instance maybe_DecAgree {A} : Maybe (@DecAgree A) := λ x,
+  match x with DecAgree a => Some a | _ => None end.
 
 Section dec_agree.
 Context {A : Type} `{∀ x y : A, Decision (x = y)}.