diff options
author | 2004-09-27 14:55:34 +0000 | |
---|---|---|
committer | 2004-09-27 14:55:34 +0000 | |
commit | 4ec5bed75004a180595eb69c751a1af5b75c0d8d (patch) | |
tree | 99befc06d530b15abe4dec9c2c04a5b03430ce16 /contrib/first-order/ground.ml | |
parent | 8f19d3b52c91fc86796cf9572ada5ba7d653d3d5 (diff) |
firstorder bugfix to cope with elim of sigma types with goal is of the wrong sort
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6141 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/first-order/ground.ml')
-rw-r--r-- | contrib/first-order/ground.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/first-order/ground.ml b/contrib/first-order/ground.ml index bd155fd51..418e6ce83 100644 --- a/contrib/first-order/ground.ml +++ b/contrib/first-order/ground.ml @@ -117,7 +117,8 @@ let ground_tac solver startseq gl= backtrack2 (* need special backtracking *) | Lexists ind -> if !qflag then - left_exists_tac ind hd.id continue (re_add seq1) + left_exists_tac ind backtrack hd.id + continue (re_add seq1) else backtrack | LA (typ,lap)-> let la_tac= |