X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fprocedural%2FCoq%2FReals%2FRtopology.mma;fp=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fprocedural%2FCoq%2FReals%2FRtopology.mma;h=50cd41a5128ba96a2fd91ff853e237b37ad8cc00;hb=29714797b01e0ac8c22e4df2827b1785a759f482;hp=0000000000000000000000000000000000000000;hpb=1fb0f39de8b87920d2f15f9e33929d372fa518dd;p=helm.git

diff --git a/helm/software/matita/contribs/procedural/Coq/Reals/Rtopology.mma b/helm/software/matita/contribs/procedural/Coq/Reals/Rtopology.mma
new file mode 100644
index 000000000..50cd41a51
--- /dev/null
+++ b/helm/software/matita/contribs/procedural/Coq/Reals/Rtopology.mma
@@ -0,0 +1,244 @@
+(**************************************************************************)
+(*       ___                                                              *)
+(*      ||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 *********************)
+
+include "Coq.ma".
+
+(*#**********************************************************************)
+
+(*  v      *   The Coq Proof Assistant  /  The Coq Development Team    *)
+
+(* <O___,, *        INRIA-Rocquencourt  &  LRI-CNRS-Orsay              *)
+
+(*   \VV/  *************************************************************)
+
+(*    //   *      This file is distributed under the terms of the      *)
+
+(*         *       GNU Lesser General Public License Version 2.1       *)
+
+(*#**********************************************************************)
+
+(*i $Id: Rtopology.v,v 1.19 2003/12/24 10:27:07 barras Exp $ i*)
+
+include "Reals/Rbase.ma".
+
+include "Reals/Rfunctions.ma".
+
+include "Reals/Ranalysis1.ma".
+
+include "Reals/RList.ma".
+
+include "Logic/Classical_Prop.ma".
+
+include "Logic/Classical_Pred_Type.ma".
+
+(* UNEXPORTED
+Open Local Scope R_scope.
+*)
+
+inline procedural "cic:/Coq/Reals/Rtopology/included.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/disc.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/neighbourhood.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/open_set.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/complementary.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/closed_set.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/intersection_domain.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/union_domain.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/interior.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/interior_P1.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/interior_P2.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/point_adherent.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/adherence.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/adherence_P1.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/included_trans.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/interior_P3.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/complementary_P1.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/adherence_P2.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/adherence_P3.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/eq_Dom.con" as definition.
+
+(* NOTATION
+Infix "=_D" := eq_Dom (at level 70, no associativity).
+*)
+
+inline procedural "cic:/Coq/Reals/Rtopology/open_set_P1.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/closed_set_P1.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/neighbourhood_P1.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/open_set_P2.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/open_set_P3.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/open_set_P4.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/open_set_P5.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/disc_P1.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/continuity_P1.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/image_rec.con" as definition.
+
+(*#*********)
+
+inline procedural "cic:/Coq/Reals/Rtopology/continuity_P2.con" as lemma.
+
+(*#*********)
+
+inline procedural "cic:/Coq/Reals/Rtopology/continuity_P3.con" as lemma.
+
+(*#*********)
+
+inline procedural "cic:/Coq/Reals/Rtopology/Rsepare.con" as theorem.
+
+inline procedural "cic:/Coq/Reals/Rtopology/family.ind".
+
+inline procedural "cic:/Coq/Reals/Rtopology/family_open_set.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/domain_finite.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/family_finite.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/covering.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/covering_open_set.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/covering_finite.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/restriction_family.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/subfamily.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/compact.con" as definition.
+
+(*#*********)
+
+inline procedural "cic:/Coq/Reals/Rtopology/family_P1.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/bounded.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/open_set_P6.con" as lemma.
+
+(*#*********)
+
+inline procedural "cic:/Coq/Reals/Rtopology/compact_P1.con" as lemma.
+
+(*#*********)
+
+inline procedural "cic:/Coq/Reals/Rtopology/compact_P2.con" as lemma.
+
+(*#*********)
+
+inline procedural "cic:/Coq/Reals/Rtopology/compact_EMP.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/compact_eqDom.con" as lemma.
+
+(* Borel-Lebesgue's lemma *)
+
+inline procedural "cic:/Coq/Reals/Rtopology/compact_P3.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/compact_P4.con" as lemma.
+
+(*#*********)
+
+inline procedural "cic:/Coq/Reals/Rtopology/compact_P5.con" as lemma.
+
+(*#*********)
+
+inline procedural "cic:/Coq/Reals/Rtopology/compact_carac.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/image_dir.con" as definition.
+
+(*#*********)
+
+inline procedural "cic:/Coq/Reals/Rtopology/continuity_compact.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/Rlt_Rminus.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/prolongement_C0.con" as lemma.
+
+(*#*********)
+
+inline procedural "cic:/Coq/Reals/Rtopology/continuity_ab_maj.con" as lemma.
+
+(*#*********)
+
+inline procedural "cic:/Coq/Reals/Rtopology/continuity_ab_min.con" as lemma.
+
+(*#*******************************************************)
+
+(*         Proof of Bolzano-Weierstrass theorem         *)
+
+(*#*******************************************************)
+
+inline procedural "cic:/Coq/Reals/Rtopology/ValAdh.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/intersection_family.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/ValAdh_un_exists.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/ValAdh_un.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/ValAdh_un_prop.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/adherence_P4.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/family_closed_set.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/intersection_vide_in.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/intersection_vide_finite_in.con" as definition.
+
+(*#*********)
+
+inline procedural "cic:/Coq/Reals/Rtopology/compact_P6.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/Bolzano_Weierstrass.con" as theorem.
+
+(*#*******************************************************)
+
+(*               Proof of Heine's theorem               *)
+
+(*#*******************************************************)
+
+inline procedural "cic:/Coq/Reals/Rtopology/uniform_continuity.con" as definition.
+
+inline procedural "cic:/Coq/Reals/Rtopology/is_lub_u.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/domain_P1.con" as lemma.
+
+inline procedural "cic:/Coq/Reals/Rtopology/Heine.con" as theorem.
+