diff options
| author | coqbot-app[bot] | 2020-11-06 15:19:09 +0000 |
|---|---|---|
| committer | GitHub | 2020-11-06 15:19:09 +0000 |
| commit | 6cebd412748b82c4c9bbef295503ed1954981b45 (patch) | |
| tree | a81e36c5744ab2df192020fad095d4683abd467c /engine/eConstr.ml | |
| parent | e5dc6e5cd189fb0e6fff672d7e978c62b4d4c160 (diff) | |
| parent | 124135344d6c9ef1f7622b8340c16cc3d5ac8e06 (diff) | |
Merge PR #13139: Clean the constr-as-hint API
Reviewed-by: SkySkimmer
Diffstat (limited to 'engine/eConstr.ml')
| -rw-r--r-- | engine/eConstr.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/engine/eConstr.ml b/engine/eConstr.ml index bb2873b486..0c84dee572 100644 --- a/engine/eConstr.ml +++ b/engine/eConstr.ml @@ -628,6 +628,9 @@ let subst_var subst c = of_constr (Vars.subst_var subst (to_constr c)) let subst_univs_level_constr subst c = of_constr (Vars.subst_univs_level_constr subst (to_constr c)) +let subst_univs_constr subst c = + of_constr (UnivSubst.subst_univs_constr subst (to_constr c)) + (** Operations that dot NOT commute with evar-normalization *) let noccurn sigma n term = let rec occur_rec n c = match kind sigma c with |