Commit 96e5b762 authored by Robbert Krebbers's avatar Robbert Krebbers

Destructor for dec_agree.

parent c5f3fc77
......@@ -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)}.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment