diff options
| author | Kazuhiko Sakaguchi | 2021-03-26 00:24:37 +0900 |
|---|---|---|
| committer | Kazuhiko Sakaguchi | 2021-03-26 00:24:37 +0900 |
| commit | f71129454d2c4ecde10e2a2e4284d6a576ee39ca (patch) | |
| tree | cb03500d72f07d6e7f4a688e5ad99508200c724b /pretyping/pretyping.ml | |
| parent | 27270870ea75e77808d8e1b4af4998c0b57255ae (diff) | |
Expose less interface in coercionops.mli
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 3ccc6ea125..4f9283e999 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -1423,7 +1423,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}) |