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

This reverts commit 4b24bb7d3b770592015c264001b9aed9fe95c200.

While the of_tuple function is clearly dubious and mostly used for compatiblity reasons,
and thus had to be removed, I think that the to_tuple function is still useful as it
allows to access each component of the declaration piecewise. Without it, some codes
tend to get cluttered with useless projections here and there.

2 files changed, 7 insertions, 0 deletions

diff --git a/kernel/context.ml b/kernel/context.ml
index ca084b6820..269bf21432 100644
--- a/kernel/context.ml
+++ b/kernel/context.ml
@@ -142,6 +142,11 @@ struct
       match decl with
       | 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
+
   end
 
   (** Rel-context is represented as a list of declarations.
diff --git a/kernel/context.mli b/kernel/context.mli
index 27d0f2c1bd..b8a7bf6a34 100644
--- a/kernel/context.mli
+++ b/kernel/context.mli
@@ -80,6 +80,8 @@ 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
   end
 
   (** Rel-context is represented as a list of declarations.