--- /dev/null
+(* prova di 0 == 0 *)
+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
+(eqT R R0 R0)