From 3dbc498b78a1b64a5d0edc4e1ec947a0bbc2cae0 Mon Sep 17 00:00:00 2001 From: herbelin Date: Thu, 29 Jul 2010 22:59:55 +0000 Subject: 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 --- lib/util.mli | 1 + 1 file changed, 1 insertion(+) (limited to 'lib/util.mli') diff --git a/lib/util.mli b/lib/util.mli index e77de4be9b..83fac5fcd1 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 -- cgit v1.2.3