diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-02 00:00:33 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-02 00:00:33 +0000 |
| commit | d030c8f18316d63c1d9bda68448ccc70187694f6 (patch) | |
| tree | 1759fb8ffb588d2629f720bc95ccb9c3d5e7047b | |
| parent | 504268e99ab32f8da836e88ec681c3d0432aaf24 (diff) | |
Protection contre les buts sans inegalite
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4767 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/fourier/fourierR.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/fourier/fourierR.ml b/contrib/fourier/fourierR.ml index 8da7530ea..1fae97ef0 100644 --- a/contrib/fourier/fourierR.ml +++ b/contrib/fourier/fourierR.ml @@ -496,9 +496,10 @@ let rec fourier gl= (list_of_sign (pf_hyps gl)) in let lineq =ref [] in List.iter (fun h -> try (lineq:=(ineq1_of_constr h)@(!lineq)) - with _-> ()) + with _ -> ()) hyps; (* lineq = les inéquations découlant des hypothèses *) + if !lineq=[] then Util.error "No inequalities"; let res=fourier_lineq (!lineq) in let tac=ref tclIDTAC in if res=[] |