Added examples.

[helm.git] / helm / gTopLevel / esempi / ring / varmap_trivial2.cic

diff --git a/helm/gTopLevel/esempi/ring/varmap_trivial2.cic b/helm/gTopLevel/esempi/ring/varmap_trivial2.cic
new file mode 100644 (file)
index 0000000..e05aecd
--- /dev/null
+++ b/helm/gTopLevel/esempi/ring/varmap_trivial2.cic
@@ -0,0 +1,14 @@
+(* Goal (x,y,z:R)``x+y+z==z+y+x`` *)
+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.!z:R.
+(eqT R
+  (Rplus (Rplus x y) z)
+  (Rplus (Rplus z y) x)
+)