From 69388fcd52b4a2aeefe843099c608d96defd1ce6 Mon Sep 17 00:00:00 2001
From: Matej Kosik
Date: Fri, 26 Aug 2016 13:18:02 +0200
Subject: CLEANUP: rename "Context.Named.{to,of}_rel" functions to
 "Context.Named.{to,of}_rel_decl"

---
 kernel/context.ml  | 4 ++--
 kernel/context.mli | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'kernel')

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.
-- 
cgit v1.2.3