diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-11-28 02:22:43 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-11-28 02:22:43 +0000 |
| commit | 23931fef8a21e5bff5c1faa7d9d9dd6787197d35 (patch) | |
| tree | 3ce6476a82a10460228fc5da32d50274cc140d9d | |
| parent | 96c0a3e660d9ecc20a95086d3094645dd56bd0e3 (diff) | |
A usage cosmetique
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3320 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | lib/util.ml | 2 | ||||
| -rw-r--r-- | lib/util.mli | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml index 1d020b516..eca6e9885 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -513,6 +513,8 @@ let matrix_transpose mat = (* Functions *) +let identity x = x + let compose f g x = f (g x) let iterate f = diff --git a/lib/util.mli b/lib/util.mli index 50367f69a..03062e868 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -151,6 +151,7 @@ val matrix_transpose : 'a list list -> 'a list list (*s Functions. *) +val identity : 'a -> 'a val compose : ('a -> 'b) -> ('c -> 'a) -> 'c -> 'b val iterate : ('a -> 'a) -> int -> 'a -> 'a val repeat : int -> ('a -> unit) -> 'a -> unit |