1 (**************************************************************************)
4 (* ||A|| A project by Andrea Asperti *)
6 (* ||I|| Developers: *)
7 (* ||T|| The HELM team. *)
8 (* ||A|| http://helm.cs.unibo.it *)
10 (* \ / This file is distributed under the terms of the *)
11 (* v GNU General Public License Version 2 *)
13 (**************************************************************************)
15 (* This file was automatically generated: do not edit *********************)
17 set "baseuri" "cic:/matita/CoRN-Decl/model/setoids/Npossetoid".
19 (* $Id: Npossetoid.v,v 1.3 2004/04/06 15:46:04 lcf Exp $ *)
33 (*#* **Example of a setoid: [Npos]
36 The positive natural numbers [Npos] will be defined as a subsetoid of the
40 inline cic:/CoRN/model/setoids/Npossetoid/Npos.con.
42 inline cic:/CoRN/model/setoids/Npossetoid/NposP.con.
44 (*#* One and two are elements of it.
47 inline cic:/CoRN/model/setoids/Npossetoid/ONEpos.con.
49 inline cic:/CoRN/model/setoids/Npossetoid/TWOpos.con.
51 (*#* ***Addition and multiplication
52 Because addition and multiplication preserve positivity, we can define
53 them on this subsetoid.
56 inline cic:/CoRN/model/setoids/Npossetoid/plus_resp_Npos.con.
58 inline cic:/CoRN/model/setoids/Npossetoid/Npos_plus.con.
60 inline cic:/CoRN/model/setoids/Npossetoid/mult_resp_Npos.con.
62 inline cic:/CoRN/model/setoids/Npossetoid/Npos_mult.con.
64 (*#* The addition has no right unit on this set.
67 inline cic:/CoRN/model/setoids/Npossetoid/no_rht_unit_Npos1.con.
69 (*#* And the multiplication doesn't have an inverse, because there can't be an
73 inline cic:/CoRN/model/setoids/Npossetoid/no_inverse_Nposmult1.con.