helm_registry: added the pair unmarshaller

[helm.git] / helm / software / matita / contribs / CoRN-Decl / ftc / RefSeparating.ma

diff --git a/helm/software/matita/contribs/CoRN-Decl/ftc/RefSeparating.ma b/helm/software/matita/contribs/CoRN-Decl/ftc/RefSeparating.ma
index 8b2081547214078aeb94b208d9c921009375ed45..4a30dc54940eee7f0e314c0d1e49aa78f3f54f2f 100644 (file)
--- a/helm/software/matita/contribs/CoRN-Decl/ftc/RefSeparating.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/ftc/RefSeparating.ma
@@ -16,7 +16,7 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/ftc/RefSeparating".
 
-include "CoRN_notation.ma".
+include "CoRN.ma".
 
 (* $Id: RefSeparating.v,v 1.7 2004/04/23 10:01:01 lcf Exp $ *)
 
@@ -98,6 +98,10 @@ inline "cic:/CoRN/ftc/RefSeparating/RS'_m1.con".
 
 inline "cic:/CoRN/ftc/RefSeparating/RS'_m.con".
 
+(* NOTATION
+Notation m := RS'_m.
+*)
+
 inline "cic:/CoRN/ftc/RefSeparating/sep__part_length.con".
 
 inline "cic:/CoRN/ftc/RefSeparating/RS'_m_m1.con".
@@ -148,6 +152,19 @@ inline "cic:/CoRN/ftc/RefSeparating/RS'_Hsep.con".
 
 inline "cic:/CoRN/ftc/RefSeparating/RS'_h.con".
 
+(* NOTATION
+Notation h := RS'_h.
+*)
+
+(* NOTATION
+Notation just1 := (incF _ (Pts_part_lemma _ _ _ _ _ _ gP _ _)).
+*)
+
+(* NOTATION
+Notation just2 :=
+  (incF _ (Pts_part_lemma _ _ _ _ _ _ sep__part_pts_in_Partition _ _)).
+*)
+
 inline "cic:/CoRN/ftc/RefSeparating/sep__part_suRS'_m1.con".
 
 inline "cic:/CoRN/ftc/RefSeparating/sep__part_Sum2.con".