From 49356f9dd870d7d42e1e4ffbfc00906832197ef1 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 9 Nov 2003 15:16:46 +0000
Subject: Traduction semantique des InHyp de clause en InHypValue si local def

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

(limited to 'contrib')

diff --git a/contrib/first-order/rules.ml b/contrib/first-order/rules.ml
index b047e01f16..ec4282fa26 100644
--- a/contrib/first-order/rules.ml
+++ b/contrib/first-order/rules.ml
@@ -211,4 +211,4 @@ let normalize_evaluables=
 	 None->unfold_in_concl (Lazy.force defined_connectives)
        | Some id-> 
 	   unfold_in_hyp (Lazy.force defined_connectives) 
-	   (Tacexpr.InHypType id))
+	   (id,(Tacexpr.InHypTypeOnly,ref None)))
-- 
cgit v1.2.3