X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcontribs%2FCoRN-Decl%2Fmodel%2Fstructures%2FZsec.ma;h=b7aa226b1e3cf59977007a73a1d124a0fb99f70a;hb=0a9ed4329c069d2e06902934b6d1d58d3690959c;hp=ce9fb1518bbbf1fa7bfa250fc7bc45167b52245b;hpb=f104e234238586ac846881feb30e1b56a509cfd3;p=helm.git

diff --git a/matita/contribs/CoRN-Decl/model/structures/Zsec.ma b/matita/contribs/CoRN-Decl/model/structures/Zsec.ma
index ce9fb1518..b7aa226b1 100644
--- a/matita/contribs/CoRN-Decl/model/structures/Zsec.ma
+++ b/matita/contribs/CoRN-Decl/model/structures/Zsec.ma
@@ -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 *)