From 7717d9e5f781a0b0d79f72c5439cf822f4ea78d0 Mon Sep 17 00:00:00 2001 From: xleroy Date: Wed, 1 May 2013 09:22:49 +0000 Subject: Coq-defined equality functions for Allocation. git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2225 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- lib/Coqlib.v | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'lib') diff --git a/lib/Coqlib.v b/lib/Coqlib.v index ce5d94e..58c9572 100644 --- a/lib/Coqlib.v +++ b/lib/Coqlib.v @@ -633,6 +633,13 @@ Qed. Set Implicit Arguments. +(** Comparing option types. *) + +Definition option_eq (A: Type) (eqA: forall (x y: A), {x=y} + {x<>y}): + forall (x y: option A), {x=y} + {x<>y}. +Proof. decide equality. Defined. +Global Opaque option_eq. + (** Mapping a function over an option type. *) Definition option_map (A B: Type) (f: A -> B) (x: option A) : option B := -- cgit v1.2.3