helm/gTopLevel/esempi/ring/varmap_trivial_molte_variabili.cic

   1 (* Goal (u,v,w,x,y,z:R)``u+v+w+x+y+z==z+y+x+w+v+u``. *)
   2 alias eq        /Coq/Init/Logic/Equality/eq.ind#1/1
   3 alias eqT       /Coq/Init/Logic_Type/eqT.ind#1/1
   4 alias R         /Coq/Reals/Rdefinitions/R.con
   5 alias Rplus     /Coq/Reals/Rdefinitions/Rplus.con
   6 alias Rmult     /Coq/Reals/Rdefinitions/Rmult.con
   7 alias R1        /Coq/Reals/Rdefinitions/R1.con
   8 alias R0        /Coq/Reals/Rdefinitions/R0.con
   9 alias Ropp      /Coq/Reals/Rdefinitions/Ropp.con
  10 !u:R.!v:R.!w:R.!x:R.!y:R.!z:R.
  11 (eqT R
  12   (Rplus (Rplus (Rplus (Rplus (Rplus u v) w) x) y) z)
  13   (Rplus (Rplus (Rplus (Rplus (Rplus z y) x) w) v) u)
  14 )