diff options
| author | Gaëtan Gilbert | 2018-10-10 14:11:22 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-10-16 15:52:53 +0200 |
| commit | e99b4c66cf38bb5b6ccb76b69ebd7e7a44ed295d (patch) | |
| tree | 578a8fc72ef9767b09cc12be437037164b18dc46 /tactics | |
| parent | da049e138e2b1acf9cdd40d3dbac4508f76f21cb (diff) | |
UnivGen.extend_context -> Univ.extend_in_context_set
Such a basic function can live in Univ rather than the higher level UnivGen.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/eqschemes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/eqschemes.ml b/tactics/eqschemes.ml index 16b94cd154..b12018cd66 100644 --- a/tactics/eqschemes.ml +++ b/tactics/eqschemes.ml @@ -785,7 +785,7 @@ let build_congr env (eq,refl,ctx) ind = let varH = fresh env (Id.of_string "H") in let varf = fresh env (Id.of_string "f") in let ci = make_case_info (Global.env()) ind RegularStyle in - let uni, ctx = UnivGen.extend_context (UnivGen.new_global_univ ()) ctx in + let uni, ctx = Univ.extend_in_context_set (UnivGen.new_global_univ ()) ctx in let ctx = (fst ctx, Univ.enforce_leq uni (univ_of_eq env eq) (snd ctx)) in let c = my_it_mkLambda_or_LetIn paramsctxt |