From d56cc2ca71eee52a26f401ad2b37b8d9e6019a3c Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 26 Jan 2000 17:22:13 +0000
Subject: MAJ ocaml 2.99 (espaces dans la syntaxe des cast)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@284 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/sign.mli | 2 +-
 kernel/term.ml  | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'kernel')

diff --git a/kernel/sign.mli b/kernel/sign.mli
index 1970285895..fa05df814a 100644
--- a/kernel/sign.mli
+++ b/kernel/sign.mli
@@ -9,7 +9,7 @@ open Term
 
 (* Signatures of named variables. *)
 
-type 'a signature
+type 'a signature (* = identifier list * 'a list*)
 
 val nil_sign : 'a signature
 val add_sign : (identifier * 'a) -> 'a signature -> 'a signature
diff --git a/kernel/term.ml b/kernel/term.ml
index a7ec0cfa1a..c08bb1d86e 100644
--- a/kernel/term.ml
+++ b/kernel/term.ml
@@ -1112,7 +1112,7 @@ let rec rename_bound_var l = function
 
 (* First utilities for avoiding telescope computation for subst_term *)
 
-let prefix_application k (c:constr) (t:constr) = 
+let prefix_application k (c : constr) (t : constr) = 
   match (whd_castapp c,whd_castapp t) with
     | ((DOPN(AppL,cl1)),DOPN(AppL,cl2)) ->
 	let l1 = Array.length cl1
@@ -1124,7 +1124,7 @@ let prefix_application k (c:constr) (t:constr) =
 	  None
     | (_,_) -> None
 
-let prefix_application_eta k (c:constr) (t:constr) = 
+let prefix_application_eta k (c : constr) (t : constr) = 
   match (whd_castapp c,whd_castapp t) with
     | ((DOPN(AppL,cl1)),DOPN(AppL,cl2)) ->
 	let l1 = Array.length cl1
-- 
cgit v1.2.3