From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Thu, 10 Oct 2002 19:44:25 +0000 (+0000)
Subject: Added an example to test fourier_tac.
X-Git-Tag: BEFORE_METADATA_FOR_SORT_AND_REL~38
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=273ed08112cf9470644498dc495d9e60519e5eaa;p=helm.git

Added an example to test fourier_tac.
---

diff --git a/helm/gTopLevel/esempi/fourier.cic b/helm/gTopLevel/esempi/fourier.cic
new file mode 100644
index 000000000..cae3925a7
--- /dev/null
+++ b/helm/gTopLevel/esempi/fourier.cic
@@ -0,0 +1,8 @@
+alias Rge       /Coq/Reals/Rdefinitions/Rge.con
+alias Rle       /Coq/Reals/Rdefinitions/Rle.con
+alias Rplus     /Coq/Reals/Rdefinitions/Rplus.con
+alias Rminus    /Coq/Reals/Rdefinitions/Rminus.con
+alias R1        /Coq/Reals/Rdefinitions/R1.con
+alias R        /Coq/Reals/Rdefinitions/R.con
+
+!x:R.!y:R.(Rle x y) -> (Rge (Rplus y R1) (Rminus x R1))