(* 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)