X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fcontribs%2FCoRN-Decl%2Ftactics%2FFieldReflection.ma;h=459f7d132307b9f390c605ea9eb7a9c48dbce62a;hb=62596f4e0a109e43c9df5da20571827c8b905ce4;hp=df85a4f7085ff2a5fbfafb8994655838a032186b;hpb=f104e234238586ac846881feb30e1b56a509cfd3;p=helm.git

diff --git a/matita/contribs/CoRN-Decl/tactics/FieldReflection.ma b/matita/contribs/CoRN-Decl/tactics/FieldReflection.ma
index df85a4f70..459f7d132 100644
--- a/matita/contribs/CoRN-Decl/tactics/FieldReflection.ma
+++ b/matita/contribs/CoRN-Decl/tactics/FieldReflection.ma
@@ -27,18 +27,18 @@ include "algebra/CFields.ma".
 include "tactics/AlgReflection.ma".
 
 (* UNEXPORTED
-Section Field_Interpretation_Function.
+Section Field_Interpretation_Function
 *)
 
-inline "cic:/CoRN/tactics/FieldReflection/F.var".
+inline "cic:/CoRN/tactics/FieldReflection/Field_Interpretation_Function/F.var" "Field_Interpretation_Function__".
 
-inline "cic:/CoRN/tactics/FieldReflection/val.var".
+inline "cic:/CoRN/tactics/FieldReflection/Field_Interpretation_Function/val.var" "Field_Interpretation_Function__".
 
-inline "cic:/CoRN/tactics/FieldReflection/unop.var".
+inline "cic:/CoRN/tactics/FieldReflection/Field_Interpretation_Function/unop.var" "Field_Interpretation_Function__".
 
-inline "cic:/CoRN/tactics/FieldReflection/binop.var".
+inline "cic:/CoRN/tactics/FieldReflection/Field_Interpretation_Function/binop.var" "Field_Interpretation_Function__".
 
-inline "cic:/CoRN/tactics/FieldReflection/pfun.var".
+inline "cic:/CoRN/tactics/FieldReflection/Field_Interpretation_Function/pfun.var" "Field_Interpretation_Function__".
 
 inline "cic:/CoRN/tactics/FieldReflection/interpF.ind".
 
@@ -79,22 +79,26 @@ inline "cic:/CoRN/tactics/FieldReflection/refl_interpF.con".
 inline "cic:/CoRN/tactics/FieldReflection/interpF_wd.con".
 
 (* UNEXPORTED
-End Field_Interpretation_Function.
+End Field_Interpretation_Function
 *)
 
 (* UNEXPORTED
-Section Field_NormCorrect.
+Section Field_NormCorrect
 *)
 
-inline "cic:/CoRN/tactics/FieldReflection/F.var".
+inline "cic:/CoRN/tactics/FieldReflection/Field_NormCorrect/F.var" "Field_NormCorrect__".
 
-inline "cic:/CoRN/tactics/FieldReflection/val.var".
+inline "cic:/CoRN/tactics/FieldReflection/Field_NormCorrect/val.var" "Field_NormCorrect__".
 
-inline "cic:/CoRN/tactics/FieldReflection/unop.var".
+inline "cic:/CoRN/tactics/FieldReflection/Field_NormCorrect/unop.var" "Field_NormCorrect__".
 
-inline "cic:/CoRN/tactics/FieldReflection/binop.var".
+inline "cic:/CoRN/tactics/FieldReflection/Field_NormCorrect/binop.var" "Field_NormCorrect__".
 
-inline "cic:/CoRN/tactics/FieldReflection/pfun.var".
+inline "cic:/CoRN/tactics/FieldReflection/Field_NormCorrect/pfun.var" "Field_NormCorrect__".
+
+(* NOTATION
+Notation II := (interpF F val unop binop pfun).
+*)
 
 (*
 four kinds of exprs:
@@ -207,7 +211,7 @@ inline "cic:/CoRN/tactics/FieldReflection/Tactic_lemma_zero_F.con".
 inline "cic:/CoRN/tactics/FieldReflection/Tactic_lemmaF.con".
 
 (* UNEXPORTED
-End Field_NormCorrect.
+End Field_NormCorrect
 *)
 
 (* end hide *)