diff options
Diffstat (limited to 'pretyping/reductionops.ml')
| -rw-r--r-- | pretyping/reductionops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index 7359b2e2a..624645a8f 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -259,7 +259,7 @@ let magicaly_constant_of_fixbody env bd = function | Name.Name id -> try let cst = Nametab.locate_constant - (Libnames.make_qualid Dir_path.empty id) in + (Libnames.make_qualid DirPath.empty id) in match constant_opt_value env cst with | None -> bd | Some t -> if eq_constr t bd then mkConst cst else bd |