X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FCoRN-Decl%2Fmodel%2Fstructures%2FQsec.ma;h=42d6e5671bad1c783814d38d2dab9cf8f5becdce;hb=e880d6eab5e1700f4a625ddcd7d0fa8f0cce2dcc;hp=9a8cb4f64011f9f764a54868d8309dc2218e3f3d;hpb=80110e17ef1d38d71473e9471ce15beddde663bb;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 9a8cb4f64..42d6e5671 100644
--- a/helm/software/matita/contribs/CoRN-Decl/model/structures/Qsec.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/model/structures/Qsec.ma
@@ -47,7 +47,7 @@ also define apartness, order, addition, multiplication, opposite,
 inverse an de constants 0 and 1.  *)
 
 (* UNEXPORTED
-Section Q.
+Section Q
 *)
 
 inline "cic:/CoRN/model/structures/Qsec/Q.ind".
@@ -71,7 +71,31 @@ inline "cic:/CoRN/model/structures/Qsec/QONE.con".
 inline "cic:/CoRN/model/structures/Qsec/Qinv.con".
 
 (* UNEXPORTED
-End Q.
+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".