diff options
| author | filliatr | 1999-09-28 14:38:27 +0000 |
|---|---|---|
| committer | filliatr | 1999-09-28 14:38:27 +0000 |
| commit | a18412fa7c1047af46e991c2b611c09bb8e72514 (patch) | |
| tree | 78704ced7bd79885019f9f3df5413bda19fbd0b0 /lib/util.ml | |
| parent | a40bef71a163039ae36830d264ef4c599e8f9357 (diff) | |
ajout de divers fonctions dans lib/
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@82 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/util.ml')
| -rw-r--r-- | lib/util.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml index 8e3eb881f6..b010e5e0c8 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -247,6 +247,11 @@ type ('a,'b) union = Inl of 'a | Inr of 'b module Intset = Set.Make(struct type t = int let compare = compare end) +let out_some = function + | Some x -> x + | None -> failwith "out_some" + + let option_app f = function | None -> None | Some x -> Some (f x) |