X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FCoRN-Decl%2Fmodel%2Fstructures%2FQsec.ma;h=595c037a04c88047763a0904a6710cad8ab371da;hb=876f16ec4e9080bad4e39bd9c203d6529dcf4f56;hp=8f677c178d23a3dc47d045d75b6a8a09d3a89d85;hpb=bb691187f8bbe22ec37ca41f9f3f42f9d8e505df;p=helm.git

diff --git a/helm/software/matita/contribs/CoRN-Decl/model/structures/Qsec.ma b/helm/software/matita/contribs/CoRN-Decl/model/structures/Qsec.ma
index 8f677c178..595c037a0 100644
--- a/helm/software/matita/contribs/CoRN-Decl/model/structures/Qsec.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/model/structures/Qsec.ma
@@ -16,7 +16,7 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/model/structures/Qsec".
 
-include "CoRN_notation.ma".
+include "CoRN.ma".
 
 (* $Id: Qsec.v,v 1.7 2004/04/08 08:20:35 lcf Exp $ *)
 
@@ -74,6 +74,30 @@ inline "cic:/CoRN/model/structures/Qsec/Qinv.con".
 End Q.
 *)
 
+(* NOTATION
+Infix "{=Q}" := Qeq (no associativity, at level 90).
+*)
+
+(* NOTATION
+Infix "{#Q}" := Qap (no associativity, at level 90).
+*)
+
+(* NOTATION
+Infix "{<Q}" := Qlt (no associativity, at level 90).
+*)
+
+(* NOTATION
+Infix "{+Q}" := Qplus (no associativity, at level 85).
+*)
+
+(* NOTATION
+Infix "{*Q}" := Qmult (no associativity, at level 80).
+*)
+
+(* NOTATION
+Notation "{-Q}" := Qopp (at level 1, left associativity).
+*)
+
 (*#* ***Constants
 *)
 
@@ -228,7 +252,7 @@ We consider the injection [inject_Z] from [Z] to [Q] as a coercion.
 
 inline "cic:/CoRN/model/structures/Qsec/inject_Z.con".
 
-coercion "cic:/matita/CoRN-Decl/model/structures/Qsec/inject_Z.con" 0 (* compounds *).
+coercion cic:/matita/CoRN-Decl/model/structures/Qsec/inject_Z.con 0 (* compounds *).
 
 inline "cic:/CoRN/model/structures/Qsec/injz_plus.con".