From fff07f8260867740f1f8d8b09bd26baa5f99e5c6 Mon Sep 17 00:00:00 2001 From: bgregoir Date: Sat, 22 Jul 2006 17:42:45 +0000 Subject: - Ajout d'un cast vm dans la syntaxe : x <: t Part contre ces cas sont detruis dans les "Definition" (pas dans les "Lemma") je comprends pas ou ils sont enlev'e... Si une id'ee ... - Correction d'un bug dans vm_compute plusieurs fois signal'e par Roland. - Meilleur compilation des coinductifs, on utilise maintenant vraimment du lazy. - Enfin un peu plus de doc dans le code de la vm. Benjamin git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9058 85f007b7-540e-0410-9357-904b9bb8a0f7 --- kernel/inductive.mli | 2 ++ 1 file changed, 2 insertions(+) (limited to 'kernel/inductive.mli') diff --git a/kernel/inductive.mli b/kernel/inductive.mli index 0f05ffc6b..deca20a6b 100644 --- a/kernel/inductive.mli +++ b/kernel/inductive.mli @@ -35,6 +35,7 @@ type mind_specif = mutual_inductive_body * one_inductive_body val lookup_mind_specif : env -> inductive -> mind_specif (*s Functions to build standard types related to inductive *) +val ind_subst : mutual_inductive -> mutual_inductive_body -> constr list val type_of_inductive : mind_specif -> types @@ -49,6 +50,7 @@ val arities_of_constructors : inductive -> mind_specif -> types array (* Transforms inductive specification into types (in nf) *) val arities_of_specif : mutual_inductive -> mind_specif -> types array + (* [type_case_branches env (I,args) (p:A) c] computes useful types about the following Cases expression:

Cases (c :: (I args)) of b1..bn end -- cgit v1.2.3