diff options
| author | corbinea | 2003-06-13 06:58:38 +0000 |
|---|---|---|
| committer | corbinea | 2003-06-13 06:58:38 +0000 |
| commit | d31656251b2abae615e2827b8cb7c7f819732f75 (patch) | |
| tree | b67a2b44346259146556ab851ae18ae24867098c /contrib/first-order/sequent.ml | |
| parent | 9bb177741ecc1b706876b8c9a329c3e1530944b4 (diff) | |
Ground update.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4144 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/first-order/sequent.ml')
| -rw-r--r-- | contrib/first-order/sequent.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/first-order/sequent.ml b/contrib/first-order/sequent.ml index 4587a3ddff..4ece7c8c50 100644 --- a/contrib/first-order/sequent.ml +++ b/contrib/first-order/sequent.ml @@ -30,7 +30,7 @@ let priority = function (* pure heuristics, <=0 for non reversible *) | LA(_,lap) -> match lap with LLatom -> 0 - | LLfalse -> 100 + | LLfalse (_,_) -> 100 | LLand (_,_) -> 80 | LLor (_,_) -> 70 | LLforall _ -> -20 |