diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-09 15:16:46 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-09 15:16:46 +0000 |
commit | 49356f9dd870d7d42e1e4ffbfc00906832197ef1 (patch) | |
tree | 90447c5b975cb581af7284b45cf952d0483ac2f1 /contrib | |
parent | fc403f2f912cfceef5ff96af379b6e9d912f0c03 (diff) |
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
Diffstat (limited to 'contrib')
-rw-r--r-- | contrib/first-order/rules.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/first-order/rules.ml b/contrib/first-order/rules.ml index b047e01f1..ec4282fa2 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))) |