diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-01-01 23:25:49 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-01-01 23:25:49 +0000 |
| commit | 48c844ddd8984b0eef6e9ec0aafefd28ccd03554 (patch) | |
| tree | 71a9099c32ed781575cb2633df558d10e709d78d /pretyping/typeclasses.ml | |
| parent | 4c825c9df1643f9478d8ceced5447171cdb0c937 (diff) | |
Fix handling of instance declarations in presence of let-ins (bug
reported by Eelis van der Weegen).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12618 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/typeclasses.ml')
| -rw-r--r-- | pretyping/typeclasses.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/typeclasses.ml b/pretyping/typeclasses.ml index 96e36b70b..8d987d037 100644 --- a/pretyping/typeclasses.ml +++ b/pretyping/typeclasses.ml @@ -272,7 +272,8 @@ let class_info c = with _ -> not_a_class (Global.env()) (constr_of_global c) let instance_constructor cl args = - let pars = fst (list_chop (List.length (fst cl.cl_context)) args) in + let lenpars = List.length (List.filter (fun (na, b, t) -> b = None) (snd cl.cl_context)) in + let pars = fst (list_chop lenpars args) in match cl.cl_impl with | IndRef ind -> applistc (mkConstruct (ind, 1)) args, applistc (mkInd ind) pars |