CLEANUP: removing the definition of the "Context.Rel.Declaration.to_tuple" function

2 files changed, 0 insertions, 5 deletions

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)
diff --git a/kernel/context.mli b/kernel/context.mli
index b5f3904d2..6fce1b95a 100644
--- a/kernel/context.mli
+++ b/kernel/context.mli
@@ -81,7 +81,6 @@ sig
     (** Reduce all terms in a given declaration to a single value. *)
     val fold : (Constr.t -> 'a -> 'a) -> t -> 'a -> 'a
 
-    val to_tuple : t -> Name.t * Constr.t option * Constr.t
     val of_tuple : Name.t * Constr.t option * Constr.t -> t
   end