From 8e38b0e46f9628bcface1e5dad39c876f1f3f318 Mon Sep 17 00:00:00 2001 From: Matej Kosik Date: Thu, 11 Aug 2016 14:37:45 +0200 Subject: Adding "Context.Named.Declaraton.of_rel" function --- kernel/context.ml | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'kernel/context.ml') diff --git a/kernel/context.ml b/kernel/context.ml index 2f4997055..ca084b682 100644 --- a/kernel/context.ml +++ b/kernel/context.ml @@ -340,6 +340,12 @@ struct let of_tuple = function | id, None, ty -> LocalAssum (id, ty) | id, Some v, ty -> LocalDef (id, v, ty) + + let of_rel f = function + | Rel.Declaration.LocalAssum (na,t) -> + LocalAssum (f na, t) + | Rel.Declaration.LocalDef (na,v,t) -> + LocalDef (f na, v, t) end (** Named-context is represented as a list of declarations. -- cgit v1.2.3