diff options
| author |  Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-04-28 17:58:08 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-05-17 18:46:09 +0200 |
| commit | b0ef649660542ae840ea945d7ab4f1f3ae7b85cd (patch) | |
| tree | 34fbd8ce43c2dea72f458788a5c3f64139a82e3e /vernac/obligations.ml | |
| parent | f9c6afa70325012ffbbd7722a600ca6eed425105 (diff) | |
Split off Universes functions dealing with names.
This API is a bit strange, I expect it will change at some point.
Diffstat (limited to 'vernac/obligations.ml')
| -rw-r--r-- | vernac/obligations.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/obligations.ml b/vernac/obligations.ml index ae1065ef5..6de8539d4 100644 --- a/vernac/obligations.ml +++ b/vernac/obligations.ml @@ -555,7 +555,7 @@ let declare_mutual_definition l = (* Declare the recursive definitions *) let univs = UState.const_univ_entry ~poly first.prg_ctx in let fix_exn = Hook.get get_fix_exn () in - let kns = List.map4 (DeclareDef.declare_fix ~opaque (local, poly, kind) Universes.empty_binders univs) + let kns = List.map4 (DeclareDef.declare_fix ~opaque (local, poly, kind) UnivNames.empty_binders univs) fixnames fixdecls fixtypes fiximps in (* Declare notations *) List.iter (Metasyntax.add_notation_interpretation (Global.env())) first.prg_notations; |