X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcontribs%2FCoRN-Decl%2Fmodel%2Fstructures%2FNsec.ma;h=084be106ca29f4028954570baeb35b57b5480354;hb=40bf8d7dee174d96147a21856b3cebb59d1811ec;hp=00d090efa10ec41451d72a085625233611f98263;hpb=0e0d5c57eb154bf20d101f09e560401434156c1d;p=helm.git

diff --git a/matita/contribs/CoRN-Decl/model/structures/Nsec.ma b/matita/contribs/CoRN-Decl/model/structures/Nsec.ma
index 00d090efa..084be106c 100644
--- a/matita/contribs/CoRN-Decl/model/structures/Nsec.ma
+++ b/matita/contribs/CoRN-Decl/model/structures/Nsec.ma
@@ -16,21 +16,13 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/model/structures/Nsec".
 
+include "CoRN.ma".
+
 (* $Id: Nsec.v,v 1.6 2004/04/06 15:46:05 lcf Exp $ *)
 
 (*#* printing {#N} $\ensuremath{\mathrel\#_{\mathbb N}}$ *)
 
-(* INCLUDE
-Peano_dec
-*)
-
-(* INCLUDE
-Relations
-*)
-
-(* INCLUDE
-CLogic
-*)
+include "algebra/CLogic.ma".
 
 (*#* *[nat]
 **About [nat]
@@ -40,33 +32,37 @@ We prove some basic lemmas of the natural numbers.
 A variant of [0_S] from the standard library
 *)
 
-inline cic:/CoRN/model/structures/Nsec/S_O.con.
+inline "cic:/CoRN/model/structures/Nsec/S_O.con".
 
 (*#* ***Apartness
 *)
 
-inline cic:/CoRN/model/structures/Nsec/ap_nat.con.
+inline "cic:/CoRN/model/structures/Nsec/ap_nat.con".
+
+(* NOTATION
+Infix "{#N}" := ap_nat (no associativity, at level 90).
+*)
 
-inline cic:/CoRN/model/structures/Nsec/ap_nat_irreflexive0.con.
+inline "cic:/CoRN/model/structures/Nsec/ap_nat_irreflexive0.con".
 
-inline cic:/CoRN/model/structures/Nsec/ap_nat_symmetric0.con.
+inline "cic:/CoRN/model/structures/Nsec/ap_nat_symmetric0.con".
 
-inline cic:/CoRN/model/structures/Nsec/ap_nat_cotransitive0.con.
+inline "cic:/CoRN/model/structures/Nsec/ap_nat_cotransitive0.con".
 
-inline cic:/CoRN/model/structures/Nsec/ap_nat_tight0.con.
+inline "cic:/CoRN/model/structures/Nsec/ap_nat_tight0.con".
 
 (*#* ***Addition
 *)
 
-inline cic:/CoRN/model/structures/Nsec/plus_strext0.con.
+inline "cic:/CoRN/model/structures/Nsec/plus_strext0.con".
 
 (*#* There is no inverse for addition, because every candidate will fail for 2
 *)
 
-inline cic:/CoRN/model/structures/Nsec/no_inverse0.con.
+inline "cic:/CoRN/model/structures/Nsec/no_inverse0.con".
 
 (*#* ***Multiplication
 *)
 
-inline cic:/CoRN/model/structures/Nsec/mult_strext0.con.
+inline "cic:/CoRN/model/structures/Nsec/mult_strext0.con".