X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FCoRN-Decl%2Fmodel%2Fstructures%2FZsec.ma;h=b7aa226b1e3cf59977007a73a1d124a0fb99f70a;hb=a88be1ca42c0969dbab9a5c76240f5931df876d9;hp=5c2fd5547d7c600ba215962a3d37358dd9701f91;hpb=7a8f91f8aa2d6ba24bf6b3093866f759ee16e690;p=helm.git

diff --git a/helm/software/matita/contribs/CoRN-Decl/model/structures/Zsec.ma b/helm/software/matita/contribs/CoRN-Decl/model/structures/Zsec.ma
index 5c2fd5547..b7aa226b1 100644
--- a/helm/software/matita/contribs/CoRN-Decl/model/structures/Zsec.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/model/structures/Zsec.ma
@@ -16,7 +16,7 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/model/structures/Zsec".
 
-include "CoRN_notation.ma".
+include "CoRN.ma".
 
 (* $Id: Zsec.v,v 1.5 2004/04/06 15:46:05 lcf Exp $ *)
 
@@ -35,6 +35,10 @@ We define the apartness as the negation of the Leibniz equality:
 
 inline "cic:/CoRN/model/structures/Zsec/ap_Z.con".
 
+(* NOTATION
+Infix "{#Z}" := ap_Z (no associativity, at level 90).
+*)
+
 (*#* Some properties of apartness:
 *)
 
@@ -70,7 +74,7 @@ inline "cic:/CoRN/model/structures/Zsec/Zpos.con".
 
 (* begin hide *)
 
-coercion "cic:/matita/CoRN-Decl/model/structures/Zsec/Zpos.con" 0 (* compounds *).
+coercion cic:/Coq/ZArith/BinInt/Z.ind#xpointer(1/1/2) 0 (* compounds *).
 
 (* end hide *)