diff options
| author |  Matej Kosik <m4tej.kosik@gmail.com> | 2016-08-24 15:31:28 +0200 |
|---|---|---|
| committer | Matej Kosik <m4tej.kosik@gmail.com> | 2016-08-24 17:34:34 +0200 |
| commit | 663922262bc9bcc8876f7e12910f6294fc964753 (patch) | |
| tree | 9dab5db7e8741f0b2914fa390e8d0105a4bd06b2 /pretyping/arguments_renaming.ml | |
| parent | 0591a05a40793e51604a3e9a68b4352099bd5333 (diff) | |
Changing the definition of the "Lib.variable.info" type to enable us to do more cleanups
Diffstat (limited to 'pretyping/arguments_renaming.ml')
| -rw-r--r-- | pretyping/arguments_renaming.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/arguments_renaming.ml b/pretyping/arguments_renaming.ml index ca1d0b7fb..bf9063fdb 100644 --- a/pretyping/arguments_renaming.ml +++ b/pretyping/arguments_renaming.ml @@ -48,7 +48,7 @@ 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 (fun (id, _,_,_) -> Name id) vars in + let var_names = List.map (Name.mk_name % Context.Named.Declaration.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) |