diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-10-19 09:31:10 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-10-19 09:31:10 +0000 |
| commit | 15afb8a58f29f45cae6a6abca5426abc524408dd (patch) | |
| tree | fa963507dc3e906371b7fd11bb3cefc19b0215b6 | |
| parent | fd8a68ce203bdd5daadcc0302b13a0b3ea0db1b1 (diff) | |
Réparation bug #180
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3159 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/omega/coq_omega.ml | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/contrib/omega/coq_omega.ml b/contrib/omega/coq_omega.ml index 6b6efb807..47893c093 100644 --- a/contrib/omega/coq_omega.ml +++ b/contrib/omega/coq_omega.ml @@ -1664,7 +1664,11 @@ let destructure_hyps gl = (intros_using [i1;i2])) (loop (i1::i2::evbd) ((i1,None,t1)::(i2,None,t2)::lit))) | Kimp(t1,t2) -> - if isprop (pf_type_of gl t1) & closed0 t2 then begin + if + is_Prop (pf_type_of gl t1) & + is_Prop (pf_type_of gl t2) & + closed0 t2 + then (tclTHEN (tclTHEN (tclTHEN @@ -1675,7 +1679,7 @@ let destructure_hyps gl = (clear [i])) (intros_using [i])) (loop evbd ((i,None,mk_or (mk_not t1) t2)::lit))) - end else + else loop evbd lit | Kapp("not",[t]) -> begin match destructurate t with |