(**************************************************************************)
-(* ___ *)
+(* ___ *)
(* ||M|| *)
(* ||A|| A project by Andrea Asperti *)
(* ||T|| *)
(**************************************************************************)
set "baseuri" "cic:/matita/generalize".
+include "coq.ma".
alias num (instance 0) = "natural number".
alias symbol "eq" (instance 0) = "Coq's leibnitz's equality".
(* This test used to fail because x was used in the wrong context *)
(* Once this was fixed it still did not work since apply is not *)
(* able to solve a goal that ends in a product. *)
-theorem test2: \forall x. x + 4 = 4 + x.
+theorem test2: \forall x. 4 + x = x + 4.
generalize in match 4.
exact plus_comm.
qed.