From 24cb368c8cda29daa0c34a807e49146c4885226a Mon Sep 17 00:00:00 2001
From: mohring
Date: Wed, 22 Nov 2000 13:08:24 +0000
Subject: Reparation bug mutuels ind

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

(limited to 'library')

diff --git a/library/indrec.ml b/library/indrec.ml
index bbd4e62c2a..0e0231cbae 100644
--- a/library/indrec.ml
+++ b/library/indrec.ml
@@ -23,7 +23,7 @@ let make_prod_dep dep env = if dep then prod_name env else mkProd
 (**********************************************************************)
 (* Building case analysis schemes *)
 (* Nouvelle version, plus concise mais plus coûteuse à cause de
-   lift_constructor et lift_inductive_family qui ne se contente pas de 
+   lift_constructor et lift_inductive_family qui ne se contentent pas de 
    lifter les paramètres globaux *)
 
 let mis_make_case_com depopt env sigma mispec kind =
@@ -196,7 +196,7 @@ let make_rec_branch_arg env sigma (nparams,fvect,decF) f cstr recargs =
 let mis_make_indrec env sigma listdepkind mispec =
   let nparams = mis_nparams mispec in
   let lnamespar = mis_params_ctxt mispec in
-  let env' = (* push_rels lnamespar *) env in
+  let env' =  (* push_rels lnamespar *) env in
   let nrec = List.length listdepkind in
   let depPvec =
     Array.create (mis_ntypes mispec) (None : (bool * constr) option) in 
-- 
cgit v1.2.3