From e6ba2e83fe0cb5e2fc53844bd0f5fe4b6d8ffb97 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 25 May 2001 06:22:08 +0000
Subject: Remplacement push_rec_types (Rel) pour Fix parpush_named_rec_types

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1762 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/environ.ml | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'kernel/environ.ml')

diff --git a/kernel/environ.ml b/kernel/environ.ml
index ac813e233e..db187880ff 100644
--- a/kernel/environ.ml
+++ b/kernel/environ.ml
@@ -131,6 +131,17 @@ let push_rec_types (lna,typarray,_) env =
   Array.fold_left
     (fun e assum -> push_rel_assum assum e) env ctxt
 
+let push_named_rec_types (lna,typarray,_) env =
+  let ctxt =
+    array_map2_i
+      (fun i na t ->
+	 match na with
+	   | Name id -> (id, type_app (lift i) t)
+	   | Anonymous -> anomaly "Fix declarations must be named")
+      lna typarray in
+  Array.fold_left
+    (fun e assum -> push_named_assum assum e) env ctxt
+
 let reset_rel_context env =
   { env with
       env_context = { env_named_context = env.env_context.env_named_context;
-- 
cgit v1.2.3