diff options
| author | coqbot-app[bot] | 2021-03-25 18:40:29 +0000 |
|---|---|---|
| committer | GitHub | 2021-03-25 18:40:29 +0000 |
| commit | d1194d6458a433e34c3b4eecf13c18b084f4a9a5 (patch) | |
| tree | 83d468c096a167cf3d4a7cdee1607b2ff1ffc882 /pretyping/pretyping.ml | |
| parent | 1e1a72f02af57146336578a9b0fc6adb07ade786 (diff) | |
| parent | f71129454d2c4ecde10e2a2e4284d6a576ee39ca (diff) | |
Merge PR #13909: Minimize the set of multiple inheritance (coercion) paths to check for conversion
Reviewed-by: gares
Ack-by: SkySkimmer
Diffstat (limited to 'pretyping/pretyping.ml')
| -rw-r--r-- | pretyping/pretyping.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index 800096f2b3..de1af62043 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -1419,7 +1419,7 @@ let path_convertible env sigma cl p q = p' | [] -> (* identity function for the class [i]. *) - let params = (class_info cl).cl_param in + let params = class_nparams cl in let clty = match cl with | CL_SORT -> mkGSort (Glob_term.UAnonymous {rigid=false}) |