diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-07-29 22:59:55 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-07-29 22:59:55 +0000 |
commit | 3dbc498b78a1b64a5d0edc4e1ec947a0bbc2cae0 (patch) | |
tree | 8e76c87820bc45524e8f7ac40643ff7e7feb3118 /lib/util.mli | |
parent | 0824e2aaec90deea52d0a638e2a8a2da74f8fbb4 (diff) |
Fixed a bug introduced (r13316/r13329) in the printing of notations
with non-recursive binders.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13357 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/util.mli')
-rw-r--r-- | lib/util.mli | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/util.mli b/lib/util.mli index e77de4be9..83fac5fcd 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -181,6 +181,7 @@ val list_subset : 'a list -> 'a list -> bool val list_chop : int -> 'a list -> 'a list * 'a list (* former [list_split_at] was a duplicate of [list_chop] *) val list_split_when : ('a -> bool) -> 'a list -> 'a list * 'a list +val list_split_by : ('a -> bool) -> 'a list -> 'a list * 'a list val list_split3 : ('a * 'b * 'c) list -> 'a list * 'b list * 'c list val list_partition_by : ('a -> 'a -> bool) -> 'a list -> 'a list list val list_firstn : int -> 'a list -> 'a list |