diff options
| author |  Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-04-28 17:31:27 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-05-17 18:46:09 +0200 |
| commit | f9c6afa70325012ffbbd7722a600ca6eed425105 (patch) | |
| tree | e0b0235b7ecaff89db712cc9fdc6fa14ab739e8e /tactics | |
| parent | aa5e962c9888889380ae85a7cbd82a8ac4779a0f (diff) | |
Stop using Universes.subst(_opt)_univs_constr
Should it be removed? The underlying
`universe_subst -> constr -> constr`
seems like it could be useful for plugins but where would the
substitution be from?
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/ind_tables.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/ind_tables.ml b/tactics/ind_tables.ml index 62ead57f3..5d937ade9 100644 --- a/tactics/ind_tables.ml +++ b/tactics/ind_tables.ml @@ -123,7 +123,7 @@ let define internal id c p univs = let fd = declare_constant ~internal in let id = compute_name internal id in let ctx = UState.minimize univs in - let c = Universes.subst_opt_univs_constr (UState.subst ctx) c in + let c = Universes.nf_evars_and_universes_opt_subst (fun _ -> None) (UState.subst ctx) c in let univs = if p then Polymorphic_const_entry (UState.context ctx) else Monomorphic_const_entry (UState.context_set ctx) |