]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/gTopLevel/esempi/ring/varmap.cic
This commit was manufactured by cvs2svn to create branch 'init'.
[helm.git] / helm / gTopLevel / esempi / ring / varmap.cic
diff --git a/helm/gTopLevel/esempi/ring/varmap.cic b/helm/gTopLevel/esempi/ring/varmap.cic
deleted file mode 100644 (file)
index d2cf450..0000000
+++ /dev/null
@@ -1,14 +0,0 @@
-(* Goal: ``x+y == 2*y+(x-y)`` *)
-alias eq        /Coq/Init/Logic/Equality/eq.ind#1/1
-alias eqT       /Coq/Init/Logic_Type/eqT.ind#1/1
-alias R         /Coq/Reals/Rdefinitions/R.con
-alias Rplus     /Coq/Reals/Rdefinitions/Rplus.con
-alias Rmult     /Coq/Reals/Rdefinitions/Rmult.con
-alias R1        /Coq/Reals/Rdefinitions/R1.con
-alias R0        /Coq/Reals/Rdefinitions/R0.con
-alias Ropp      /Coq/Reals/Rdefinitions/Ropp.con
-!x:R.!y:R.
-(eqT R
-  (Rplus x y)
-  (Rplus (Rmult (Rplus R1 R1) y) (Rplus x (Ropp y)))
-)