X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Ftests%2Fgeneralize.ma;h=aca28ffdcc2ddc9c2d9fdd335461507311a3c1d7;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=a6e56ef3e06215863ec94c73b73b209d806af2eb;hpb=a97fe0b74f4442f934b60fc34ff843789c299481;p=helm.git diff --git a/helm/matita/tests/generalize.ma b/helm/matita/tests/generalize.ma index a6e56ef3e..aca28ffdc 100644 --- a/helm/matita/tests/generalize.ma +++ b/helm/matita/tests/generalize.ma @@ -1,5 +1,5 @@ (**************************************************************************) -(* ___ *) +(* ___ *) (* ||M|| *) (* ||A|| A project by Andrea Asperti *) (* ||T|| *) @@ -13,10 +13,11 @@ (**************************************************************************) set "baseuri" "cic:/matita/generalize". +include "coq.ma". alias num (instance 0) = "natural number". -alias symbol "eq" (instance 0) = "leibnitz's equality". -alias symbol "plus" (instance 0) = "natural plus". +alias symbol "eq" (instance 0) = "Coq's leibnitz's equality". +alias symbol "plus" (instance 0) = "Coq's natural plus". alias id "plus_comm" = "cic:/Coq/Arith/Plus/plus_comm.con". alias id "S" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1/2)". @@ -30,7 +31,7 @@ qed. (* 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. \ No newline at end of file +qed.