From 865d3a274dc618a4eff13b309109aa559077a933 Mon Sep 17 00:00:00 2001
From: barras
Date: Mon, 12 Nov 2001 12:38:08 +0000
Subject: Suites modifs du noyau. Univ devient purement fonctionnel.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2183 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/reduction.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/reduction.ml')

diff --git a/kernel/reduction.ml b/kernel/reduction.ml
index 10ce90291c..4e99446b63 100644
--- a/kernel/reduction.ml
+++ b/kernel/reduction.ml
@@ -290,7 +290,7 @@ let dest_prod env =
 	  decrec (push_rel d env) (Sign.add_rel_decl d m) c0
       | _ -> m,t
   in 
-  decrec env []
+  decrec env Sign.empty_rel_context
 
 (* The same but preserving lets *)
 let dest_prod_assum env = 
-- 
cgit v1.2.3