diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-14 01:45:24 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-14 01:45:24 +0000 |
| commit | 7af0ff6260649d51e75b5427ada01ca0d8fd897b (patch) | |
| tree | 9a51913d637be91f06c0fe05eb1cc4e226d19275 /kernel | |
| parent | 01603706ebf60b8c268a444fb645132acf448060 (diff) | |
MAJ commentaires
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1101 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/typeops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/typeops.ml b/kernel/typeops.ml index 95beb840c..5b6d45b74 100644 --- a/kernel/typeops.ml +++ b/kernel/typeops.ml @@ -166,7 +166,7 @@ let find_case_dep_nparams env sigma (c,p) (IndFamily (mis,_) as indf) typP = dep (* type_case_branches type un <p>Case c of ... end - ct = type de c, si inductif il a la forme APP(mI,largs), sinon raise Induc + IndType (indf,realargs) = type de c pt = sorte de p type_case_branches retourne (lb, lr); lb est le vecteur des types attendus dans les branches du Case; lr est le type attendu du resultat |