diff options
| author | Pierre-Marie Pédrot | 2018-09-27 17:00:10 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-11-09 14:10:27 +0100 |
| commit | 6e5dd2ee8bc014d1f99cef3156a5114b11510398 (patch) | |
| tree | dc3e41655419a8edd82d51029a0eb28e3b03d7ad /vernac/comProgramFixpoint.ml | |
| parent | 27048fb3ef7a10ffde1ee368f6fb7ef354431fe8 (diff) | |
Remove remnants of polymorphic instance name registration.
Diffstat (limited to 'vernac/comProgramFixpoint.ml')
| -rw-r--r-- | vernac/comProgramFixpoint.ml | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/vernac/comProgramFixpoint.ml b/vernac/comProgramFixpoint.ml index 3d3d825bd0..d533db7ed9 100644 --- a/vernac/comProgramFixpoint.ml +++ b/vernac/comProgramFixpoint.ml @@ -204,7 +204,6 @@ let build_wellfounded (recname,pl,n,bl,arityc,body) poly r measure notation = (** FIXME: include locality *) let c = Declare.declare_constant recname (DefinitionEntry ce, IsDefinition Definition) in let gr = ConstRef c in - let () = UnivNames.register_universe_binders gr (Evd.universe_binders sigma) in if Impargs.is_implicit_args () || not (List.is_empty impls) then Impargs.declare_manual_implicits false gr [impls] in |