diff options
| author | Matej Kosik | 2016-08-12 17:10:24 +0200 |
|---|---|---|
| committer | Matej Kosik | 2016-08-24 17:35:04 +0200 |
| commit | f5f4bb97634f4fac3dec766db27af994e745d749 (patch) | |
| tree | b6d512390b4b24b7520d5c5456c0403969017925 /pretyping | |
| parent | 601112e9d6f4a4095e1ba6ba20ad46b60dd9bd74 (diff) | |
CLEANUP: removing superfluous (module) qualifiers
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/arguments_renaming.ml | 3 |
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) |