Added an example to test fourier_tac.

[helm.git] / helm / gTopLevel / esempi / fourier.cic

diff --git a/helm/gTopLevel/esempi/fourier.cic b/helm/gTopLevel/esempi/fourier.cic
new file mode 100644 (file)
index 0000000..cae3925
--- /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))