X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FCoRN-Decl%2Ftactics%2FRingReflection.ma;h=84a076ad99d28cb5c0ebe3eab29cfdbf71a3db6d;hb=dc74ed7c4af1aa9b90fc5d2f0a86bd7825696e71;hp=9a19b55aafd8b02db6859820e270584d0a778f0a;hpb=7a8f91f8aa2d6ba24bf6b3093866f759ee16e690;p=helm.git

diff --git a/helm/software/matita/contribs/CoRN-Decl/tactics/RingReflection.ma b/helm/software/matita/contribs/CoRN-Decl/tactics/RingReflection.ma
index 9a19b55aa..84a076ad9 100644
--- a/helm/software/matita/contribs/CoRN-Decl/tactics/RingReflection.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/tactics/RingReflection.ma
@@ -16,7 +16,7 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/tactics/RingReflection".
 
-include "CoRN_notation.ma".
+include "CoRN.ma".
 
 (* $Id: RingReflection.v,v 1.4 2004/04/23 10:01:06 lcf Exp $ *)
 
@@ -27,18 +27,18 @@ include "algebra/CRings.ma".
 include "tactics/AlgReflection.ma".
 
 (* UNEXPORTED
-Section Ring_Interpretation_Function.
+Section Ring_Interpretation_Function
 *)
 
-inline "cic:/CoRN/tactics/RingReflection/R.var".
+alias id "R" = "cic:/CoRN/tactics/RingReflection/Ring_Interpretation_Function/R.var".
 
-inline "cic:/CoRN/tactics/RingReflection/val.var".
+alias id "val" = "cic:/CoRN/tactics/RingReflection/Ring_Interpretation_Function/val.var".
 
-inline "cic:/CoRN/tactics/RingReflection/unop.var".
+alias id "unop" = "cic:/CoRN/tactics/RingReflection/Ring_Interpretation_Function/unop.var".
 
-inline "cic:/CoRN/tactics/RingReflection/binop.var".
+alias id "binop" = "cic:/CoRN/tactics/RingReflection/Ring_Interpretation_Function/binop.var".
 
-inline "cic:/CoRN/tactics/RingReflection/pfun.var".
+alias id "pfun" = "cic:/CoRN/tactics/RingReflection/Ring_Interpretation_Function/pfun.var".
 
 inline "cic:/CoRN/tactics/RingReflection/interpR.ind".
 
@@ -145,22 +145,26 @@ inline "cic:/CoRN/tactics/RingReflection/refl_interpR.con".
 inline "cic:/CoRN/tactics/RingReflection/interpR_wd.con".
 
 (* UNEXPORTED
-End Ring_Interpretation_Function.
+End Ring_Interpretation_Function
 *)
 
 (* UNEXPORTED
-Section Ring_NormCorrect.
+Section Ring_NormCorrect
 *)
 
-inline "cic:/CoRN/tactics/RingReflection/R.var".
+alias id "R" = "cic:/CoRN/tactics/RingReflection/Ring_NormCorrect/R.var".
 
-inline "cic:/CoRN/tactics/RingReflection/val.var".
+alias id "val" = "cic:/CoRN/tactics/RingReflection/Ring_NormCorrect/val.var".
 
-inline "cic:/CoRN/tactics/RingReflection/unop.var".
+alias id "unop" = "cic:/CoRN/tactics/RingReflection/Ring_NormCorrect/unop.var".
 
-inline "cic:/CoRN/tactics/RingReflection/binop.var".
+alias id "binop" = "cic:/CoRN/tactics/RingReflection/Ring_NormCorrect/binop.var".
 
-inline "cic:/CoRN/tactics/RingReflection/pfun.var".
+alias id "pfun" = "cic:/CoRN/tactics/RingReflection/Ring_NormCorrect/pfun.var".
+
+(* NOTATION
+Notation II := (interpR R val unop binop pfun).
+*)
 
 (*
 four kinds of exprs:
@@ -313,7 +317,7 @@ inline "cic:/CoRN/tactics/RingReflection/NormR_corr.con".
 inline "cic:/CoRN/tactics/RingReflection/Tactic_lemmaR.con".
 
 (* UNEXPORTED
-End Ring_NormCorrect.
+End Ring_NormCorrect
 *)
 
 (* end hide *)