diff options
Diffstat (limited to 'pretyping/classops.ml')
| -rwxr-xr-x | pretyping/classops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/classops.ml b/pretyping/classops.ml index 4628f66e1e..4220b7b9ee 100755 --- a/pretyping/classops.ml +++ b/pretyping/classops.ml @@ -222,7 +222,7 @@ let class_of env sigma t = let class_args_of c = snd (decompose_app c) let strength_of_cl = function - | CL_CONST sp -> constant_or_parameter_strength sp + | CL_CONST sp -> constant_strength sp | CL_SECVAR sp -> variable_strength sp | _ -> NeverDischarge |