diff options
-rw-r--r-- | kernel/context.ml | 4 | ||||
-rw-r--r-- | kernel/context.mli | 2 |
2 files changed, 0 insertions, 6 deletions
diff --git a/kernel/context.ml b/kernel/context.ml index 2b6bc34f9..2f4997055 100644 --- a/kernel/context.ml +++ b/kernel/context.ml @@ -142,10 +142,6 @@ struct match decl with | LocalAssum (n,ty) -> f ty acc | LocalDef (n,v,ty) -> f ty (f v acc) - - let of_tuple = function - | n, None, ty -> LocalAssum (n,ty) - | n, Some v, ty -> LocalDef (n,v,ty) end (** Rel-context is represented as a list of declarations. diff --git a/kernel/context.mli b/kernel/context.mli index 6fce1b95a..55ea8921b 100644 --- a/kernel/context.mli +++ b/kernel/context.mli @@ -80,8 +80,6 @@ sig (** Reduce all terms in a given declaration to a single value. *) val fold : (Constr.t -> 'a -> 'a) -> t -> 'a -> 'a - - val of_tuple : Name.t * Constr.t option * Constr.t -> t end (** Rel-context is represented as a list of declarations. |