X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FCoRN-Decl%2Fmodel%2Fsetoids%2FNpossetoid.ma;h=23363a1709391f140891e0ffed7c39f821598d4b;hb=876f16ec4e9080bad4e39bd9c203d6529dcf4f56;hp=0d883959c9c1ccdfcfc417c839e768d91fa05da8;hpb=3199f2a8428b5d19a3a803c1b03d9f90e4120f74;p=helm.git diff --git a/helm/software/matita/contribs/CoRN-Decl/model/setoids/Npossetoid.ma b/helm/software/matita/contribs/CoRN-Decl/model/setoids/Npossetoid.ma index 0d883959c..23363a170 100644 --- a/helm/software/matita/contribs/CoRN-Decl/model/setoids/Npossetoid.ma +++ b/helm/software/matita/contribs/CoRN-Decl/model/setoids/Npossetoid.ma @@ -16,19 +16,15 @@ set "baseuri" "cic:/matita/CoRN-Decl/model/setoids/Npossetoid". +include "CoRN.ma". + (* $Id: Npossetoid.v,v 1.3 2004/04/06 15:46:04 lcf Exp $ *) -(* INCLUDE -Nsetoid -*) +include "model/setoids/Nsetoid.ma". -(* INCLUDE -Npossec -*) +include "model/structures/Npossec.ma". -(* INCLUDE -CSetoidFun -*) +include "algebra/CSetoidFun.ma". (*#* **Example of a setoid: [Npos] @@ -37,38 +33,38 @@ The positive natural numbers [Npos] will be defined as a subsetoid of the natural numbers. *) -inline cic:/CoRN/model/setoids/Npossetoid/Npos.con. +inline "cic:/CoRN/model/setoids/Npossetoid/Npos.con". -inline cic:/CoRN/model/setoids/Npossetoid/NposP.con. +inline "cic:/CoRN/model/setoids/Npossetoid/NposP.con". (*#* One and two are elements of it. *) -inline cic:/CoRN/model/setoids/Npossetoid/ONEpos.con. +inline "cic:/CoRN/model/setoids/Npossetoid/ONEpos.con". -inline cic:/CoRN/model/setoids/Npossetoid/TWOpos.con. +inline "cic:/CoRN/model/setoids/Npossetoid/TWOpos.con". (*#* ***Addition and multiplication Because addition and multiplication preserve positivity, we can define them on this subsetoid. *) -inline cic:/CoRN/model/setoids/Npossetoid/plus_resp_Npos.con. +inline "cic:/CoRN/model/setoids/Npossetoid/plus_resp_Npos.con". -inline cic:/CoRN/model/setoids/Npossetoid/Npos_plus.con. +inline "cic:/CoRN/model/setoids/Npossetoid/Npos_plus.con". -inline cic:/CoRN/model/setoids/Npossetoid/mult_resp_Npos.con. +inline "cic:/CoRN/model/setoids/Npossetoid/mult_resp_Npos.con". -inline cic:/CoRN/model/setoids/Npossetoid/Npos_mult.con. +inline "cic:/CoRN/model/setoids/Npossetoid/Npos_mult.con". (*#* The addition has no right unit on this set. *) -inline cic:/CoRN/model/setoids/Npossetoid/no_rht_unit_Npos1.con. +inline "cic:/CoRN/model/setoids/Npossetoid/no_rht_unit_Npos1.con". (*#* And the multiplication doesn't have an inverse, because there can't be an inverse for 2. *) -inline cic:/CoRN/model/setoids/Npossetoid/no_inverse_Nposmult1.con. +inline "cic:/CoRN/model/setoids/Npossetoid/no_inverse_Nposmult1.con".