From 69388fcd52b4a2aeefe843099c608d96defd1ce6 Mon Sep 17 00:00:00 2001
From: Matej Kosik <m4tej.kosik@gmail.com>
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 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'kernel/context.ml')

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