fix

[helm.git] / matita / contribs / CoRN-Decl / algebra / CGroups.ma

diff --git a/matita/contribs/CoRN-Decl/algebra/CGroups.ma b/matita/contribs/CoRN-Decl/algebra/CGroups.ma
index 76804f36052a6c398135685cf97e15ed9fd846f1..6e644810bc76db479a5c606ba0da4e6840eb0f87 100644 (file)
--- a/matita/contribs/CoRN-Decl/algebra/CGroups.ma
+++ b/matita/contribs/CoRN-Decl/algebra/CGroups.ma
@@ -47,7 +47,7 @@ inline "cic:/CoRN/algebra/CGroups/is_CGroup.con".
 
 inline "cic:/CoRN/algebra/CGroups/CGroup.ind".
 
-coercion "cic:/matita/CoRN-Decl/algebra/CGroups/cg_crr.con" 0 (* compounds *).
+coercion cic:/matita/CoRN-Decl/algebra/CGroups/cg_crr.con 0 (* compounds *).
 
 (* End_SpecReals *)
 
@@ -57,6 +57,10 @@ coercion "cic:/matita/CoRN-Decl/algebra/CGroups/cg_crr.con" 0 (* compounds *).
 Implicit Arguments cg_inv [c].
 *)
 
+(* NOTATION
+Notation "[--] x" := (cg_inv x) (at level 2, right associativity).
+*)
+
 inline "cic:/CoRN/algebra/CGroups/cg_minus.con".
 
 (*#*
@@ -70,6 +74,10 @@ and [ [-] ] with [minus].
 Implicit Arguments cg_minus [G].
 *)
 
+(* NOTATION
+Infix "[-]" := cg_minus (at level 50, left associativity).
+*)
+
 (* End_SpecReals *)
 
 (*#*
@@ -377,10 +385,18 @@ End CGroup_Ops.
 Implicit Arguments Finv [G].
 *)
 
+(* NOTATION
+Notation "{--} x" := (Finv x) (at level 2, right associativity).
+*)
+
 (* UNEXPORTED
 Implicit Arguments Fminus [G].
 *)
 
+(* NOTATION
+Infix "{-}" := Fminus (at level 50, left associativity).
+*)
+
 (* UNEXPORTED
 Hint Resolve included_FInv included_FMinus : included.
 *)