]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/matita/contribs/CoRN-Decl/ftc/RefLemma.ma
helm_registry: added the pair unmarshaller
[helm.git] / helm / software / matita / contribs / CoRN-Decl / ftc / RefLemma.ma
index 99ca5a648004907b5be4d2226d75eedae6fc25d1..9503e78c139b8b8d21492f1961d51b7705f22631 100644 (file)
@@ -16,7 +16,7 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/ftc/RefLemma".
 
-include "CoRN_notation.ma".
+include "CoRN.ma".
 
 (* $Id: RefLemma.v,v 1.7 2004/04/23 10:01:00 lcf Exp $ *)
 
@@ -186,8 +186,24 @@ inline "cic:/CoRN/ftc/RefLemma/RL_h.con".
 
 inline "cic:/CoRN/ftc/RefLemma/RL_g.con".
 
+(* NOTATION
+Notation g := RL_g.
+*)
+
+(* NOTATION
+Notation h := RL_h.
+*)
+
 inline "cic:/CoRN/ftc/RefLemma/ref_calc1.con".
 
+(* NOTATION
+Notation just1 := (incF _ (Pts_part_lemma _ _ _ _ _ _ HfP _ _)).
+*)
+
+(* NOTATION
+Notation just2 := (incF _ (Pts_part_lemma _ _ _ _ _ _ HfQ _ _)).
+*)
+
 inline "cic:/CoRN/ftc/RefLemma/ref_calc2.con".
 
 inline "cic:/CoRN/ftc/RefLemma/ref_calc3.con".
@@ -428,6 +444,10 @@ Section Fourth_Refinement_Lemma.
 
 inline "cic:/CoRN/ftc/RefLemma/Fa.con".
 
+(* NOTATION
+Notation just := (fun z => incF _ (Pts_part_lemma _ _ _ _ _ _ z _ _)).
+*)
+
 inline "cic:/CoRN/ftc/RefLemma/RL_sum_lemma_aux.con".
 
 (* end hide *)