From 1b3efc6dc25be1bfde5fb7d2d39cc5c35e44a4d8 Mon Sep 17 00:00:00 2001
From: msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Wed, 14 Mar 2012 09:52:25 +0000
Subject: Second step of integration of Program: - Remove useless
 functorization of Pretyping - Move Program coercion/cases code inside
 pretyping/, enabled according to a flag.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15033 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/util.ml | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lib/util.ml')

diff --git a/lib/util.ml b/lib/util.ml
index 879884283..c4229fd32 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -1211,6 +1211,11 @@ let iterate_for a b f x =
   let rec iterate i v = if i > b then v else iterate (succ i) (f i v) in
   iterate a x
 
+let app_opt f x =
+  match f with
+  | Some f -> f x
+  | None -> x
+
 (* Delayed computations *)
 
 type 'a delayed = unit -> 'a
-- 
cgit v1.2.3