diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-05-18 17:29:31 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-05-18 17:29:31 +0000 |
| commit | 391e26950408b9a54fb09b55bbaed6dde4fc208e (patch) | |
| tree | b652a17b79a1493d772b2143eb5ae038b84e8e55 | |
| parent | 87b20ca6dac61cce1c064b132a912673f1e5e386 (diff) | |
suppression ligne etrange
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@452 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/wcclausenv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/wcclausenv.ml b/tactics/wcclausenv.ml index 312e3a34e..8a76a0e6f 100644 --- a/tactics/wcclausenv.ml +++ b/tactics/wcclausenv.ml @@ -144,7 +144,7 @@ and build_term ce p_0 p_1 = let env = Global.env() in match p_0,p_1 with | ((na,Some t), (DOP0(Meta mv))) -> - let mv = new_meta() in +(* let mv = new_meta() in *) (DOP0(Meta mv), clenv_pose (na,mv,t) ce) | ((na,_), (DOP2(Cast,c,t))) -> build_term ce (na,Some t) c |