From edfda2501f08f18e24bd2e3eca763eb1c2dec0ea Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 18 Oct 2000 17:51:58 +0000
Subject: Simplifications autour de typed_type (renommé types par analogie avec
 sorts); documentation

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

(limited to 'kernel/inductive.ml')

diff --git a/kernel/inductive.ml b/kernel/inductive.ml
index 72058f62c7..94a8cc277e 100644
--- a/kernel/inductive.ml
+++ b/kernel/inductive.ml
@@ -84,7 +84,7 @@ let mis_type_mconstruct i mispec =
   and nconstr = mis_nconstr mispec in
   let make_Ik k = mkMutInd ((mispec.mis_sp,ntypes-k-1),mispec.mis_args) in 
   if i > nconstr then error "Not enough constructors in the type";
-  typed_app (substl (list_tabulate make_Ik ntypes)) specif.(i-1)
+  type_app (substl (list_tabulate make_Ik ntypes)) specif.(i-1)
 
 let mis_user_arity mis =
   let hyps = mis.mis_mib.mind_hyps 
-- 
cgit v1.2.3