diff options
| author | herbelin | 2000-01-26 17:22:13 +0000 |
|---|---|---|
| committer | herbelin | 2000-01-26 17:22:13 +0000 |
| commit | d56cc2ca71eee52a26f401ad2b37b8d9e6019a3c (patch) | |
| tree | 989cc0c825d7c8ac2e95e5f173caf24ae3cd29f7 /kernel | |
| parent | 3c0c85ea71400cd4b2d1dc5630405dc1f90aa5f3 (diff) | |
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
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/sign.mli | 2 | ||||
| -rw-r--r-- | kernel/term.ml | 4 |
2 files changed, 3 insertions, 3 deletions
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 |