1 (**************************************************************************)
4 (* ||A|| A project by Andrea Asperti *)
6 (* ||I|| Developers: *)
7 (* ||T|| The HELM team. *)
8 (* ||A|| http://helm.cs.unibo.it *)
10 (* \ / This file is distributed under the terms of the *)
11 (* v GNU General Public License Version 2 *)
13 (**************************************************************************)
15 (* This file was automatically generated: do not edit *********************)
21 (* file : bridges_gives_our.v *)
23 (* version : 1.50 - 09/05/2001 *)
25 (* version : 1.00 - 09/03/2001 *)
27 (* author : Milad Niqui *)
29 (* language : coq7.0bet26feb *)
31 (* dependency : least_upper_bound_principle *)
33 (* description : Bridges' proof of Cauchy completeness in TCS-219 *)
35 include "reals/Bridges_LUB.ma".
37 (* This lemma comes from lemmas.v of Martijn Oostdijk *)
39 inline procedural "cic:/CoRN/reals/Bridges_iso/le_witness_informative.con" as lemma.
42 Section bridges_axioms_imply_ours
46 cic:/CoRN/reals/Bridges_iso/bridges_axioms_imply_ours/OF.var
50 cic:/CoRN/reals/Bridges_iso/bridges_axioms_imply_ours/lubp.var
54 cic:/CoRN/reals/Bridges_iso/bridges_axioms_imply_ours/is_Archimedes.var
57 inline procedural "cic:/CoRN/reals/Bridges_iso/is_Archimedes'.con" as lemma.
63 inline procedural "cic:/CoRN/reals/Bridges_iso/leEq_geEq.con" as lemma.
65 inline procedural "cic:/CoRN/reals/Bridges_iso/glbp.con" as theorem.
72 cic:/CoRN/reals/Bridges_iso/bridges_axioms_imply_ours/proofs_in_TCS/supremum/P.var
75 inline procedural "cic:/CoRN/reals/Bridges_iso/inequality1.con" as lemma.
77 inline procedural "cic:/CoRN/reals/Bridges_iso/inequality2.con" as lemma.
79 inline procedural "cic:/CoRN/reals/Bridges_iso/inequality3.con" as lemma.
81 inline procedural "cic:/CoRN/reals/Bridges_iso/inequality4.con" as lemma.
83 inline procedural "cic:/CoRN/reals/Bridges_iso/Hum.con" as definition.
85 inline procedural "cic:/CoRN/reals/Bridges_iso/bound_tk1.con" as lemma.
87 inline procedural "cic:/CoRN/reals/Bridges_iso/bound_tk2.con" as lemma.
89 inline procedural "cic:/CoRN/reals/Bridges_iso/trick.con" as lemma.
91 inline procedural "cic:/CoRN/reals/Bridges_iso/trick'.con" as lemma.
93 inline procedural "cic:/CoRN/reals/Bridges_iso/up_bound_for_n_element.con" as theorem.
95 inline procedural "cic:/CoRN/reals/Bridges_iso/low_bound_for_n_element.con" as lemma.
97 inline procedural "cic:/CoRN/reals/Bridges_iso/saghf.con" as definition.
99 inline procedural "cic:/CoRN/reals/Bridges_iso/Psaghf.con" as lemma.
101 inline procedural "cic:/CoRN/reals/Bridges_iso/kaf.con" as definition.
103 inline procedural "cic:/CoRN/reals/Bridges_iso/Pkaf.con" as lemma.
106 cic:/CoRN/reals/Bridges_iso/bridges_axioms_imply_ours/proofs_in_TCS/supremum/is_finite_P.var
109 inline procedural "cic:/CoRN/reals/Bridges_iso/card.con" as definition.
111 inline procedural "cic:/CoRN/reals/Bridges_iso/Pcard1.con" as lemma.
113 inline procedural "cic:/CoRN/reals/Bridges_iso/seq.con" as definition.
115 inline procedural "cic:/CoRN/reals/Bridges_iso/Pseq1.con" as definition.
117 inline procedural "cic:/CoRN/reals/Bridges_iso/Pseq1_unfolded.con" as lemma.
119 inline procedural "cic:/CoRN/reals/Bridges_iso/indeks.con" as definition.
121 inline procedural "cic:/CoRN/reals/Bridges_iso/Pindeks.con" as lemma.
124 cic:/CoRN/reals/Bridges_iso/bridges_axioms_imply_ours/proofs_in_TCS/supremum/is_onto_seq_P.var
127 inline procedural "cic:/CoRN/reals/Bridges_iso/P_is_inhabited.con" as lemma.
130 Lemma bounded_quantifier:(N:nat;phi,psi:nat->Prop)
131 ((m:nat)(le m N)->(phi m)\/(psi m))->
132 ((m:nat)(le m N)->(phi m))\/(Ex [j:nat](le j N)/\(psi j)).
136 Cut (phi O)\/(psi O).
142 Rewrite <- (le_n_O_eq m H2).
158 Apply le_trans with m:=N.
167 Case (le_lt_eq_dec m (S N)).
171 Apply (lt_n_Sm_le m N).
191 Apply le_trans with m:=N.
198 inline procedural "cic:/CoRN/reals/Bridges_iso/bounded_quantifier_informative.con" as lemma.
200 inline procedural "cic:/CoRN/reals/Bridges_iso/bridges_lemma1a.con" as lemma.
203 cic:/CoRN/reals/Bridges_iso/bridges_axioms_imply_ours/proofs_in_TCS/supremum/P_is_strongly_extensional.var
206 inline procedural "cic:/CoRN/reals/Bridges_iso/bridges_lemma1b.con" as lemma.
212 (*#**********************************)
214 (*#**********************************)
216 (*#**********************************)
218 (*#**********************************)
221 Section Every_Cauchy_Sequence_is_bounded
224 inline procedural "cic:/CoRN/reals/Bridges_iso/seq2set.con" as definition.
227 cic:/CoRN/reals/Bridges_iso/bridges_axioms_imply_ours/proofs_in_TCS/Every_Cauchy_Sequence_is_bounded/g.var
230 inline procedural "cic:/CoRN/reals/Bridges_iso/bridges_axioms_imply_ours/proofs_in_TCS/Every_Cauchy_Sequence_is_bounded/g_.con" "bridges_axioms_imply_ours__proofs_in_TCS__Every_Cauchy_Sequence_is_bounded__" as definition.
232 inline procedural "cic:/CoRN/reals/Bridges_iso/bridges_axioms_imply_ours/proofs_in_TCS/Every_Cauchy_Sequence_is_bounded/pg.con" "bridges_axioms_imply_ours__proofs_in_TCS__Every_Cauchy_Sequence_is_bounded__" as definition.
234 inline procedural "cic:/CoRN/reals/Bridges_iso/bridges_axioms_imply_ours/proofs_in_TCS/Every_Cauchy_Sequence_is_bounded/P.con" "bridges_axioms_imply_ours__proofs_in_TCS__Every_Cauchy_Sequence_is_bounded__" as definition.
236 inline procedural "cic:/CoRN/reals/Bridges_iso/fin_is_fin.con" as lemma.
238 inline procedural "cic:/CoRN/reals/Bridges_iso/card_fin.con" as lemma.
240 inline procedural "cic:/CoRN/reals/Bridges_iso/finite_seq.con" as lemma.
242 inline procedural "cic:/CoRN/reals/Bridges_iso/bridges_lemma2a.con" as lemma.
244 inline procedural "cic:/CoRN/reals/Bridges_iso/sup.con" as definition.
246 inline procedural "cic:/CoRN/reals/Bridges_iso/Psup.con" as definition.
248 inline procedural "cic:/CoRN/reals/Bridges_iso/Psup_proj1.con" as lemma.
250 inline procedural "cic:/CoRN/reals/Bridges_iso/Psup_unfolded1.con" as lemma.
252 inline procedural "cic:/CoRN/reals/Bridges_iso/Psup_unfolded2.con" as lemma.
254 inline procedural "cic:/CoRN/reals/Bridges_iso/bridges_lemma2b.con" as lemma.
256 inline procedural "cic:/CoRN/reals/Bridges_iso/inf.con" as definition.
258 inline procedural "cic:/CoRN/reals/Bridges_iso/Pinf.con" as definition.
260 inline procedural "cic:/CoRN/reals/Bridges_iso/Pinf_proj1.con" as lemma.
262 inline procedural "cic:/CoRN/reals/Bridges_iso/Pinf_unfolded1.con" as lemma.
264 inline procedural "cic:/CoRN/reals/Bridges_iso/Pinf_unfolded2.con" as lemma.
266 (* I tried very much not to mention this lemma! *)
268 inline procedural "cic:/CoRN/reals/Bridges_iso/sup_leEq.con" as lemma.
270 inline procedural "cic:/CoRN/reals/Bridges_iso/inf_geEq.con" as lemma.
272 inline procedural "cic:/CoRN/reals/Bridges_iso/tail_is_Cauchy.con" as lemma.
274 inline procedural "cic:/CoRN/reals/Bridges_iso/tail_seq.con" as definition.
277 End Every_Cauchy_Sequence_is_bounded
281 cic:/CoRN/reals/Bridges_iso/bridges_axioms_imply_ours/proofs_in_TCS/g.var
284 inline procedural "cic:/CoRN/reals/Bridges_iso/bridges_axioms_imply_ours/proofs_in_TCS/g_.con" "bridges_axioms_imply_ours__proofs_in_TCS__" as definition.
286 inline procedural "cic:/CoRN/reals/Bridges_iso/bridges_axioms_imply_ours/proofs_in_TCS/pg.con" "bridges_axioms_imply_ours__proofs_in_TCS__" as definition.
288 inline procedural "cic:/CoRN/reals/Bridges_iso/bridges_axioms_imply_ours/proofs_in_TCS/sup_tail.con" "bridges_axioms_imply_ours__proofs_in_TCS__" as definition.
290 inline procedural "cic:/CoRN/reals/Bridges_iso/sup_tail_leEq.con" as lemma.
292 inline procedural "cic:/CoRN/reals/Bridges_iso/sup_tail_is_Cauchy.con" as lemma.
294 inline procedural "cic:/CoRN/reals/Bridges_iso/sup_tail_as_Cauchy.con" as definition.
296 inline procedural "cic:/CoRN/reals/Bridges_iso/bridges_axioms_imply_ours/proofs_in_TCS/L.con" "bridges_axioms_imply_ours__proofs_in_TCS__" as definition.
298 inline procedural "cic:/CoRN/reals/Bridges_iso/sup_tail_decrease.con" as lemma.
300 inline procedural "cic:/CoRN/reals/Bridges_iso/L_less_sup_n.con" as lemma.
302 inline procedural "cic:/CoRN/reals/Bridges_iso/Psup_unfolded2_informative.con" as lemma.
304 inline procedural "cic:/CoRN/reals/Bridges_iso/Pinf_unfolded2_informative.con" as lemma.
306 inline procedural "cic:/CoRN/reals/Bridges_iso/convergent_subseq.con" as lemma.
308 (* very elegant proof almost as short as text version! *)
310 inline procedural "cic:/CoRN/reals/Bridges_iso/lubp_gives_Cauchy.con" as theorem.
316 inline procedural "cic:/CoRN/reals/Bridges_iso/Bridges_R_is_CReals.con" as definition.
318 inline procedural "cic:/CoRN/reals/Bridges_iso/Bridges_R_as_CReals.con" as definition.
321 End bridges_axioms_imply_ours
326 (*#* remove printing Q *)