diff options
author | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-04-28 21:27:15 +0200 |
---|---|---|
committer | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-05-17 18:47:10 +0200 |
commit | 302adae094bbf76d8c951c557c85acb12a97aedc (patch) | |
tree | 66e3cfab6cf5cda2f51a18308a5e893d621d21ae /tactics/ind_tables.ml | |
parent | dc7696652ccd23887a474f3d4141b1850e51d46f (diff) |
Split off Universes functions about substitutions and constraints
Diffstat (limited to 'tactics/ind_tables.ml')
-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 5d937ade9..6d0da0dfa 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.nf_evars_and_universes_opt_subst (fun _ -> None) (UState.subst ctx) c in + let c = UnivSubst.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) |