diff options
| author | corbinea | 2003-05-16 12:58:16 +0000 |
|---|---|---|
| committer | corbinea | 2003-05-16 12:58:16 +0000 |
| commit | 289bd2b2a3941129ee50c6532d225c9a1041048e (patch) | |
| tree | bd52d884b25d4a48cc5c9949effa49d6f563d7a2 /contrib/first-order/formula.ml | |
| parent | 59dbc8ece1989efcf6e60278f8808d0dbce6bab0 (diff) | |
Major Ground tactic update, sensible performance improvement
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4026 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/first-order/formula.ml')
| -rw-r--r-- | contrib/first-order/formula.ml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/contrib/first-order/formula.ml b/contrib/first-order/formula.ml index 196f11bf55..aaf195a43a 100644 --- a/contrib/first-order/formula.ml +++ b/contrib/first-order/formula.ml @@ -20,7 +20,13 @@ open Libnames let qflag=ref true -let (+-) i j=if i=0 then j else i +let (=?) f g i1 i2 j1 j2= + let c=f i1 i2 in + if c=0 then g j1 j2 else c + +let (==?) fg h i1 i2 j1 j2 k1 k2= + let c=fg i1 i2 j1 j2 in + if c=0 then h k1 k2 else c type ('a,'b)sum=Left of 'a|Right of 'b |