diff options
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 95beb840c8..5b6d45b748 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 |