From 4b24bb7d3b770592015c264001b9aed9fe95c200 Mon Sep 17 00:00:00 2001
From: Matej Kosik <m4tej.kosik@gmail.com>
Date: Thu, 11 Aug 2016 12:41:08 +0200
Subject: CLEANUP: removing the definition of the
 "Context.Rel.Declaration.to_tuple" function

---
 kernel/context.ml | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'kernel/context.ml')

diff --git a/kernel/context.ml b/kernel/context.ml
index 4e53b73a2..2b6bc34f9 100644
--- a/kernel/context.ml
+++ b/kernel/context.ml
@@ -143,10 +143,6 @@ struct
       | LocalAssum (n,ty) -> f ty acc
       | LocalDef (n,v,ty) -> f ty (f v acc)
 
-    let to_tuple = function
-      | LocalAssum (na, ty) -> na, None, ty
-      | LocalDef (na, v, ty) -> na, Some v, ty
-
     let of_tuple = function
       | n, None, ty -> LocalAssum (n,ty)
       | n, Some v, ty -> LocalDef (n,v,ty)
-- 
cgit v1.2.3