Adding "Context.Named.Declaration.to_rel" function

1 files changed, 7 insertions, 1 deletions

diff --git a/kernel/context.ml b/kernel/context.ml
index ca084b682..71969be85 100644
--- a/kernel/context.ml
+++ b/kernel/context.ml
@@ -346,6 +346,12 @@ struct
           LocalAssum (f na, t)
       | Rel.Declaration.LocalDef (na,v,t) ->
           LocalDef (f na, v, t)
+            
+    let to_rel = function
+      | LocalAssum (id,t) ->
+          Rel.Declaration.LocalAssum (Name id, t)
+      | LocalDef (id,v,t) ->
+          Rel.Declaration.LocalDef (Name id,v,t)
   end
 
   (** Named-context is represented as a list of declarations.
@@ -399,7 +405,7 @@ struct
       | _ -> None
     in
     List.map_filter filter
-  end
+end
 
 module NamedList =
   struct