diff options
Diffstat (limited to 'plugins/fourier')
| -rw-r--r-- | plugins/fourier/Fourier.v | 3 | ||||
| -rw-r--r-- | plugins/fourier/fourierR.ml | 2 |
2 files changed, 2 insertions, 3 deletions
diff --git a/plugins/fourier/Fourier.v b/plugins/fourier/Fourier.v index a1113d2d0a..1e944a452e 100644 --- a/plugins/fourier/Fourier.v +++ b/plugins/fourier/Fourier.v @@ -8,8 +8,7 @@ (* "Fourier's method to solve linear inequations/equations systems.".*) -Require Export LegacyRing. -Require Export LegacyField. +Require Export Field. Require Export DiscrR. Require Export Fourier_util. Declare ML Module "fourier_plugin". diff --git a/plugins/fourier/fourierR.ml b/plugins/fourier/fourierR.ml index c9760de17d..a4dbb43c54 100644 --- a/plugins/fourier/fourierR.ml +++ b/plugins/fourier/fourierR.ml @@ -605,7 +605,7 @@ let rec fourier gl= (* en attendant Field, ça peut aider Ring de remplacer 1/1 par 1 ... *) [tclORELSE - (Ring.polynom []) + (* TODO : Ring.polynom []*) tclIDTAC tclIDTAC; (tclTHEN (apply (get coq_sym_eqT)) (apply (get coq_Rinv_1)))] |