X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fnat%2Fplus.ma;h=d0038bac46f5c5cdebd51de3c2fc4152d6606072;hb=442f3a15d7c6afc480da02602d4d4c8db4f44c10;hp=e8b5f6d29e258cee77866c26a470f6cc4119bef5;hpb=f275a4daa42f8ab455020ec5a7ce7bf69b460c37;p=helm.git diff --git a/helm/software/matita/library/nat/plus.ma b/helm/software/matita/library/nat/plus.ma index e8b5f6d29..d0038bac4 100644 --- a/helm/software/matita/library/nat/plus.ma +++ b/helm/software/matita/library/nat/plus.ma @@ -12,8 +12,6 @@ (* *) (**************************************************************************) -set "baseuri" "cic:/matita/nat/plus". - include "nat/nat.ma". let rec plus n m \def @@ -21,8 +19,7 @@ let rec plus n m \def [ O \Rightarrow m | (S p) \Rightarrow S (plus p m) ]. -(*CSC: the URI must disappear: there is a bug now *) -interpretation "natural plus" 'plus x y = (cic:/matita/nat/plus/plus.con x y). +interpretation "natural plus" 'plus x y = (plus x y). theorem plus_n_O: \forall n:nat. n = n+O. intros.elim n.