diff options
| author | corbinea | 2003-06-04 14:13:02 +0000 |
|---|---|---|
| committer | corbinea | 2003-06-04 14:13:02 +0000 |
| commit | 0235a3306a996a85119a92697431e11a35f093fd (patch) | |
| tree | e4a602f9b9a7427560b63d3a256df11312246778 | |
| parent | d76459e4c1f78059275758a40960f9937877a8a1 (diff) | |
bugfix for Ground ( merci JC )
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4097 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/first-order/rules.ml | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/contrib/first-order/rules.ml b/contrib/first-order/rules.ml index 4c8c8f9b3d..dafef4efe0 100644 --- a/contrib/first-order/rules.ml +++ b/contrib/first-order/rules.ml @@ -35,10 +35,9 @@ let wrap n b tacrec seq gls= match nc with []->anomaly "Not the expected number of hyps" | ((id,_,typ) as nd)::q-> - if occur_var env id (pf_concl gls) then - seq - else if List.exists (occur_var_in_decl env id) ctx then - seq + if occur_var env id (pf_concl gls) || + List.exists (occur_var_in_decl env id) ctx then + (aux (i-1) q (nd::ctx)) else add_left (VarRef id,typ) (aux (i-1) q (nd::ctx)) true gls in let seq1=aux n nc [] in |