+++ /dev/null
-(* Goal: ``x+y == 2*y+(x-y)`` *)
-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.
-(eqT R
- (Rplus x y)
- (Rplus (Rmult (Rplus R1 R1) y) (Rplus x (Ropp y)))
-)