Destructor for dec_agree.

96e5b762 · Robbert Krebbers · c5f3fc77 · 96e5b762
Commit 96e5b762 authored Feb 26, 2016 by Robbert Krebbers
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

algebra/dec_agree.v algebra/dec_agree.v +2 -0

No files found.
--- 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)}.