diff options
-rw-r--r-- | kernel/context.ml | 5 | ||||
-rw-r--r-- | kernel/context.mli | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/kernel/context.ml b/kernel/context.ml index ca084b682..269bf2143 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 27d0f2c1b..b8a7bf6a3 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. |