X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fcontribs%2FCoRN-Decl%2Fftc%2FPartInterval.ma;fp=matita%2Fcontribs%2FCoRN-Decl%2Fftc%2FPartInterval.ma;h=a46add4bca731c3ee69e946037d162a062528fe4;hp=0000000000000000000000000000000000000000;hb=f61af501fb4608cc4fb062a0864c774e677f0d76;hpb=58ae1809c352e71e7b5530dc41e2bfc834e1aef1

diff --git a/matita/contribs/CoRN-Decl/ftc/PartInterval.ma b/matita/contribs/CoRN-Decl/ftc/PartInterval.ma
new file mode 100644
index 000000000..a46add4bc
--- /dev/null
+++ b/matita/contribs/CoRN-Decl/ftc/PartInterval.ma
@@ -0,0 +1,195 @@
+(**************************************************************************)
+(*       ___                                                              *)
+(*      ||M||                                                             *)
+(*      ||A||       A project by Andrea Asperti                           *)
+(*      ||T||                                                             *)
+(*      ||I||       Developers:                                           *)
+(*      ||T||         The HELM team.                                      *)
+(*      ||A||         http://helm.cs.unibo.it                             *)
+(*      \   /                                                             *)
+(*       \ /        This file is distributed under the terms of the       *)
+(*        v         GNU General Public License Version 2                  *)
+(*                                                                        *)
+(**************************************************************************)
+
+(* This file was automatically generated: do not edit *********************)
+
+set "baseuri" "cic:/matita/CoRN-Decl/ftc/PartInterval".
+
+include "CoRN.ma".
+
+(* $Id: PartInterval.v,v 1.6 2004/04/23 10:01:00 lcf Exp $ *)
+
+include "ftc/IntervalFunct.ma".
+
+(* UNEXPORTED
+Section Conversion
+*)
+
+(*#* *Correspondence
+
+In this file we prove that there are mappings going in both ways
+between the set of partial functions whose domain contains
+[[a,b]] and the set of real-valued functions with domain on
+that interval.  These mappings form an adjunction, and thus they have
+all the good properties for preservation results.
+
+**Mappings
+
+We begin by defining the map from partial functions to setoid
+functions as simply being the restriction of the partial function to
+the interval [[a,b]].
+
+%\begin{convention}% Let [F] be a partial function and [a,b:IR] such
+that [I [=] [a,b]] is included in the domain of [F].
+%\end{convention}%
+*)
+
+alias id "F" = "cic:/CoRN/ftc/PartInterval/Conversion/F.var".
+
+alias id "a" = "cic:/CoRN/ftc/PartInterval/Conversion/a.var".
+
+alias id "b" = "cic:/CoRN/ftc/PartInterval/Conversion/b.var".
+
+alias id "Hab" = "cic:/CoRN/ftc/PartInterval/Conversion/Hab.var".
+
+(* begin hide *)
+
+inline "cic:/CoRN/ftc/PartInterval/Conversion/I.con" "Conversion__".
+
+(* end hide *)
+
+alias id "Hf" = "cic:/CoRN/ftc/PartInterval/Conversion/Hf.var".
+
+inline "cic:/CoRN/ftc/PartInterval/IntPartIR_strext.con".
+
+inline "cic:/CoRN/ftc/PartInterval/IntPartIR.con".
+
+(* UNEXPORTED
+End Conversion
+*)
+
+(* UNEXPORTED
+Implicit Arguments IntPartIR [F a b Hab].
+*)
+
+(* UNEXPORTED
+Section AntiConversion
+*)
+
+(*#*
+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".
+
+alias id "b" = "cic:/CoRN/ftc/PartInterval/AntiConversion/b.var".
+
+alias id "Hab" = "cic:/CoRN/ftc/PartInterval/AntiConversion/Hab.var".
+
+(* begin hide *)
+
+inline "cic:/CoRN/ftc/PartInterval/AntiConversion/I.con" "AntiConversion__".
+
+(* end hide *)
+
+alias id "f" = "cic:/CoRN/ftc/PartInterval/AntiConversion/f.var".
+
+inline "cic:/CoRN/ftc/PartInterval/PartInt_strext.con".
+
+inline "cic:/CoRN/ftc/PartInterval/PartInt.con".
+
+(* UNEXPORTED
+End AntiConversion
+*)
+
+(* UNEXPORTED
+Implicit Arguments PartInt [a b Hab].
+*)
+
+(* UNEXPORTED
+Section Inverses
+*)
+
+(*#*
+In one direction these operators are inverses.
+*)
+
+inline "cic:/CoRN/ftc/PartInterval/int_part_int.con".
+
+(* UNEXPORTED
+End Inverses
+*)
+
+(* UNEXPORTED
+Section Equivalences
+*)
+
+(*#* **Mappings Preserve Operations
+
+We now prove that all the operations we have defined on both sets are
+preserved by [PartInt].
+
+%\begin{convention}% Let [F,G] be partial functions and [a,b:IR] and
+denote by [I] the interval [[a,b]].  Let [f,g] be setoid functions of
+type [I->IR] equal respectively to [F] and [G] in [I].
+%\end{convention}%
+*)
+
+alias id "F" = "cic:/CoRN/ftc/PartInterval/Equivalences/F.var".
+
+alias id "G" = "cic:/CoRN/ftc/PartInterval/Equivalences/G.var".
+
+alias id "a" = "cic:/CoRN/ftc/PartInterval/Equivalences/a.var".
+
+alias id "b" = "cic:/CoRN/ftc/PartInterval/Equivalences/b.var".
+
+alias id "c" = "cic:/CoRN/ftc/PartInterval/Equivalences/c.var".
+
+alias id "Hab" = "cic:/CoRN/ftc/PartInterval/Equivalences/Hab.var".
+
+(* begin hide *)
+
+inline "cic:/CoRN/ftc/PartInterval/Equivalences/I.con" "Equivalences__".
+
+(* end hide *)
+
+alias id "f" = "cic:/CoRN/ftc/PartInterval/Equivalences/f.var".
+
+alias id "g" = "cic:/CoRN/ftc/PartInterval/Equivalences/g.var".
+
+alias id "Ff" = "cic:/CoRN/ftc/PartInterval/Equivalences/Ff.var".
+
+alias id "Gg" = "cic:/CoRN/ftc/PartInterval/Equivalences/Gg.var".
+
+inline "cic:/CoRN/ftc/PartInterval/part_int_const.con".
+
+inline "cic:/CoRN/ftc/PartInterval/part_int_id.con".
+
+inline "cic:/CoRN/ftc/PartInterval/part_int_plus.con".
+
+inline "cic:/CoRN/ftc/PartInterval/part_int_inv.con".
+
+inline "cic:/CoRN/ftc/PartInterval/part_int_minus.con".
+
+inline "cic:/CoRN/ftc/PartInterval/part_int_mult.con".
+
+inline "cic:/CoRN/ftc/PartInterval/part_int_nth.con".
+
+(* begin show *)
+
+alias id "HG" = "cic:/CoRN/ftc/PartInterval/Equivalences/HG.var".
+
+alias id "Hg" = "cic:/CoRN/ftc/PartInterval/Equivalences/Hg.var".
+
+(* end show *)
+
+inline "cic:/CoRN/ftc/PartInterval/part_int_recip.con".
+
+inline "cic:/CoRN/ftc/PartInterval/part_int_div.con".
+
+(* UNEXPORTED
+End Equivalences
+*)
+