CLEANUP: removing superfluous (module) qualifiers

1 files changed, 2 insertions, 1 deletions

diff --git a/pretyping/arguments_renaming.ml b/pretyping/arguments_renaming.ml
index bf9063fdbc..fe10737623 100644
--- a/pretyping/arguments_renaming.ml
+++ b/pretyping/arguments_renaming.ml
@@ -48,7 +48,8 @@ let discharge_rename_args = function
      (try 
        let vars,_,_ = section_segment_of_reference c in
        let c' = pop_global_reference c in
-       let var_names = List.map (Name.mk_name % Context.Named.Declaration.get_id % fst) vars in
+       let open Context.Named.Declaration in
+       let var_names = List.map (Name.mk_name % get_id % fst) vars in
        let names' = List.map (fun l -> var_names @ l) names in
        Some (ReqGlobal (c', names), (c', names'))
      with Not_found -> Some req)