From 000ece141dc22e35365ea81558e8b6b1e65bd54c Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 17 Oct 2001 12:21:11 +0000
Subject: Nouvelle fonction

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2125 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/util.ml | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib/util.ml')

diff --git a/lib/util.ml b/lib/util.ml
index cf5b58b49e..7435504816 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -504,6 +504,10 @@ let rec prlist_with_sep sep elem l = match l with
   | h::t ->
       let e = elem h and s = sep() and r = prlist_with_sep sep elem t in
       [< e; s; r >]
+
+let pr_vertical_list pr = function
+  | [] -> [< 'sTR "none"; 'fNL >]
+  | l -> [< 'fNL; 'sTR "  "; hOV 0 (prlist_with_sep pr_fnl pr l); 'fNL >]
       
 let prvecti elem v =
   let n = Array.length v in
-- 
cgit v1.2.3