CLEANUP: rename "Context.Named.{to,of}_rel" functions to "Context.Named.{to,of}_rel_decl"

2 files changed, 4 insertions, 4 deletions

diff --git a/kernel/context.ml b/kernel/context.ml
index 47e0a08e5..f14bdc97b 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 366f0ffc1..091d701a2 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.