...

[helm.git] / helm / software / matita / contribs / CoRN-Procedural / ftc / PartInterval.mma

diff --git a/helm/software/matita/contribs/CoRN-Procedural/ftc/PartInterval.mma b/helm/software/matita/contribs/CoRN-Procedural/ftc/PartInterval.mma
index e01c35e39aad576220913bb415c96b108878ed61..6f3197b51ccb6f62daf05faa18329c7721b2578b 100644 (file)
--- a/helm/software/matita/contribs/CoRN-Procedural/ftc/PartInterval.mma
+++ b/helm/software/matita/contribs/CoRN-Procedural/ftc/PartInterval.mma
@@ -43,25 +43,35 @@ that [I [=] [a,b]] is included in the domain of [F].
 %\end{convention}%
 *)
 
-alias id "F" = "cic:/CoRN/ftc/PartInterval/Conversion/F.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/Conversion/F.var
+*)
 
-alias id "a" = "cic:/CoRN/ftc/PartInterval/Conversion/a.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/Conversion/a.var
+*)
 
-alias id "b" = "cic:/CoRN/ftc/PartInterval/Conversion/b.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/Conversion/b.var
+*)
 
-alias id "Hab" = "cic:/CoRN/ftc/PartInterval/Conversion/Hab.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/Conversion/Hab.var
+*)
 
 (* begin hide *)
 
-inline procedural "cic:/CoRN/ftc/PartInterval/Conversion/I.con" "Conversion__".
+inline procedural "cic:/CoRN/ftc/PartInterval/Conversion/I.con" "Conversion__" as definition.
 
 (* end hide *)
 
-alias id "Hf" = "cic:/CoRN/ftc/PartInterval/Conversion/Hf.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/Conversion/Hf.var
+*)
 
-inline procedural "cic:/CoRN/ftc/PartInterval/IntPartIR_strext.con".
+inline procedural "cic:/CoRN/ftc/PartInterval/IntPartIR_strext.con" as lemma.
 
-inline procedural "cic:/CoRN/ftc/PartInterval/IntPartIR.con".
+inline procedural "cic:/CoRN/ftc/PartInterval/IntPartIR.con" as definition.
 
 (* UNEXPORTED
 End Conversion
@@ -80,23 +90,31 @@ To go the other way around, we simply take a setoid function [f] with
 domain [[a,b]] and build the corresponding partial function.
 *)
 
-alias id "a" = "cic:/CoRN/ftc/PartInterval/AntiConversion/a.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/AntiConversion/a.var
+*)
 
-alias id "b" = "cic:/CoRN/ftc/PartInterval/AntiConversion/b.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/AntiConversion/b.var
+*)
 
-alias id "Hab" = "cic:/CoRN/ftc/PartInterval/AntiConversion/Hab.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/AntiConversion/Hab.var
+*)
 
 (* begin hide *)
 
-inline procedural "cic:/CoRN/ftc/PartInterval/AntiConversion/I.con" "AntiConversion__".
+inline procedural "cic:/CoRN/ftc/PartInterval/AntiConversion/I.con" "AntiConversion__" as definition.
 
 (* end hide *)
 
-alias id "f" = "cic:/CoRN/ftc/PartInterval/AntiConversion/f.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/AntiConversion/f.var
+*)
 
-inline procedural "cic:/CoRN/ftc/PartInterval/PartInt_strext.con".
+inline procedural "cic:/CoRN/ftc/PartInterval/PartInt_strext.con" as lemma.
 
-inline procedural "cic:/CoRN/ftc/PartInterval/PartInt.con".
+inline procedural "cic:/CoRN/ftc/PartInterval/PartInt.con" as definition.
 
 (* UNEXPORTED
 End AntiConversion
@@ -114,7 +132,7 @@ Section Inverses
 In one direction these operators are inverses.
 *)
 
-inline procedural "cic:/CoRN/ftc/PartInterval/int_part_int.con".
+inline procedural "cic:/CoRN/ftc/PartInterval/int_part_int.con" as lemma.
 
 (* UNEXPORTED
 End Inverses
@@ -135,57 +153,81 @@ type [I->IR] equal respectively to [F] and [G] in [I].
 %\end{convention}%
 *)
 
-alias id "F" = "cic:/CoRN/ftc/PartInterval/Equivalences/F.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/Equivalences/F.var
+*)
 
-alias id "G" = "cic:/CoRN/ftc/PartInterval/Equivalences/G.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/Equivalences/G.var
+*)
 
-alias id "a" = "cic:/CoRN/ftc/PartInterval/Equivalences/a.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/Equivalences/a.var
+*)
 
-alias id "b" = "cic:/CoRN/ftc/PartInterval/Equivalences/b.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/Equivalences/b.var
+*)
 
-alias id "c" = "cic:/CoRN/ftc/PartInterval/Equivalences/c.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/Equivalences/c.var
+*)
 
-alias id "Hab" = "cic:/CoRN/ftc/PartInterval/Equivalences/Hab.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/Equivalences/Hab.var
+*)
 
 (* begin hide *)
 
-inline procedural "cic:/CoRN/ftc/PartInterval/Equivalences/I.con" "Equivalences__".
+inline procedural "cic:/CoRN/ftc/PartInterval/Equivalences/I.con" "Equivalences__" as definition.
 
 (* end hide *)
 
-alias id "f" = "cic:/CoRN/ftc/PartInterval/Equivalences/f.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/Equivalences/f.var
+*)
 
-alias id "g" = "cic:/CoRN/ftc/PartInterval/Equivalences/g.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/Equivalences/g.var
+*)
 
-alias id "Ff" = "cic:/CoRN/ftc/PartInterval/Equivalences/Ff.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/Equivalences/Ff.var
+*)
 
-alias id "Gg" = "cic:/CoRN/ftc/PartInterval/Equivalences/Gg.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/Equivalences/Gg.var
+*)
 
-inline procedural "cic:/CoRN/ftc/PartInterval/part_int_const.con".
+inline procedural "cic:/CoRN/ftc/PartInterval/part_int_const.con" as lemma.
 
-inline procedural "cic:/CoRN/ftc/PartInterval/part_int_id.con".
+inline procedural "cic:/CoRN/ftc/PartInterval/part_int_id.con" as lemma.
 
-inline procedural "cic:/CoRN/ftc/PartInterval/part_int_plus.con".
+inline procedural "cic:/CoRN/ftc/PartInterval/part_int_plus.con" as lemma.
 
-inline procedural "cic:/CoRN/ftc/PartInterval/part_int_inv.con".
+inline procedural "cic:/CoRN/ftc/PartInterval/part_int_inv.con" as lemma.
 
-inline procedural "cic:/CoRN/ftc/PartInterval/part_int_minus.con".
+inline procedural "cic:/CoRN/ftc/PartInterval/part_int_minus.con" as lemma.
 
-inline procedural "cic:/CoRN/ftc/PartInterval/part_int_mult.con".
+inline procedural "cic:/CoRN/ftc/PartInterval/part_int_mult.con" as lemma.
 
-inline procedural "cic:/CoRN/ftc/PartInterval/part_int_nth.con".
+inline procedural "cic:/CoRN/ftc/PartInterval/part_int_nth.con" as lemma.
 
 (* begin show *)
 
-alias id "HG" = "cic:/CoRN/ftc/PartInterval/Equivalences/HG.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/Equivalences/HG.var
+*)
 
-alias id "Hg" = "cic:/CoRN/ftc/PartInterval/Equivalences/Hg.var".
+(* UNEXPORTED
+cic:/CoRN/ftc/PartInterval/Equivalences/Hg.var
+*)
 
 (* end show *)
 
-inline procedural "cic:/CoRN/ftc/PartInterval/part_int_recip.con".
+inline procedural "cic:/CoRN/ftc/PartInterval/part_int_recip.con" as lemma.
 
-inline procedural "cic:/CoRN/ftc/PartInterval/part_int_div.con".
+inline procedural "cic:/CoRN/ftc/PartInterval/part_int_div.con" as lemma.
 
 (* UNEXPORTED
 End Equivalences