diff options
| author |  corbinea <corbinea@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-23 11:00:41 +0000 |
|---|---|---|
| committer | corbinea <corbinea@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-23 11:00:41 +0000 |
| commit | 87bf3be4d87b358279efb5622172031a49790bb0 (patch) | |
| tree | 294166c274f31d3135249b6e293966da8ccf9a9e /contrib | |
| parent | c3bb6baac44874021ca89808787b501724d94620 (diff) | |
Jprover bugfix (hopefully !)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4707 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/jprover/jtunify.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/jprover/jtunify.ml b/contrib/jprover/jtunify.ml index 6a173e86d..2295e62ce 100644 --- a/contrib/jprover/jtunify.ml +++ b/contrib/jprover/jtunify.ml @@ -232,7 +232,7 @@ let rec apply_element fs ft (v,slist) = let rec shorten us ut = match (us,ut) with - ([],_) | (_,[]) -> raise jprover_bug + ([],_) | (_,[]) -> (us,ut) (*raise jprover_bug*) | ((fs::rs),(ft::rt)) -> if fs = ft then shorten rs rt |