diff options
| author | Hugo Herbelin | 2020-10-22 19:41:47 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-11-04 17:49:21 +0100 |
| commit | 2355b3ed9a9af853b67f406d61404c4c05f8c8e5 (patch) | |
| tree | 5167db10093602d7993e11697cd092aaed662d7f /interp | |
| parent | 011de69dab3afcd265f6e38aab05548654a606c8 (diff) | |
Typing patterns and using type constraints in Search.
We accept patterns that we failed to type as a fallback.
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrintern.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 7dbc6c86a6..efab586f8a 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -2472,8 +2472,7 @@ let intern_constr_pattern env sigma ?(as_type=false) ?(ltacvars=empty_ltac_sign) pattern_of_glob_constr c let interp_constr_pattern env sigma ?(expected_type=WithoutTypeConstraint) c = - let kind_for_intern = match expected_type with OfType _ -> WithoutTypeConstraint | _ -> expected_type in - let c = intern_gen kind_for_intern ~pattern_mode:true env sigma c in + let c = intern_gen expected_type ~pattern_mode:true env sigma c in let flags = { Pretyping.no_classes_no_fail_inference_flags with expand_evars = false } in let sigma, c = understand_tcc ~flags env sigma ~expected_type c in (* FIXME: it is necessary to be unsafe here because of the way we handle |