X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Ftests%2Fcut.ma;h=3e5605a10464ec32a86f56ed8a699b530e983092;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=8ba63bd8b9959898f28d98a4fbbf2f17c96915db;hpb=90f9b69fa2c7742722f5a5e72361638a39951aaf;p=helm.git diff --git a/helm/matita/tests/cut.ma b/helm/matita/tests/cut.ma index 8ba63bd8b..3e5605a10 100644 --- a/helm/matita/tests/cut.ma +++ b/helm/matita/tests/cut.ma @@ -1,5 +1,5 @@ (**************************************************************************) -(* ___ *) +(* ___ *) (* ||M|| *) (* ||A|| A project by Andrea Asperti *) (* ||T|| *) @@ -13,12 +13,13 @@ (**************************************************************************) set "baseuri" "cic:/matita/tests/cut". +include "coq.ma". alias num (instance 0) = "natural number". -alias symbol "eq" (instance 0) = "leibnitz's equality". +alias symbol "eq" (instance 0) = "Coq's leibnitz's equality". -theorem stupid: 0 = 0. - cut 0 = 0. +theorem stupid: 3 = 3. + cut (3 = 3). assumption. reflexivity. - qed. - \ No newline at end of file +qed. +