diff options
| author |  Pierre Courtieu <Pierre.Courtieu@cnam.fr> | 2014-12-12 15:19:10 +0100 |
|---|---|---|
| committer | Pierre Courtieu <Pierre.Courtieu@cnam.fr> | 2014-12-12 15:21:22 +0100 |
| commit | a417d138c0a8abc028486c20d59e4f2e82f456ef (patch) | |
| tree | 1f9efdac4020f8dde23583cbccef135f0520caea /lib/util.ml | |
| parent | f47afacd86ff1f9fda5347decf298ace941a24bc (diff) | |
Searchxxx now search also the hypothesis and support goal selector.
Documentation also updated.
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 531e4fe7d..cfb4ebabc 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -105,6 +105,11 @@ let app_opt f x = | Some f -> f x | None -> x +let un_opt x default = + match x with + | None -> default + | Some y -> y + (* Stream *) let stream_nth n st = |