From b49f1fc6d92189a5b9e985042e8d0d07ee0d5220 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 28 May 2006 16:46:48 +0000
Subject: - Indtypes: en attente opinion CoRN, les occurrences de Type non
 explicites   (i.e. cachées sous un nom de constante) sont considérées comme  
 monomorphes. - Divers: renommage type_of_applied_inductive, un peu de
 documentation.

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

(limited to 'proofs')

diff --git a/proofs/logic.ml b/proofs/logic.ml
index bbc1e202c0..209c3bb65f 100644
--- a/proofs/logic.ml
+++ b/proofs/logic.ml
@@ -285,7 +285,7 @@ let rec mk_refgoals sigma goal goalacc conclty trm =
     | App (f,l) ->
 	let (acc',hdty) =
 	  if isInd f & not (array_exists occur_meta l) (* we could be finer *)
-	  then (goalacc,type_of_applied_inductive env sigma (destInd f) l)
+	  then (goalacc,type_of_inductive_knowing_parameters env sigma (destInd f) l)
 	  else mk_hdgoals sigma goal goalacc f
 	in
 	let (acc'',conclty') =
@@ -327,7 +327,7 @@ and mk_hdgoals sigma goal goalacc trm =
     | App (f,l) ->
 	let (acc',hdty) = 
 	  if isInd f & not (array_exists occur_meta l) (* we could be finer *)
-	  then (goalacc,type_of_applied_inductive env sigma (destInd f) l)
+	  then (goalacc,type_of_inductive_knowing_parameters env sigma (destInd f) l)
 	  else mk_hdgoals sigma goal goalacc f
 	in
 	mk_arggoals sigma goal acc' hdty (Array.to_list l)
-- 
cgit v1.2.3