X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2Fesempi%2Fring%2Fvarmap_trivial_molte_variabili.cic;fp=helm%2FgTopLevel%2Fesempi%2Fring%2Fvarmap_trivial_molte_variabili.cic;h=ce9d86da01fa95cb88f465a7b12ee2966f44b21e;hb=fde1a6daa3aaa72c5c7536f4d2c65a3873b1c1bc;hp=0000000000000000000000000000000000000000;hpb=f848c99a78351881e99e5af6c7daab6b0c05f4b2;p=helm.git

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