From 7da634ee3f64624a519a18543c18ea685e867075 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 2 Jun 2000 12:37:42 +0000
Subject: Bug DLAM dans strong

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

(limited to 'kernel')

diff --git a/kernel/reduction.ml b/kernel/reduction.ml
index 88e42fc864..2d699b7855 100644
--- a/kernel/reduction.ml
+++ b/kernel/reduction.ml
@@ -53,6 +53,9 @@ let strong whdfun env sigma =
     | DOP0 _ as t -> t
     (* Cas ad hoc *)
     | DOP1(oper,c) -> DOP1(oper,strongrec c)
+    (* Faut differencier sinon fait planter kind_of_term *)
+    | DOP2(Prod|Lambda as oper,c1,DLAM(na,c2)) ->
+	DOP2(oper,strongrec c1,DLAM(na,strongrec c2))
     | DOP2(oper,c1,c2) -> DOP2(oper,strongrec c1,strongrec c2)
     | DOPN(oper,cl) -> DOPN(oper,Array.map strongrec cl)
     | DOPL(oper,cl) -> DOPL(oper,List.map strongrec cl)
-- 
cgit v1.2.3