diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/context.ml | 4 | ||||
| -rw-r--r-- | kernel/context.mli | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/kernel/context.ml b/kernel/context.ml index 47e0a08e57..f14bdc97bd 100644 --- a/kernel/context.ml +++ b/kernel/context.ml @@ -346,13 +346,13 @@ struct | id, None, ty -> LocalAssum (id, ty) | id, Some v, ty -> LocalDef (id, v, ty) - let of_rel f = function + let of_rel_decl f = function | Rel.Declaration.LocalAssum (na,t) -> LocalAssum (f na, t) | Rel.Declaration.LocalDef (na,v,t) -> LocalDef (f na, v, t) - let to_rel = function + let to_rel_decl = function | LocalAssum (id,t) -> Rel.Declaration.LocalAssum (Name id, t) | LocalDef (id,v,t) -> diff --git a/kernel/context.mli b/kernel/context.mli index 366f0ffc15..091d701a28 100644 --- a/kernel/context.mli +++ b/kernel/context.mli @@ -199,11 +199,11 @@ sig (** Convert [Rel.Declaration.t] value to the corresponding [Named.Declaration.t] value. The function provided as the first parameter determines how to translate "names" to "ids". *) - val of_rel : (Name.t -> Id.t) -> Rel.Declaration.t -> t + val of_rel_decl : (Name.t -> Id.t) -> Rel.Declaration.t -> t (** Convert [Named.Declaration.t] value to the corresponding [Rel.Declaration.t] value. *) (* TODO: Move this function to [Rel.Declaration] module and rename it to [of_named]. *) - val to_rel : t -> Rel.Declaration.t + val to_rel_decl : t -> Rel.Declaration.t end (** Rel-context is represented as a list of declarations. |