diff options
| author | Gaëtan Gilbert | 2020-09-30 12:54:59 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-10-06 12:41:16 +0200 |
| commit | e23be6ebc7d9c9842f8c1036e145fb15c3154e17 (patch) | |
| tree | 791106c893467e5906c516904261dc0b89e7e71f /interp/implicit_quantifiers.ml | |
| parent | 07b7bd7f8358d199b0464a673aec50dedae0a45d (diff) | |
Remove unused is_class info from cl_context
Diffstat (limited to 'interp/implicit_quantifiers.ml')
| -rw-r--r-- | interp/implicit_quantifiers.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/interp/implicit_quantifiers.ml b/interp/implicit_quantifiers.ml index 0f05cc5e10..2853eef5c5 100644 --- a/interp/implicit_quantifiers.ml +++ b/interp/implicit_quantifiers.ml @@ -199,8 +199,7 @@ let implicit_application env ty = let env = Global.env () in let sigma = Evd.from_env env in let c = class_info env sigma gr in - let (ci, rd) = c.cl_context in - let args, avoid = combine_params avoid par (List.rev rd) in + let args, avoid = combine_params avoid par (List.rev c.cl_context) in CAst.make ?loc @@ CAppExpl ((None, id, inst), args), avoid let warn_ignoring_implicit_status = |