diff options
| author | aspiwack | 2007-10-23 15:02:23 +0000 |
|---|---|---|
| committer | aspiwack | 2007-10-23 15:02:23 +0000 |
| commit | 49554b6ca1bf726ec5ca5305b8ef5806010dfc58 (patch) | |
| tree | 276d5ead8da662eb0c16a47cfa710c207e2849de /lib/gmap.ml | |
| parent | 3516168ef6732dfb5fe8154f5e899645b7b2161f (diff) | |
Added "is_empty" to gmap.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10250 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/gmap.ml')
| -rw-r--r-- | lib/gmap.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/gmap.ml b/lib/gmap.ml index 858cb40c8b..0c498fe7db 100644 --- a/lib/gmap.ml +++ b/lib/gmap.ml @@ -16,6 +16,8 @@ let empty = Empty + let is_empty = function Empty -> true | _ -> false + let height = function Empty -> 0 | Node(_,_,_,_,h) -> h |