From 2ed6aeb03fc0e25a47223189d8444cbb6b749f2d Mon Sep 17 00:00:00 2001
From: letouzey
Date: Thu, 5 Jul 2012 22:51:11 +0000
Subject: Legacy Ring and Legacy Field migrated to contribs

 One slight point to check someday : fourier used to
 launch a tactic called Ring.polynom in some cases.
 It it crucial ? If so, how to replace with the setoid_ring
 equivalent ?

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15524 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 plugins/fourier/Fourier.v   | 3 +--
 plugins/fourier/fourierR.ml | 2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

(limited to 'plugins/fourier')

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)))]
-- 
cgit v1.2.3