From 7f7fa0184ea32c81e77d34683bca8e456b80a19a Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 11 Oct 2000 20:03:05 +0000
Subject: Renommage des find_m*type

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

(limited to 'kernel/inductive.ml')

diff --git a/kernel/inductive.ml b/kernel/inductive.ml
index 257305b006..1f1312887e 100644
--- a/kernel/inductive.ml
+++ b/kernel/inductive.ml
@@ -198,14 +198,14 @@ let find_mrectype env sigma c =
     | IsMutInd ind -> (ind, l)
     | _ -> raise Induc
 
-let find_minductype env sigma c =
+let find_inductive env sigma c =
   let (t, l) = whd_betadeltaiota_stack env sigma c in
   match kind_of_term t with
     | IsMutInd ((sp,i),_ as ind)
         when mind_type_finite (lookup_mind sp env) i -> (ind, l)
     | _ -> raise Induc
 
-let find_mcoinductype env sigma c =
+let find_coinductive env sigma c =
   let (t, l) = whd_betadeltaiota_stack env sigma c in
   match kind_of_term t with
     | IsMutInd ((sp,i),_ as ind)
-- 
cgit v1.2.3