helm_registry: added the pair unmarshaller

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

diff --git a/helm/software/matita/contribs/CoRN-Decl/algebra/CFields.ma b/helm/software/matita/contribs/CoRN-Decl/algebra/CFields.ma
index 430accaf6a4b578a863e0b7b4b9d23404ff33716..9b216e081ca7476a277ce555eb26c01f258a48ff 100644 (file)
--- a/helm/software/matita/contribs/CoRN-Decl/algebra/CFields.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/algebra/CFields.ma
@@ -16,7 +16,7 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/algebra/CFields".
 
-include "CoRN_notation.ma".
+include "CoRN.ma".
 
 (* $Id: CFields.v,v 1.12 2004/04/23 10:00:52 lcf Exp $ *)
 
@@ -125,7 +125,7 @@ inline "cic:/CoRN/algebra/CFields/is_CField.con".
 
 inline "cic:/CoRN/algebra/CFields/CField.ind".
 
-coercion "cic:/matita/CoRN-Decl/algebra/CFields/cf_crr.con" 0 (* compounds *).
+coercion cic:/matita/CoRN-Decl/algebra/CFields/cf_crr.con 0 (* compounds *).
 
 (* End_SpecReals *)
 
@@ -149,6 +149,10 @@ inline "cic:/CoRN/algebra/CFields/cf_div.con".
 Implicit Arguments cf_div [F].
 *)
 
+(* NOTATION
+Notation "x [/] y [//] Hy" := (cf_div x y Hy) (at level 80).
+*)
+
 (*#*
 %\begin{convention}\label{convention:div-form}%
 - Division in fields is a (type dependent) ternary function: [(cf_div x y Hy)] is denoted infix by [x [/] y [//] Hy].
@@ -559,10 +563,18 @@ End CField_Ops.
 Implicit Arguments Frecip [X].
 *)
 
+(* NOTATION
+Notation "{1/} x" := (Frecip x) (at level 2, right associativity).
+*)
+
 (* UNEXPORTED
 Implicit Arguments Fdiv [X].
 *)
 
+(* NOTATION
+Infix "{/}" := Fdiv (at level 41, no associativity).
+*)
+
 (* UNEXPORTED
 Hint Resolve included_FRecip included_FDiv : included.
 *)