aboutsummaryrefslogtreecommitdiffhomepage
path: root/contrib7
diff options
context:
space:
mode:
authorGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2004-03-02 08:52:48 +0000
committerGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2004-03-02 08:52:48 +0000
commit1fee844708da1de1144cb17b0289938d709a6593 (patch)
tree9ba54a5055e5c0abb8903c462a5285d0a9786848 /contrib7
parent1ef079c1eedfd9d6126c7f94b9b6fa4788083e43 (diff)
Simplification preuve
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5417 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib7')
-rw-r--r--contrib7/fourier/Fourier_util.v7
1 files changed, 1 insertions, 6 deletions
diff --git a/contrib7/fourier/Fourier_util.v b/contrib7/fourier/Fourier_util.v
index 0f36eda8c..37a93dcd3 100644
--- a/contrib7/fourier/Fourier_util.v
+++ b/contrib7/fourier/Fourier_util.v
@@ -149,14 +149,9 @@ Replace R0 with (Ropp (Ropp R0)).
Replace (Ropp (Rmult n (Rinv d))) with (Rmult (Ropp n) (Rinv d)).
Replace (Ropp R0) with R0.
Red.
-Try Exact H0.
Apply Rgt_Ropp.
-Replace (Ropp (Rmult n (Rinv d))) with (Rmult (Ropp n) (Rinv d)).
-Replace (Ropp R0) with R0.
Red.
-Try Exact H0.
-Ring.
-Ring.
+Exact H0.
Ring.
Ring.
Ring.